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

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

LIST F_I_TIPO 30
BEGIN
  PROMPT 100 100 ""
  FIELD TIPO
  FLAG "D"
  KEY 1
  ITEM "I|Sconti incondizionati"
END

STRING F_I_RICERCA 2
BEGIN
  PROMPT 2 2 "Cat. vendite   "
  FIELD CODCAT
  FLAG "HU"
  KEY 1
  USE LF_SCONTI SELECT CODCAT != ""
  JOIN CVE  ALIAS 201 INTO CODTAB==CODCAT
  INPUT TIPO F_I_TIPO SELECT
  INPUT CODCAT F_I_CATVEN
  INPUT CODART[1,2] F_I_SCCLIENTI
  INPUT CODART[3,4] F_I_ZONE
  INPUT CODART[5,8] F_I_CONDPAG
  DISPLAY "Cat.Vend." CODCAT
  DISPLAY "Cod. sconto" CODART[1,2]
  DISPLAY "Zona" CODART[3,4]
  DISPLAY "Cod.pag." CODART[5,8]
  DISPLAY "Sconto@25" SCONTO
  OUTPUT F_I_RICERCA CODCAT
  OUTPUT F_I_DESVEN -201->S0
  OUTPUT F_I_SCCLIENTI CODART[1,2]
  OUTPUT F_I_ZONE CODART[3,4]
  OUTPUT F_I_CONDPAG CODART[5,8]
END

STRING F_I_CATVEN 2
BEGIN
  PROMPT 2 2 "Cat. vendite   "
  FIELD CODCAT
  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 FORCED
END

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

STRING F_I_RICERCA_SC 2
BEGIN
  PROMPT 2 4 "Sconto cliente "
  FIELD CODART[1,2]
  FLAG "HU"
  KEY 1
  USE LF_SCONTI
  INPUT TIPO F_I_TIPO SELECT
  INPUT CODCAT F_I_CATVEN SELECT
  INPUT CODART[1,2] F_I_RICERCA_SC
  INPUT CODART[3,4] F_I_ZONE
  INPUT CODART[5,8] F_I_CONDPAG
  DISPLAY "Cod. sconto" CODART[1,2]
  DISPLAY "Zona" CODART[3,4]
  DISPLAY "Cond.Pag." CODART[5,8]
  DISPLAY "Sconto@25" SCONTO
  OUTPUT F_I_RICERCA_SC CODART[1,2]
  OUTPUT F_I_SCCLIENTI CODART[1,2]
  OUTPUT F_I_ZONE CODART[3,4]
  OUTPUT F_I_CONDPAG CODART[5,8]
  MESSAGE COPY,F_I_SCCLIENTI
END

STRING F_I_SCCLIENTI 2
BEGIN
  PROMPT 2 4 "Sconto cliente "
  FIELD CODART[1,2]
  KEY 1
  FLAG "U"
  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_RICERCA_ZO 2
BEGIN
  PROMPT 2 6  "Zona           "
  FIELD CODART[3,4]
  FLAG "HU"
  KEY 1
  USE LF_SCONTI   SELECT CODCAT==""
  INPUT TIPO F_I_TIPO SELECT
  INPUT CODCAT F_I_CATVEN SELECT
  INPUT CODART[1,2] F_I_SCCLIENTI SELECT
  INPUT CODART[3,4] F_I_RICERCA_ZO
  INPUT CODART[5,8] F_I_CONDPAG
  DISPLAY "Zona" CODART[3,4]
  DISPLAY "Cond.Pag." CODART[5,8]
  DISPLAY "Sconto@25" SCONTO
  OUTPUT F_I_RICERCA_ZO CODART[3,4]
  OUTPUT F_I_ZONE CODART[3,4]
  OUTPUT F_I_CONDPAG CODART[5,8]
  MESSAGE COPY,F_I_ZONE
END

STRING F_I_ZONE 2
BEGIN
  PROMPT 2 6  "Zona           "
  FIELD CODART[3,4]
  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_RICERCA_CO 4
BEGIN
  PROMPT 2 8 "Cond. pagam.   "
  FIELD CODART[5,8]
  FLAG "HU"
  KEY 1
  USE LF_SCONTI   SELECT CODCAT == ""
  INPUT TIPO F_I_TIPO SELECT
  INPUT CODCAT F_I_CATVEN SELECT
  INPUT CODART[1,2] F_I_SCCLIENTI SELECT
  INPUT CODART[3,4] F_I_ZONE SELECT
  INPUT CODART[5,8] F_I_RICERCA_CO
  DISPLAY "Cond.Pag." CODART[5,8]
  DISPLAY "Sconto@25" SCONTO
  OUTPUT F_I_RICERCA_CO CODART[5,8]
  OUTPUT F_I_CONDPAG CODART[5,8]
  MESSAGE COPY,F_I_CONDPAG
END

STRING F_I_CONDPAG 4
BEGIN
  PROMPT 2 8 "Cond. pagam.   "
  FIELD CODART[5,8]
  KEY 1
  FLAG "U"
  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

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

ENDPAGE

ENDMASK