b3cd9c64a9
Files correlati : no patch Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 888 sul main trunk git-svn-id: svn://10.65.10.50/trunk@9217 c028cbd2-c16b-5b4b-a496-9718f37d4682
196 lines
2.7 KiB
Plaintext
Executable File
196 lines
2.7 KiB
Plaintext
Executable File
#include "ba0100a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione utenti" -1 -1 35 7
|
|
|
|
LIST F_GROUP 1 8
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
ITEM " |Utente"
|
|
MESSAGE SHOW,3@
|
|
ITEM "X|Gruppo"
|
|
MESSAGE HIDE,3@
|
|
FIELD ISGROUP
|
|
GROUP G_SUPERUSER
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_USER 8
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
FLAGS "U"
|
|
USE LF_USER
|
|
INPUT USERNAME F_USER
|
|
DISPLAY "Utente@8" USERNAME
|
|
DISPLAY "Gruppo@8" GROUPNAME
|
|
DISPLAY "Descrizione@50" USERDESC
|
|
OUTPUT F_USER USERNAME
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
FIELD USERNAME
|
|
END
|
|
|
|
STRING F_GROUPNAME 8
|
|
BEGIN
|
|
PROMPT 32 1 "Gruppo di appartenenza "
|
|
FLAGS "U"
|
|
USE LF_USER SELECT ISGROUP="X"
|
|
INPUT USERNAME F_GROUP
|
|
DISPLAY "Gruppo@8" USERNAME
|
|
DISPLAY "Descrizione@50" USERDESC
|
|
OUTPUT F_GROUP USERNAME
|
|
CHECKTYPE NORMAL
|
|
FIELD GROUPNAME
|
|
GROUP G_SUPERUSER
|
|
END
|
|
|
|
STRING F_USERDESC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
FIELD USERDESC
|
|
GROUP G_SUPERUSER
|
|
END
|
|
|
|
STRING F_PASSWORD 8
|
|
BEGIN
|
|
PROMPT 1 3 "Password "
|
|
FLAGS "*"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_TEST 8
|
|
BEGIN
|
|
PROMPT 32 3 "Prova "
|
|
FLAGS "*"
|
|
STR_EXPR #F_TEST=#F_PASSWORD
|
|
WARNING "La password ed la sua prova devono coincidere"
|
|
GROUP 3
|
|
END
|
|
|
|
SPREADSHEET F_MODULI 78
|
|
BEGIN
|
|
PROMPT 0 5 "Moduli"
|
|
ITEM "Modulo@40"
|
|
ITEM "Abilitato"
|
|
ITEM "Codice"
|
|
GROUP G_SUPERUSER
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Permessi" -1 -1 78 20
|
|
|
|
TREE F_PERMESSI -3 -9
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
END
|
|
|
|
STRING F_APPLICAT 80 16
|
|
BEGIN
|
|
PROMPT 1 -7 "Programma "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_NOWRITE
|
|
BEGIN
|
|
PROMPT 32 -7 "Disabilita registrazioni nell'intero modulo"
|
|
GROUP G_SUPERUSER
|
|
END
|
|
|
|
SPREADSHEET F_PROPERTIES
|
|
BEGIN
|
|
PROMPT 1 -6 ""
|
|
FLAGS "|"
|
|
ITEM "Uso"
|
|
ITEM "Azione"
|
|
ITEM "Espressione"
|
|
GROUP G_SUPERUSER
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Campo" -1 -1 60 11
|
|
|
|
STRING F_NOMEMOD 40
|
|
BEGIN
|
|
PROMPT 1 3 "Modulo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_ENABLE
|
|
BEGIN
|
|
PROMPT 11 5 "Abilitato "
|
|
END
|
|
|
|
NUMBER F_CODE 3
|
|
BEGIN
|
|
PROMPT 1 7 "Codice "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Proprieta'" -1 -1 70 10
|
|
|
|
LIST 101 1 10
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
ITEM " |Azione"
|
|
MESSAGE ENABLE,102|ENABLE,103
|
|
ITEM "N|Negato"
|
|
MESSAGE DISABLE,102|DISABLE,103|"Negato",102|"1",103
|
|
ITEM "L|Lettura"
|
|
MESSAGE DISABLE,102|ENABLE,103|"Lettura",102
|
|
ITEM "S|Scrittura"
|
|
MESSAGE DISABLE,102|ENABLE,103|"Scrittura",102
|
|
END
|
|
|
|
STRING 102 16
|
|
BEGIN
|
|
PROMPT 21 1 "Azione "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
MEMO 103 0 -3
|
|
BEGIN
|
|
PROMPT 1 2 "Espressione"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|