#include "cg5500a.h" TOOLBAR "" 0 20 0 2 BUTTON DLG_SAVEREC 8 2 BEGIN PROMPT -13 -1 "~Registra" PICTURE BMP_SAVEREC PICTURE BMP_SAVERECDN MESSAGE EXIT,K_SAVE END BUTTON DLG_CANCEL 8 2 BEGIN PROMPT -23 -1 "" END BUTTON DLG_QUIT 8 2 BEGIN PROMPT -33 -1 "" MESSAGE EXIT,K_QUIT END ENDPAGE PAGE "Visualizzazione liquidazione" -1 -1 77 20 GROUPBOX DLG_NULL 79 3 BEGIN PROMPT 0 1 "@BDitta corrente" END NUMBER F_CODDITTA 5 BEGIN PROMPT 2 2 "Codice ditta " FLAGS "FRD" USE LF_NDITTE KEY 1 INPUT CODDITTA F_CODDITTA OUTPUT F_RAGSOC RAGSOC CHECKTYPE REQUIRED END STRING F_RAGSOC 50 BEGIN PROMPT 22 2 "" FLAGS "D" END NUMBER F_CREDPREC 15 BEGIN PROMPT 1 4 "Credito inizio anno " FLAGS "R" PICTURE "." END SPREADSHEET F_VISLIQ1 78 5 BEGIN PROMPT 1 7 "Liquidazione" ITEM "Mese@10" ITEM "Risultato@15" ITEM "D/C" ITEM "IVA rimborso@15" ITEM "IVA rettifiche@15" ITEM "D/C" END SPREADSHEET F_VISLIQ2 78 5 BEGIN PROMPT 1 13 "Versamenti" ITEM "Mese@10" ITEM "Data@10" ITEM "ABI@5" ITEM "CAB@5" ITEM "Conc.@5" ITEM "Versamenti@15" // ITEM "D/C" END ENDPAGE ENDMASK PAGE "Prospetto mensile" -1 -1 50 10 STRING 101 20 BEGIN PROMPT 1 1 "Mese " FLAGS "D" END NUMBER 102 15 0 BEGIN PROMPT 1 2 "Risultato " FLAGS "DR" PICTURE "." END LIST 103 1 10 BEGIN PROMPT 1 3 "Importo a " ITEM " | " ITEM "D|Debito" ITEM "C|Credito" FLAGS "DU" END NUMBER 104 15 BEGIN PROMPT 1 4 "IVA a rimborso " FLAGS "R" PICTURE "." END NUMBER 105 15 BEGIN PROMPT 1 5 "Rettifiche " FLAGS "R" PICTURE "." END LIST 106 1 10 BEGIN PROMPT 1 6 "Rettifica a " ITEM " | " ITEM "D|Debito" ITEM "C|Credito" FLAGS "U" END BUTTON DLG_OK 10 2 BEGIN PROMPT -13 -1 "" END BUTTON DLG_CANCEL 10 2 BEGIN PROMPT -23 -1 "" END BUTTON 100 10 2 BEGIN PROMPT -33 -1 "Dettaglio" // FLAGS "H" END ENDPAGE ENDMASK PAGE "Prospetto versamenti" -1 -1 50 12 STRING 101 20 BEGIN PROMPT 1 1 "Mese " FLAGS "D" END DATE 102 BEGIN PROMPT 1 2 "Data " END NUMBER 103 5 BEGIN PROMPT 1 3 "Codice ABI " HELP "Codice ABI banca di appoggio" FIELD S7 FLAGS "RZ" USE %BAN KEY 1 SELECT CODTAB ?= "?????" INPUT CODTAB 103 DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Descrizione @50" S0 OUTPUT 103 CODTAB[1,5] OUTPUT 104 CODTAB[6,10] CHECKTYPE NORMAL WARNING "Codice ABI assente" END NUMBER 104 5 BEGIN PROMPT 1 4 "Codice CAB " HELP "Codice CAB banca di appoggio" FIELD S8 FLAGS "RZ" USE %BAN KEY 1 SELECT CODTAB ?= "??????????" INPUT CODTAB[1,5] 103 INPUT CODTAB[6,10] 104 DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Denominazione@50" S0 OUTPUT 103 CODTAB[1,5] OUTPUT 104 CODTAB[6,10] CHECKTYPE NORMAL VALIDATE REQIF_FUNC 1 103 WARNING "Banca assente" END NUMBER 105 3 BEGIN PROMPT 1 5 "Concessione " HELP "Codice Concessione del Comune di residenza fiscale" // FIELD S9 FLAGS "RZ" END NUMBER 106 15 0 BEGIN PROMPT 1 6 "Versamenti " FLAGS "R" PICTURE "." END /* LIST 107 1 10 BEGIN PROMPT 1 7 "Importo a " ITEM "D|Debito" ITEM "C|Credito" FLAGS "U" END */ BUTTON DLG_OK 10 2 BEGIN PROMPT -13 -1 "" END BUTTON DLG_CANCEL 10 2 BEGIN PROMPT -23 -1 "" END BUTTON 100 10 2 BEGIN PROMPT -33 -1 "Dettaglio" // FLAGS "H" END ENDPAGE ENDMASK