Alessandro Bonazzi
2c7c159ea1
Files correlati : ba1.exe ba1800a.msk Commento: Aggiunta la possibilità di aggiornare campi al programma di importazione file di testo
140 lines
1.8 KiB
Plaintext
Executable File
140 lines
1.8 KiB
Plaintext
Executable File
#include "ba1800.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON F_SAVE 10 2
|
|
BEGIN
|
|
PROMPT -14 -11 "~Registra"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
BUTTON F_IMPORT 10 2
|
|
BEGIN
|
|
PROMPT -24 -11 "~Importa"
|
|
PICTURE TOOL_IMPORT
|
|
END
|
|
|
|
BUTTON F_UPDATE 10 2
|
|
BEGIN
|
|
PROMPT -34 -11 "~Aggiorna"
|
|
PICTURE BMP_LINK
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -44 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Importazione" -1 -1 78 23
|
|
|
|
STRING F_FILE 50
|
|
BEGIN
|
|
PROMPT 1 1 "File da importare "
|
|
FSELECT "*.*"
|
|
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 5
|
|
BEGIN
|
|
PROMPT 45 3 "Lunghezza "
|
|
FLAGFS "U"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_SKIPLINES 5
|
|
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 5
|
|
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 5
|
|
BEGIN
|
|
PROMPT 1 7 ""
|
|
END
|
|
|
|
SPREADSHEET F_FIELDS 78
|
|
BEGIN
|
|
PROMPT 1 15 ""
|
|
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 50
|
|
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
|