192 lines
3.0 KiB
Plaintext
Executable File
192 lines
3.0 KiB
Plaintext
Executable File
#include <defmask.h>
|
|
#include "ba1100a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 8 2
|
|
BEGIN
|
|
PROMPT -15 -1 ""
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_PRINT 8 2
|
|
BEGIN
|
|
PROMPT -25 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 8 2
|
|
BEGIN
|
|
PROMPT -35 -1 "~Esporta"
|
|
MESSAGE EXIT,K_F6
|
|
END
|
|
|
|
BUTTON DLG_IMPORT 8 2
|
|
BEGIN
|
|
PROMPT -45 -1 "~Importa"
|
|
MESSAGE EXIT,K_F7
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -55 -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 0 8
|
|
BEGIN
|
|
PROMPT 0 4 ""
|
|
ITEM "Nome@10"
|
|
ITEM "Tipo"
|
|
ITEM "Lunghezza"
|
|
ITEM "Decimali"
|
|
ITEM "Descrizione@72"
|
|
END
|
|
|
|
SPREADSHEET F_KEYS
|
|
BEGIN
|
|
PROMPT 0 13 ""
|
|
ITEM "Espressione@60"
|
|
ITEM "Chiavi duplicate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Campo" -1 -1 70 11
|
|
|
|
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 "Nome del campo"
|
|
END
|
|
|
|
LIST FLD_TIPO 20
|
|
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|"8",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 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"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Chiave" -1 -1 77 9
|
|
|
|
STRING F_KEXPR 60
|
|
BEGIN
|
|
PROMPT 1 2 "Espressione "
|
|
HELP "Espressione dell'archivio"
|
|
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"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|