#include "cgstesc.h" TOOLBAR "topbar" 0 0 0 2 #include ENDPAGE PAGE "Stampa esercizi" 0 2 0 0 NUMBER F_CODDITTA 5 BEGIN PROMPT 2 1 "Ditta " FLAGS "FRD" END NUMBER F_INIZIO1 4 BEGIN PROMPT 2 2 "Da anno " FIELD FROM FLAGS "ZR" USE ESC KEY 1 INPUT CODTAB F_INIZIO1 DISPLAY "Anno esercizio" CODTAB DISPLAY "Data inizio esercizio" D0 DISPLAY "Data fine esercizio" D1 OUTPUT F_INIZIO1 CODTAB GROUP 1 END NUMBER F_FINE1 4 BEGIN PROMPT 20 2 "a anno " FIELD TO COPY USE F_INIZIO1 FLAGS "ZR" INPUT CODTAB F_FINE1 COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB GROUP 2 END ENDPAGE ENDMASK