#include #include "ve2100d.h" TOOLBAR "" 0 20 60 2 #include ENDPAGE PAGE "Archivio sconti documenti " 11 60 14 LISTA F_D_TIPO 1 BEGIN PROMPT 100 100 "" FIELD LF_SCONTI->TIPO FLAG "H" ITEM "D|Sconti documento" END STRING F_D_CODCAT 2 BEGIN PROMPT 2 2 "Codice sconto documento " FIELD LF_SCONTI->CODCAT FLAG "UR" KEY 1 USE LF_SCONTI INPUT TIPO F_D_TIPO SELECT INPUT CODCAT F_D_CODCAT DISPLAY "Codice" CODCAT DISPLAY "Sconto@50" SCONTO OUTPUT F_D_CODCAT CODCAT OUTPUT F_D_SCONTO SCONTO CHECKTYPE REQUIRED END GROUPBOX DLG_NULL 70 5 BEGIN PROMPT 0 0 "" //FLAG "R" END STRING F_D_SCONTO 25 BEGIN PROMPT 19 6 "Sconto " FIELD LF_SCONTI->SCONTO END ENDPAGE ENDMASK