#include TOOLBAR "" 0 20 0 2 #include ENDPAGE PAGE "Tabella Spese da addebitare" -1 -1 78 8 STRING F_CODICE 3 BEGIN PROMPT 4 2 "Codice " FIELD CODTAB FLAGS "U" KEY 1 USE %SAD INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB DISPLAY "Descrizione @20" S0 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END STRING F_DESCR 20 BEGIN PROMPT 4 4 "Descrizione " FIELD LF_TABCOM->S0 KEY 2 USE %SAD KEY 2 INPUT CODTAB F_CODICE INPUT S0 F_DESCR DISPLAY "Descrizione @20" S0 DISPLAY "Codice" CODTAB OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END ENDPAGE ENDMASK