21699c002e
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 2.1 598 git-svn-id: svn://10.65.10.50/trunk@13909 c028cbd2-c16b-5b4b-a496-9718f37d4682
188 lines
2.9 KiB
Plaintext
Executable File
188 lines
2.9 KiB
Plaintext
Executable File
#include "ba1100a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 ""
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE 103
|
|
PICTURE 153
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -25 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 10 2
|
|
BEGIN
|
|
PROMPT -35 -1 "~Esporta"
|
|
MESSAGE EXIT,K_F6
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_IMPORT 10 2
|
|
BEGIN
|
|
PROMPT -45 -1 "~Importa"
|
|
MESSAGE EXIT,K_F7
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -55 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tracciato Record" -1 -1 77 20
|
|
|
|
NUMBER F_NUM 4
|
|
BEGIN
|
|
PROMPT 1 1 "Archivio n. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DES 50
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_FIELDS 0 13
|
|
BEGIN
|
|
PROMPT 0 2 "Fields"
|
|
ITEM "Nome@10"
|
|
ITEM "Tipo"
|
|
ITEM "Lunghezza"
|
|
ITEM "Decimali"
|
|
ITEM "Descrizione@72"
|
|
END
|
|
|
|
SPREADSHEET F_KEYS
|
|
BEGIN
|
|
PROMPT 0 16 "Keys"
|
|
ITEM "Espressione@65"
|
|
ITEM "Chiavi duplicate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Campo" -1 -1 70 11
|
|
|
|
STRING F_NOMEF 10
|
|
BEGIN
|
|
PROMPT 2 2 "Nome "
|
|
FLAGS "U"
|
|
HELP "Nome del campo"
|
|
END
|
|
|
|
LIST FLD_TIPO 24
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo "
|
|
HELP "Tipo del campo"
|
|
ITEM "1|Alfanumerico"
|
|
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "2|Intero"
|
|
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "3|Intero Lungo"
|
|
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "4|Reale"
|
|
MESSAGE ENABLE,FLD_LEN|ENABLE,FLD_DEC
|
|
ITEM "5|Data"
|
|
MESSAGE DISABLE,FLD_LEN|"8",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "6|Intero"
|
|
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "7|Carattere"
|
|
MESSAGE DISABLE,FLD_LEN|"1",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "8|Booleano"
|
|
MESSAGE DISABLE,FLD_LEN|"1",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "9|Intero Zerofilled"
|
|
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "10|Intero Lungo Zerofilled"
|
|
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
ITEM "11|Memo"
|
|
MESSAGE DISABLE,FLD_LEN|"10",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
|
|
END
|
|
|
|
NUMBER FLD_LEN 3
|
|
BEGIN
|
|
PROMPT 2 4 "Lunghezza "
|
|
FLAGS "R"
|
|
HELP "Lunghezza del campo"
|
|
WARNING "Numero lunghezza campo errata"
|
|
END
|
|
|
|
NUMBER FLD_DEC 2
|
|
BEGIN
|
|
PROMPT 2 5 "Decimali "
|
|
FLAGS "UR"
|
|
HELP "Decimali del campo"
|
|
NUM_EXPR {(#FLD_TIPO!=4)||(#THIS_FIELD+2<=#FLD_LEN)}
|
|
WARNING "Numero di decimali errato"
|
|
END
|
|
|
|
STRING FLD_DES 256 50
|
|
BEGIN
|
|
PROMPT 2 6 "Descrizione "
|
|
HELP "Descrizione del campo"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Chiave" -1 -1 79 9
|
|
|
|
STRING F_KEXPR 70 60
|
|
BEGIN
|
|
PROMPT 1 2 "Espress."
|
|
HELP "Espressione dell'archivio"
|
|
FLAGS "U"
|
|
END
|
|
|
|
BOOLEAN F_KDUP
|
|
BEGIN
|
|
PROMPT 1 4 "Chiavi duplicate"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|