root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

modifica a decodifica campi maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1988 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-10-23 15:53:14 +00:00
parent c59d3540c2
commit a435ab4110
8 changed files with 1191 additions and 1158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

244
ve/batbgmc.uml
View File

@ -1,122 +1,122 @@
#include "batbgmc.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella gruppi merceologici " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODGRU 3
BEGIN
PROMPT 2 2 "Codice gruppo "
FLAG "U"
FIELD CODTAB[1,3]
KEY 1
USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_CODGRU
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Descrizione gruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT H_DESGRU S0
MESSAGE COPY,H_CODGRU
END
STRING F_CODSGR 2
BEGIN
PROMPT 30 2 "Codice sottogruppo "
FIELD CODTAB[4,5]
FLAGS "U"
KEY 1
USE GMC
INPUT CODTAB[1,3] F_CODGRU
INPUT CODTAB[4,5] F_CODSGR
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
DISPLAY "Descrizione sottogruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT F_CODSGR CODTAB[4,5]
OUTPUT F_DESSGR S0
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
GROUP GR_SEARCH
END
STRING H_CODGRU 3
BEGIN
FLAGS "H"
COPY USE F_CODGRU
INPUT CODTAB F_CODGRU
COPY DISPLAY F_CODGRU
OUTPUT F_DESGRU S0
CHECKTYPE NORMAL
END
STRING F_DESGRU 50
BEGIN
PROMPT 2 4 "Descrizione gruppo "
FLAGS "D"
END
STRING F_DESSGR 50
BEGIN
PROMPT 2 8 "Descrizione sottogruppo "
FIELD S0
USE GMC KEY 2
KEY 2
INPUT S0 F_DESSGR
DISPLAY "Descrizione sottogruppo@50" S0
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
COPY OUTPUT F_CODSGR
MESSAGE K_TAB,F_CODSGR
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
STRING H_DESGRU 50
BEGIN
PROMPT 2 4 "Descrizione gruppo "
FIELD S0
KEY 2
USE GMC KEY 2
INPUT S0 H_DESGRU
DISPLAY "Descrizione gruppo@50" S0
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
COPY OUTPUT F_CODSGR
OUTPUT H_DESGRU S0
MESSAGE K_TAB,F_CODSGR
CHECKTYPE REQUIRED
WARNING "Manca la descrizione del gruppo"
END
STRING F_CODAGGDOC 2
BEGIN
PROMPT 2 8 "Codice aggiornamento documenti "
FIELD LIC->S4
END
STRING F_CODAGGOMA 2
BEGIN
PROMPT 2 9 "Codice aggiornamento omaggi "
FIELD LIC->S5
END
STRING F_CODAGGSCO 2
BEGIN
PROMPT 2 10 "Codice aggiornamento sconti "
FIELD LIC->S6
END
ENDPAGE
ENDMASK
#include "batbgmc.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella gruppi merceologici " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODGRU 3
BEGIN
PROMPT 2 2 "Codice gruppo "
FLAG "U"
FIELD CODTAB[1,3]
KEY 1
USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_CODGRU
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Descrizione gruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT H_DESGRU S0
MESSAGE COPY,H_CODGRU
END
STRING F_CODSGR 2
BEGIN
PROMPT 30 2 "Codice sottogruppo "
FIELD CODTAB[4,5]
FLAGS "U"
KEY 1
USE GMC
INPUT CODTAB[1,3] F_CODGRU
INPUT CODTAB[4,5] F_CODSGR
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
DISPLAY "Descrizione sottogruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT F_CODSGR CODTAB[4,5]
OUTPUT F_DESSGR S0
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
GROUP GR_SEARCH
END
STRING H_CODGRU 3
BEGIN
FLAGS "H"
COPY USE F_CODGRU
INPUT CODTAB F_CODGRU
COPY DISPLAY F_CODGRU
OUTPUT F_DESGRU S0
CHECKTYPE NORMAL
END
STRING F_DESGRU 50
BEGIN
PROMPT 2 4 "Descrizione gruppo "
FLAGS "D"
END
STRING F_DESSGR 50
BEGIN
PROMPT 2 8 "Descrizione sottogruppo "
FIELD S0
USE GMC KEY 2
KEY 2
INPUT S0 F_DESSGR
DISPLAY "Descrizione sottogruppo@50" S0
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
COPY OUTPUT F_CODSGR
MESSAGE K_TAB,F_CODSGR
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
STRING H_DESGRU 50
BEGIN
PROMPT 2 4 "Descrizione gruppo "
FIELD S0
KEY 2
USE GMC KEY 2
INPUT S0 H_DESGRU
DISPLAY "Descrizione gruppo@50" S0
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
COPY OUTPUT F_CODSGR
OUTPUT H_DESGRU S0
MESSAGE K_TAB,F_CODSGR
CHECKTYPE REQUIRED
WARNING "Manca la descrizione del gruppo"
END
STRING F_CODAGGDOC 2
BEGIN
PROMPT 2 8 "Codice aggiornamento documenti "
FIELD LIC->S4
END
STRING F_CODAGGOMA 2
BEGIN
PROMPT 2 9 "Codice aggiornamento omaggi "
FIELD LIC->S5
END
STRING F_CODAGGSCO 2
BEGIN
PROMPT 2 10 "Codice aggiornamento sconti "
FIELD LIC->S6
END
ENDPAGE
ENDMASK

206
ve/batbrfa.uml
View File

@ -1,103 +1,103 @@
#include "batbrfa.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING FLD_TABRFA_CODTAB 5
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
USE RFA
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABRFA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABRFA_CODTAB CODTAB
OUTPUT FLD_TABRFA_S0 S0
KEY 1
FLAGS "U"
END
STRING FLD_TABRFA_S0 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE RFA KEY 2
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
INPUT S0 FLD_TABRFA_S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABRFA_CODTAB
KEY 2
END
STRING FLD_TABRFA_S7 2
BEGIN
PROMPT 2 8 "Unita' di misura "
FIELD S7
END
STRING FLD_TABRFA_S8 1
BEGIN
PROMPT 2 10 "Classe fiscale "
FIELD S8
USE ASF
INPUT CODTAB FLD_TABRFA_S8
DISPLAY "Cl. Fisc." CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT FLD_TABRFA_S8 CODTAB
OUTPUT FLD_DESCFA S0
CHECKTYPE NORMAL
END
STRING FLD_DESCFA 30
BEGIN
PROMPT 25 10 ""
FLAG "D"
END
NUMBER FLD_TABRFA_R0 6 2
BEGIN
PROMPT 2 12 "Perc. ricarico medio "
FIELD R0
END
NUMBER FLD_TABRFA_R1 12 2
BEGIN
PROMPT 2 14 "Costo minimo "
FIELD R1
END
NUMBER FLD_TABRFA_R2 12 2
BEGIN
PROMPT 45 14 "massimo "
FIELD R2
END
LIST FLD_TABRFA_I0 1 30
BEGIN
PROMPT 2 16 "Tipo costo "
FIELD I0
HELP "Inserire il tipo di costo"
ITEM "1|Costo medio annuale"
ITEM "2|Costo ultimi 3 mesi"
ITEM "3|Costo ultimo"
ITEM "4|Costo standard"
ITEM "5|Maggiore ultimi due costi"
ITEM "6|Costo massimo d'acquisto"
ITEM "7|Costo minimo d'acquisto"
END
ENDPAGE
ENDMASK
#include "batbrfa.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING FLD_TABRFA_CODTAB 5
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
USE RFA
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABRFA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABRFA_CODTAB CODTAB
OUTPUT FLD_TABRFA_S0 S0
KEY 1
FLAGS "U"
END
STRING FLD_TABRFA_S0 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE RFA KEY 2
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
INPUT S0 FLD_TABRFA_S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABRFA_CODTAB
KEY 2
END
STRING FLD_TABRFA_S7 2
BEGIN
PROMPT 2 8 "Unita' di misura "
FIELD S7
END
STRING FLD_TABRFA_S8 1
BEGIN
PROMPT 2 10 "Classe fiscale "
FIELD S8
USE ASF
INPUT CODTAB FLD_TABRFA_S8
DISPLAY "Cl. Fisc." CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT FLD_TABRFA_S8 CODTAB
OUTPUT FLD_DESCFA S0
CHECKTYPE NORMAL
END
STRING FLD_DESCFA 30
BEGIN
PROMPT 25 10 ""
FLAG "D"
END
NUMBER FLD_TABRFA_R0 6 2
BEGIN
PROMPT 2 12 "Perc. ricarico medio "
FIELD R0
END
NUMBER FLD_TABRFA_R1 12 2
BEGIN
PROMPT 2 14 "Costo minimo "
FIELD R1
END
NUMBER FLD_TABRFA_R2 12 2
BEGIN
PROMPT 45 14 "massimo "
FIELD R2
END
LIST FLD_TABRFA_I0 1 30
BEGIN
PROMPT 2 16 "Tipo costo "
FIELD I0
HELP "Inserire il tipo di costo"
ITEM "1|Costo medio annuale"
ITEM "2|Costo ultimi 3 mesi"
ITEM "3|Costo ultimo"
ITEM "4|Costo standard"
ITEM "5|Maggiore ultimi due costi"
ITEM "6|Costo massimo d'acquisto"
ITEM "7|Costo minimo d'acquisto"
END
ENDPAGE
ENDMASK

1
ve/ve2100d.uml
View File

@ -37,7 +37,6 @@ STRING F_D_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD LF_SCONTI->DESCR
FLAG "D"
END
GROUPBOX DLG_NULL 75 7

19
ve/ve2100i.h
View File

@ -1,7 +1,12 @@
#define F_I_RICERCA 131
#define F_I_TIPO 132
#define F_I_CATVEN 133
#define F_I_SCCLIENTI 134
#define F_I_ZONE 135
#define F_I_CONDPAG 136
#define F_I_SCONTO 137
#define F_I_RICERCA 131
#define F_I_TIPO 132
#define F_I_CATVEN 133
#define F_I_SCCLIENTI 134
#define F_I_ZONE 135
#define F_I_CONDPAG 136
#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
View File

@ -1,110 +1,140 @@
#include <lffiles.h>
#include "ve2100i.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Archivio sconti incondizionati " 11 60 14
LISTA F_I_TIPO 1
BEGIN
PROMPT 100 100 ""
FIELD LF_SCONTI->TIPO
FLAG "H"
ITEM "I|Sconti incondizionati"
END
STRING F_I_RICERCA 1
BEGIN
PROMPT 100 100 ""
FLAG "H"
USE LF_SCONTI
INPUT TIPO F_I_TIPO SELECT
INPUT CODART[1,2] F_I_CATVEN
INPUT CODART[3,4] F_I_SCCLIENTI
INPUT CODART[5,6] F_I_ZONE
INPUT CODART[7,10] F_I_CONDPAG
DISPLAY "CV" CODART[1,2]
DISPLAY "SC" CODART[3,4]
DISPLAY "ZN" CODART[5,6]
DISPLAY "C.P." CODART[7,10]
DISPLAY "Sconto@25" SCONTO
OUTPUT F_I_CATVEN CODART[1,2]
OUTPUT F_I_SCCLIENTI CODART[3,4]
OUTPUT F_I_ZONE CODART[5,6]
OUTPUT F_I_CONDPAG CODART[7,10]
OUTPUT F_I_SCONTO SCONTO
END
STRING F_I_CATVEN 2
BEGIN
PROMPT 5 2 "Categoria vendite "
FIELD LF_SCONTI->CODART[1,2]
FLAG "U"
KEY 1
USE %CVE
INPUT CODTAB F_I_CATVEN
DISPLAY "Cat. vend." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_CATVEN CODTAB
CHECKTYPE REQUIRED
END
STRING F_I_SCCLIENTI 2
BEGIN
PROMPT 8 4 "Sconto cliente "
FIELD LF_SCONTI->CODART[3,4]
FLAG "U"
KEY 1
USE %SCO
INPUT CODTAB F_I_SCCLIENTI
DISPLAY "Sc. Cliente" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_SCCLIENTI CODTAB
CHECKTYPE REQUIRED
END
STRING F_I_ZONE 2
BEGIN
PROMPT 18 6 "Zona "
FIELD LF_SCONTI->CODART[5,6]
FLAG "U"
KEY 1
USE %ZON
INPUT CODTAB F_I_ZONE
DISPLAY "Zona" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_ZONE CODTAB
CHECKTYPE REQUIRED
END
STRING F_I_CONDPAG 4
BEGIN
PROMPT 2 8 "Condizione pagamento "
FIELD LF_SCONTI->CODART[7,10]
FLAG "U"
KEY 1
USE %CPG
INPUT CODTAB F_I_CONDPAG
DISPLAY "Cond. pag." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_CONDPAG CODTAB
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 36 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
#include <lffiles.h>
#include "ve2100i.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Archivio sconti incondizionati " 11 60 14
LISTA F_I_TIPO 1
BEGIN
PROMPT 100 100 ""
FIELD LF_SCONTI->TIPO
FLAG "H"
ITEM "I|Sconti incondizionati"
END
STRING F_I_RICERCA 1
BEGIN
PROMPT 100 100 ""
FLAG "H"
USE LF_SCONTI
INPUT TIPO F_I_TIPO SELECT
INPUT CODART[1,2] F_I_CATVEN
INPUT CODART[3,4] F_I_SCCLIENTI
INPUT CODART[5,6] F_I_ZONE
INPUT CODART[7,10] F_I_CONDPAG
DISPLAY "CV" CODART[1,2]
DISPLAY "SC" CODART[3,4]
DISPLAY "ZN" CODART[5,6]
DISPLAY "C.P." CODART[7,10]
DISPLAY "Sconto@25" SCONTO
OUTPUT F_I_CATVEN CODART[1,2]
OUTPUT F_I_SCCLIENTI CODART[3,4]
OUTPUT F_I_ZONE CODART[5,6]
OUTPUT F_I_CONDPAG CODART[7,10]
OUTPUT F_I_SCONTO SCONTO
END
STRING F_I_CATVEN 2
BEGIN
PROMPT 2 2 "Cat. vendite "
FIELD LF_SCONTI->CODART[1,2]
FLAG "U"
KEY 1
USE %CVE
INPUT CODTAB F_I_CATVEN
DISPLAY "Cat. vend." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_CATVEN CODTAB
OUTPUT F_I_DESVEN S0
CHECKTYPE REQUIRED
END
STRING F_I_DESVEN 50
BEGIN
PROMPT 24 2 ""
FLAG "D"
END
STRING F_I_SCCLIENTI 2
BEGIN
PROMPT 2 4 "Sconto cliente "
FIELD LF_SCONTI->CODART[3,4]
FLAG "U"
KEY 1
USE LF_SCONTI
INPUT TIPO "D"
INPUT CODCAT F_I_SCCLIENTI
DISPLAY "Sc. Cliente" CODCAT
DISPLAY "Descrizione@50" DESCR
OUTPUT F_I_SCCLIENTI CODCAT
OUTPUT F_I_DESSCCLI DESCR
CHECKTYPE REQUIRED
END
STRING F_I_DESSCCLI 50
BEGIN
PROMPT 24 4 ""
FLAG "D"
END
STRING F_I_ZONE 2
BEGIN
PROMPT 2 6 "Zona "
FIELD LF_SCONTI->CODART[5,6]
FLAG "U"
KEY 1
USE %ZON
INPUT CODTAB F_I_ZONE
DISPLAY "Zona" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_ZONE CODTAB
OUTPUT F_I_DESZONE S0
CHECKTYPE REQUIRED
END
STRING F_I_DESZONE 50
BEGIN
PROMPT 24 6 ""
FLAG "D"
END
STRING F_I_CONDPAG 4
BEGIN
PROMPT 2 8 "Cond. pagam. "
FIELD LF_SCONTI->CODART[7,10]
FLAG "U"
KEY 1
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
View File

@ -1,310 +1,310 @@
#include <lffiles.h>
#include "ve2200x.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Archivio condizioni di vendita " 0 0 70 20
STRING F_TIPO 1
BEGIN
PROMPT 100 100 ""
FIELD LF_CONDV->TIPO
FLAG "DUP"
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
OUTPUT F_L_DESVEN S0
CHECKTYPE REQUIRED
END
// campo riservato ai listini
STRING F_L_DESVEN 50
BEGIN
PROMPT 22 2 ""
FLAG "D"
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 2 3 "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
OUTPUT F_C_DESCF RAGSOC
CHECKTYPE REQUIRED
END
// campo riservato ai contratti
STRING F_C_DESCF 50
BEGIN
PROMPT 22 3 ""
FLAG "D"
END
// campo riservato ai listini
STRING F_L_COD 3
BEGIN
PROMPT 2 4 "Cod. 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 "Contratto N. "
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 "Cod. 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
GROUPBOX DLG_NULL 75 8
BEGIN
PROMPT 0 0 ""
FLAG "R"
END
STRING F_DESCR 50
BEGIN
PROMPT 2 5 "Descrizione "
FIELD LF_CONDV->DESCR
END
STRING F_CODVAL 5
BEGIN
PROMPT 2 8 "Valuta "
FIELD LF_CONDV->CODVAL
FLAG "U"
USE %VAL
INPUT CODTAB F_CODVAL
DISPLAY "Valuta" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAL CODTAB
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
END
NUMBER F_CAMBIO 15 5
BEGIN
PROMPT 21 8 "Cambio "
FIELD LF_CONDV->CAMBIO
END
DATA F_DATACAM
BEGIN
PROMPT 49 8 "Data "
FIELD LF_CONDV->DATACAM
END
DATA F_VALIN
BEGIN
PROMPT 2 10 "Inizio validita` "
FIELD LF_CONDV->VALIN
END
DATA F_VALFIN
BEGIN
PROMPT 39 10 "Fine validita` "
FIELD LF_CONDV->VALFIN
END
BOOLEAN F_IMPLORDI
BEGIN
PROMPT 2 12 "Importi lordi"
FIELD LF_CONDV->IMPLORDI
END
BOOLEAN F_GESTUM
BEGIN
PROMPT 34 12 "Gestione unita` di misura"
FIELD LF_CONDV->GESTUM
END
BOOLEAN F_GESTSCAGL
BEGIN
PROMPT 2 13 "Gestione scaglioni"
FIELD LF_CONDV->GESTSCAGL
END
BOOLEAN F_GESTSCO
BEGIN
PROMPT 34 13 "Gestione sconti/omaggi"
FIELD LF_CONDV->GESTSCO
END
BOOLEAN F_SCONST
BEGIN
PROMPT 2 14 "Gestione sconti standard"
FIELD LF_CONDV->SCONST
END
// campo riservato ai contratti
BOOLEAN F_C_OBBLIG
BEGIN
PROMPT 34 14 "Contratto obbligatorio"
FIELD LF_CONDV->OBBLIG
END
LIST F_SEQRIC_1 10
BEGIN
PROMPT 2 15 "Sequenza ricerca "
FIELD LF_CONDV->SEQRIC[1,1]
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
END
LIST F_SEQRIC_2 10
BEGIN
PROMPT 34 15 ""
FIELD LF_CONDV->SEQRIC[2,2]
ITEM "-|Nessuno"
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END
LIST F_SEQRIC_3 10
BEGIN
PROMPT 49 15 ""
FIELD LF_CONDV->SEQRIC[3,3]
ITEM "-|Nessuno"
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
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"
END
LIST F_SEQRIC_4 10
BEGIN
PROMPT 64 15 ""
FIELD LF_CONDV->SEQRIC[4,4]
ITEM "-|Nessuno"
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
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"
END
// campo riservato ai listini
STRING F_LC_CODSUCC 3
BEGIN
PROMPT 2 16 "Listino succ. "
FIELD LF_CONDV->CODLISSUCC
FLAG "U"
USE LF_CONDV
INPUT TIPO F_TIPO SELECT
INPUT CATVEN F_L_CATVEN SELECT
//INPUT TIPOCF F_C_TIPOCF SELECT
//INPUT CODCF F_C_CODCF SELECT
INPUT COD F_LC_CODSUCC
DISPLAY "C.V." CATVEN
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
OUTPUT F_LC_CODSUCC COD
OUTPUT F_LC_DESSUCC DESCR
CHECKTYPE NORMAL
END
// campo riservato ai listini
STRING F_LC_DESSUCC 50
BEGIN
PROMPT 24 16 ""
FLAG "D"
END
// bottone di lancio dell'applicazione delle righe
BUTTON BTN_RIGHE 63 1
BEGIN
PROMPT 0 -1 "Righe di questa testata"
MESSAGE K_F5
END
ENDPAGE
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#include <lffiles.h>
#include "ve2200x.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Archivio condizioni di vendita " 0 0 70 20
STRING F_TIPO 1
BEGIN
PROMPT 100 100 ""
FIELD LF_CONDV->TIPO
FLAG "DUP"
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
OUTPUT F_L_DESVEN S0
CHECKTYPE REQUIRED
END
// campo riservato ai listini
STRING F_L_DESVEN 50
BEGIN
PROMPT 22 2 ""
FLAG "D"
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 2 3 "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
OUTPUT F_C_DESCF RAGSOC
CHECKTYPE REQUIRED
END
// campo riservato ai contratti
STRING F_C_DESCF 50
BEGIN
PROMPT 22 3 ""
FLAG "D"
END
// campo riservato ai listini
STRING F_L_COD 3
BEGIN
PROMPT 2 4 "Cod. 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 "Contratto N. "
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 "Cod. 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
GROUPBOX DLG_NULL 75 8
BEGIN
PROMPT 0 0 ""
FLAG "R"
END
STRING F_DESCR 50
BEGIN
PROMPT 2 5 "Descrizione "
FIELD LF_CONDV->DESCR
END
STRING F_CODVAL 5
BEGIN
PROMPT 2 8 "Valuta "
FIELD LF_CONDV->CODVAL
FLAG "U"
USE %VAL
INPUT CODTAB F_CODVAL
DISPLAY "Valuta" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAL CODTAB
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
END
NUMBER F_CAMBIO 15 5
BEGIN
PROMPT 21 8 "Cambio "
FIELD LF_CONDV->CAMBIO
END
DATA F_DATACAM
BEGIN
PROMPT 49 8 "Data "
FIELD LF_CONDV->DATACAM
END
DATA F_VALIN
BEGIN
PROMPT 2 10 "Inizio validita` "
FIELD LF_CONDV->VALIN
END
DATA F_VALFIN
BEGIN
PROMPT 39 10 "Fine validita` "
FIELD LF_CONDV->VALFIN
END
BOOLEAN F_IMPLORDI
BEGIN
PROMPT 2 12 "Importi lordi"
FIELD LF_CONDV->IMPLORDI
END
BOOLEAN F_GESTUM
BEGIN
PROMPT 34 12 "Gestione unita` di misura"
FIELD LF_CONDV->GESTUM
END
BOOLEAN F_GESTSCAGL
BEGIN
PROMPT 2 13 "Gestione scaglioni"
FIELD LF_CONDV->GESTSCAGL
END
BOOLEAN F_GESTSCO
BEGIN
PROMPT 34 13 "Gestione sconti/omaggi"
FIELD LF_CONDV->GESTSCO
END
BOOLEAN F_SCONST
BEGIN
PROMPT 2 14 "Gestione sconti standard"
FIELD LF_CONDV->SCONST
END
// campo riservato ai contratti
BOOLEAN F_C_OBBLIG
BEGIN
PROMPT 34 14 "Contratto obbligatorio"
FIELD LF_CONDV->OBBLIG
END
LIST F_SEQRIC_1 10
BEGIN
PROMPT 2 15 "Sequenza ricerca "
FIELD LF_CONDV->SEQRIC[1,1]
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
END
LIST F_SEQRIC_2 10
BEGIN
PROMPT 34 15 ""
FIELD LF_CONDV->SEQRIC[2,2]
ITEM "-|Nessuno"
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END
LIST F_SEQRIC_3 10
BEGIN
PROMPT 49 15 ""
FIELD LF_CONDV->SEQRIC[3,3]
ITEM "-|Nessuno"
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
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"
END
LIST F_SEQRIC_4 10
BEGIN
PROMPT 64 15 ""
FIELD LF_CONDV->SEQRIC[4,4]
ITEM "-|Nessuno"
ITEM "A|Articoli"
ITEM "G|Gruppo M."
ITEM "S|Sottogr.M."
ITEM "R|Ragg.fisc."
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"
END
// campo riservato ai listini
STRING F_LC_CODSUCC 3
BEGIN
PROMPT 2 16 "Listino succ. "
FIELD LF_CONDV->CODLISSUCC
FLAG "U"
USE LF_CONDV
INPUT TIPO F_TIPO SELECT
INPUT CATVEN F_L_CATVEN SELECT
//INPUT TIPOCF F_C_TIPOCF SELECT
//INPUT CODCF F_C_CODCF SELECT
INPUT COD F_LC_CODSUCC
DISPLAY "C.V." CATVEN
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
OUTPUT F_LC_CODSUCC COD
OUTPUT F_LC_DESSUCC DESCR
CHECKTYPE NORMAL
END
// campo riservato ai listini
STRING F_LC_DESSUCC 50
BEGIN
PROMPT 24 16 ""
FLAG "D"
END
// bottone di lancio dell'applicazione delle righe
BUTTON BTN_RIGHE 63 1
BEGIN
PROMPT 0 -1 "Righe di questa testata"
MESSAGE K_F5
END
ENDPAGE
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------

92
ve/ve2300x.h
View File

@ -1,46 +1,46 @@
// campi comuni a tutti gli archivi
#define F_R_TIPO 111
#define F_R_TIPORIGA 112
#define F_R_CODRIGA_A 113
#define F_R_CODRIGA_G 114
#define F_R_CODRIGA_R 115
#define F_R_UM 133
#define F_R_NSCAGL 116
#define F_R_QLIM 117
#define F_R_PREZZO 118
#define F_R_SCONTO 119
#define F_R_ADDIVA 120
#define F_R_CODIVA 121
#define F_R_PERCPROVV 122
#define F_R_QOM 123
#define F_R_QBASE 124
#define F_R_CODARTOM 125
#define F_R_PROMAGGIO 126
#define F_R_UMOM 127
#define F_R_CODRIGA_S 128
#define F_R_DESRIGA_A 161
#define F_R_DESRIGA_G 162
#define F_R_DESRIGA_R 163
#define F_R_DESRIGA_S 163
// campi riservati ai listini
#define F_R_L_CATVEN 131
#define F_R_L_COD 132
#define F_R_L_RICERCA 134
#define F_R_L_DESVEN 135
#define F_R_L_DES 136
// campi riservati ai contratti
#define F_R_C_TIPOCF 141
#define F_R_C_CODCF 142
#define F_R_C_COD 143
#define F_R_C_RICERCA 144
#define F_R_C_DESCF 145
#define F_R_C_DES 146
// campi riservati alle offerte
#define F_R_O_COD 151
#define F_R_O_RICERCA 152
#define F_R_O_ARTES 153
#define F_R_O_DES 154
// campi comuni a tutti gli archivi
#define F_R_TIPO 111
#define F_R_TIPORIGA 112
#define F_R_CODRIGA_A 113
#define F_R_CODRIGA_G 114
#define F_R_CODRIGA_R 115
#define F_R_UM 133
#define F_R_NSCAGL 116
#define F_R_QLIM 117
#define F_R_PREZZO 118
#define F_R_SCONTO 119
#define F_R_ADDIVA 120
#define F_R_CODIVA 121
#define F_R_PERCPROVV 122
#define F_R_QOM 123
#define F_R_QBASE 124
#define F_R_CODARTOM 125
#define F_R_PROMAGGIO 126
#define F_R_UMOM 127
#define F_R_CODRIGA_S 128
#define F_R_DESRIGA_A 161
#define F_R_DESRIGA_G 162
#define F_R_DESRIGA_R 163
#define F_R_DESRIGA_S 163
// campi riservati ai listini
#define F_R_L_CATVEN 131
#define F_R_L_COD 132
#define F_R_L_RICERCA 134
#define F_R_L_DESVEN 135
#define F_R_L_DES 136
// campi riservati ai contratti
#define F_R_C_TIPOCF 141
#define F_R_C_CODCF 142
#define F_R_C_COD 143
#define F_R_C_RICERCA 144
#define F_R_C_DESCF 145
#define F_R_C_DES 146
// campi riservati alle offerte
#define F_R_O_COD 151
#define F_R_O_RICERCA 152
#define F_R_O_ARTES 153
#define F_R_O_DES 154

917
ve/ve2300x.uml
View File

@ -1,459 +1,458 @@
#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 "DUP"
KEY 1
CHECKTYPE REQUIRED
END
STRING F_R_L_CATVEN 2 // campo riservato ai listini
BEGIN
PROMPT 2 2 "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
OUTPUT F_R_L_DESVEN S0
CHECKTYPE REQUIRED
END
STRING F_R_L_DESVEN 50 // campo riservato ai listini
BEGIN
PROMPT 23 2 ""
FLAG "D"
END
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
BEGIN
PROMPT 2 1 "Tipo C/F "
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 2 2 "Cod. C/F "
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
OUTPUT F_R_C_DESCF RAGSOC
CHECKTYPE REQUIRED
END
STRING F_R_C_DESCF 50 // campo riservato ai contratti
BEGIN
PROMPT 23 2 ""
FLAG "D"
END
STRING F_R_L_COD 3 // campo riservato ai listini
BEGIN
PROMPT 2 3 "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
OUTPUT F_R_L_DES DESCR
CHECKTYPE REQUIRED
END
STRING F_R_L_DES 50 // campo riservato ai contratti
BEGIN
PROMPT 23 3 ""
FLAG "D"
END
NUMBER F_R_C_COD 3 // campo riservato ai contratti
BEGIN
PROMPT 2 3 "Contratto N. "
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
OUTPUT F_R_C_DES DESCR
CHECKTYPE REQUIRED
END
STRING F_R_C_DES 50 // campo riservato ai listini
BEGIN
PROMPT 23 3 ""
FLAG "D"
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
STRING F_R_O_DES 50 // campo riservato alle offerte
BEGIN
PROMPT 2 3 "Descr. offerta "
FLAG "D"
END
LIST F_R_TIPORIGA 14
BEGIN
PROMPT 2 4 "Tipo riga "
FIELD LF_RCONDV->TIPORIGA
FLAG "P"
KEY 1
ITEM "A|Articolo"
ITEM "G|Gruppo merc."
ITEM "S|Sottogr. merc."
ITEM "R|Ragg. fiscale"
END
STRING F_R_CODRIGA_A 20
BEGIN
PROMPT 37 4 "Codice articolo "
FIELD LF_RCONDV->CODRIGA
FLAG "U"
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
OUTPUT F_R_DESRIGA_A DESCR
CHECKTYPE REQUIRED
END
STRING F_R_DESRIGA_A 50
BEGIN
PROMPT 2 5 "Descrizione articolo "
FLAG "D"
END
STRING F_R_CODRIGA_G 3
BEGIN
PROMPT 2 5 "Gruppo merc. "
FIELD LF_RCONDV->CODRIGA[1,3]
FLAG "U"
KEY 1
USE %GMC
INPUT CODTAB[1,3] F_R_CODRIGA_G
DISPLAY "Gr. merc." CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_G CODTAB[1,3]
OUTPUT F_R_DESRIGA_G S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
END
STRING F_R_DESRIGA_G 50
BEGIN
PROMPT 23 5 ""
FLAG "D"
END
STRING F_R_CODRIGA_S 2
BEGIN
PROMPT 2 5 "Sottogr. merc. "
FIELD LF_RCONDV->CODRIGA[1,2]
FLAG "U"
KEY 1
USE %GMC
INPUT CODTAB[4,5] F_R_CODRIGA_S
DISPLAY "Sottogr. merc." CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_S CODTAB[4,5]
OUTPUT F_R_DESRIGA_S S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
END
STRING F_R_DESRIGA_S 50
BEGIN
PROMPT 23 5 ""
FLAG "D"
END
STRING F_R_CODRIGA_R 2
BEGIN
PROMPT 2 5 "Ragg.fiscale "
FIELD LF_RCONDV->CODRIGA[1,2]
FLAG "U"
KEY 1
USE %RFA
INPUT CODTAB F_R_CODRIGA_R
DISPLAY "Ragg. fisc." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_R CODTAB
OUTPUT F_R_DESRIGA_R S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
END
STRING F_R_DESRIGA_R 50
BEGIN
PROMPT 23 5 ""
FLAG "D"
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_UM 2
BEGIN
PROMPT 28 7 "U.M. "
FIELD LF_RCONDV->UM
FLAG "U"
KEY 1
USE LF_UMART KEY 2
JOIN %UMS INTO CODTAB=UM
INPUT CODART F_R_CODRIGA_A SELECT
INPUT UM F_R_UM
DISPLAY "U.M." UM
DISPLAY "Desccrizione@50" %UMS->S0
OUTPUT F_R_UM UM
CHECKTYPE REQUIRED
END
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
BEGIN
PROMPT 100 100 ""
FLAG "D"
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT CATVEN F_R_L_CATVEN
//INPUT COD F_R_L_COD
INPUT TIPORIGA F_R_TIPORIGA
INPUT CODRIGA F_R_CODRIGA_A
INPUT UM F_R_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_R CODRIGA[1,2]
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_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 ""
FLAG "D"
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT TIPOCF F_R_C_TIPOCF
//INPUT CODCF F_R_C_CODCF
//INPUT COD F_R_C_COD
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_R CODRIGA[1,2]
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A 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 ""
FLAG "D"
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT COD F_R_O_COD
INPUT TIPORIGA F_R_TIPORIGA
INPUT CODRIGA F_R_CODRIGA_A
INPUT UM F_R_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_R CODRIGA[1,2]
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_UM UM
OUTPUT F_R_NSCAGL NSCAGL
END
GROUPBOX DLG_NULL 78 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
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
#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 "DUP"
KEY 1
CHECKTYPE REQUIRED
END
STRING F_R_L_CATVEN 2 // campo riservato ai listini
BEGIN
PROMPT 2 2 "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
OUTPUT F_R_L_DESVEN S0
CHECKTYPE REQUIRED
END
STRING F_R_L_DESVEN 50 // campo riservato ai listini
BEGIN
PROMPT 25 2 ""
FLAG "D"
END
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
BEGIN
PROMPT 2 1 "Tipo C/F "
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 2 2 "Cod. C/F "
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
OUTPUT F_R_C_DESCF RAGSOC
CHECKTYPE REQUIRED
END
STRING F_R_C_DESCF 50 // campo riservato ai contratti
BEGIN
PROMPT 25 2 ""
FLAG "D"
END
STRING F_R_L_COD 3 // campo riservato ai listini
BEGIN
PROMPT 2 3 "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
OUTPUT F_R_L_DES DESCR
CHECKTYPE REQUIRED
END
STRING F_R_L_DES 50 // campo riservato ai contratti
BEGIN
PROMPT 25 3 ""
FLAG "D"
END
NUMBER F_R_C_COD 3 // campo riservato ai contratti
BEGIN
PROMPT 2 3 "Contratto N. "
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
OUTPUT F_R_C_DES DESCR
CHECKTYPE REQUIRED
END
STRING F_R_C_DES 50 // campo riservato ai listini
BEGIN
PROMPT 25 3 ""
FLAG "D"
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
STRING F_R_O_DES 50 // campo riservato alle offerte
BEGIN
PROMPT 2 3 "Descr. offerta "
FLAG "D"
END
LIST F_R_TIPORIGA 14
BEGIN
PROMPT 2 4 "Tipo riga "
FIELD LF_RCONDV->TIPORIGA
FLAG "P"
KEY 1
ITEM "A|Articolo"
ITEM "G|Gruppo merc."
ITEM "S|Sottogr. merc."
ITEM "R|Ragg. fiscale"
END
STRING F_R_CODRIGA_A 20
BEGIN
PROMPT 37 4 "Codice articolo "
FIELD LF_RCONDV->CODRIGA
FLAG "U"
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
OUTPUT F_R_DESRIGA_A DESCR
CHECKTYPE REQUIRED
END
STRING F_R_DESRIGA_A 50
BEGIN
PROMPT 2 5 "Descrizione articolo "
FLAG "D"
END
STRING F_R_CODRIGA_G 3
BEGIN
PROMPT 2 5 "Gruppo merc. "
FIELD LF_RCONDV->CODRIGA[1,3]
FLAG "U"
KEY 1
USE GMC SELECT CODTAB[4,5] == ""
INPUT CODTAB[1,3] F_R_CODRIGA_G
DISPLAY "Gr. merc." CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_G CODTAB[1,3]
OUTPUT F_R_DESRIGA_G S0
CHECKTYPE REQUIRED
END
STRING F_R_DESRIGA_G 50
BEGIN
PROMPT 25 5 ""
FLAG "D"
END
STRING F_R_CODRIGA_S 5
BEGIN
PROMPT 2 5 "Sottogr.mer. "
FIELD LF_RCONDV->CODRIGA[1,5]
FLAG "U"
KEY 1
USE GMC SELECT CODTAB[4,5] != ""
INPUT CODTAB F_R_CODRIGA_S
DISPLAY "Gruppo merc." CODTAB[1,3]
DISPLAY "Sottogr. merc." CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_S CODTAB
OUTPUT F_R_DESRIGA_S S0
CHECKTYPE REQUIRED
END
STRING F_R_DESRIGA_S 50
BEGIN
PROMPT 25 5 ""
FLAG "D"
END
STRING F_R_CODRIGA_R 5
BEGIN
PROMPT 2 5 "Ragg.fiscale "
FIELD LF_RCONDV->CODRIGA[1,5]
FLAG "U"
KEY 1
USE RFA
INPUT CODTAB F_R_CODRIGA_R
DISPLAY "Ragg. fisc." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_R CODTAB
OUTPUT F_R_DESRIGA_R S0
CHECKTYPE REQUIRED
END
STRING F_R_DESRIGA_R 50
BEGIN
PROMPT 25 5 ""
FLAG "D"
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_UM 2
BEGIN
PROMPT 28 7 "U.M. "
FIELD LF_RCONDV->UM
FLAG "U"
KEY 1
USE LF_UMART KEY 2
JOIN %UMS INTO CODTAB=UM
INPUT CODART F_R_CODRIGA_A SELECT
INPUT UM F_R_UM
DISPLAY "U.M." UM
DISPLAY "Desccrizione@50" %UMS->S0
OUTPUT F_R_UM UM
CHECKTYPE REQUIRED
END
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
BEGIN
PROMPT 100 100 ""
FLAG "D"
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT CATVEN F_R_L_CATVEN
//INPUT COD F_R_L_COD
INPUT TIPORIGA F_R_TIPORIGA
INPUT CODRIGA F_R_CODRIGA_A
INPUT UM F_R_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_R CODRIGA[1,5]
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_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 ""
FLAG "D"
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT TIPOCF F_R_C_TIPOCF
//INPUT CODCF F_R_C_CODCF
//INPUT COD F_R_C_COD
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_R CODRIGA[1,5]
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A 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 ""
FLAG "D"
USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT COD F_R_O_COD
INPUT TIPORIGA F_R_TIPORIGA
INPUT CODRIGA F_R_CODRIGA_A
INPUT UM F_R_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_R CODRIGA[1,5]
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_UM UM
OUTPUT F_R_NSCAGL NSCAGL
END
GROUPBOX DLG_NULL 78 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
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