campo-sirio/ve/ve2100i.uml

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

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Archivio sconti incondizionati " 11 60 14

LISTA F_I_TIPO 1
BEGIN
  PROMPT 100 100 ""
  FIELD LF_SCONTI->TIPO
  FLAG "H"
  ITEM "I|Sconti incondizionati"
END

STRING F_I_RICERCA 1
BEGIN
  PROMPT 100 100 ""
  FLAG "H"
  USE LF_SCONTI
  INPUT TIPO F_I_TIPO SELECT
  INPUT CODART[1,2] F_I_CATVEN
  INPUT CODART[3,4] F_I_SCCLIENTI
  INPUT CODART[5,6] F_I_ZONE
  INPUT CODART[7,10] F_I_CONDPAG
  DISPLAY "CV" CODART[1,2]
  DISPLAY "SC" CODART[3,4]
  DISPLAY "ZN" CODART[5,6]
  DISPLAY "C.P." CODART[7,10]
  DISPLAY "Sconto@25" SCONTO
  OUTPUT F_I_CATVEN CODART[1,2]
  OUTPUT F_I_SCCLIENTI CODART[3,4]
  OUTPUT F_I_ZONE CODART[5,6]
  OUTPUT F_I_CONDPAG CODART[7,10]
  OUTPUT F_I_SCONTO SCONTO
END

STRING F_I_CATVEN 2
BEGIN
  PROMPT 2 2 "Cat. vendite   "
  FIELD LF_SCONTI->CODART[1,2]
  FLAG "U"
  KEY 1
  USE %CVE
  INPUT CODTAB F_I_CATVEN
  DISPLAY "Cat. vend." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_CATVEN CODTAB
  OUTPUT F_I_DESVEN S0
  CHECKTYPE REQUIRED
END

STRING F_I_DESVEN 50
BEGIN
  PROMPT 24 2 ""
  FLAG "D"
END

STRING F_I_SCCLIENTI 2
BEGIN
  PROMPT 2 4 "Sconto cliente "
  FIELD LF_SCONTI->CODART[3,4]
  FLAG "U"
  KEY 1
  USE LF_SCONTI
  INPUT TIPO "D"
  INPUT CODCAT F_I_SCCLIENTI
  DISPLAY "Sc. Cliente" CODCAT
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_I_SCCLIENTI CODCAT
  OUTPUT F_I_DESSCCLI DESCR
  CHECKTYPE REQUIRED
END

STRING F_I_DESSCCLI 50
BEGIN
  PROMPT 24 4 ""
  FLAG "D"
END

STRING F_I_ZONE 2
BEGIN
  PROMPT 2 6  "Zona           "
  FIELD LF_SCONTI->CODART[5,6]
  FLAG "U"
  KEY 1
  USE %ZON
  INPUT CODTAB F_I_ZONE
  DISPLAY "Zona" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_ZONE CODTAB
  OUTPUT F_I_DESZONE S0
  CHECKTYPE REQUIRED
END

STRING F_I_DESZONE 50
BEGIN
  PROMPT 24 6 ""
  FLAG "D"
END

STRING F_I_CONDPAG 4
BEGIN
  PROMPT 2 8 "Cond. pagam. "
  FIELD LF_SCONTI->CODART[7,10]
  FLAG "U"
  KEY 1
  USE %CPG
  INPUT CODTAB F_I_CONDPAG
  DISPLAY "Cond. pag." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_CONDPAG CODTAB
  OUTPUT F_I_DESCONPAG S0
  CHECKTYPE REQUIRED
END

STRING F_I_DESCONPAG 50
BEGIN
  PROMPT 24 8 ""
  FLAG "D"
END

GROUPBOX DLG_NULL 78 11
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

STRING F_I_SCONTO 25
BEGIN
  PROMPT 2 12 "Sconto "
  FIELD LF_SCONTI->SCONTO
END

ENDPAGE

ENDMASK