#include "../ba/ba3200.h" TOOLBAR "topbar" 0 0 0 2 #include ENDPAGE PAGE "Prestazioni" -1 -1 50 8 STRING F_INIZIO1 8 BEGIN PROMPT 2 1 "Da cod. prestazione " FLAGS "U" HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" FIELD LF_TABCOM->CODTAB USE PRS INPUT CODTAB F_INIZIO1 DISPLAY "Cod. prestazione" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_INIZIO1 CODTAB GROUP 1 END STRING F_FINE1 8 BEGIN PROMPT 2 3 "A cod. prestazione " FLAGS "U" HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" FIELD LF_TABCOM->CODTAB COPY USE F_INIZIO1 INPUT CODTAB F_FINE1 COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB GROUP 2 END ENDPAGE ENDMASK