cb6165f09b
2475 2521 2493 2494 2559 2558 2556 2495 2487 2491 2470 2461 2568 2492 2587 2457 2458 2459 2460 2574 2582 2525 2526 2524 2523 2522 2531 2530 2529 2528 2527 2534 2533 2536 2537 2538 2510 2515 2585 2539 2570 2555 2584 2503 2500 2499 2543 2547 2569 2472 ???? git-svn-id: svn://10.65.10.50/trunk@702 c028cbd2-c16b-5b4b-a496-9718f37d4682
183 lines
2.8 KiB
Plaintext
Executable File
183 lines
2.8 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 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 "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|"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 "Lunghezza del campo"
|
|
WARNING "Numero lunghezza campo errata"
|
|
END
|
|
|
|
NUMBER FLD_DEC 2
|
|
BEGIN
|
|
PROMPT 2 5 "Decimali "
|
|
FLAGS "R"
|
|
HELP "Decimali del campo"
|
|
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"
|
|
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
|
|
|