//definizione maschera per stampa tabella attivita' #include "cestcat.h" PAGE "Stampa Attivita' cespiti" -1 -1 78 10 NUMBER F_INIZIO 2 BEGIN PROMPT 2 2 "Da codice gruppo " FLAGS "UZ" FIELD CODTAB[1,2] USE %CGR KEY 1 INPUT CODTAB F_INIZIO DISPLAY "Codice" CODTAB DISPLAY "Descrizione@60" S0 OUTPUT F_INIZIO CODTAB OUTPUT F_D_INIZIO S0 GROUP 1 CHECKTYPE NORMAL END STRING F_D_INIZIO 60 50 BEGIN PROMPT 26 2 "" FLAGS "D" END STRING F_INIZIO2 4 BEGIN PROMPT 2 3 " specie " FLAGS "U_" FIELD CODTAB[3,6] USE %CAT KEY 1 INPUT CODTAB[1,2] F_INIZIO INPUT CODTAB[3,6] F_INIZIO2 DISPLAY "Gruppo" CODTAB[1,2] DISPLAY "Specie" CODTAB[3,6] DISPLAY "Descrizione@60" S0 OUTPUT F_INIZIO CODTAB[1,2] OUTPUT F_INIZIO2 CODTAB[3,6] OUTPUT F_D_INIZIO2 S0 GROUP 1 CHECKTYPE NORMAL END STRING F_D_INIZIO2 60 50 BEGIN PROMPT 26 3 "" FLAGS "D" END NUMBER F_FINE 2 BEGIN PROMPT 2 5 "A codice gruppo " FLAGS "UZ" FIELD CODTAB[1,2] USE %CGR KEY 1 INPUT CODTAB F_FINE DISPLAY "Codice" CODTAB DISPLAY "Descrizione@60" S0 OUTPUT F_FINE CODTAB OUTPUT F_D_FINE S0 GROUP 2 CHECKTYPE NORMAL END STRING F_D_FINE 60 50 BEGIN PROMPT 26 5 "" FLAGS "D" END STRING F_FINE2 4 BEGIN PROMPT 2 6 " specie " FLAGS "U_" FIELD CODTAB[3,6] USE %CAT KEY 1 INPUT CODTAB[1,2] F_FINE INPUT CODTAB[3,6] F_FINE2 DISPLAY "Gruppo" CODTAB[1,2] DISPLAY "Specie" CODTAB[3,6] DISPLAY "Descrizione@60" S0 OUTPUT F_FINE CODTAB[1,2] OUTPUT F_FINE2 CODTAB[3,6] OUTPUT F_D_FINE2 S0 GROUP 2 CHECKTYPE NORMAL END STRING F_D_FINE2 60 50 BEGIN PROMPT 26 6 "" FLAGS "D" END ENDPAGE TOOLBAR "bottom" 0 0 0 2 #include ENDPAGE ENDMASK