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

PAGE "Stampa sconti incondizionati " -1 -1 58 15

LISTA F_I_TIPO 21
BEGIN
  PROMPT 100 100 ""
  FLAG "H"
  ITEM "I|Sconti incondizionati"
END

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

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

STRING F_I_CATVEN_DA 2
BEGIN
  PROMPT 2 1 "Cat. vendite   "
  FLAG "U"
  USE CVE
  INPUT CODTAB F_I_CATVEN_DA
  DISPLAY "Cat. vend." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_CATVEN_DA CODTAB
END

STRING F_I_SCCLIENTI_DA 2
BEGIN
  PROMPT 2 2 "Sconto cliente "
  FLAG "U"
  USE LF_SCONTI
  INPUT TIPO "D" SELECT
  INPUT CODCAT F_I_SCCLIENTI_DA
  DISPLAY "Sc. Cliente" CODCAT
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_I_SCCLIENTI_DA CODCAT
END

STRING F_I_ZONE_DA 2
BEGIN
  PROMPT 2 3 "Zona           "
  FLAG "U"
  USE %ZON
  INPUT CODTAB F_I_ZONE_DA
  DISPLAY "Zona" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_ZONE_DA CODTAB
END

STRING F_I_CONDPAG_DA 4
BEGIN
  PROMPT 2 4 "Cond. pagam.   "
  FLAG "U"
  USE %CPG
  INPUT CODTAB F_I_CONDPAG_DA
  DISPLAY "Cond. pag." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_CONDPAG_DA CODTAB
END

STRING F_I_CATVEN_A 2
BEGIN
  PROMPT 2 7 "Cat. vendite   "
  FLAG "U"
  USE CVE
  INPUT CODTAB F_I_CATVEN_A
  DISPLAY "Cat. vend." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_CATVEN_A CODTAB
END

STRING F_I_SCCLIENTI_A 2
BEGIN
  PROMPT 2 8 "Sconto cliente "
  FLAG "U"
  USE LF_SCONTI
  INPUT TIPO "D" SELECT
  INPUT CODCAT F_I_SCCLIENTI_A
  DISPLAY "Sc. Cliente" CODCAT
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_I_SCCLIENTI_A CODCAT
END

STRING F_I_ZONE_A 2
BEGIN
  PROMPT 2 9 "Zona           "
  FLAG "U"
  USE %ZON
  INPUT CODTAB F_I_ZONE_A
  DISPLAY "Zona" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_ZONE_A CODTAB
END

STRING F_I_CONDPAG_A 4
BEGIN
  PROMPT 2 10 "Cond. pagam.   "
  FLAG "U"
  USE %CPG
  INPUT CODTAB F_I_CONDPAG_A
  DISPLAY "Cond. pag." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_I_CONDPAG_A CODTAB
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