181 lines
2.7 KiB
Plaintext
Executable File
181 lines
2.7 KiB
Plaintext
Executable File
#include <defmask.h>
|
|
#include "ba1100a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 8 2
|
|
BEGIN
|
|
PROMPT -16 -1 ""
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_PRINT 8 2
|
|
BEGIN
|
|
PROMPT -26 -1 "Stampa"
|
|
MESSAGE EXIT,K_F5
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 8 2
|
|
BEGIN
|
|
PROMPT -36 -1 "Esporta"
|
|
MESSAGE EXIT,K_F6
|
|
END
|
|
|
|
BUTTON DLG_IMPORT 8 2
|
|
BEGIN
|
|
PROMPT -46 -1 "Importa"
|
|
MESSAGE EXIT,K_F7
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -56 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Modifica Tracciato Record - Campi" -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 44 7
|
|
BEGIN
|
|
PROMPT 15 4 ""
|
|
ITEM "Nome@10"
|
|
ITEM "Tipo"
|
|
ITEM "Lunghezza"
|
|
ITEM "Decimali"
|
|
END
|
|
|
|
|
|
SPREADSHEET F_KEYS
|
|
BEGIN
|
|
PROMPT 1 13 ""
|
|
ITEM "Espressione@60"
|
|
ITEM "Chiavi duplicate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Campo" -1 -1 60 9
|
|
|
|
STRING F_NUMF 3 3
|
|
BEGIN
|
|
PROMPT 2 1 "Numero "
|
|
FLAGS "DR"
|
|
END
|
|
|
|
STRING F_NOMEF 10
|
|
BEGIN
|
|
PROMPT 2 2 "Nome "
|
|
FLAGS "U"
|
|
HELP "Inserire il nome"
|
|
END
|
|
|
|
LIST FLD_TIPO 20
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo "
|
|
HELP "Inserire il tipo"
|
|
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|"6",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
|
|
END
|
|
|
|
NUMBER FLD_LEN 3
|
|
BEGIN
|
|
PROMPT 2 4 "Lunghezza "
|
|
FLAGS "R"
|
|
HELP "Inserire la lunghezza"
|
|
WARNING "Numero lunghezza campo errata"
|
|
END
|
|
|
|
NUMBER FLD_DEC 2
|
|
BEGIN
|
|
PROMPT 2 5 "Decimali "
|
|
FLAGS "R"
|
|
HELP "Inserire i decimali"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD+2<=#FLD_LEN)}
|
|
WARNING "Numero di decimali errato"
|
|
END
|
|
|
|
BUTTON DLG_OK 8 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 8 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Chiave" -1 -1 77 9
|
|
|
|
STRING F_KEXPR 60
|
|
BEGIN
|
|
PROMPT 1 2 "Espressione "
|
|
FLAGS "U"
|
|
END
|
|
|
|
BOOLEAN F_KDUP
|
|
BEGIN
|
|
PROMPT 1 4 "Chiavi duplicate"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 8 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 8 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|