#include "ab1200.h" TOOLBAR "topbar" 0 0 0 2 #include ENDPAGE PAGE "Stampa tabella tipi di bilancio" 0 2 0 0 STRING F_INIZIO1 2 BEGIN PROMPT 3 1 "Da codice " HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio" USE %PDB INPUT CODTAB F_INIZIO1 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@40" S0 OUTPUT F_INIZIO1 CODTAB GROUP 1 FIELD CODTAB FLAGS "UZ" END STRING F_FINE1 2 BEGIN PROMPT 4 3 "A codice " HELP "Codice a cui terminare la stampa. Vuoto = fine archivio" COPY USE F_INIZIO1 INPUT CODTAB F_FINE1 COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB GROUP 2 FIELD CODTAB FLAGS "UZ" END ENDPAGE ENDMASK