modifica a decodifica campi maschere
git-svn-id: svn://10.65.10.50/trunk@1988 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro
parent
c59d3540c2
commit
a435ab4110
244
ve/batbgmc.uml
244
ve/batbgmc.uml
@ -1,122 +1,122 @@
|
|||||||
#include "batbgmc.h"
|
#include "batbgmc.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 60 2
|
TOOLBAR "" 0 20 60 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Tabella gruppi merceologici " 11 60 14
|
PAGE "Tabella gruppi merceologici " 11 60 14
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 7
|
GROUPBOX DLG_NULL 75 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 ""
|
PROMPT 1 0 ""
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODGRU 3
|
STRING F_CODGRU 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice gruppo "
|
PROMPT 2 2 "Codice gruppo "
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
FIELD CODTAB[1,3]
|
FIELD CODTAB[1,3]
|
||||||
KEY 1
|
KEY 1
|
||||||
USE GMC SELECT CODTAB[4,5]==""
|
USE GMC SELECT CODTAB[4,5]==""
|
||||||
INPUT CODTAB F_CODGRU
|
INPUT CODTAB F_CODGRU
|
||||||
DISPLAY "Gruppo" CODTAB[1,3]
|
DISPLAY "Gruppo" CODTAB[1,3]
|
||||||
DISPLAY "Descrizione gruppo@50" S0
|
DISPLAY "Descrizione gruppo@50" S0
|
||||||
OUTPUT F_CODGRU CODTAB[1,3]
|
OUTPUT F_CODGRU CODTAB[1,3]
|
||||||
OUTPUT H_DESGRU S0
|
OUTPUT H_DESGRU S0
|
||||||
MESSAGE COPY,H_CODGRU
|
MESSAGE COPY,H_CODGRU
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODSGR 2
|
STRING F_CODSGR 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 2 "Codice sottogruppo "
|
PROMPT 30 2 "Codice sottogruppo "
|
||||||
FIELD CODTAB[4,5]
|
FIELD CODTAB[4,5]
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE GMC
|
USE GMC
|
||||||
INPUT CODTAB[1,3] F_CODGRU
|
INPUT CODTAB[1,3] F_CODGRU
|
||||||
INPUT CODTAB[4,5] F_CODSGR
|
INPUT CODTAB[4,5] F_CODSGR
|
||||||
DISPLAY "Codice gruppo" CODTAB[1,3]
|
DISPLAY "Codice gruppo" CODTAB[1,3]
|
||||||
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
||||||
DISPLAY "Descrizione sottogruppo@50" S0
|
DISPLAY "Descrizione sottogruppo@50" S0
|
||||||
OUTPUT F_CODGRU CODTAB[1,3]
|
OUTPUT F_CODGRU CODTAB[1,3]
|
||||||
OUTPUT F_CODSGR CODTAB[4,5]
|
OUTPUT F_CODSGR CODTAB[4,5]
|
||||||
OUTPUT F_DESSGR S0
|
OUTPUT F_DESSGR S0
|
||||||
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
|
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
|
||||||
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
|
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
|
||||||
VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
|
VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
|
||||||
GROUP GR_SEARCH
|
GROUP GR_SEARCH
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING H_CODGRU 3
|
STRING H_CODGRU 3
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
COPY USE F_CODGRU
|
COPY USE F_CODGRU
|
||||||
INPUT CODTAB F_CODGRU
|
INPUT CODTAB F_CODGRU
|
||||||
COPY DISPLAY F_CODGRU
|
COPY DISPLAY F_CODGRU
|
||||||
OUTPUT F_DESGRU S0
|
OUTPUT F_DESGRU S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESGRU 50
|
STRING F_DESGRU 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione gruppo "
|
PROMPT 2 4 "Descrizione gruppo "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESSGR 50
|
STRING F_DESSGR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Descrizione sottogruppo "
|
PROMPT 2 8 "Descrizione sottogruppo "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
USE GMC KEY 2
|
USE GMC KEY 2
|
||||||
KEY 2
|
KEY 2
|
||||||
INPUT S0 F_DESSGR
|
INPUT S0 F_DESSGR
|
||||||
DISPLAY "Descrizione sottogruppo@50" S0
|
DISPLAY "Descrizione sottogruppo@50" S0
|
||||||
DISPLAY "Codice gruppo" CODTAB[1,3]
|
DISPLAY "Codice gruppo" CODTAB[1,3]
|
||||||
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
||||||
COPY OUTPUT F_CODSGR
|
COPY OUTPUT F_CODSGR
|
||||||
MESSAGE K_TAB,F_CODSGR
|
MESSAGE K_TAB,F_CODSGR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Manca la descrizione"
|
WARNING "Manca la descrizione"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING H_DESGRU 50
|
STRING H_DESGRU 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione gruppo "
|
PROMPT 2 4 "Descrizione gruppo "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
KEY 2
|
KEY 2
|
||||||
USE GMC KEY 2
|
USE GMC KEY 2
|
||||||
INPUT S0 H_DESGRU
|
INPUT S0 H_DESGRU
|
||||||
DISPLAY "Descrizione gruppo@50" S0
|
DISPLAY "Descrizione gruppo@50" S0
|
||||||
DISPLAY "Codice gruppo" CODTAB[1,3]
|
DISPLAY "Codice gruppo" CODTAB[1,3]
|
||||||
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
||||||
COPY OUTPUT F_CODSGR
|
COPY OUTPUT F_CODSGR
|
||||||
OUTPUT H_DESGRU S0
|
OUTPUT H_DESGRU S0
|
||||||
MESSAGE K_TAB,F_CODSGR
|
MESSAGE K_TAB,F_CODSGR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Manca la descrizione del gruppo"
|
WARNING "Manca la descrizione del gruppo"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODAGGDOC 2
|
STRING F_CODAGGDOC 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Codice aggiornamento documenti "
|
PROMPT 2 8 "Codice aggiornamento documenti "
|
||||||
FIELD LIC->S4
|
FIELD LIC->S4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODAGGOMA 2
|
STRING F_CODAGGOMA 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Codice aggiornamento omaggi "
|
PROMPT 2 9 "Codice aggiornamento omaggi "
|
||||||
FIELD LIC->S5
|
FIELD LIC->S5
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODAGGSCO 2
|
STRING F_CODAGGSCO 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Codice aggiornamento sconti "
|
PROMPT 2 10 "Codice aggiornamento sconti "
|
||||||
FIELD LIC->S6
|
FIELD LIC->S6
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
206
ve/batbrfa.uml
206
ve/batbrfa.uml
@ -1,103 +1,103 @@
|
|||||||
#include "batbrfa.h"
|
#include "batbrfa.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
|
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 7
|
GROUPBOX DLG_NULL 75 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 ""
|
PROMPT 1 0 ""
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_CODTAB 5
|
STRING FLD_TABRFA_CODTAB 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice "
|
PROMPT 2 2 "Codice "
|
||||||
FIELD CODTAB
|
FIELD CODTAB
|
||||||
USE RFA
|
USE RFA
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODTAB FLD_TABRFA_CODTAB
|
INPUT CODTAB FLD_TABRFA_CODTAB
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT FLD_TABRFA_CODTAB CODTAB
|
OUTPUT FLD_TABRFA_CODTAB CODTAB
|
||||||
OUTPUT FLD_TABRFA_S0 S0
|
OUTPUT FLD_TABRFA_S0 S0
|
||||||
KEY 1
|
KEY 1
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S0 50
|
STRING FLD_TABRFA_S0 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione "
|
PROMPT 2 4 "Descrizione "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
USE RFA KEY 2
|
USE RFA KEY 2
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Manca la descrizione"
|
WARNING "Manca la descrizione"
|
||||||
INPUT S0 FLD_TABRFA_S0
|
INPUT S0 FLD_TABRFA_S0
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
COPY OUTPUT FLD_TABRFA_CODTAB
|
COPY OUTPUT FLD_TABRFA_CODTAB
|
||||||
KEY 2
|
KEY 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S7 2
|
STRING FLD_TABRFA_S7 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Unita' di misura "
|
PROMPT 2 8 "Unita' di misura "
|
||||||
FIELD S7
|
FIELD S7
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S8 1
|
STRING FLD_TABRFA_S8 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Classe fiscale "
|
PROMPT 2 10 "Classe fiscale "
|
||||||
FIELD S8
|
FIELD S8
|
||||||
USE ASF
|
USE ASF
|
||||||
INPUT CODTAB FLD_TABRFA_S8
|
INPUT CODTAB FLD_TABRFA_S8
|
||||||
DISPLAY "Cl. Fisc." CODTAB
|
DISPLAY "Cl. Fisc." CODTAB
|
||||||
DISPLAY "Descrizione@30" S0
|
DISPLAY "Descrizione@30" S0
|
||||||
OUTPUT FLD_TABRFA_S8 CODTAB
|
OUTPUT FLD_TABRFA_S8 CODTAB
|
||||||
OUTPUT FLD_DESCFA S0
|
OUTPUT FLD_DESCFA S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_DESCFA 30
|
STRING FLD_DESCFA 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 10 ""
|
PROMPT 25 10 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_TABRFA_R0 6 2
|
NUMBER FLD_TABRFA_R0 6 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Perc. ricarico medio "
|
PROMPT 2 12 "Perc. ricarico medio "
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_TABRFA_R1 12 2
|
NUMBER FLD_TABRFA_R1 12 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Costo minimo "
|
PROMPT 2 14 "Costo minimo "
|
||||||
FIELD R1
|
FIELD R1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_TABRFA_R2 12 2
|
NUMBER FLD_TABRFA_R2 12 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 14 "massimo "
|
PROMPT 45 14 "massimo "
|
||||||
FIELD R2
|
FIELD R2
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST FLD_TABRFA_I0 1 30
|
LIST FLD_TABRFA_I0 1 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Tipo costo "
|
PROMPT 2 16 "Tipo costo "
|
||||||
FIELD I0
|
FIELD I0
|
||||||
HELP "Inserire il tipo di costo"
|
HELP "Inserire il tipo di costo"
|
||||||
ITEM "1|Costo medio annuale"
|
ITEM "1|Costo medio annuale"
|
||||||
ITEM "2|Costo ultimi 3 mesi"
|
ITEM "2|Costo ultimi 3 mesi"
|
||||||
ITEM "3|Costo ultimo"
|
ITEM "3|Costo ultimo"
|
||||||
ITEM "4|Costo standard"
|
ITEM "4|Costo standard"
|
||||||
ITEM "5|Maggiore ultimi due costi"
|
ITEM "5|Maggiore ultimi due costi"
|
||||||
ITEM "6|Costo massimo d'acquisto"
|
ITEM "6|Costo massimo d'acquisto"
|
||||||
ITEM "7|Costo minimo d'acquisto"
|
ITEM "7|Costo minimo d'acquisto"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -37,7 +37,6 @@ STRING F_D_DESCR 50
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione "
|
PROMPT 2 4 "Descrizione "
|
||||||
FIELD LF_SCONTI->DESCR
|
FIELD LF_SCONTI->DESCR
|
||||||
FLAG "D"
|
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 7
|
GROUPBOX DLG_NULL 75 7
|
||||||
|
|||||||
19
ve/ve2100i.h
19
ve/ve2100i.h
@ -1,7 +1,12 @@
|
|||||||
#define F_I_RICERCA 131
|
#define F_I_RICERCA 131
|
||||||
#define F_I_TIPO 132
|
#define F_I_TIPO 132
|
||||||
#define F_I_CATVEN 133
|
#define F_I_CATVEN 133
|
||||||
#define F_I_SCCLIENTI 134
|
#define F_I_SCCLIENTI 134
|
||||||
#define F_I_ZONE 135
|
#define F_I_ZONE 135
|
||||||
#define F_I_CONDPAG 136
|
#define F_I_CONDPAG 136
|
||||||
#define F_I_SCONTO 137
|
#define F_I_SCONTO 137
|
||||||
|
#define F_I_DESVEN 138
|
||||||
|
#define F_I_DESSCCLI 139
|
||||||
|
#define F_I_DESZONE 140
|
||||||
|
#define F_I_DESCONPAG 141
|
||||||
|
|
||||||
250
ve/ve2100i.uml
250
ve/ve2100i.uml
@ -1,110 +1,140 @@
|
|||||||
#include <lffiles.h>
|
#include <lffiles.h>
|
||||||
#include "ve2100i.h"
|
#include "ve2100i.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 60 2
|
TOOLBAR "" 0 20 60 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Archivio sconti incondizionati " 11 60 14
|
PAGE "Archivio sconti incondizionati " 11 60 14
|
||||||
|
|
||||||
LISTA F_I_TIPO 1
|
LISTA F_I_TIPO 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 100 100 ""
|
PROMPT 100 100 ""
|
||||||
FIELD LF_SCONTI->TIPO
|
FIELD LF_SCONTI->TIPO
|
||||||
FLAG "H"
|
FLAG "H"
|
||||||
ITEM "I|Sconti incondizionati"
|
ITEM "I|Sconti incondizionati"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_I_RICERCA 1
|
STRING F_I_RICERCA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 100 100 ""
|
PROMPT 100 100 ""
|
||||||
FLAG "H"
|
FLAG "H"
|
||||||
USE LF_SCONTI
|
USE LF_SCONTI
|
||||||
INPUT TIPO F_I_TIPO SELECT
|
INPUT TIPO F_I_TIPO SELECT
|
||||||
INPUT CODART[1,2] F_I_CATVEN
|
INPUT CODART[1,2] F_I_CATVEN
|
||||||
INPUT CODART[3,4] F_I_SCCLIENTI
|
INPUT CODART[3,4] F_I_SCCLIENTI
|
||||||
INPUT CODART[5,6] F_I_ZONE
|
INPUT CODART[5,6] F_I_ZONE
|
||||||
INPUT CODART[7,10] F_I_CONDPAG
|
INPUT CODART[7,10] F_I_CONDPAG
|
||||||
DISPLAY "CV" CODART[1,2]
|
DISPLAY "CV" CODART[1,2]
|
||||||
DISPLAY "SC" CODART[3,4]
|
DISPLAY "SC" CODART[3,4]
|
||||||
DISPLAY "ZN" CODART[5,6]
|
DISPLAY "ZN" CODART[5,6]
|
||||||
DISPLAY "C.P." CODART[7,10]
|
DISPLAY "C.P." CODART[7,10]
|
||||||
DISPLAY "Sconto@25" SCONTO
|
DISPLAY "Sconto@25" SCONTO
|
||||||
OUTPUT F_I_CATVEN CODART[1,2]
|
OUTPUT F_I_CATVEN CODART[1,2]
|
||||||
OUTPUT F_I_SCCLIENTI CODART[3,4]
|
OUTPUT F_I_SCCLIENTI CODART[3,4]
|
||||||
OUTPUT F_I_ZONE CODART[5,6]
|
OUTPUT F_I_ZONE CODART[5,6]
|
||||||
OUTPUT F_I_CONDPAG CODART[7,10]
|
OUTPUT F_I_CONDPAG CODART[7,10]
|
||||||
OUTPUT F_I_SCONTO SCONTO
|
OUTPUT F_I_SCONTO SCONTO
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_I_CATVEN 2
|
STRING F_I_CATVEN 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 5 2 "Categoria vendite "
|
PROMPT 2 2 "Cat. vendite "
|
||||||
FIELD LF_SCONTI->CODART[1,2]
|
FIELD LF_SCONTI->CODART[1,2]
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE %CVE
|
USE %CVE
|
||||||
INPUT CODTAB F_I_CATVEN
|
INPUT CODTAB F_I_CATVEN
|
||||||
DISPLAY "Cat. vend." CODTAB
|
DISPLAY "Cat. vend." CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_I_CATVEN CODTAB
|
OUTPUT F_I_CATVEN CODTAB
|
||||||
CHECKTYPE REQUIRED
|
OUTPUT F_I_DESVEN S0
|
||||||
END
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
STRING F_I_SCCLIENTI 2
|
|
||||||
BEGIN
|
STRING F_I_DESVEN 50
|
||||||
PROMPT 8 4 "Sconto cliente "
|
BEGIN
|
||||||
FIELD LF_SCONTI->CODART[3,4]
|
PROMPT 24 2 ""
|
||||||
FLAG "U"
|
FLAG "D"
|
||||||
KEY 1
|
END
|
||||||
USE %SCO
|
|
||||||
INPUT CODTAB F_I_SCCLIENTI
|
STRING F_I_SCCLIENTI 2
|
||||||
DISPLAY "Sc. Cliente" CODTAB
|
BEGIN
|
||||||
DISPLAY "Descrizione@50" S0
|
PROMPT 2 4 "Sconto cliente "
|
||||||
OUTPUT F_I_SCCLIENTI CODTAB
|
FIELD LF_SCONTI->CODART[3,4]
|
||||||
CHECKTYPE REQUIRED
|
FLAG "U"
|
||||||
END
|
KEY 1
|
||||||
|
USE LF_SCONTI
|
||||||
STRING F_I_ZONE 2
|
INPUT TIPO "D"
|
||||||
BEGIN
|
INPUT CODCAT F_I_SCCLIENTI
|
||||||
PROMPT 18 6 "Zona "
|
DISPLAY "Sc. Cliente" CODCAT
|
||||||
FIELD LF_SCONTI->CODART[5,6]
|
DISPLAY "Descrizione@50" DESCR
|
||||||
FLAG "U"
|
OUTPUT F_I_SCCLIENTI CODCAT
|
||||||
KEY 1
|
OUTPUT F_I_DESSCCLI DESCR
|
||||||
USE %ZON
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODTAB F_I_ZONE
|
END
|
||||||
DISPLAY "Zona" CODTAB
|
|
||||||
DISPLAY "Descrizione@50" S0
|
STRING F_I_DESSCCLI 50
|
||||||
OUTPUT F_I_ZONE CODTAB
|
BEGIN
|
||||||
CHECKTYPE REQUIRED
|
PROMPT 24 4 ""
|
||||||
END
|
FLAG "D"
|
||||||
|
END
|
||||||
STRING F_I_CONDPAG 4
|
|
||||||
BEGIN
|
STRING F_I_ZONE 2
|
||||||
PROMPT 2 8 "Condizione pagamento "
|
BEGIN
|
||||||
FIELD LF_SCONTI->CODART[7,10]
|
PROMPT 2 6 "Zona "
|
||||||
FLAG "U"
|
FIELD LF_SCONTI->CODART[5,6]
|
||||||
KEY 1
|
FLAG "U"
|
||||||
USE %CPG
|
KEY 1
|
||||||
INPUT CODTAB F_I_CONDPAG
|
USE %ZON
|
||||||
DISPLAY "Cond. pag." CODTAB
|
INPUT CODTAB F_I_ZONE
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Zona" CODTAB
|
||||||
OUTPUT F_I_CONDPAG CODTAB
|
DISPLAY "Descrizione@50" S0
|
||||||
CHECKTYPE REQUIRED
|
OUTPUT F_I_ZONE CODTAB
|
||||||
END
|
OUTPUT F_I_DESZONE S0
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
GROUPBOX DLG_NULL 36 11
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 0 0 ""
|
STRING F_I_DESZONE 50
|
||||||
//FLAG "R"
|
BEGIN
|
||||||
END
|
PROMPT 24 6 ""
|
||||||
|
FLAG "D"
|
||||||
STRING F_I_SCONTO 25
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 2 12 "Sconto "
|
STRING F_I_CONDPAG 4
|
||||||
FIELD LF_SCONTI->SCONTO
|
BEGIN
|
||||||
END
|
PROMPT 2 8 "Cond. pagam. "
|
||||||
|
FIELD LF_SCONTI->CODART[7,10]
|
||||||
ENDPAGE
|
FLAG "U"
|
||||||
|
KEY 1
|
||||||
ENDMASK
|
USE %CPG
|
||||||
|
INPUT CODTAB F_I_CONDPAG
|
||||||
|
DISPLAY "Cond. pag." CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_I_CONDPAG CODTAB
|
||||||
|
OUTPUT F_I_DESCONPAG S0
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_I_DESCONPAG 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 8 ""
|
||||||
|
FLAG "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 11
|
||||||
|
BEGIN
|
||||||
|
PROMPT 0 0 ""
|
||||||
|
FLAG "R"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_I_SCONTO 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 12 "Sconto "
|
||||||
|
FIELD LF_SCONTI->SCONTO
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|
||||||
620
ve/ve2200x.uml
620
ve/ve2200x.uml
@ -1,310 +1,310 @@
|
|||||||
#include <lffiles.h>
|
#include <lffiles.h>
|
||||||
#include "ve2200x.h"
|
#include "ve2200x.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 60 2
|
TOOLBAR "" 0 20 60 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Archivio condizioni di vendita " 0 0 70 20
|
PAGE "Archivio condizioni di vendita " 0 0 70 20
|
||||||
|
|
||||||
STRING F_TIPO 1
|
STRING F_TIPO 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 100 100 ""
|
PROMPT 100 100 ""
|
||||||
FIELD LF_CONDV->TIPO
|
FIELD LF_CONDV->TIPO
|
||||||
FLAG "DUP"
|
FLAG "DUP"
|
||||||
KEY 1
|
KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai listini
|
// campo riservato ai listini
|
||||||
STRING F_L_CATVEN 2
|
STRING F_L_CATVEN 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Cat. vendita "
|
PROMPT 2 2 "Cat. vendita "
|
||||||
FIELD LF_CONDV->CATVEN
|
FIELD LF_CONDV->CATVEN
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE %CVE
|
USE %CVE
|
||||||
INPUT CODTAB F_L_CATVEN
|
INPUT CODTAB F_L_CATVEN
|
||||||
DISPLAY "Cat." CODTAB
|
DISPLAY "Cat." CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_L_CATVEN CODTAB
|
OUTPUT F_L_CATVEN CODTAB
|
||||||
OUTPUT F_L_DESVEN S0
|
OUTPUT F_L_DESVEN S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai listini
|
// campo riservato ai listini
|
||||||
STRING F_L_DESVEN 50
|
STRING F_L_DESVEN 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 2 ""
|
PROMPT 22 2 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai contratti
|
// campo riservato ai contratti
|
||||||
LIST F_C_TIPOCF 7
|
LIST F_C_TIPOCF 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Tipo "
|
PROMPT 2 2 "Tipo "
|
||||||
FIELD LF_CONDV->TIPOCF
|
FIELD LF_CONDV->TIPOCF
|
||||||
KEY 1
|
KEY 1
|
||||||
ITEM "C|Cliente"
|
ITEM "C|Cliente"
|
||||||
ITEM "F|Fornit."
|
ITEM "F|Fornit."
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai contratti
|
// campo riservato ai contratti
|
||||||
STRING F_C_CODCF 6
|
STRING F_C_CODCF 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Codice "
|
PROMPT 2 3 "Codice "
|
||||||
FIELD LF_CONDV->CODCF
|
FIELD LF_CONDV->CODCF
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CLIFO
|
USE LF_CLIFO
|
||||||
INPUT TIPOCF F_C_TIPOCF
|
INPUT TIPOCF F_C_TIPOCF
|
||||||
INPUT CODCF F_C_CODCF
|
INPUT CODCF F_C_CODCF
|
||||||
DISPLAY "C/F" TIPOCF
|
DISPLAY "C/F" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_C_TIPOCF TIPOCF
|
OUTPUT F_C_TIPOCF TIPOCF
|
||||||
OUTPUT F_C_CODCF CODCF
|
OUTPUT F_C_CODCF CODCF
|
||||||
OUTPUT F_C_DESCF RAGSOC
|
OUTPUT F_C_DESCF RAGSOC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai contratti
|
// campo riservato ai contratti
|
||||||
STRING F_C_DESCF 50
|
STRING F_C_DESCF 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 3 ""
|
PROMPT 22 3 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai listini
|
// campo riservato ai listini
|
||||||
STRING F_L_COD 3
|
STRING F_L_COD 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Cod. listino "
|
PROMPT 2 4 "Cod. listino "
|
||||||
FIELD LF_CONDV->COD
|
FIELD LF_CONDV->COD
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_TIPO SELECT
|
INPUT TIPO F_TIPO SELECT
|
||||||
INPUT CATVEN F_L_CATVEN
|
INPUT CATVEN F_L_CATVEN
|
||||||
INPUT COD F_L_COD
|
INPUT COD F_L_COD
|
||||||
DISPLAY "C.V." CATVEN
|
DISPLAY "C.V." CATVEN
|
||||||
DISPLAY "Codice" COD
|
DISPLAY "Codice" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_TIPO TIPO
|
OUTPUT F_TIPO TIPO
|
||||||
OUTPUT F_L_CATVEN CATVEN
|
OUTPUT F_L_CATVEN CATVEN
|
||||||
OUTPUT F_L_COD COD
|
OUTPUT F_L_COD COD
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai contratti
|
// campo riservato ai contratti
|
||||||
NUMBER F_C_COD 3
|
NUMBER F_C_COD 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Contratto N. "
|
PROMPT 2 4 "Contratto N. "
|
||||||
FIELD LF_CONDV->COD
|
FIELD LF_CONDV->COD
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_TIPO SELECT
|
INPUT TIPO F_TIPO SELECT
|
||||||
INPUT TIPOCF F_C_TIPOCF
|
INPUT TIPOCF F_C_TIPOCF
|
||||||
INPUT CODCF F_C_CODCF
|
INPUT CODCF F_C_CODCF
|
||||||
INPUT COD F_C_COD
|
INPUT COD F_C_COD
|
||||||
DISPLAY "C/F" TIPOCF
|
DISPLAY "C/F" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Numero" COD
|
DISPLAY "Numero" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_TIPO TIPO
|
OUTPUT F_TIPO TIPO
|
||||||
OUTPUT F_C_TIPOCF TIPOCF
|
OUTPUT F_C_TIPOCF TIPOCF
|
||||||
OUTPUT F_C_CODCF CODCF
|
OUTPUT F_C_CODCF CODCF
|
||||||
OUTPUT F_C_COD COD
|
OUTPUT F_C_COD COD
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato alle offerte
|
// campo riservato alle offerte
|
||||||
STRING F_O_COD 3
|
STRING F_O_COD 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Cod. offerta "
|
PROMPT 2 3 "Cod. offerta "
|
||||||
FIELD LF_CONDV->COD
|
FIELD LF_CONDV->COD
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_TIPO SELECT
|
INPUT TIPO F_TIPO SELECT
|
||||||
INPUT COD F_O_COD
|
INPUT COD F_O_COD
|
||||||
DISPLAY "Codice" COD
|
DISPLAY "Codice" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_TIPO TIPO
|
OUTPUT F_TIPO TIPO
|
||||||
OUTPUT F_O_COD COD
|
OUTPUT F_O_COD COD
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 8
|
GROUPBOX DLG_NULL 75 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
FLAG "R"
|
FLAG "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCR 50
|
STRING F_DESCR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
FIELD LF_CONDV->DESCR
|
FIELD LF_CONDV->DESCR
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODVAL 5
|
STRING F_CODVAL 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Valuta "
|
PROMPT 2 8 "Valuta "
|
||||||
FIELD LF_CONDV->CODVAL
|
FIELD LF_CONDV->CODVAL
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE %VAL
|
USE %VAL
|
||||||
INPUT CODTAB F_CODVAL
|
INPUT CODTAB F_CODVAL
|
||||||
DISPLAY "Valuta" CODTAB
|
DISPLAY "Valuta" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_CODVAL CODTAB
|
OUTPUT F_CODVAL CODTAB
|
||||||
MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI
|
MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI
|
||||||
MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
|
MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CAMBIO 15 5
|
NUMBER F_CAMBIO 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 21 8 "Cambio "
|
PROMPT 21 8 "Cambio "
|
||||||
FIELD LF_CONDV->CAMBIO
|
FIELD LF_CONDV->CAMBIO
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA F_DATACAM
|
DATA F_DATACAM
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 49 8 "Data "
|
PROMPT 49 8 "Data "
|
||||||
FIELD LF_CONDV->DATACAM
|
FIELD LF_CONDV->DATACAM
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA F_VALIN
|
DATA F_VALIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Inizio validita` "
|
PROMPT 2 10 "Inizio validita` "
|
||||||
FIELD LF_CONDV->VALIN
|
FIELD LF_CONDV->VALIN
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA F_VALFIN
|
DATA F_VALFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 39 10 "Fine validita` "
|
PROMPT 39 10 "Fine validita` "
|
||||||
FIELD LF_CONDV->VALFIN
|
FIELD LF_CONDV->VALFIN
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_IMPLORDI
|
BOOLEAN F_IMPLORDI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Importi lordi"
|
PROMPT 2 12 "Importi lordi"
|
||||||
FIELD LF_CONDV->IMPLORDI
|
FIELD LF_CONDV->IMPLORDI
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_GESTUM
|
BOOLEAN F_GESTUM
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 12 "Gestione unita` di misura"
|
PROMPT 34 12 "Gestione unita` di misura"
|
||||||
FIELD LF_CONDV->GESTUM
|
FIELD LF_CONDV->GESTUM
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_GESTSCAGL
|
BOOLEAN F_GESTSCAGL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "Gestione scaglioni"
|
PROMPT 2 13 "Gestione scaglioni"
|
||||||
FIELD LF_CONDV->GESTSCAGL
|
FIELD LF_CONDV->GESTSCAGL
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_GESTSCO
|
BOOLEAN F_GESTSCO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 13 "Gestione sconti/omaggi"
|
PROMPT 34 13 "Gestione sconti/omaggi"
|
||||||
FIELD LF_CONDV->GESTSCO
|
FIELD LF_CONDV->GESTSCO
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_SCONST
|
BOOLEAN F_SCONST
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Gestione sconti standard"
|
PROMPT 2 14 "Gestione sconti standard"
|
||||||
FIELD LF_CONDV->SCONST
|
FIELD LF_CONDV->SCONST
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai contratti
|
// campo riservato ai contratti
|
||||||
BOOLEAN F_C_OBBLIG
|
BOOLEAN F_C_OBBLIG
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 14 "Contratto obbligatorio"
|
PROMPT 34 14 "Contratto obbligatorio"
|
||||||
FIELD LF_CONDV->OBBLIG
|
FIELD LF_CONDV->OBBLIG
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_SEQRIC_1 10
|
LIST F_SEQRIC_1 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Sequenza ricerca "
|
PROMPT 2 15 "Sequenza ricerca "
|
||||||
FIELD LF_CONDV->SEQRIC[1,1]
|
FIELD LF_CONDV->SEQRIC[1,1]
|
||||||
ITEM "A|Articoli"
|
ITEM "A|Articoli"
|
||||||
ITEM "G|Gruppo M."
|
ITEM "G|Gruppo M."
|
||||||
ITEM "S|Sottogr.M."
|
ITEM "S|Sottogr.M."
|
||||||
ITEM "R|Ragg.fisc."
|
ITEM "R|Ragg.fisc."
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_SEQRIC_2 10
|
LIST F_SEQRIC_2 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 15 ""
|
PROMPT 34 15 ""
|
||||||
FIELD LF_CONDV->SEQRIC[2,2]
|
FIELD LF_CONDV->SEQRIC[2,2]
|
||||||
ITEM "-|Nessuno"
|
ITEM "-|Nessuno"
|
||||||
ITEM "A|Articoli"
|
ITEM "A|Articoli"
|
||||||
ITEM "G|Gruppo M."
|
ITEM "G|Gruppo M."
|
||||||
ITEM "S|Sottogr.M."
|
ITEM "S|Sottogr.M."
|
||||||
ITEM "R|Ragg.fisc."
|
ITEM "R|Ragg.fisc."
|
||||||
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
|
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
|
||||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_SEQRIC_3 10
|
LIST F_SEQRIC_3 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 49 15 ""
|
PROMPT 49 15 ""
|
||||||
FIELD LF_CONDV->SEQRIC[3,3]
|
FIELD LF_CONDV->SEQRIC[3,3]
|
||||||
ITEM "-|Nessuno"
|
ITEM "-|Nessuno"
|
||||||
ITEM "A|Articoli"
|
ITEM "A|Articoli"
|
||||||
ITEM "G|Gruppo M."
|
ITEM "G|Gruppo M."
|
||||||
ITEM "S|Sottogr.M."
|
ITEM "S|Sottogr.M."
|
||||||
ITEM "R|Ragg.fisc."
|
ITEM "R|Ragg.fisc."
|
||||||
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2))
|
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2))
|
||||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_SEQRIC_4 10
|
LIST F_SEQRIC_4 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 64 15 ""
|
PROMPT 64 15 ""
|
||||||
FIELD LF_CONDV->SEQRIC[4,4]
|
FIELD LF_CONDV->SEQRIC[4,4]
|
||||||
ITEM "-|Nessuno"
|
ITEM "-|Nessuno"
|
||||||
ITEM "A|Articoli"
|
ITEM "A|Articoli"
|
||||||
ITEM "G|Gruppo M."
|
ITEM "G|Gruppo M."
|
||||||
ITEM "S|Sottogr.M."
|
ITEM "S|Sottogr.M."
|
||||||
ITEM "R|Ragg.fisc."
|
ITEM "R|Ragg.fisc."
|
||||||
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3))
|
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3))
|
||||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai listini
|
// campo riservato ai listini
|
||||||
STRING F_LC_CODSUCC 3
|
STRING F_LC_CODSUCC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Listino succ. "
|
PROMPT 2 16 "Listino succ. "
|
||||||
FIELD LF_CONDV->CODLISSUCC
|
FIELD LF_CONDV->CODLISSUCC
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_TIPO SELECT
|
INPUT TIPO F_TIPO SELECT
|
||||||
INPUT CATVEN F_L_CATVEN SELECT
|
INPUT CATVEN F_L_CATVEN SELECT
|
||||||
//INPUT TIPOCF F_C_TIPOCF SELECT
|
//INPUT TIPOCF F_C_TIPOCF SELECT
|
||||||
//INPUT CODCF F_C_CODCF SELECT
|
//INPUT CODCF F_C_CODCF SELECT
|
||||||
INPUT COD F_LC_CODSUCC
|
INPUT COD F_LC_CODSUCC
|
||||||
DISPLAY "C.V." CATVEN
|
DISPLAY "C.V." CATVEN
|
||||||
DISPLAY "Codice" COD
|
DISPLAY "Codice" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_LC_CODSUCC COD
|
OUTPUT F_LC_CODSUCC COD
|
||||||
OUTPUT F_LC_DESSUCC DESCR
|
OUTPUT F_LC_DESSUCC DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
// campo riservato ai listini
|
// campo riservato ai listini
|
||||||
STRING F_LC_DESSUCC 50
|
STRING F_LC_DESSUCC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 24 16 ""
|
PROMPT 24 16 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
// bottone di lancio dell'applicazione delle righe
|
// bottone di lancio dell'applicazione delle righe
|
||||||
BUTTON BTN_RIGHE 63 1
|
BUTTON BTN_RIGHE 63 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 -1 "Righe di questa testata"
|
PROMPT 0 -1 "Righe di questa testata"
|
||||||
MESSAGE K_F5
|
MESSAGE K_F5
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
|||||||
92
ve/ve2300x.h
92
ve/ve2300x.h
@ -1,46 +1,46 @@
|
|||||||
|
|
||||||
// campi comuni a tutti gli archivi
|
// campi comuni a tutti gli archivi
|
||||||
#define F_R_TIPO 111
|
#define F_R_TIPO 111
|
||||||
#define F_R_TIPORIGA 112
|
#define F_R_TIPORIGA 112
|
||||||
#define F_R_CODRIGA_A 113
|
#define F_R_CODRIGA_A 113
|
||||||
#define F_R_CODRIGA_G 114
|
#define F_R_CODRIGA_G 114
|
||||||
#define F_R_CODRIGA_R 115
|
#define F_R_CODRIGA_R 115
|
||||||
#define F_R_UM 133
|
#define F_R_UM 133
|
||||||
#define F_R_NSCAGL 116
|
#define F_R_NSCAGL 116
|
||||||
#define F_R_QLIM 117
|
#define F_R_QLIM 117
|
||||||
#define F_R_PREZZO 118
|
#define F_R_PREZZO 118
|
||||||
#define F_R_SCONTO 119
|
#define F_R_SCONTO 119
|
||||||
#define F_R_ADDIVA 120
|
#define F_R_ADDIVA 120
|
||||||
#define F_R_CODIVA 121
|
#define F_R_CODIVA 121
|
||||||
#define F_R_PERCPROVV 122
|
#define F_R_PERCPROVV 122
|
||||||
#define F_R_QOM 123
|
#define F_R_QOM 123
|
||||||
#define F_R_QBASE 124
|
#define F_R_QBASE 124
|
||||||
#define F_R_CODARTOM 125
|
#define F_R_CODARTOM 125
|
||||||
#define F_R_PROMAGGIO 126
|
#define F_R_PROMAGGIO 126
|
||||||
#define F_R_UMOM 127
|
#define F_R_UMOM 127
|
||||||
#define F_R_CODRIGA_S 128
|
#define F_R_CODRIGA_S 128
|
||||||
#define F_R_DESRIGA_A 161
|
#define F_R_DESRIGA_A 161
|
||||||
#define F_R_DESRIGA_G 162
|
#define F_R_DESRIGA_G 162
|
||||||
#define F_R_DESRIGA_R 163
|
#define F_R_DESRIGA_R 163
|
||||||
#define F_R_DESRIGA_S 163
|
#define F_R_DESRIGA_S 163
|
||||||
|
|
||||||
// campi riservati ai listini
|
// campi riservati ai listini
|
||||||
#define F_R_L_CATVEN 131
|
#define F_R_L_CATVEN 131
|
||||||
#define F_R_L_COD 132
|
#define F_R_L_COD 132
|
||||||
#define F_R_L_RICERCA 134
|
#define F_R_L_RICERCA 134
|
||||||
#define F_R_L_DESVEN 135
|
#define F_R_L_DESVEN 135
|
||||||
#define F_R_L_DES 136
|
#define F_R_L_DES 136
|
||||||
|
|
||||||
// campi riservati ai contratti
|
// campi riservati ai contratti
|
||||||
#define F_R_C_TIPOCF 141
|
#define F_R_C_TIPOCF 141
|
||||||
#define F_R_C_CODCF 142
|
#define F_R_C_CODCF 142
|
||||||
#define F_R_C_COD 143
|
#define F_R_C_COD 143
|
||||||
#define F_R_C_RICERCA 144
|
#define F_R_C_RICERCA 144
|
||||||
#define F_R_C_DESCF 145
|
#define F_R_C_DESCF 145
|
||||||
#define F_R_C_DES 146
|
#define F_R_C_DES 146
|
||||||
|
|
||||||
// campi riservati alle offerte
|
// campi riservati alle offerte
|
||||||
#define F_R_O_COD 151
|
#define F_R_O_COD 151
|
||||||
#define F_R_O_RICERCA 152
|
#define F_R_O_RICERCA 152
|
||||||
#define F_R_O_ARTES 153
|
#define F_R_O_ARTES 153
|
||||||
#define F_R_O_DES 154
|
#define F_R_O_DES 154
|
||||||
|
|||||||
917
ve/ve2300x.uml
917
ve/ve2300x.uml
@ -1,459 +1,458 @@
|
|||||||
#include <lffiles.h>
|
#include <lffiles.h>
|
||||||
#include "ve2300x.h"
|
#include "ve2300x.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 60 2
|
TOOLBAR "" 0 20 60 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Archivio righe condiz. di vendita " 0 0 70 20
|
PAGE "Archivio righe condiz. di vendita " 0 0 70 20
|
||||||
|
|
||||||
STRING F_R_TIPO 1
|
STRING F_R_TIPO 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 100 100 ""
|
PROMPT 100 100 ""
|
||||||
FIELD LF_RCONDV->TIPO
|
FIELD LF_RCONDV->TIPO
|
||||||
FLAG "DUP"
|
FLAG "DUP"
|
||||||
KEY 1
|
KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_L_CATVEN 2 // campo riservato ai listini
|
STRING F_R_L_CATVEN 2 // campo riservato ai listini
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Cat. vendita "
|
PROMPT 2 2 "Cat. vendita "
|
||||||
FIELD LF_RCONDV->CATVEN
|
FIELD LF_RCONDV->CATVEN
|
||||||
FLAG "UP"
|
FLAG "UP"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE %CVE
|
USE %CVE
|
||||||
INPUT CODTAB F_R_L_CATVEN
|
INPUT CODTAB F_R_L_CATVEN
|
||||||
DISPLAY "Cat." CODTAB
|
DISPLAY "Cat." CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_R_L_CATVEN CODTAB
|
OUTPUT F_R_L_CATVEN CODTAB
|
||||||
OUTPUT F_R_L_DESVEN S0
|
OUTPUT F_R_L_DESVEN S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_L_DESVEN 50 // campo riservato ai listini
|
STRING F_R_L_DESVEN 50 // campo riservato ai listini
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 2 ""
|
PROMPT 25 2 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
|
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Tipo C/F "
|
PROMPT 2 1 "Tipo C/F "
|
||||||
FIELD LF_RCONDV->TIPOCF
|
FIELD LF_RCONDV->TIPOCF
|
||||||
FLAG "P"
|
FLAG "P"
|
||||||
KEY 1
|
KEY 1
|
||||||
ITEM "C|Cliente"
|
ITEM "C|Cliente"
|
||||||
ITEM "F|Fornit."
|
ITEM "F|Fornit."
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_C_CODCF 6 // campo riservato ai contratti
|
STRING F_R_C_CODCF 6 // campo riservato ai contratti
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Cod. C/F "
|
PROMPT 2 2 "Cod. C/F "
|
||||||
FIELD LF_RCONDV->CODCF
|
FIELD LF_RCONDV->CODCF
|
||||||
FLAG "UP"
|
FLAG "UP"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CLIFO
|
USE LF_CLIFO
|
||||||
INPUT TIPOCF F_R_C_TIPOCF
|
INPUT TIPOCF F_R_C_TIPOCF
|
||||||
INPUT CODCF F_R_C_CODCF
|
INPUT CODCF F_R_C_CODCF
|
||||||
DISPLAY "C/F" TIPOCF
|
DISPLAY "C/F" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_R_C_TIPOCF TIPOCF
|
OUTPUT F_R_C_TIPOCF TIPOCF
|
||||||
OUTPUT F_R_C_CODCF CODCF
|
OUTPUT F_R_C_CODCF CODCF
|
||||||
OUTPUT F_R_C_DESCF RAGSOC
|
OUTPUT F_R_C_DESCF RAGSOC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_C_DESCF 50 // campo riservato ai contratti
|
STRING F_R_C_DESCF 50 // campo riservato ai contratti
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 2 ""
|
PROMPT 25 2 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_L_COD 3 // campo riservato ai listini
|
STRING F_R_L_COD 3 // campo riservato ai listini
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Listino "
|
PROMPT 2 3 "Listino "
|
||||||
FIELD LF_RCONDV->COD
|
FIELD LF_RCONDV->COD
|
||||||
FLAG "UPG"
|
FLAG "UPG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_R_TIPO SELECT
|
INPUT TIPO F_R_TIPO SELECT
|
||||||
INPUT CATVEN F_R_L_CATVEN
|
INPUT CATVEN F_R_L_CATVEN
|
||||||
INPUT COD F_R_L_COD
|
INPUT COD F_R_L_COD
|
||||||
DISPLAY "C.V." CATVEN
|
DISPLAY "C.V." CATVEN
|
||||||
DISPLAY "Codice" COD
|
DISPLAY "Codice" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_R_TIPO TIPO
|
OUTPUT F_R_TIPO TIPO
|
||||||
OUTPUT F_R_L_CATVEN CATVEN
|
OUTPUT F_R_L_CATVEN CATVEN
|
||||||
OUTPUT F_R_L_COD COD
|
OUTPUT F_R_L_COD COD
|
||||||
OUTPUT F_R_L_DES DESCR
|
OUTPUT F_R_L_DES DESCR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_L_DES 50 // campo riservato ai contratti
|
STRING F_R_L_DES 50 // campo riservato ai contratti
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 3 ""
|
PROMPT 25 3 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_R_C_COD 3 // campo riservato ai contratti
|
NUMBER F_R_C_COD 3 // campo riservato ai contratti
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Contratto N. "
|
PROMPT 2 3 "Contratto N. "
|
||||||
FIELD LF_RCONDV->COD
|
FIELD LF_RCONDV->COD
|
||||||
FLAG "PG"
|
FLAG "PG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_R_TIPO SELECT
|
INPUT TIPO F_R_TIPO SELECT
|
||||||
INPUT TIPOCF F_R_C_TIPOCF
|
INPUT TIPOCF F_R_C_TIPOCF
|
||||||
INPUT CODCF F_R_C_CODCF
|
INPUT CODCF F_R_C_CODCF
|
||||||
INPUT COD F_R_C_COD
|
INPUT COD F_R_C_COD
|
||||||
DISPLAY "C/F" TIPOCF
|
DISPLAY "C/F" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Numero" COD
|
DISPLAY "Numero" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_R_TIPO TIPO
|
OUTPUT F_R_TIPO TIPO
|
||||||
OUTPUT F_R_C_TIPOCF TIPOCF
|
OUTPUT F_R_C_TIPOCF TIPOCF
|
||||||
OUTPUT F_R_C_CODCF CODCF
|
OUTPUT F_R_C_CODCF CODCF
|
||||||
OUTPUT F_R_C_COD COD
|
OUTPUT F_R_C_COD COD
|
||||||
OUTPUT F_R_C_DES DESCR
|
OUTPUT F_R_C_DES DESCR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_C_DES 50 // campo riservato ai listini
|
STRING F_R_C_DES 50 // campo riservato ai listini
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 3 ""
|
PROMPT 25 3 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_O_COD 3 // campo riservato alle offerte
|
STRING F_R_O_COD 3 // campo riservato alle offerte
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice offerta "
|
PROMPT 2 2 "Codice offerta "
|
||||||
FIELD LF_RCONDV->COD
|
FIELD LF_RCONDV->COD
|
||||||
FLAG "UPG"
|
FLAG "UPG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_CONDV
|
USE LF_CONDV
|
||||||
INPUT TIPO F_R_TIPO SELECT
|
INPUT TIPO F_R_TIPO SELECT
|
||||||
INPUT COD F_R_O_COD
|
INPUT COD F_R_O_COD
|
||||||
DISPLAY "Codice" COD
|
DISPLAY "Codice" COD
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_R_TIPO TIPO
|
OUTPUT F_R_TIPO TIPO
|
||||||
OUTPUT F_R_O_COD COD
|
OUTPUT F_R_O_COD COD
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_O_DES 50 // campo riservato alle offerte
|
STRING F_R_O_DES 50 // campo riservato alle offerte
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Descr. offerta "
|
PROMPT 2 3 "Descr. offerta "
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_R_TIPORIGA 14
|
LIST F_R_TIPORIGA 14
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Tipo riga "
|
PROMPT 2 4 "Tipo riga "
|
||||||
FIELD LF_RCONDV->TIPORIGA
|
FIELD LF_RCONDV->TIPORIGA
|
||||||
FLAG "P"
|
FLAG "P"
|
||||||
KEY 1
|
KEY 1
|
||||||
ITEM "A|Articolo"
|
ITEM "A|Articolo"
|
||||||
ITEM "G|Gruppo merc."
|
ITEM "G|Gruppo merc."
|
||||||
ITEM "S|Sottogr. merc."
|
ITEM "S|Sottogr. merc."
|
||||||
ITEM "R|Ragg. fiscale"
|
ITEM "R|Ragg. fiscale"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_CODRIGA_A 20
|
STRING F_R_CODRIGA_A 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 37 4 "Codice articolo "
|
PROMPT 37 4 "Codice articolo "
|
||||||
FIELD LF_RCONDV->CODRIGA
|
FIELD LF_RCONDV->CODRIGA
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_ANAGR
|
USE LF_ANAGR
|
||||||
INPUT CODART F_R_CODRIGA_A
|
INPUT CODART F_R_CODRIGA_A
|
||||||
DISPLAY "Articolo@20" CODART
|
DISPLAY "Articolo@20" CODART
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_R_CODRIGA_A CODART
|
OUTPUT F_R_CODRIGA_A CODART
|
||||||
OUTPUT F_R_DESRIGA_A DESCR
|
OUTPUT F_R_DESRIGA_A DESCR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_DESRIGA_A 50
|
STRING F_R_DESRIGA_A 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione articolo "
|
PROMPT 2 5 "Descrizione articolo "
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_R_CODRIGA_G 3
|
STRING F_R_CODRIGA_G 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Gruppo merc. "
|
PROMPT 2 5 "Gruppo merc. "
|
||||||
FIELD LF_RCONDV->CODRIGA[1,3]
|
FIELD LF_RCONDV->CODRIGA[1,3]
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE %GMC
|
USE GMC SELECT CODTAB[4,5] == ""
|
||||||
INPUT CODTAB[1,3] F_R_CODRIGA_G
|
INPUT CODTAB[1,3] F_R_CODRIGA_G
|
||||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_R_CODRIGA_G CODTAB[1,3]
|
OUTPUT F_R_CODRIGA_G CODTAB[1,3]
|
||||||
OUTPUT F_R_DESRIGA_G S0
|
OUTPUT F_R_DESRIGA_G S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
MESSAGE COPY,F_R_CODRIGA_A
|
END
|
||||||
END
|
|
||||||
|
STRING F_R_DESRIGA_G 50
|
||||||
STRING F_R_DESRIGA_G 50
|
BEGIN
|
||||||
BEGIN
|
PROMPT 25 5 ""
|
||||||
PROMPT 23 5 ""
|
FLAG "D"
|
||||||
FLAG "D"
|
END
|
||||||
END
|
|
||||||
|
STRING F_R_CODRIGA_S 5
|
||||||
STRING F_R_CODRIGA_S 2
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 5 "Sottogr.mer. "
|
||||||
PROMPT 2 5 "Sottogr. merc. "
|
FIELD LF_RCONDV->CODRIGA[1,5]
|
||||||
FIELD LF_RCONDV->CODRIGA[1,2]
|
FLAG "U"
|
||||||
FLAG "U"
|
KEY 1
|
||||||
KEY 1
|
USE GMC SELECT CODTAB[4,5] != ""
|
||||||
USE %GMC
|
INPUT CODTAB F_R_CODRIGA_S
|
||||||
INPUT CODTAB[4,5] F_R_CODRIGA_S
|
DISPLAY "Gruppo merc." CODTAB[1,3]
|
||||||
DISPLAY "Sottogr. merc." CODTAB[4,5]
|
DISPLAY "Sottogr. merc." CODTAB[4,5]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_R_CODRIGA_S CODTAB[4,5]
|
OUTPUT F_R_CODRIGA_S CODTAB
|
||||||
OUTPUT F_R_DESRIGA_S S0
|
OUTPUT F_R_DESRIGA_S S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
MESSAGE COPY,F_R_CODRIGA_A
|
END
|
||||||
END
|
|
||||||
|
STRING F_R_DESRIGA_S 50
|
||||||
STRING F_R_DESRIGA_S 50
|
BEGIN
|
||||||
BEGIN
|
PROMPT 25 5 ""
|
||||||
PROMPT 23 5 ""
|
FLAG "D"
|
||||||
FLAG "D"
|
END
|
||||||
END
|
|
||||||
|
STRING F_R_CODRIGA_R 5
|
||||||
STRING F_R_CODRIGA_R 2
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 5 "Ragg.fiscale "
|
||||||
PROMPT 2 5 "Ragg.fiscale "
|
FIELD LF_RCONDV->CODRIGA[1,5]
|
||||||
FIELD LF_RCONDV->CODRIGA[1,2]
|
FLAG "U"
|
||||||
FLAG "U"
|
KEY 1
|
||||||
KEY 1
|
USE RFA
|
||||||
USE %RFA
|
INPUT CODTAB F_R_CODRIGA_R
|
||||||
INPUT CODTAB F_R_CODRIGA_R
|
DISPLAY "Ragg. fisc." CODTAB
|
||||||
DISPLAY "Ragg. fisc." CODTAB
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Descrizione@50" S0
|
OUTPUT F_R_CODRIGA_R CODTAB
|
||||||
OUTPUT F_R_CODRIGA_R CODTAB
|
OUTPUT F_R_DESRIGA_R S0
|
||||||
OUTPUT F_R_DESRIGA_R S0
|
CHECKTYPE REQUIRED
|
||||||
CHECKTYPE REQUIRED
|
END
|
||||||
MESSAGE COPY,F_R_CODRIGA_A
|
|
||||||
END
|
STRING F_R_DESRIGA_R 50
|
||||||
|
BEGIN
|
||||||
STRING F_R_DESRIGA_R 50
|
PROMPT 25 5 ""
|
||||||
BEGIN
|
FLAG "D"
|
||||||
PROMPT 23 5 ""
|
END
|
||||||
FLAG "D"
|
|
||||||
END
|
STRING F_R_NSCAGL 1
|
||||||
|
BEGIN
|
||||||
STRING F_R_NSCAGL 1
|
PROMPT 2 7 "N.ro scaglione "
|
||||||
BEGIN
|
FIELD LF_RCONDV->NSCAGL
|
||||||
PROMPT 2 7 "N.ro scaglione "
|
KEY 1
|
||||||
FIELD LF_RCONDV->NSCAGL
|
CHECKTYPE REQUIRED
|
||||||
KEY 1
|
END
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
STRING F_R_UM 2
|
||||||
|
BEGIN
|
||||||
STRING F_R_UM 2
|
PROMPT 28 7 "U.M. "
|
||||||
BEGIN
|
FIELD LF_RCONDV->UM
|
||||||
PROMPT 28 7 "U.M. "
|
FLAG "U"
|
||||||
FIELD LF_RCONDV->UM
|
KEY 1
|
||||||
FLAG "U"
|
USE LF_UMART KEY 2
|
||||||
KEY 1
|
JOIN %UMS INTO CODTAB=UM
|
||||||
USE LF_UMART KEY 2
|
INPUT CODART F_R_CODRIGA_A SELECT
|
||||||
JOIN %UMS INTO CODTAB=UM
|
INPUT UM F_R_UM
|
||||||
INPUT CODART F_R_CODRIGA_A SELECT
|
DISPLAY "U.M." UM
|
||||||
INPUT UM F_R_UM
|
DISPLAY "Desccrizione@50" %UMS->S0
|
||||||
DISPLAY "U.M." UM
|
OUTPUT F_R_UM UM
|
||||||
DISPLAY "Desccrizione@50" %UMS->S0
|
CHECKTYPE REQUIRED
|
||||||
OUTPUT F_R_UM UM
|
END
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
|
||||||
|
BEGIN
|
||||||
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
|
PROMPT 100 100 ""
|
||||||
BEGIN
|
FLAG "D"
|
||||||
PROMPT 100 100 ""
|
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD)
|
||||||
FLAG "D"
|
//INPUT TIPO F_R_TIPO SELECT
|
||||||
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD)
|
//INPUT CATVEN F_R_L_CATVEN
|
||||||
//INPUT TIPO F_R_TIPO SELECT
|
//INPUT COD F_R_L_COD
|
||||||
//INPUT CATVEN F_R_L_CATVEN
|
INPUT TIPORIGA F_R_TIPORIGA
|
||||||
//INPUT COD F_R_L_COD
|
INPUT CODRIGA F_R_CODRIGA_A
|
||||||
INPUT TIPORIGA F_R_TIPORIGA
|
INPUT UM F_R_UM
|
||||||
INPUT CODRIGA F_R_CODRIGA_A
|
INPUT NSCAGL F_R_NSCAGL
|
||||||
INPUT UM F_R_UM
|
DISPLAY "Tipo" TIPORIGA
|
||||||
INPUT NSCAGL F_R_NSCAGL
|
DISPLAY "Codice@20" CODRIGA
|
||||||
DISPLAY "Tipo" TIPORIGA
|
DISPLAY "U.M." UM
|
||||||
DISPLAY "Codice@20" CODRIGA
|
DISPLAY "N.S." NSCAGL
|
||||||
DISPLAY "U.M." UM
|
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||||
DISPLAY "N.S." NSCAGL
|
OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
|
||||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
|
||||||
OUTPUT F_R_CODRIGA_R CODRIGA[1,2]
|
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
|
||||||
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
|
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||||
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
|
OUTPUT F_R_UM UM
|
||||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
OUTPUT F_R_NSCAGL NSCAGL
|
||||||
OUTPUT F_R_UM UM
|
END
|
||||||
OUTPUT F_R_NSCAGL NSCAGL
|
|
||||||
END
|
STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
|
||||||
|
BEGIN
|
||||||
STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
|
PROMPT 100 100 ""
|
||||||
BEGIN
|
FLAG "D"
|
||||||
PROMPT 100 100 ""
|
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD)
|
||||||
FLAG "D"
|
//INPUT TIPO F_R_TIPO SELECT
|
||||||
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD)
|
//INPUT TIPOCF F_R_C_TIPOCF
|
||||||
//INPUT TIPO F_R_TIPO SELECT
|
//INPUT CODCF F_R_C_CODCF
|
||||||
//INPUT TIPOCF F_R_C_TIPOCF
|
//INPUT COD F_R_C_COD
|
||||||
//INPUT CODCF F_R_C_CODCF
|
INPUT TIPORIGA F_R_TIPORIGA
|
||||||
//INPUT COD F_R_C_COD
|
INPUT CODRIGA F_R_CODRIGA_A
|
||||||
INPUT TIPORIGA F_R_TIPORIGA
|
INPUT NSCAGL F_R_NSCAGL
|
||||||
INPUT CODRIGA F_R_CODRIGA_A
|
DISPLAY "Tipo" TIPORIGA
|
||||||
INPUT NSCAGL F_R_NSCAGL
|
DISPLAY "Codice@20" CODRIGA
|
||||||
DISPLAY "Tipo" TIPORIGA
|
DISPLAY "N.S." NSCAGL
|
||||||
DISPLAY "Codice@20" CODRIGA
|
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||||
DISPLAY "N.S." NSCAGL
|
OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
|
||||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
|
||||||
OUTPUT F_R_CODRIGA_R CODRIGA[1,2]
|
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
|
||||||
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
|
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||||
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
|
OUTPUT F_R_NSCAGL NSCAGL
|
||||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
END
|
||||||
OUTPUT F_R_NSCAGL NSCAGL
|
|
||||||
END
|
STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
|
||||||
|
BEGIN
|
||||||
STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
|
PROMPT 100 100 ""
|
||||||
BEGIN
|
FLAG "D"
|
||||||
PROMPT 100 100 ""
|
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD)
|
||||||
FLAG "D"
|
//INPUT TIPO F_R_TIPO SELECT
|
||||||
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD)
|
//INPUT COD F_R_O_COD
|
||||||
//INPUT TIPO F_R_TIPO SELECT
|
INPUT TIPORIGA F_R_TIPORIGA
|
||||||
//INPUT COD F_R_O_COD
|
INPUT CODRIGA F_R_CODRIGA_A
|
||||||
INPUT TIPORIGA F_R_TIPORIGA
|
INPUT UM F_R_UM
|
||||||
INPUT CODRIGA F_R_CODRIGA_A
|
INPUT NSCAGL F_R_NSCAGL
|
||||||
INPUT UM F_R_UM
|
DISPLAY "Tipo" TIPORIGA
|
||||||
INPUT NSCAGL F_R_NSCAGL
|
DISPLAY "Codice@20" CODRIGA
|
||||||
DISPLAY "Tipo" TIPORIGA
|
DISPLAY "U.M." UM
|
||||||
DISPLAY "Codice@20" CODRIGA
|
DISPLAY "N.S." NSCAGL
|
||||||
DISPLAY "U.M." UM
|
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||||
DISPLAY "N.S." NSCAGL
|
OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
|
||||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
|
||||||
OUTPUT F_R_CODRIGA_R CODRIGA[1,2]
|
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
|
||||||
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
|
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||||
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
|
OUTPUT F_R_UM UM
|
||||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
OUTPUT F_R_NSCAGL NSCAGL
|
||||||
OUTPUT F_R_UM UM
|
END
|
||||||
OUTPUT F_R_NSCAGL NSCAGL
|
|
||||||
END
|
GROUPBOX DLG_NULL 78 9 // fine della chiave
|
||||||
|
BEGIN
|
||||||
GROUPBOX DLG_NULL 78 9 // fine della chiave
|
PROMPT 0 0 ""
|
||||||
BEGIN
|
FLAG "R"
|
||||||
PROMPT 0 0 ""
|
END
|
||||||
FLAG "R"
|
|
||||||
END
|
NUMBER F_R_QLIM 15 5
|
||||||
|
BEGIN
|
||||||
NUMBER F_R_QLIM 15 5
|
PROMPT 2 9 "Q.ta' limite scagl. "
|
||||||
BEGIN
|
FIELD LF_RCONDV->QLIM
|
||||||
PROMPT 2 9 "Q.ta' limite scagl. "
|
END
|
||||||
FIELD LF_RCONDV->QLIM
|
|
||||||
END
|
NUMBER F_R_PREZZO 18 2
|
||||||
|
BEGIN
|
||||||
NUMBER F_R_PREZZO 18 2
|
PROMPT 2 10 "Prezzo "
|
||||||
BEGIN
|
FIELD LF_RCONDV->PREZZO
|
||||||
PROMPT 2 10 "Prezzo "
|
END
|
||||||
FIELD LF_RCONDV->PREZZO
|
|
||||||
END
|
STRING F_R_SCONTO 25
|
||||||
|
BEGIN
|
||||||
STRING F_R_SCONTO 25
|
PROMPT 35 10 "Sconto "
|
||||||
BEGIN
|
FIELD LF_RCONDV->SCONTO
|
||||||
PROMPT 35 10 "Sconto "
|
FLAG "U"
|
||||||
FIELD LF_RCONDV->SCONTO
|
END
|
||||||
FLAG "U"
|
|
||||||
END
|
BOOLEAN F_R_ADDIVA
|
||||||
|
BEGIN
|
||||||
BOOLEAN F_R_ADDIVA
|
PROMPT 2 11 "Addebito IVA"
|
||||||
BEGIN
|
FIELD LF_RCONDV->ADDIVA
|
||||||
PROMPT 2 11 "Addebito IVA"
|
END
|
||||||
FIELD LF_RCONDV->ADDIVA
|
|
||||||
END
|
STRING F_R_CODIVA 4
|
||||||
|
BEGIN
|
||||||
STRING F_R_CODIVA 4
|
PROMPT 31 11 "Codice IVA "
|
||||||
BEGIN
|
FIELD LF_RCONDV->CODIVA
|
||||||
PROMPT 31 11 "Codice IVA "
|
FLAG "U"
|
||||||
FIELD LF_RCONDV->CODIVA
|
USE %IVA
|
||||||
FLAG "U"
|
INPUT CODTAB F_R_CODIVA
|
||||||
USE %IVA
|
DISPLAY "Codice" CODTAB
|
||||||
INPUT CODTAB F_R_CODIVA
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
OUTPUT F_R_CODIVA CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
CHECKTYPE NORMAL
|
||||||
OUTPUT F_R_CODIVA CODTAB
|
END
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
NUMBER F_R_PERCPROVV 5 2
|
||||||
|
BEGIN
|
||||||
NUMBER F_R_PERCPROVV 5 2
|
PROMPT 2 12 "Provvigione % "
|
||||||
BEGIN
|
FIELD LF_RCONDV->PERCPROVV
|
||||||
PROMPT 2 12 "Provvigione % "
|
NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100)
|
||||||
FIELD LF_RCONDV->PERCPROVV
|
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||||||
NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100)
|
END
|
||||||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
|
||||||
END
|
NUMBER F_R_QOM 15 5
|
||||||
|
BEGIN
|
||||||
NUMBER F_R_QOM 15 5
|
PROMPT 2 13 "Q.ta' sconto/omaggio "
|
||||||
BEGIN
|
FIELD LF_RCONDV->QOM
|
||||||
PROMPT 2 13 "Q.ta' sconto/omaggio "
|
END
|
||||||
FIELD LF_RCONDV->QOM
|
|
||||||
END
|
STRING F_R_UMOM 2
|
||||||
|
BEGIN
|
||||||
STRING F_R_UMOM 2
|
PROMPT 47 13 "U.M. q.ta' omaggio "
|
||||||
BEGIN
|
FIELD LF_RCONDV->UMOM
|
||||||
PROMPT 47 13 "U.M. q.ta' omaggio "
|
FLAG "U"
|
||||||
FIELD LF_RCONDV->UMOM
|
USE LF_UMART KEY 2
|
||||||
FLAG "U"
|
JOIN %UMS INTO CODTAB=UM
|
||||||
USE LF_UMART KEY 2
|
INPUT CODART F_R_CODARTOM SELECT
|
||||||
JOIN %UMS INTO CODTAB=UM
|
INPUT UM F_R_UMOM
|
||||||
INPUT CODART F_R_CODARTOM SELECT
|
DISPLAY "U.M." UM
|
||||||
INPUT UM F_R_UMOM
|
DISPLAY "Desccrizione@50" %UMS->S0
|
||||||
DISPLAY "U.M." UM
|
OUTPUT F_R_UMOM UM
|
||||||
DISPLAY "Desccrizione@50" %UMS->S0
|
END
|
||||||
OUTPUT F_R_UMOM UM
|
|
||||||
END
|
NUMBER F_R_QBASE 15 5
|
||||||
|
BEGIN
|
||||||
NUMBER F_R_QBASE 15 5
|
PROMPT 2 14 "Q.ta' base sconto "
|
||||||
BEGIN
|
FIELD LF_RCONDV->QBASE
|
||||||
PROMPT 2 14 "Q.ta' base sconto "
|
END
|
||||||
FIELD LF_RCONDV->QBASE
|
|
||||||
END
|
STRING F_R_CODARTOM 20
|
||||||
|
BEGIN
|
||||||
STRING F_R_CODARTOM 20
|
PROMPT 2 15 "Codice art. omaggio "
|
||||||
BEGIN
|
FIELD LF_RCONDV->CODARTOM
|
||||||
PROMPT 2 15 "Codice art. omaggio "
|
FLAG "U"
|
||||||
FIELD LF_RCONDV->CODARTOM
|
USE LF_ANAGR
|
||||||
FLAG "U"
|
INPUT CODART F_R_CODARTOM
|
||||||
USE LF_ANAGR
|
DISPLAY "Articolo@20" CODART
|
||||||
INPUT CODART F_R_CODARTOM
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Articolo@20" CODART
|
OUTPUT F_R_CODARTOM CODART
|
||||||
DISPLAY "Descrizione@50" DESCR
|
CHECKTYPE NORMAL
|
||||||
OUTPUT F_R_CODARTOM CODART
|
END
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
NUMBER F_R_PROMAGGIO 18 2
|
||||||
|
BEGIN
|
||||||
NUMBER F_R_PROMAGGIO 18 2
|
PROMPT 2 16 "Prezzo omaggio "
|
||||||
BEGIN
|
FIELD LF_RCONDV->PROMAGGIO
|
||||||
PROMPT 2 16 "Prezzo omaggio "
|
END
|
||||||
FIELD LF_RCONDV->PROMAGGIO
|
|
||||||
END
|
//STRINF F_R_CO_CODLOTTO 6
|
||||||
|
//BEGIN
|
||||||
//STRINF F_R_CO_CODLOTTO 6
|
//PROMPT 2 17 "Codice lotto "
|
||||||
//BEGIN
|
//FIELD LF_RCONDV->CODLOTTO
|
||||||
//PROMPT 2 17 "Codice lotto "
|
//FLAG "U"
|
||||||
//FIELD LF_RCONDV->CODLOTTO
|
//END
|
||||||
//FLAG "U"
|
|
||||||
//END
|
BOOLEAN F_R_O_ARTES
|
||||||
|
BEGIN
|
||||||
BOOLEAN F_R_O_ARTES
|
PROMPT 47 17 "Art. in esaurimento"
|
||||||
BEGIN
|
FIELD LF_RCONDV->ARTES
|
||||||
PROMPT 47 17 "Art. in esaurimento"
|
END
|
||||||
FIELD LF_RCONDV->ARTES
|
|
||||||
END
|
ENDPAGE
|
||||||
|
|
||||||
ENDPAGE
|
ENDMASK
|
||||||
|
|
||||||
ENDMASK
|
|
||||||
Loading…
x
Reference in New Issue
Block a user