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

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

LISTA F_I_TIPO 1
BEGIN
  PROMPT 100 100 ""
  FLAG "H"
  ITEM "I|Sconti incondizionati"
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

GROUPBOX DLG_NULL 55 6
BEGIN
  PROMPT 0 0 "Da"
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

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

BOOLEAN F_I_DESCRIZ
BEGIN
  PROMPT 2 12 "Descrizioni"
  MESSAGE FALSE DISABLE,F_I_COMPAT
  MESSAGE TRUE ENABLE,F_I_COMPAT
END

BOOLEAN F_I_COMPAT
BEGIN
  PROMPT 20 12 "Compatte"
END

BUTTON DLG_SELECT 9 2
BEGIN
  PROMPT -12 -1 "Selezione"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK