#include #include "ve3100d.h" PAGE "Stampa sconti documenti " -1 -1 55 7 LISTA F_D_TIPO 1 BEGIN PROMPT 100 100 "" FIELD LF_SCONTI->TIPO FLAG "H" ITEM "D|Sconti documento" END STRING F_D_CODCAT_DA 2 BEGIN PROMPT 2 1 "Cod. sconto doc. " FLAG "UR" USE LF_SCONTI INPUT TIPO F_D_TIPO SELECT INPUT CODCAT F_D_CODCAT_DA DISPLAY "Codice" CODCAT DISPLAY "Descrizione" DESCR DISPLAY "Sconto@25" SCONTO OUTPUT F_D_CODCAT_DA CODCAT END GROUPBOX DLG_NULL 55 3 BEGIN PROMPT 0 0 "Da" END STRING F_D_CODCAT_A 2 BEGIN PROMPT 2 4 "Cod. sconto doc. " FLAG "UR" USE LF_SCONTI INPUT TIPO F_D_TIPO SELECT INPUT CODCAT F_D_CODCAT_A DISPLAY "Codice" CODCAT DISPLAY "Descrizione" DESCR DISPLAY "Sconto@25" SCONTO OUTPUT F_D_CODCAT_A CODCAT END GROUPBOX DLG_NULL 55 3 BEGIN PROMPT 0 3 "A" END BUTTON DLG_SELECT 9 2 BEGIN PROMPT -12 -1 "Selezione" MESSAGE EXIT,K_ENTER END BUTTON DLG_QUIT 9 2 BEGIN PROMPT -22 -1 "" END ENDPAGE ENDMASK