37d5aeeacb
ba1.h Aggiunto ba1800() ba1600.* Gestione patch nel Megascicolator ba1700.* Gestione patch nel Installator ba1800.cpp Migliorata gestione record piu' lunghi di 256 caratteri ba1800a.uml Allargata descrizione campi *.pif Aggiunti pif per gestire la de/compressione zip386.bat Chiama zip386.exe ed e' chiamato da zip.pif git-svn-id: svn://10.65.10.50/trunk@6023 c028cbd2-c16b-5b4b-a496-9718f37d4682
135 lines
1.7 KiB
Plaintext
Executable File
135 lines
1.7 KiB
Plaintext
Executable File
#include "ba1800.h"
|
|
|
|
TOOLBAR "" 0 20 0 3
|
|
|
|
BUTTON F_SAVE 10 2
|
|
BEGIN
|
|
PROMPT -13 -11 "~Registra"
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON F_IMPORT 10 2
|
|
BEGIN
|
|
PROMPT -23 -11 "~Importa"
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Importazione" -1 -1 78 23
|
|
|
|
STRING F_FILE 50
|
|
BEGIN
|
|
PROMPT 1 1 "File da importare "
|
|
FLAGS "B"
|
|
END
|
|
|
|
STRING F_INI 50
|
|
BEGIN
|
|
PROMPT 1 2 "File di configurazione "
|
|
FLAGS "B"
|
|
END
|
|
|
|
BOOLEAN F_FIXEDLEN
|
|
BEGIN
|
|
PROMPT 1 3 "Record a lunghezza fissa"
|
|
MESSAGE FALSE HIDE,F_RECLEN|SHOW,F_RECSEP
|
|
MESSAGE TRUE SHOW,F_RECLEN|HIDE,F_RECSEP
|
|
END
|
|
|
|
STRING F_RECSEP 4
|
|
BEGIN
|
|
PROMPT 45 3 "Separatore di record "
|
|
END
|
|
|
|
NUMBER F_RECLEN 6
|
|
BEGIN
|
|
PROMPT 45 3 "Lunghezza "
|
|
FLAGFS "U"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_SKIPLINES 6
|
|
BEGIN
|
|
PROMPT 1 4 "Righe iniziali da ignorare "
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_FIELDSEP 1
|
|
BEGIN
|
|
PROMPT 45 4 "Separatore dei campi "
|
|
END
|
|
|
|
NUMBER F_DISPLINES 6
|
|
BEGIN
|
|
PROMPT 1 5 "Righe da visualizzare "
|
|
FLAGS "U"
|
|
END
|
|
|
|
|
|
STRING F_ISAM 4
|
|
BEGIN
|
|
PROMPT 1 6 "File ISAM di destinazione "
|
|
FLAGS "BU"
|
|
END
|
|
|
|
BOOLEAN F_ZAP
|
|
BEGIN
|
|
PROMPT 41 6 "Azzera il file di destinazione"
|
|
END
|
|
|
|
BROWSEFILE F_COLUMNIZER 75 4
|
|
BEGIN
|
|
PROMPT 1 6 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
SPREADSHEET F_FIELDS 78
|
|
BEGIN
|
|
PROMPT 1 13 ""
|
|
ITEM "Campo@12"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 70 5
|
|
|
|
STRING F_FIELD 12
|
|
BEGIN
|
|
PROMPT 1 1 "Campo "
|
|
FLAGS "BU"
|
|
END
|
|
|
|
STRING F_DESCR 70
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
FLAGS "D"
|
|
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
|