#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 5 2 "Categoria 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
  CHECKTYPE REQUIRED
END

STRING F_I_SCCLIENTI 2
BEGIN
  PROMPT 8 4 "Sconto cliente "
  FIELD LF_SCONTI->CODART[3,4]
  FLAG "U"
  KEY 1
  USE %SCO         
  INPUT CODTAB F_I_SCCLIENTI
  DISPLAY "Sc. Cliente" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_SCCLIENTI CODTAB
  CHECKTYPE REQUIRED
END

STRING F_I_ZONE 2
BEGIN
  PROMPT 18 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
  CHECKTYPE REQUIRED
END

STRING F_I_CONDPAG 4
BEGIN
  PROMPT 2 8 "Condizione pagamento "
  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
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 36 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