Modifica alle maschere Listino/contratti/offerte
git-svn-id: svn://10.65.10.50/trunk@1963 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro
parent
58045a3d3d
commit
d9c3b8b96e
@ -1,26 +1,27 @@
|
||||
#include "ve2100.h"
|
||||
|
||||
PAGE "Tabelle sconti " -1 -1 40 10
|
||||
|
||||
RADIOBUTTON F_TIPOSC 36
|
||||
BEGIN
|
||||
PROMPT 1 2 "Tipo di tabella "
|
||||
ITEM "R|Sconti di riga"
|
||||
ITEM "D|Sconti documento"
|
||||
ITEM "I|Sconti indondizionati"
|
||||
END
|
||||
|
||||
BUTTON DLG_SELECT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "Selezione"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "ve2100.h"
|
||||
|
||||
PAGE "Archivio sconti " -1 -1 40 10
|
||||
|
||||
RADIOBUTTON F_TIPOSC 36
|
||||
BEGIN
|
||||
PROMPT 1 2 "Tipo di archivio "
|
||||
ITEM "R|Sconti di riga"
|
||||
ITEM "D|Sconti documento"
|
||||
ITEM "I|Sconti indondizionati"
|
||||
END
|
||||
|
||||
BUTTON DLG_SELECT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "Selezione"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -1,3 +1,5 @@
|
||||
#define F_D_TIPO 111
|
||||
#define F_D_CODCAT 112
|
||||
#define F_D_SCONTO 113
|
||||
#define F_D_TIPO 111
|
||||
#define F_D_CODCAT 112
|
||||
#define F_D_SCONTO 113
|
||||
#define F_D_DESCR 114
|
||||
|
||||
106
ve/ve2100d.uml
106
ve/ve2100d.uml
@ -1,48 +1,58 @@
|
||||
#include <lffiles.h>
|
||||
#include "ve2100d.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio sconti documenti " 11 60 14
|
||||
|
||||
LISTA F_D_TIPO 1
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FIELD LF_SCONTI->TIPO
|
||||
FLAG "H"
|
||||
ITEM "D|Sconti documento"
|
||||
END
|
||||
|
||||
STRING F_D_CODCAT 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice sconto documento "
|
||||
FIELD LF_SCONTI->CODCAT
|
||||
FLAG "UR"
|
||||
KEY 1
|
||||
USE LF_SCONTI
|
||||
INPUT TIPO F_D_TIPO SELECT
|
||||
INPUT CODCAT F_D_CODCAT
|
||||
DISPLAY "Codice" CODCAT
|
||||
DISPLAY "Sconto@50" SCONTO
|
||||
OUTPUT F_D_CODCAT CODCAT
|
||||
OUTPUT F_D_SCONTO SCONTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 70 5
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
//FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_D_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 19 6 "Sconto "
|
||||
FIELD LF_SCONTI->SCONTO
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include <lffiles.h>
|
||||
#include "ve2100d.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio sconti documenti " 11 60 14
|
||||
|
||||
LISTA F_D_TIPO 1
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FIELD LF_SCONTI->TIPO
|
||||
FLAG "H"
|
||||
ITEM "D|Sconti documento"
|
||||
END
|
||||
|
||||
STRING F_D_CODCAT 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cod. sconto doc. "
|
||||
FIELD LF_SCONTI->CODCAT
|
||||
FLAG "UR"
|
||||
KEY 1
|
||||
USE LF_SCONTI
|
||||
INPUT TIPO F_D_TIPO SELECT
|
||||
INPUT CODCAT F_D_CODCAT
|
||||
DISPLAY "Codice" CODCAT
|
||||
DISPLAY "Descrizione" DESCR
|
||||
DISPLAY "Sconto@25" SCONTO
|
||||
OUTPUT F_D_CODCAT CODCAT
|
||||
OUTPUT F_D_SCONTO SCONTO
|
||||
OUTPUT F_D_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_D_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD LF_SCONTI->DESCR
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 7
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_D_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 2 8 "Sconto "
|
||||
FIELD LF_SCONTI->SCONTO
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
16
ve/ve2100r.h
16
ve/ve2100r.h
@ -1,7 +1,9 @@
|
||||
#define F_R_RICERCA 121
|
||||
#define F_R_TIPO 122
|
||||
#define F_R_CODCAT 123
|
||||
#define F_R_CODART 124
|
||||
#define F_R_UM 125
|
||||
#define F_R_UMDESC 126
|
||||
#define F_R_SCONTO 127
|
||||
#define F_R_RICERCA 121
|
||||
#define F_R_TIPO 122
|
||||
#define F_R_CODCAT 123
|
||||
#define F_R_CODART 124
|
||||
#define F_R_UM 125
|
||||
#define F_R_DESART 126
|
||||
#define F_R_SCONTO 127
|
||||
#define F_R_DESCAT 128
|
||||
|
||||
215
ve/ve2100r.uml
215
ve/ve2100r.uml
@ -1,104 +1,111 @@
|
||||
#include <lffiles.h>
|
||||
#include "ve2100r.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio sconti di riga " 11 60 14
|
||||
|
||||
STRING F_R_RICERCA 1
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "H"
|
||||
USE LF_SCONTI
|
||||
JOIN %UMS INTO CODTAB=UM
|
||||
INPUT TIPO F_R_TIPO SELECT
|
||||
INPUT CODCAT F_R_CODCAT
|
||||
INPUT CODART F_R_CODART
|
||||
INPUT UM F_R_UM
|
||||
DISPLAY "C.V." CODCAT
|
||||
DISPLAY "Codice art.@20" CODART
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Sconto@25" SCONTO
|
||||
OUTPUT F_R_CODCAT CODCAT
|
||||
OUTPUT F_R_CODART CODART
|
||||
OUTPUT F_R_UM UM
|
||||
OUTPUT F_R_SCONTO SCONTO
|
||||
OUTPUT F_R_UMDESC %UMS->S0
|
||||
END
|
||||
|
||||
LISTA F_R_TIPO 1
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FIELD LF_SCONTI->TIPO
|
||||
FLAG "H"
|
||||
ITEM "R|Sconti di riga"
|
||||
END
|
||||
|
||||
STRING F_R_CODCAT 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Categoria vendita "
|
||||
FIELD LF_SCONTI->CODCAT
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE %CVE
|
||||
INPUT CODTAB F_R_CODCAT
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODCAT CODTAB
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
|
||||
END
|
||||
|
||||
STRING F_R_CODART 20
|
||||
BEGIN
|
||||
PROMPT 4 4 "Codice articolo "
|
||||
FIELD LF_SCONTI->CODART
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE LF_ANAGR
|
||||
INPUT CODART F_R_CODART
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_CODART CODART
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
|
||||
END
|
||||
|
||||
STRING F_R_UM 2
|
||||
BEGIN
|
||||
PROMPT 15 6 "U.M. "
|
||||
FIELD LF_SCONTI->UM
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE LF_UMART KEY 2
|
||||
JOIN %UMS INTO CODTAB=UM
|
||||
INPUT CODART F_R_CODART SELECT
|
||||
INPUT UM F_R_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Desccrizione@50" %UMS->S0
|
||||
OUTPUT F_R_UM UM
|
||||
OUTPUT F_R_UMDESC %UMS->S0
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
|
||||
END
|
||||
|
||||
STRING F_R_UMDESC 50
|
||||
BEGIN
|
||||
PROMPT 8 8 "Descrizione "
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 11
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
//FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_R_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 13 12 "Sconto "
|
||||
FIELD LF_SCONTI->SCONTO
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include <lffiles.h>
|
||||
#include "ve2100r.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio sconti di riga " 11 60 14
|
||||
|
||||
STRING F_R_RICERCA 1
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "H"
|
||||
USE LF_SCONTI
|
||||
JOIN %UMS INTO CODTAB=UM
|
||||
INPUT TIPO F_R_TIPO SELECT
|
||||
INPUT CODCAT F_R_CODCAT
|
||||
INPUT CODART F_R_CODART
|
||||
INPUT UM F_R_UM
|
||||
DISPLAY "C.V." CODCAT
|
||||
DISPLAY "Codice art.@20" CODART
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Sconto@25" SCONTO
|
||||
OUTPUT F_R_CODCAT CODCAT
|
||||
OUTPUT F_R_CODART CODART
|
||||
OUTPUT F_R_UM UM
|
||||
OUTPUT F_R_SCONTO SCONTO
|
||||
END
|
||||
|
||||
LISTA F_R_TIPO 1
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FIELD LF_SCONTI->TIPO
|
||||
FLAG "H"
|
||||
ITEM "R|Sconti di riga"
|
||||
END
|
||||
|
||||
STRING F_R_CODCAT 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cat. vendita "
|
||||
FIELD LF_SCONTI->CODCAT
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE %CVE
|
||||
INPUT CODTAB F_R_CODCAT
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODCAT CODTAB
|
||||
OUTPUT F_R_DESCAT S0
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
|
||||
END
|
||||
|
||||
STRING F_R_DESCAT 50
|
||||
BEGIN
|
||||
PROMPT 22 2 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_R_CODART 20
|
||||
BEGIN
|
||||
PROMPT 2 4 "Cod. articolo "
|
||||
FIELD LF_SCONTI->CODART
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE LF_ANAGR
|
||||
INPUT CODART F_R_CODART
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_CODART CODART
|
||||
OUTPUT F_R_DESART DESCR
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
|
||||
END
|
||||
|
||||
STRING F_R_UM 2
|
||||
BEGIN
|
||||
PROMPT 50 4 "U.M. "
|
||||
FIELD LF_SCONTI->UM
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE LF_UMART KEY 2
|
||||
JOIN %UMS INTO CODTAB=UM
|
||||
INPUT CODART F_R_CODART SELECT
|
||||
INPUT UM F_R_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Desccrizione@50" %UMS->S0
|
||||
OUTPUT F_R_UM UM
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
|
||||
END
|
||||
|
||||
STRING F_R_DESART 50
|
||||
BEGIN
|
||||
PROMPT 2 6 "Descrizione "
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 10
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_R_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 2 12 "Sconto "
|
||||
FIELD LF_SCONTI->SCONTO
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
75
ve/ve2200x.h
75
ve/ve2200x.h
@ -1,35 +1,40 @@
|
||||
|
||||
// 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
|
||||
|
||||
// campi riservati ai listini
|
||||
#define F_L_CATVEN 131
|
||||
#define F_L_COD 132
|
||||
#define F_LC_CODSUCC 133 // campo comune anche ai contratti
|
||||
|
||||
// campi riservati ai contratti
|
||||
#define F_C_TIPOCF 141
|
||||
#define F_C_CODCF 142
|
||||
#define F_C_COD 143
|
||||
#define F_C_OBBLIG 144
|
||||
|
||||
// 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_LC_CODSUCC 133
|
||||
#define F_L_DESVEN 134
|
||||
#define F_LC_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
|
||||
|
||||
584
ve/ve2200x.uml
584
ve/ve2200x.uml
@ -1,271 +1,313 @@
|
||||
#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 26 2 "Cat. vendita "
|
||||
FIELD LF_CONDV->CATVEN
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE %CVE
|
||||
INPUT CODTAB F_L_CATVEN
|
||||
DISPLAY "Cat." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_L_CATVEN CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
// campo riservato ai contratti
|
||||
LIST F_C_TIPOCF 7
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipo "
|
||||
FIELD LF_CONDV->TIPOCF
|
||||
KEY 1
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornit."
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
// campo riservato ai contratti
|
||||
STRING F_C_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 48 2 "Codice "
|
||||
FIELD LF_CONDV->CODCF
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_C_TIPOCF
|
||||
INPUT CODCF F_C_CODCF
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_C_TIPOCF TIPOCF
|
||||
OUTPUT F_C_CODCF CODCF
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
// campo riservato ai listini
|
||||
STRING F_L_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "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 26 4 "Numero contratto "
|
||||
FIELD LF_CONDV->COD
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO F_TIPO SELECT
|
||||
INPUT TIPOCF F_C_TIPOCF
|
||||
INPUT CODCF F_C_CODCF
|
||||
INPUT COD F_C_COD
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Numero" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_TIPO TIPO
|
||||
OUTPUT F_C_TIPOCF TIPOCF
|
||||
OUTPUT F_C_CODCF CODCF
|
||||
OUTPUT F_C_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
// campo riservato alle offerte
|
||||
STRING F_O_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "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"
|
||||
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 8
|
||||
BEGIN
|
||||
PROMPT 2 16 "Sequenza ricerca "
|
||||
FIELD LF_CONDV->SEQRIC[1,1]
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gr. Merc"
|
||||
ITEM "R|Rag. Fis"
|
||||
VALIDATE STR_EXPR (#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3)
|
||||
WARNING "La sequenza di ricerca deve indicare tre tipi diversi di righe"
|
||||
END
|
||||
|
||||
LIST F_SEQRIC_2 8
|
||||
BEGIN
|
||||
PROMPT 32 16 ""
|
||||
FIELD LF_CONDV->SEQRIC[2,2]
|
||||
ITEM "-|Nessuno"
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gr. Merc"
|
||||
ITEM "R|Rag. Fis"
|
||||
VALIDATE STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_3))
|
||||
WARNING "La sequenza di ricerca deve indicare tre tipi diversi di righe"
|
||||
END
|
||||
|
||||
LIST F_SEQRIC_3 8
|
||||
BEGIN
|
||||
PROMPT 45 16 ""
|
||||
FIELD LF_CONDV->SEQRIC[3,3]
|
||||
ITEM "-|Nessuno"
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gr. Merc"
|
||||
ITEM "R|Rag. Fis"
|
||||
VALIDATE STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2))
|
||||
WARNING "La sequenza di ricerca deve indicare tre tipi diversi di righe"
|
||||
END
|
||||
|
||||
// campo riservato ai listini
|
||||
STRING F_LC_CODSUCC 3
|
||||
BEGIN
|
||||
PROMPT 34 16 "Codice 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 "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_LC_CODSUCC COD
|
||||
CHECKTYPE NORMAL
|
||||
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
|
||||
|
||||
ENDMASK
|
||||
#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."
|
||||
STR_EXPR (#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3)&&(#THIS_FIELD!=#F_SEQRIC_4)
|
||||
WARNING "La sequenza di ricerca deve indicare tre tipi diversi di righe"
|
||||
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)&&(#THIS_FIELD!=#F_SEQRIC_3)&&(#THIS_FIELD!=#F_SEQRIC_4))
|
||||
WARNING "La sequenza di ricerca deve indicare tre 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)&&(#THIS_FIELD!=#F_SEQRIC_4))
|
||||
WARNING "La sequenza di ricerca deve indicare tre 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 tre 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
|
||||
|
||||
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
84
ve/ve2300x.h
84
ve/ve2300x.h
@ -1,37 +1,47 @@
|
||||
|
||||
// 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_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
|
||||
|
||||
// campi riservati ai listini
|
||||
#define F_R_L_CATVEN 131
|
||||
#define F_R_L_COD 132
|
||||
#define F_R_LO_UM 133 // comune anche alle offerte
|
||||
#define F_R_L_RICERCA 134
|
||||
|
||||
// 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_CO_CODLOTTO 145 // comune anche alle offerte
|
||||
|
||||
// campi riservati alle offerte
|
||||
#define F_R_O_COD 151
|
||||
#define F_R_O_RICERCA 152
|
||||
#define F_R_O_ARTES 153
|
||||
|
||||
// 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_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_LO_UM 133 // comune anche alle offerte
|
||||
#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
|
||||
|
||||
835
ve/ve2300x.uml
835
ve/ve2300x.uml
@ -1,378 +1,457 @@
|
||||
#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 1 "Cat. vendita "
|
||||
FIELD LF_RCONDV->CATVEN
|
||||
FLAG "UP"
|
||||
KEY 1
|
||||
USE %CVE
|
||||
INPUT CODTAB F_R_L_CATVEN
|
||||
DISPLAY "Cat." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_L_CATVEN CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
|
||||
BEGIN
|
||||
PROMPT 28 1 "Tipo "
|
||||
FIELD LF_RCONDV->TIPOCF
|
||||
FLAG "P"
|
||||
KEY 1
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornit."
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_C_CODCF 6 // campo riservato ai contratti
|
||||
BEGIN
|
||||
PROMPT 52 1 "Codice "
|
||||
FIELD LF_RCONDV->CODCF
|
||||
FLAG "UP"
|
||||
KEY 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_R_C_TIPOCF
|
||||
INPUT CODCF F_R_C_CODCF
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_R_C_TIPOCF TIPOCF
|
||||
OUTPUT F_R_C_CODCF CODCF
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_L_COD 3 // campo riservato ai listini
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice listino "
|
||||
FIELD LF_RCONDV->COD
|
||||
FLAG "UPG"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO F_R_TIPO SELECT
|
||||
INPUT CATVEN F_R_L_CATVEN
|
||||
INPUT COD F_R_L_COD
|
||||
DISPLAY "C.V." CATVEN
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_TIPO TIPO
|
||||
OUTPUT F_R_L_CATVEN CATVEN
|
||||
OUTPUT F_R_L_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_R_C_COD 3 // campo riservato ai contratti
|
||||
BEGIN
|
||||
PROMPT 28 3 "Numero contratto "
|
||||
FIELD LF_RCONDV->COD
|
||||
FLAG "PG"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO F_R_TIPO SELECT
|
||||
INPUT TIPOCF F_R_C_TIPOCF
|
||||
INPUT CODCF F_R_C_CODCF
|
||||
INPUT COD F_R_C_COD
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Numero" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_TIPO TIPO
|
||||
OUTPUT F_R_C_TIPOCF TIPOCF
|
||||
OUTPUT F_R_C_CODCF CODCF
|
||||
OUTPUT F_R_C_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_O_COD 3 // campo riservato alle offerte
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice offerta "
|
||||
FIELD LF_RCONDV->COD
|
||||
FLAG "UPG"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO F_R_TIPO SELECT
|
||||
INPUT COD F_R_O_COD
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_TIPO TIPO
|
||||
OUTPUT F_R_O_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST F_R_TIPORIGA 8
|
||||
BEGIN
|
||||
PROMPT 2 4 "Riga "
|
||||
FIELD LF_RCONDV->TIPORIGA
|
||||
FLAG "P"
|
||||
KEY 1
|
||||
ITEM "A|Articolo"
|
||||
ITEM "G|Gr. merc."
|
||||
ITEM "R|Rag. fis."
|
||||
END
|
||||
|
||||
STRING F_R_CODRIGA_A 20
|
||||
BEGIN
|
||||
PROMPT 28 4 "Codice "
|
||||
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
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_CODRIGA_G 20
|
||||
BEGIN
|
||||
PROMPT 28 5 "Codice "
|
||||
FIELD LF_RCONDV->CODRIGA
|
||||
FLAG "U"
|
||||
KEY 1
|
||||
USE %GMC
|
||||
INPUT CODTAB F_R_CODRIGA_G
|
||||
DISPLAY "Gr. merc." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODRIGA_G CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,F_R_CODRIGA_A
|
||||
END
|
||||
|
||||
STRING F_R_CODRIGA_R 20
|
||||
BEGIN
|
||||
PROMPT 28 6 "Codice "
|
||||
FIELD LF_RCONDV->CODRIGA
|
||||
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
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,F_R_CODRIGA_A
|
||||
END
|
||||
|
||||
STRING F_R_NSCAGL 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "N.ro scaglione "
|
||||
FIELD LF_RCONDV->NSCAGL
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_LO_UM 2 // campo riservato a listini e offerte
|
||||
BEGIN
|
||||
PROMPT 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_LO_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Desccrizione@50" %UMS->S0
|
||||
OUTPUT F_R_LO_UM UM
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "D"
|
||||
USE LF_RCONDV SELECT (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_LO_UM
|
||||
INPUT NSCAGL F_R_NSCAGL
|
||||
DISPLAY "Tipo" TIPORIGA
|
||||
DISPLAY "Codice@20" CODRIGA
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "N.S." NSCAGL
|
||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||
OUTPUT F_R_CODRIGA_G CODRIGA
|
||||
OUTPUT F_R_CODRIGA_R CODRIGA
|
||||
OUTPUT F_R_LO_UM UM
|
||||
OUTPUT F_R_NSCAGL NSCAGL
|
||||
END
|
||||
|
||||
STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "D"
|
||||
USE LF_RCONDV SELECT (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_A CODRIGA
|
||||
OUTPUT F_R_CODRIGA_G CODRIGA
|
||||
OUTPUT F_R_CODRIGA_R CODRIGA
|
||||
OUTPUT F_R_NSCAGL NSCAGL
|
||||
END
|
||||
|
||||
STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "D"
|
||||
USE LF_RCONDV SELECT 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_LO_UM
|
||||
INPUT NSCAGL F_R_NSCAGL
|
||||
DISPLAY "Tipo" TIPORIGA
|
||||
DISPLAY "Codice@20" CODRIGA
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "N.S." NSCAGL
|
||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||
OUTPUT F_R_CODRIGA_G CODRIGA
|
||||
OUTPUT F_R_CODRIGA_R CODRIGA
|
||||
OUTPUT F_R_LO_UM UM
|
||||
OUTPUT F_R_NSCAGL NSCAGL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 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 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 4 "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
|
||||
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
|
||||
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
|
||||
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_LO_UM 2 // campo riservato a listini e offerte
|
||||
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_LO_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Desccrizione@50" %UMS->S0
|
||||
OUTPUT F_R_LO_UM UM
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "D"
|
||||
USE LF_RCONDV SELECT (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_LO_UM
|
||||
INPUT NSCAGL F_R_NSCAGL
|
||||
DISPLAY "Tipo" TIPORIGA
|
||||
DISPLAY "Codice@20" CODRIGA
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "N.S." NSCAGL
|
||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||
OUTPUT F_R_CODRIGA_G CODRIGA
|
||||
OUTPUT F_R_CODRIGA_R CODRIGA
|
||||
OUTPUT F_R_LO_UM UM
|
||||
OUTPUT F_R_NSCAGL NSCAGL
|
||||
END
|
||||
|
||||
STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "D"
|
||||
USE LF_RCONDV SELECT (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_A CODRIGA
|
||||
OUTPUT F_R_CODRIGA_G CODRIGA
|
||||
OUTPUT F_R_CODRIGA_R CODRIGA
|
||||
OUTPUT F_R_NSCAGL NSCAGL
|
||||
END
|
||||
|
||||
STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
FLAG "D"
|
||||
USE LF_RCONDV SELECT 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_LO_UM
|
||||
INPUT NSCAGL F_R_NSCAGL
|
||||
DISPLAY "Tipo" TIPORIGA
|
||||
DISPLAY "Codice@20" CODRIGA
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "N.S." NSCAGL
|
||||
OUTPUT F_R_TIPORIGA TIPORIGA
|
||||
OUTPUT F_R_CODRIGA_A CODRIGA
|
||||
OUTPUT F_R_CODRIGA_G CODRIGA
|
||||
OUTPUT F_R_CODRIGA_R CODRIGA
|
||||
OUTPUT F_R_LO_UM UM
|
||||
OUTPUT F_R_NSCAGL NSCAGL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user