#include TOOLBAR "" 0 20 0 2 #include ENDPAGE PAGE "Categorie di vendita " -1 -1 78 8 STRING F_CODICE 2 BEGIN PROMPT 4 2 "Codice " FIELD CODTAB FLAGS "U" KEY 1 USE %CVE INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB DISPLAY "Descrizione @30" S0 DISPLAY "Provvigione" R0 DISPLAY "Gruppo" I1 DISPLAY "Conto" I2 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 OUTPUT F_PROVV R0 OUTPUT F_GRUPPO I1 OUTPUT F_CONTO I2 CHECKTYPE REQUIRED END STRING F_DESCR 30 BEGIN PROMPT 4 4 "Descrizione " FIELD LF_TABCOM->S0 KEY 2 USE %CVE KEY 2 INPUT CODTAB F_CODICE INPUT S0 F_DESCR DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB DISPLAY "Provvigione" R0 DISPLAY "Gruppo" I1 DISPLAY "Conto" I2 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 OUTPUT F_PROVV R0 OUTPUT F_GRUPPO I1 OUTPUT F_CONTO I2 CHECKTYPE REQUIRED END NUMBER F_PROVV 5 2 BEGIN PROMPT 4 6 "Provvigione " FIELD LF_TABCOM->R0 END NUMBER F_GRUPPO 2 BEGIN PROMPT 30 6 "Gruppo " FIELD LF_TABCOM->I1 END NUMBER F_CONTO 2 BEGIN PROMPT 43 6 "Conto " FIELD LF_TABCOM->I2 END ENDPAGE ENDMASK