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

PAGE "Stampa condizioni di vendita" -1 -1 72 14

STRING F_TIPO 1 // tipo di archivio
BEGIN
  PROMPT 100 100 ""
  FLAG "DU"
END
 
STRING F_L_CATVEN 2 // categoria di vendita, solo listini
BEGIN
  PROMPT 2 2 "Cat. vendita   "
  FLAG "U"
  USE %CVE
  INPUT CODTAB F_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_L_CATVEN CODTAB
END

LIST F_C_TIPOCF 7 // tipo cliente/fornitore, solo contratti
BEGIN
  PROMPT 2 2 "Tipo "
  ITEM "C|Cliente"
  ITEM "F|Fornit."
END

STRING F_C_CODCF 6 // codice cliente/fornitore, solo contratti
BEGIN
  PROMPT 22 2 "Codice "
  FLAG "U"
  USE LF_CLIFO
  INPUT TIPOCF F_C_TIPOCF
  INPUT CODCF F_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_C_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
END

STRING F_L_COD 3 // codice listino, solo listini
BEGIN
  PROMPT 2 4 "Codice listino "
  FLAG "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN
  INPUT COD F_L_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_L_CATVEN CATVEN
  OUTPUT F_L_COD COD
END

NUMBER F_C_COD 3 // codice contratto, solo contratti
BEGIN
  PROMPT 2 4 "Numero contratto "
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF
  INPUT CODCF F_C_CODCF
  INPUT COD F_C_COD
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Numero" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_C_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_COD COD
END

STRING F_O_COD 3 // codice offerta, solo offerte
BEGIN
  PROMPT 2 3 "Codice offerta "
  FLAG "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_O_COD COD
END

LIST F_TIPORIGHE 8 // listbox per tipo di selezione righe
BEGIN
  PROMPT 2 6 "Righe "
  ITEM "A|Articolo " MESSAGE CLEAR,F_DARIGA_A|ENABLE,F_DARIGA_A|SHOW,F_DARIGA_A|CLEAR,F_ARIGA_A|ENABLE,F_ARIGA_A|SHOW,F_ARIGA_A|HIDE,F_DARIGA_G|HIDE,F_DARIGA_R|HIDE,F_ARIGA_G|HIDE,F_ARIGA_R
  ITEM "G|Gr. merc." MESSAGE CLEAR,F_DARIGA_G|ENABLE,F_DARIGA_G|SHOW,F_DARIGA_G|CLEAR,F_ARIGA_G|ENABLE,F_ARIGA_G|SHOW,F_ARIGA_A|HIDE,F_DARIGA_A|HIDE,F_DARIGA_R|HIDE,F_ARIGA_A|HIDE,F_ARIGA_R
  ITEM "R|Rag. fis." MESSAGE CLEAR,F_DARIGA_R|ENABLE,F_DARIGA_R|SHOW,F_DARIGA_R|CLEAR,F_ARIGA_R|ENABLE,F_ARIGA_R|SHOW,F_ARIGA_R|HIDE,F_DARIGA_A|HIDE,F_DARIGA_G|HIDE,F_ARIGA_A|HIDE,F_ARIGA_G
END

BOOLEAN F_TUTTERIGHE // checkbox per selezione di tutte le righe
BEGIN
  PROMPT 20 6 "Tutte"
  MESSAGE TRUE DISABLE,F_TIPORIGHE|DISABLE,F_DARIGA_A|DISABLE,F_DARIGA_G|DISABLE,F_DARIGA_R|DISABLE,F_ARIGA_A|DISABLE,F_ARIGA_G|DISABLE,F_ARIGA_R
  MESSAGE FALSE ENABLE,F_TIPORIGHE|ENABLE,F_DARIGA_A|ENABLE,F_DARIGA_G|ENABLE,F_DARIGA_R|ENABLE,F_ARIGA_A|ENABLE,F_ARIGA_G|ENABLE,F_ARIGA_R
END

STRING F_DARIGA_A 20 // riga articolo di inizio
BEGIN
  PROMPT 2 8 "Da "
  USE LF_ANAGR
  INPUT CODART F_R_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_CODRIGA_A CODART
END

STRING F_DARIGA_G 20 // riga gruppo merceologico di inizio
BEGIN
  PROMPT 2 8 "Da "
  USE %GMC
  INPUT CODTAB F_R_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_G CODTAB
  MESSAGE COPY,F_DARIGA_A
END

STRING F_DARIGA_R 20 // riga raggruppamento fiscale di inizio
BEGIN
  PROMPT 2 8 "Da "
  USE %RFA
  INPUT CODTAB F_R_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_R CODTAB
  MESSAGE COPY,F_DARIGA_A
END

STRING F_ARIGA_A 20 // riga articolo di fine
BEGIN
  PROMPT 2 9 "A  "
  USE LF_ANAGR
  INPUT CODART F_R_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_CODRIGA_A CODART
END

STRING F_ARIGA_G 20 // riga gruppo merceologico di fine
BEGIN
  PROMPT 2 9 "A  "
  USE %GMC
  INPUT CODTAB F_R_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_G CODTAB
  MESSAGE COPY,F_DARIGA_A
END

STRING F_ARIGA_R 20 // riga raggruppamento fiscale di fine
BEGIN
  PROMPT 2 9 "A  "
  USE %RFA
  INPUT CODTAB F_R_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_R CODTAB
  MESSAGE COPY,F_DARIGA_A
END

GROUPBOX DLG_NULL 71 10 // groupbox attorno agli ultimi tre checkbox
BEGIN
  PROMPT 0 1 ""
END

BOOLEAN F_TESTACOMP // checkbox per stampa completa della testata
BEGIN
    PROMPT 2 11 "Testata completa"
END

BOOLEAN F_RICHECOMP // checkbox per stampa completa delle righe
BEGIN
    PROMPT 2 12 "Righe complete"
END

BOOLEAN F_L_LISTVALUTA // checkbox per stampa del listino in valuta o in lire
BEGIN
    PROMPT 2 13 "Listino in valuta"
END

GROUPBOX DLG_NULL 71 5 // groupbox attorno agli ultimi tre checkbox
BEGIN
  PROMPT 0 10 ""
END

 /* -------------------------------------------------------------------------

STRING F_TIPO 1
BEGIN
  PROMPT 100 100 ""
  FIELD LF_CONDV->TIPO
  FLAG "DU"
  KEY 1
  CHECKTYPE REQUIRED
END

// campo riservato ai listini
STRING F_L_CATVEN 2
BEGIN
  PROMPT 2 2 "Cat. vendita   "
  FIELD LF_CONDV->CATVEN
  FLAG "U"
  KEY 1
  USE %CVE
  INPUT CODTAB F_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_L_CATVEN CODTAB
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
LIST F_C_TIPOCF 7
BEGIN
  PROMPT 2 2 "Tipo "
  FIELD LF_CONDV->TIPOCF
  KEY 1
  ITEM "C|Cliente"
  ITEM "F|Fornit."
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
STRING F_C_CODCF 6
BEGIN
  PROMPT 22 2 "Codice "
  FIELD LF_CONDV->CODCF
  FLAG "U"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF F_C_TIPOCF
  INPUT CODCF F_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_C_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  CHECKTYPE REQUIRED
END

// campo riservato ai listini
STRING F_L_COD 3
BEGIN
  PROMPT 2 4 "Codice listino "
  FIELD LF_CONDV->COD
  FLAG "U"
  KEY 1
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN
  INPUT COD F_L_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_L_CATVEN CATVEN
  OUTPUT F_L_COD COD
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
NUMBER F_C_COD 3
BEGIN
  PROMPT 2 4 "Numero contratto "
  FIELD LF_CONDV->COD
  KEY 1
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF
  INPUT CODCF F_C_CODCF
  INPUT COD F_C_COD
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Numero" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_C_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_COD COD
  CHECKTYPE REQUIRED
END

// campo riservato alle offerte
STRING F_O_COD 3
BEGIN
  PROMPT 2 3 "Codice offerta "
  FIELD LF_CONDV->COD
  FLAG "U"
  KEY 1
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_O_COD COD
  CHECKTYPE REQUIRED
END

 ----------------------------------------------------------------------------

LIST F_R_TIPORIGA 8
BEGIN
  PROMPT 2 5 "Riga "
  FIELD LF_RCONDV->TIPORIGA
  FLAG "P"
  KEY 1
  ITEM "A|Articolo" // MESSAGE ENABLE,F_CODRIGA_A|SHOW,F_CODRIGA_A|CLEAR,F_CODRIGA_G|HIDE,F_CODRIGA_G|CLEAR,F_CODRIGA_R|HIDE,F_CODRIGA_R
  ITEM "G|Gr. merc." // MESSAGE ENABLE,F_CODRIGA_G|SHOW,F_CODRIGA_G|CLEAR,F_CODRIGA_A|HIDE,F_CODRIGA_A|CLEAR,F_CODRIGA_R|HIDE,F_CODRIGA_R
  ITEM "R|Rag. fis." // MESSAGE ENABLE,F_CODRIGA_R|SHOW,F_CODRIGA_R|CLEAR,F_CODRIGA_A|HIDE,F_CODRIGA_A|CLEAR,F_CODRIGA_G|HIDE,F_CODRIGA_G
END

STRING F_R_CODRIGA_A 20
BEGIN
  PROMPT 19 5 "Codice "
  FIELD LF_RCONDV->CODRIGA
  KEY 1
  USE LF_ANAGR
  INPUT CODART F_R_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_CODRIGA_A CODART
  CHECKTYPE REQUIRED
END

STRING F_R_CODRIGA_G 20
BEGIN
  PROMPT 19 5 "Codice "
  FIELD LF_RCONDV->CODRIGA
  KEY 1
  USE %GMC
  INPUT CODTAB F_R_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_G CODTAB
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_R_CODRIGA_A
END

STRING F_R_CODRIGA_R 20
BEGIN
  PROMPT 19 5 "Codice "
  FIELD LF_RCONDV->CODRIGA
  KEY 1
  USE %RFA
  INPUT CODTAB F_R_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_R CODTAB
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_R_CODRIGA_A
END


 ----------------------------------------------------------------------------


STRING F_CODART_1 20
BEGIN
    PROMPT 2 1 "Dall'art.   "
    FLAG "U"
    USE LF_ANAGR
    INPUT CODART F_CODART_1
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_1 CODART
    OUTPUT F_DESCR_1 DESCR
    CHECKTYPE NORMAL
END

STRING F_DESCR_1 50 
BEGIN
    PROMPT 2 2 "Descrizione "
    USE LF_ANAGR KEY 2
    INPUT DESCR F_DESCR_1
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_1 CODART
    OUTPUT F_DESCR_1 DESCR
END

STRING F_CODART_2 20
BEGIN
    PROMPT 2 4 "All'art.    "
    FLAG "U"
    USE LF_ANAGR
    INPUT CODART F_CODART_2
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_2 CODART
    OUTPUT F_DESCR_2 DESCR
    CHECKTYPE NORMAL
END

STRING F_DESCR_2 50
BEGIN
    PROMPT 2 5 "Descrizione "
    USE LF_ANAGR KEY 2
    INPUT DESCR F_DESCR_2
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_2 CODART
    OUTPUT F_DESCR_2 DESCR
END

GROUPBOX DLG_NULL 71 7
BEGIN
  PROMPT 0 0 ""
//FLAG "R"
END

BOOLEAN F_ST_UMART
BEGIN
    PROMPT 2 8 "Stampa unita' di misura"
END

BOOLEAN F_ST_CODCORR
BEGIN
    PROMPT 2 9 "Stampa codici corrispondenti"
END

BOOLEAN F_ST_FISC
BEGIN
    PROMPT 2 10 "Stampa dati fiscali"
END

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 0 7 "Controllo stampa"
//FLAG "R"
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