459 lines
9.8 KiB
Plaintext
Executable File
459 lines
9.8 KiB
Plaintext
Executable File
#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
|