#include "tc3100a.h" TOOLBAR "topbar" 0 0 0 2 BUTTON DLG_ELABORA 10 2 BEGIN PROMPT -12 -11 "~Elabora" PICTURE BMP_ELABORA MESSAGE EXIT,K_ENTER END #include ENDPAGE TOOLBAR "" 0 -2 0 2 STRING DLG_PROFILE 50 BEGIN PROMPT 9 0 "Profilo " PSELECT END ENDPAGE PAGE "Importazione da Ericsoft" 0 0 0 -3 GROUPBOX DLG_NULL 76 3 BEGIN PROMPT 2 1 "@bDitta corrente" END NUMBER F_CODDITTA 5 BEGIN PROMPT 3 2 "Codice " FLAGS "FD" USE LF_NDITTE INPUT CODDITTA F_CODDITTA OUTPUT F_RAGSOC RAGSOC CHECKTYPE REQUIRED END STRING F_RAGSOC 50 BEGIN PROMPT 23 2 "" FLAGS "D" //FIELD RAGSOC END GROUPBOX DLG_NULL 76 6 BEGIN PROMPT 2 4 "@bSorgente" END STRING F_PATH 256 50 BEGIN PROMPT 3 5 "Cartella " DSELECT CHECKTYPE REQUIRED FIELD Path END STRING F_CLIFOR 18 BEGIN PROMPT 3 6 "Clienti " FLAGS "B" FIELD ReCFInFile END STRING F_MOV 18 BEGIN PROMPT 3 7 "Movimenti " FLAGS "B" FIELD ReMovInFile END BOOLEAN F_VERBOSE BEGIN PROMPT 3 11 "Output Dettagliato" END ENDPAGE ENDMASK