campo-sirio/ve/ve2100d.uml

#include "ve2100d.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Archivio sconti documenti " 0 0 0 0

GROUPBOX DLG_NULL 75 7
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

LIST F_D_TIPO 20
BEGIN
  PROMPT 100 100 ""
  FIELD LF_SCONTI->TIPO
  KEY 1
  FLAG "D"
  ITEM "D|Sconti documento"
END

STRING F_D_CODCAT 2
BEGIN
  PROMPT 2 2  "Cod. sconto doc. "
  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 "Descrizione" DESCR
  DISPLAY "Sconto@25" SCONTO
  OUTPUT F_D_CODCAT CODCAT
  OUTPUT F_D_SCONTO SCONTO
  OUTPUT F_D_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING F_D_DESCR 50
BEGIN
  PROMPT 2 4  "Descrizione      "
  FIELD LF_SCONTI->DESCR
END

STRING F_D_SCONTO 25
BEGIN
  PROMPT 2 8  "Sconto           "
  FIELD LF_SCONTI->SCONTO
END

ENDPAGE

ENDMASK