#include "intbird.h" TOOLBAR "relapbar" 0 0 0 2 #include ENDPAGE PAGE "Dati riassuntivi" 0 2 0 0 GROUPBOX DLG_NULL 78 3 BEGIN PROMPT 1 1 "@bDati Riassuntivi" END LIST F_TIPO 1 8 BEGIN PROMPT 2 2 "Tipo " ITEM "A|Acquisti" ITEM "C|Cessioni" FIELD CODTAB[1,1] KEY 1 END NUMBER F_ANNO 4 BEGIN PROMPT 35 2 "Anno " FLAGS "AZ" USE IRD INPUT CODTAB[1,1] F_TIPO SELECT INPUT CODTAB[2,5] F_ANNO INPUT CODTAB[6,7] F_MESE DISPLAY "Tipo" CODTAB[1,1] DISPLAY "Anno@15" CODTAB[2,5] DISPLAY "Periodo@10" CODTAB[6,7] DISPLAY "N.dischetto@10" I0 DISPLAY "Riepiloghi@10" I2 DISPLAY "Rettifiche@10" I3 OUTPUT F_ANNO CODTAB[2,5] OUTPUT F_MESE CODTAB[6,7] CHECKTYPE REQUIRED FIELD CODTAB[2,5] KEY 1 END NUMBER F_MESE 2 BEGIN PROMPT 56 2 "Periodo " FLAGS "Z" COPY ALL F_ANNO FIELD CODTAB[6,7] KEY 1 END NUMBER F_NDKT 4 BEGIN PROMPT 2 4 "Numero Dischetto " FIELD I0 END NUMBER F_RIGHE 7 BEGIN PROMPT 2 6 "Righe riepilogo " FIELD I2 END NUMBER F_RETT 7 BEGIN PROMPT 2 7 "Righe rettifica " FIELD I3 END CURRENCY F_AMM_COMP 18 BEGIN PROMPT 36 6 "Ammontare Riepiloghi " FIELD R0 END CURRENCY F_AMM_RETT 18 BEGIN PROMPT 36 7 "Ammontare Rettifiche " FIELD R1 END ENDPAGE ENDMASK