377 lines
7.7 KiB
Plaintext
Executable File
377 lines
7.7 KiB
Plaintext
Executable File
#include <lffiles.h>
|
|
#include "ve2300x.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Archivio righe condiz. di vendita " 0 0 70 20
|
|
|
|
STRING F_R_TIPO 1
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
FIELD LF_RCONDV->TIPO
|
|
FLAG "DU"
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_R_L_CATVEN 2 // campo riservato ai listini
|
|
BEGIN
|
|
PROMPT 2 1 "Cat. vendita "
|
|
FIELD LF_RCONDV->CATVEN
|
|
FLAG "UP"
|
|
KEY 1
|
|
USE %CVE
|
|
INPUT CODTAB F_R_L_CATVEN
|
|
DISPLAY "Cat." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_R_L_CATVEN CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo "
|
|
FIELD LF_RCONDV->TIPOCF
|
|
FLAG "P"
|
|
KEY 1
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornit."
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_R_C_CODCF 6 // campo riservato ai contratti
|
|
BEGIN
|
|
PROMPT 22 1 "Codice "
|
|
FIELD LF_RCONDV->CODCF
|
|
FLAG "UP"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_R_C_TIPOCF
|
|
INPUT CODCF F_R_C_CODCF
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_R_C_TIPOCF TIPOCF
|
|
OUTPUT F_R_C_CODCF CODCF
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_R_L_COD 3 // campo riservato ai listini
|
|
BEGIN
|
|
PROMPT 2 3 "Codice listino "
|
|
FIELD LF_RCONDV->COD
|
|
FLAG "UPG"
|
|
KEY 1
|
|
USE LF_CONDV
|
|
INPUT TIPO F_R_TIPO SELECT
|
|
INPUT CATVEN F_R_L_CATVEN
|
|
INPUT COD F_R_L_COD
|
|
DISPLAY "C.V." CATVEN
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_R_TIPO TIPO
|
|
OUTPUT F_R_L_CATVEN CATVEN
|
|
OUTPUT F_R_L_COD COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_R_C_COD 3 // campo riservato ai contratti
|
|
BEGIN
|
|
PROMPT 2 3 "Numero contratto "
|
|
FIELD LF_RCONDV->COD
|
|
FLAG "PG"
|
|
KEY 1
|
|
USE LF_CONDV
|
|
INPUT TIPO F_R_TIPO SELECT
|
|
INPUT TIPOCF F_R_C_TIPOCF
|
|
INPUT CODCF F_R_C_CODCF
|
|
INPUT COD F_R_C_COD
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Numero" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_R_TIPO TIPO
|
|
OUTPUT F_R_C_TIPOCF TIPOCF
|
|
OUTPUT F_R_C_CODCF CODCF
|
|
OUTPUT F_R_C_COD COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_R_O_COD 3 // campo riservato alle offerte
|
|
BEGIN
|
|
PROMPT 2 2 "Codice offerta "
|
|
FIELD LF_RCONDV->COD
|
|
FLAG "UPG"
|
|
KEY 1
|
|
USE LF_CONDV
|
|
INPUT TIPO F_R_TIPO SELECT
|
|
INPUT COD F_R_O_COD
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_R_TIPO TIPO
|
|
OUTPUT F_R_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_R_NSCAGL 1
|
|
BEGIN
|
|
PROMPT 2 7 "N.ro scaglione "
|
|
FIELD LF_RCONDV->NSCAGL
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_R_LO_UM 2 // campo riservato a listini e offerte
|
|
BEGIN
|
|
PROMPT 21 7 "U.M. "
|
|
FIELD LF_RCONDV->UM
|
|
KEY 1
|
|
USE LF_UMART KEY 2
|
|
JOIN %UMS INTO CODTAB=UM
|
|
INPUT CODART F_R_CODRIGA_A SELECT
|
|
INPUT UM F_R_LO_UM
|
|
DISPLAY "U.M." UM
|
|
DISPLAY "Desccrizione@50" %UMS->S0
|
|
OUTPUT F_R_LO_UM UM
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
USE LF_RCONDV
|
|
FLAG "D"
|
|
INPUT TIPO F_R_TIPO SELECT
|
|
INPUT CATVEN F_R_L_CATVEN SELECT
|
|
INPUT COD F_R_L_COD SELECT
|
|
INPUT TIPORIGA F_R_TIPORIGA
|
|
INPUT CODRIGA F_R_CODRIGA_A
|
|
INPUT UM F_R_LO_UM
|
|
INPUT NSCAGL F_R_NSCAGL
|
|
DISPLAY "Tipo" TIPORIGA
|
|
DISPLAY "Codice@20" CODRIGA
|
|
DISPLAY "U.M." UM
|
|
DISPLAY "N.S." NSCAGL
|
|
OUTPUT F_R_TIPORIGA TIPORIGA
|
|
OUTPUT F_R_CODRIGA_A CODRIGA
|
|
OUTPUT F_R_CODRIGA_G CODRIGA
|
|
OUTPUT F_R_CODRIGA_R CODRIGA
|
|
OUTPUT F_R_LO_UM UM
|
|
OUTPUT F_R_NSCAGL NSCAGL
|
|
END
|
|
|
|
STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
USE LF_RCONDV
|
|
FLAG "D"
|
|
INPUT TIPO F_R_TIPO SELECT
|
|
INPUT TIPOCF F_R_C_TIPOCF SELECT
|
|
INPUT CODCF F_R_C_CODCF SELECT
|
|
INPUT COD F_R_C_COD SELECT
|
|
INPUT TIPORIGA F_R_TIPORIGA
|
|
INPUT CODRIGA F_R_CODRIGA_A
|
|
INPUT NSCAGL F_R_NSCAGL
|
|
DISPLAY "Tipo" TIPORIGA
|
|
DISPLAY "Codice@20" CODRIGA
|
|
DISPLAY "N.S." NSCAGL
|
|
OUTPUT F_R_TIPORIGA TIPORIGA
|
|
OUTPUT F_R_CODRIGA_A CODRIGA
|
|
OUTPUT F_R_CODRIGA_G CODRIGA
|
|
OUTPUT F_R_CODRIGA_R CODRIGA
|
|
OUTPUT F_R_NSCAGL NSCAGL
|
|
END
|
|
|
|
STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
USE LF_RCONDV
|
|
FLAG "D"
|
|
INPUT TIPO F_R_TIPO SELECT
|
|
INPUT COD F_R_O_COD SELECT
|
|
INPUT TIPORIGA F_R_TIPORIGA
|
|
INPUT CODRIGA F_R_CODRIGA_A
|
|
INPUT UM F_R_LO_UM
|
|
INPUT NSCAGL F_R_NSCAGL
|
|
DISPLAY "Tipo" TIPORIGA
|
|
DISPLAY "Codice@20" CODRIGA
|
|
DISPLAY "U.M." UM
|
|
DISPLAY "N.S." NSCAGL
|
|
OUTPUT F_R_TIPORIGA TIPORIGA
|
|
OUTPUT F_R_CODRIGA_A CODRIGA
|
|
OUTPUT F_R_CODRIGA_G CODRIGA
|
|
OUTPUT F_R_CODRIGA_R CODRIGA
|
|
OUTPUT F_R_LO_UM UM
|
|
OUTPUT F_R_NSCAGL NSCAGL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 70 9 // fine della chiave
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
//FLAG "R"
|
|
END
|
|
|
|
NUMBER F_R_QLIM 15 5
|
|
BEGIN
|
|
PROMPT 2 9 "Q.ta' limite scagl. "
|
|
FIELD LF_RCONDV->QLIM
|
|
END
|
|
|
|
NUMBER F_R_PREZZO 18 2
|
|
BEGIN
|
|
PROMPT 2 10 "Prezzo "
|
|
FIELD LF_RCONDV->PREZZO
|
|
END
|
|
|
|
STRING F_R_SCONTO 25
|
|
BEGIN
|
|
PROMPT 35 10 "Sconto "
|
|
FIELD LF_RCONDV->SCONTO
|
|
FLAG "U"
|
|
END
|
|
|
|
BOOLEAN F_R_ADDIVA
|
|
BEGIN
|
|
PROMPT 2 11 "Addebito IVA"
|
|
FIELD LF_RCONDV->ADDIVA
|
|
MESSAGE TRUE ENABLE,F_R_CODIVA
|
|
MESSAGE FALSE DISABLE,F_R_CODIVA
|
|
END
|
|
|
|
STRING F_R_CODIVA 4
|
|
BEGIN
|
|
PROMPT 31 11 "Codice IVA "
|
|
FIELD LF_RCONDV->CODIVA
|
|
FLAG "U"
|
|
USE %IVA
|
|
INPUT CODTAB F_R_CODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_R_CODIVA CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_R_PERCPROVV 5 2
|
|
BEGIN
|
|
PROMPT 2 12 "Provvigione % "
|
|
FIELD LF_RCONDV->PERCPROVV
|
|
NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100)
|
|
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
|
END
|
|
|
|
NUMBER F_R_QOM 15 5
|
|
BEGIN
|
|
PROMPT 2 13 "Q.ta' sconto/omaggio "
|
|
FIELD LF_RCONDV->QOM
|
|
END
|
|
|
|
STRING F_R_UMOM 2
|
|
BEGIN
|
|
PROMPT 47 13 "U.M. q.ta' omaggio "
|
|
FIELD LF_RCONDV->UMOM
|
|
FLAG "U"
|
|
USE LF_UMART KEY 2
|
|
JOIN %UMS INTO CODTAB=UM
|
|
INPUT CODART F_R_CODARTOM SELECT
|
|
INPUT UM F_R_UMOM
|
|
DISPLAY "U.M." UM
|
|
DISPLAY "Desccrizione@50" %UMS->S0
|
|
OUTPUT F_R_UMOM UM
|
|
END
|
|
|
|
NUMBER F_R_QBASE 15 5
|
|
BEGIN
|
|
PROMPT 2 14 "Q.ta' base sconto "
|
|
FIELD LF_RCONDV->QBASE
|
|
END
|
|
|
|
STRING F_R_CODARTOM 20
|
|
BEGIN
|
|
PROMPT 2 15 "Codice art. omaggio "
|
|
FIELD LF_RCONDV->CODARTOM
|
|
FLAG "U"
|
|
USE LF_ANAGR
|
|
INPUT CODART F_R_CODARTOM
|
|
DISPLAY "Articolo@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_R_CODARTOM CODART
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_R_PROMAGGIO 18 2
|
|
BEGIN
|
|
PROMPT 2 16 "Prezzo omaggio "
|
|
FIELD LF_RCONDV->PROMAGGIO
|
|
END
|
|
|
|
STRINF F_R_CO_CODLOTTO 6
|
|
BEGIN
|
|
PROMPT 2 17 "Codice lotto "
|
|
FIELD LF_RCONDV->CODLOTTO
|
|
FLAG "U"
|
|
END
|
|
|
|
BOOLEAN F_R_O_ARTES
|
|
BEGIN
|
|
PROMPT 47 17 "Art. in esaurimento"
|
|
FIELD LF_RCONDV->ARTES
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|