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

Correzioni di pg

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2675 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-03-08 09:55:39 +00:00
parent 204062b8b1
commit 5b5bcf01f9
6 changed files with 1422 additions and 1415 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
ve/ve2200x.h
View File

@ -1,39 +1,39 @@
// campi comuni a tutti gli archivi
#define F_TIPO 111
#define F_COD 112
#define F_DESCR 113
#define F_CODVAL 114
#define F_CAMBIO 115
#define F_DATACAM 116
#define F_VALIN 117
#define F_VALFIN 118
#define F_IMPLORDI 119
#define F_GESTUM 120
#define F_GESTSCAGL 121
#define F_GESTSCO 122
#define F_SCONST 123
#define F_SEQRIC_1 124
#define F_SEQRIC_2 125
#define F_SEQRIC_3 126
#define F_SEQRIC_4 127
// campi riservati ai listini
#define F_L_CATVEN 131
#define F_L_COD 132
#define F_L_CODSUCC 133
#define F_L_DESVEN 134
#define F_L_DESSUCC 135
// campi riservati ai contratti
#define F_C_TIPOCF 141
#define F_C_CODCF 142
#define F_C_COD 143
#define F_C_OBBLIG 144
#define F_C_DESCF 145
// campi riservati alle offerte
#define F_O_COD 151
// pulsante di lancio dell'edit delle righe
#define BTN_RIGHE 161
// campi comuni a tutti gli archivi
#define F_TIPO 111
#define F_COD 112
#define F_DESCR 113
#define F_CODVAL 114
#define F_CAMBIO 115
#define F_DATACAM 116
#define F_VALIN 117
#define F_VALFIN 118
#define F_IMPLORDI 119
#define F_GESTUM 120
#define F_GESTSCAGL 121
#define F_GESTSCO 122
#define F_SCONST 123
#define F_SEQRIC_1 124
#define F_SEQRIC_2 125
#define F_SEQRIC_3 126
#define F_SEQRIC_4 127
// campi riservati ai listini
#define F_L_CATVEN 131
#define F_L_COD 132
#define F_L_CODSUCC 133
#define F_L_DESVEN 134
#define F_L_DESSUCC 135
// campi riservati ai contratti
#define F_C_TIPOCF 141
#define F_C_CODCF 142
#define F_C_COD 143
#define F_C_OBBLIG 144
#define F_C_DESCF 145
// campi riservati alle offerte
#define F_O_COD 151
// pulsante di lancio dell'edit delle righe
#define BTN_RIGHE 161

621
ve/ve2200x.uml
View File

@ -1,310 +1,311 @@
#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_L_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_L_CODSUCC
DISPLAY "C.V." CATVEN
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
OUTPUT F_L_CODSUCC COD
OUTPUT F_L_DESSUCC DESCR
CHECKTYPE NORMAL
END
// campo riservato ai listini
STRING F_L_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 SELECT
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_L_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_L_CODSUCC
DISPLAY "C.V." CATVEN
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
OUTPUT F_L_CODSUCC COD
OUTPUT F_L_DESSUCC DESCR
CHECKTYPE NORMAL
END
// campo riservato ai listini
STRING F_L_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


90
ve/ve2300x.h
View File

@ -1,45 +1,45 @@
// 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_DESRIGA_A 114
#define F_R_CODRIGA_G 115
#define F_R_DESRIGA_G 116
#define F_R_CODRIGA_R 117
#define F_R_DESRIGA_R 118
#define F_R_CODRIGA_S 119
#define F_R_DESRIGA_S 120
#define F_R_UM 121
#define F_R_NSCAGL 122
#define F_R_QLIM 123
#define F_R_PREZZO 124
#define F_R_SCONTO 125
#define F_R_ADDIVA 126
#define F_R_CODIVA 127
#define F_R_PERCPROVV 128
#define F_R_QOM 129
#define F_R_QBASE 130
#define F_R_CODARTOM 131
#define F_R_PROMAGGIO 132
#define F_R_UMOM 133
// campi riservati ai listini
#define F_R_L_CATVEN 141
#define F_R_L_COD 142
#define F_R_L_RICERCA 143
#define F_R_L_DESVEN 144
#define F_R_L_DES 145
// campi riservati ai contratti
#define F_R_C_TIPOCF 151
#define F_R_C_CODCF 152
#define F_R_C_COD 153
#define F_R_C_RICERCA 154
#define F_R_C_DESCF 155
#define F_R_C_DES 156
// campi riservati alle offerte
#define F_R_O_COD 161
#define F_R_O_RICERCA 162
#define F_R_O_ARTES 163
#define F_R_O_DES 164
// 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_DESRIGA_A 114
#define F_R_CODRIGA_G 115
#define F_R_DESRIGA_G 116
#define F_R_CODRIGA_R 117
#define F_R_DESRIGA_R 118
#define F_R_CODRIGA_S 119
#define F_R_DESRIGA_S 120
#define F_R_UM 121
#define F_R_NSCAGL 122
#define F_R_QLIM 123
#define F_R_PREZZO 124
#define F_R_SCONTO 125
#define F_R_ADDIVA 126
#define F_R_CODIVA 127
#define F_R_PERCPROVV 128
#define F_R_QOM 129
#define F_R_QBASE 130
#define F_R_CODARTOM 131
#define F_R_PROMAGGIO 132
#define F_R_UMOM 133
// campi riservati ai listini
#define F_R_L_CATVEN 141
#define F_R_L_COD 142
#define F_R_L_RICERCA 143
#define F_R_L_DESVEN 144
#define F_R_L_DES 145
// campi riservati ai contratti
#define F_R_C_TIPOCF 151
#define F_R_C_CODCF 152
#define F_R_C_COD 153
#define F_R_C_RICERCA 154
#define F_R_C_DESCF 155
#define F_R_C_DES 156
// campi riservati alle offerte
#define F_R_O_COD 161
#define F_R_O_RICERCA 162
#define F_R_O_ARTES 163
#define F_R_O_DES 164

924
ve/ve2300x.uml
View File

@ -1,462 +1,462 @@
#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
OUTPUT F_R_O_DES DESCR
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
MESSAGE COPY,F_R_CODRIGA_A
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
MESSAGE COPY,F_R_CODRIGA_A
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
MESSAGE COPY,F_R_CODRIGA_A
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
#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
OUTPUT F_R_O_DES DESCR
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
MESSAGE COPY,F_R_CODRIGA_A
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
MESSAGE COPY,F_R_CODRIGA_A
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
MESSAGE COPY,F_R_CODRIGA_A
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

1056
ve/ve2400.uml
View File

File diff suppressed because it is too large Load Diff

68
ve/ve2400a.uml
View File

@ -1,31 +1,37 @@
// SHEET 0 (unità di misura) DI VE2400
PAGE "Pagina 1" 8 5 65 14
STRING FS_CODUM 2
BEGIN
PROMPT 3 3 "U.M. "
FIELD LF_UMART->UM
FLAG "U"
END
NUMBER FS_FCUM 15 5
BEGIN
PROMPT 3 7 "Fattore conv. "
FIELD LF_UMART->FC
END
BUTTON 1 9 2
BEGIN
PROMPT 15 12 ""
END
BUTTON 2 9 2
BEGIN
PROMPT 38 12 ""
END
ENDPAGE
ENDMASK
// SHEET 0 (unità di misura) DI VE2400
PAGE "Pagina 1" 8 5 65 14
STRING FS_CODUM 2
BEGIN
PROMPT 3 3 "U.M. "
FIELD LF_UMART->UM
FLAG "U"
USE %UMS
INPUT CODTAB FS_CODUM
DISPLAY "U.M. " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FS_CODUM CODTAB
END
NUMBER FS_FCUM 15 5
BEGIN
PROMPT 3 7 "Fattore conv. "
FIELD LF_UMART->FC
END
BUTTON 1 9 2
BEGIN
PROMPT 15 12 ""
END
BUTTON 2 9 2
BEGIN
PROMPT 38 12 ""
END
ENDPAGE
ENDMASK