97cf100315
Files correlati : ba1.exe Ricompilazione Demo : [ ] Commento : 0001036: installazione cd patch 180 Installando ex novo ed indicando una società esistente di dati su una cartella diversa viene segnalato l'errore ba1.exe in fase di conversione archivi, richiamando da manutenzione archivi la conversione vengono generati gli errori allegati. Nell'area ftp di Aga, cartella Ilaria allego l'area dati SIDA per il test. git-svn-id: svn://10.65.10.50/trunk@17973 c028cbd2-c16b-5b4b-a496-9718f37d4682
191 lines
2.9 KiB
Plaintext
Executable File
191 lines
2.9 KiB
Plaintext
Executable File
#include "ba1100a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 "Conferma"
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE BMP_OK
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -25 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_NULL 2 2
|
|
BEGIN
|
|
PROMPT -1 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_IMPORT 10 2
|
|
BEGIN
|
|
PROMPT -45 -1 "~Importa"
|
|
MESSAGE EXIT,K_F7
|
|
PICTURE 150
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 10 2
|
|
BEGIN
|
|
PROMPT -35 -1 "~Esporta"
|
|
MESSAGE EXIT,K_F6
|
|
PICTURE 151
|
|
GROUP 1
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tracciato Record" -1 -1 77 20
|
|
|
|
NUMBER F_NUM 4
|
|
BEGIN
|
|
PROMPT 1 0 "Archivio n. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DES 50
|
|
BEGIN
|
|
PROMPT 20 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_FIELDS 0 14
|
|
BEGIN
|
|
PROMPT 0 1 "Fields"
|
|
ITEM "Nome@10"
|
|
ITEM "Tipo"
|
|
ITEM "Lunghezza"
|
|
ITEM "Decimali"
|
|
ITEM "Descrizione@72"
|
|
END
|
|
|
|
SPREADSHEET F_KEYS
|
|
BEGIN
|
|
PROMPT 0 16 "Keys"
|
|
ITEM "Espressione@65"
|
|
ITEM "Chiavi duplicate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Campo" -1 -1 70 11
|
|
|
|
STRING F_NOMEF 10
|
|
BEGIN
|
|
PROMPT 2 2 "Nome "
|
|
FLAGS "U"
|
|
HELP "Nome del campo"
|
|
END
|
|
|
|
LIST FLD_TIPO 24
|
|
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|"10",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 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Chiave" -1 -1 79 9
|
|
|
|
STRING F_KEXPR 70 60
|
|
BEGIN
|
|
PROMPT 1 2 "Espress."
|
|
HELP "Espressione dell'archivio"
|
|
FLAGS "U"
|
|
END
|
|
|
|
BOOLEAN F_KDUP
|
|
BEGIN
|
|
PROMPT 1 4 "Chiavi duplicate"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|