#define F_CODICE 101 #define F_DESCR 102 #define F_TIPOMOV 110 TOOLBAR "" 0 20 60 2 #include ENDPAGE PAGE " Raggruppamenti fiscali causali " 11 60 14 GROUPBOX DLG_NULL 75 5 BEGIN PROMPT 1 0 "" FLAGS "R" END STRING F_CODICE 5 BEGIN PROMPT 2 1 "Codice " FIELD CODTAB KEY 1 USE %RFC FLAG "U" INPUT CODTAB F_CODICE DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50 " S0 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END STRING F_DESCR 50 BEGIN PROMPT 2 3 "Descrizione " FIELD S0 USE %RFC KEY 2 KEY 2 INPUT S0 F_DESCR COPY DISPLAY F_CODICE COPY OUTPUT F_CODICE CHECKTYPE REQUIRED WARNING "Manca la descrizione" END LISTBOX F_TIPOMOV 16 BEGIN PROMPT 2 7 "Tipo movimento " FIELD S6 ITEM "C|carico" ITEM "S|scarico" ITEM "V|varie" END ENDPAGE ENDMASK