campo-sirio/ve/ve3100d.uml

#include <lffiles.h>
#include "ve3100d.h"

PAGE "Stampa sconti documenti " -1 -1 58 7

LISTA F_D_TIPO 16
BEGIN
  PROMPT 100 100 ""
  FIELD LF_SCONTI->TIPO
  FLAG "H"
  ITEM "D|Sconti documento"
END

GROUPBOX DLG_NULL 55 3
BEGIN
  PROMPT 1 0 "Da"
END

GROUPBOX DLG_NULL 55 3
BEGIN
  PROMPT 1 3 "A"
END

STRING F_D_CODCAT_DA 2
BEGIN
  PROMPT 2 1 "Codice sconto documento "
  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

STRING F_D_CODCAT_A 2
BEGIN
  PROMPT 2 4  "Codice sconto documento "
  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

BUTTON DLG_PRINT 9 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK