#include TOOLBAR "" 0 20 0 2 #include ENDPAGE PAGE "Tabella Codici Note Cliente" -1 -1 78 8 STRING F_CODICE 2 BEGIN PROMPT 4 2 "Codice " FIELD CODTAB FLAGS "U" KEY 1 USE %NOT INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB DISPLAY "Destinazione@30" S0 DISPLAY "Blocca immobili@20" S1 DISPLAY "Documento@20" S2 OUTPUT F_CODICE CODTAB OUTPUT F_DEST S0 OUTPUT F_BLOCCA S1 OUTPUT F_DOCUM S2 CHECKTYPE REQUIRED END STRING F_DEST 30 BEGIN PROMPT 4 4 "Destinazione " FIELD LF_TABCOM->S0 END STRING F_BLOCCA 20 BEGIN PROMPT 4 6 "Blocca Immobile " FIELD LF_TABCOM->S1 END STRING F_DOCUM 20 BEGIN PROMPT 4 8 "Documento " FIELD LF_TABCOM->S2 END ENDPAGE ENDMASK