#include "fp1100a.h" TOOLBAR "topbar" 0 0 0 2 BUTTON DLG_RECALC 2 2 BEGIN PROMPT 1 1 "~Carica" PICTURE TOOL_CONVERT END BUTTON DLG_EXPORT 2 2 BEGIN PROMPT 1 1 "~Excel" PICTURE TOOL_EXCEL END #include ENDPAGE PAGE "Filtri" 0 2 0 0 DATE F_DADATA BEGIN PROMPT 1 1 "Data iniziale" CHECKTYPE REQUIRED END DATE F_ADATA BEGIN PROMPT 50 1 "Data finale " VALIDATE DATE_CMP_FUNC >= F_DADATA WARNING "La data finale non puņ essere minore della data iniziale" CHECKTYPE REQUIRED END STRING F_DACODNUM 4 BEGIN PROMPT 1 2 "Da numerazione " HELP "Da codice numerazione" USE %NUM INPUT CODTAB F_DACODNUM DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_DACODNUM CODTAB FLAG "UPA" CHECKTYPE FORCED WARNING "Numerazione assente" KEY 1 2 END STRING F_ACODNUM 4 BEGIN PROMPT 50 2 "A numerazione " HELP "Da codice numerazione" USE %NUM INPUT CODTAB F_ACODNUM DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_ACODNUM CODTAB FLAG "UPA" CHECKTYPE FORCED WARNING "Numerazione assente" KEY 1 2 END SPREADSHEET F_DOCS BEGIN PROMPT 0 5 "" ITEM "Anno" ITEM "Cod.\nNum.@4" ITEM "Tipo\nDoc@4" ITEM "Tipo SDI@4" ITEM "Num.\nDoc.@7" ITEM "Data\nDoc.@10" ITEM "Totale\nDoc.@10" ITEM "Imposta\nDoc.@10" ITEM "Cliente" ITEM "Ragione Sociale@50" ITEM "Bollo" ITEM "Addebito" END ENDPAGE ENDMASK PAGE "Documento" -1 -1 80 6 NUMBER S_ANNO 4 BEGIN PROMPT 1 1 "Anno " END STRING S_CODNUM 4 BEGIN PROMPT 25 1 "Numerazione " END STRING S_TIPODOC 4 BEGIN PROMPT 46 1 "Tipo Documento " END STRING S_CODSDI 4 BEGIN PROMPT 1 2 "Tipo Doc SDI" END NUMBER S_NDOC 7 BEGIN PROMPT 25 2 "Numero " END DATE S_DATADOC BEGIN PROMPT 46 2 "Data " END NUMBER S_TOTDOC 15 2 BEGIN PROMPT 1 3 "Totale Doc. " END NUMBER S_IMPOSTADOC 15 2 BEGIN PROMPT 46 3 "Imposta " END NUMBER S_CLIENTE 6 BEGIN PROMPT 1 4 "Cliente " END STRING S_RAGSOC 50 BEGIN PROMPT 25 4 "" END NUMBER S_BOLLO 4 2 BEGIN PROMPT 1 5 "Importo bollo" END BOOLEAN S_ADDEBITO BEGIN PROMPT 20 5 "Addebito cliente" END ENDPAGE TOOLBAR "Documento" 0 0 0 2 BUTTON DLG_OK 2 2 BEGIN PROMPT 1 1 "" END BUTTON DLG_USER 2 2 BEGIN PROMPT 1 1 "Collega" PICTURE TOOL_LINK END BUTTON DLG_CANCEL 2 2 BEGIN PROMPT 1 1 "" END ENDPAGE ENDMASK