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

Modifica alle maschere Listino/contratti/offerte

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1963 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-10-16 16:31:39 +00:00
parent 58045a3d3d
commit d9c3b8b96e
9 changed files with 1067 additions and 909 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
ve/ve2100.uml
View File

@ -1,26 +1,27 @@
#include "ve2100.h" #include "ve2100.h"
PAGE "Tabelle sconti " -1 -1 40 10 PAGE "Archivio sconti " -1 -1 40 10
RADIOBUTTON F_TIPOSC 36 RADIOBUTTON F_TIPOSC 36
BEGIN BEGIN
PROMPT 1 2 "Tipo di tabella " PROMPT 1 2 "Tipo di archivio "
ITEM "R|Sconti di riga" ITEM "R|Sconti di riga"
ITEM "D|Sconti documento" ITEM "D|Sconti documento"
ITEM "I|Sconti indondizionati" ITEM "I|Sconti indondizionati"
END END
BUTTON DLG_SELECT 9 2 BUTTON DLG_SELECT 9 2
BEGIN BEGIN
PROMPT -12 -1 "Selezione" PROMPT -12 -1 "Selezione"
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK


8
ve/ve2100d.h
View File

@ -1,3 +1,5 @@
#define F_D_TIPO 111 #define F_D_TIPO 111
#define F_D_CODCAT 112 #define F_D_CODCAT 112
#define F_D_SCONTO 113 #define F_D_SCONTO 113
#define F_D_DESCR 114


106
ve/ve2100d.uml
View File

@ -1,48 +1,58 @@
#include <lffiles.h> #include <lffiles.h>
#include "ve2100d.h" #include "ve2100d.h"
TOOLBAR "" 0 20 60 2 TOOLBAR "" 0 20 60 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Archivio sconti documenti " 11 60 14 PAGE "Archivio sconti documenti " 11 60 14
LISTA F_D_TIPO 1 LISTA F_D_TIPO 1
BEGIN BEGIN
PROMPT 100 100 "" PROMPT 100 100 ""
FIELD LF_SCONTI->TIPO FIELD LF_SCONTI->TIPO
FLAG "H" FLAG "H"
ITEM "D|Sconti documento" ITEM "D|Sconti documento"
END END
STRING F_D_CODCAT 2 STRING F_D_CODCAT 2
BEGIN BEGIN
PROMPT 2 2 "Codice sconto documento " PROMPT 2 2 "Cod. sconto doc. "
FIELD LF_SCONTI->CODCAT FIELD LF_SCONTI->CODCAT
FLAG "UR" FLAG "UR"
KEY 1 KEY 1
USE LF_SCONTI USE LF_SCONTI
INPUT TIPO F_D_TIPO SELECT INPUT TIPO F_D_TIPO SELECT
INPUT CODCAT F_D_CODCAT INPUT CODCAT F_D_CODCAT
DISPLAY "Codice" CODCAT DISPLAY "Codice" CODCAT
DISPLAY "Sconto@50" SCONTO DISPLAY "Descrizione" DESCR
OUTPUT F_D_CODCAT CODCAT DISPLAY "Sconto@25" SCONTO
OUTPUT F_D_SCONTO SCONTO OUTPUT F_D_CODCAT CODCAT
CHECKTYPE REQUIRED OUTPUT F_D_SCONTO SCONTO
END OUTPUT F_D_DESCR DESCR
CHECKTYPE REQUIRED
GROUPBOX DLG_NULL 70 5 END
BEGIN
PROMPT 0 0 "" STRING F_D_DESCR 50
//FLAG "R" BEGIN
END PROMPT 2 4 "Descrizione "
FIELD LF_SCONTI->DESCR
STRING F_D_SCONTO 25 FLAG "D"
BEGIN END
PROMPT 19 6 "Sconto "
FIELD LF_SCONTI->SCONTO GROUPBOX DLG_NULL 75 7
END BEGIN
PROMPT 0 0 ""
ENDPAGE FLAG "R"
END
ENDMASK
STRING F_D_SCONTO 25
BEGIN
PROMPT 2 8 "Sconto "
FIELD LF_SCONTI->SCONTO
END
ENDPAGE
ENDMASK


16
ve/ve2100r.h
View File

@ -1,7 +1,9 @@
#define F_R_RICERCA 121 #define F_R_RICERCA 121
#define F_R_TIPO 122 #define F_R_TIPO 122
#define F_R_CODCAT 123 #define F_R_CODCAT 123
#define F_R_CODART 124 #define F_R_CODART 124
#define F_R_UM 125 #define F_R_UM 125
#define F_R_UMDESC 126 #define F_R_DESART 126
#define F_R_SCONTO 127 #define F_R_SCONTO 127
#define F_R_DESCAT 128


215
ve/ve2100r.uml
View File

@ -1,104 +1,111 @@
#include <lffiles.h> #include <lffiles.h>
#include "ve2100r.h" #include "ve2100r.h"
TOOLBAR "" 0 20 60 2 TOOLBAR "" 0 20 60 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Archivio sconti di riga " 11 60 14 PAGE "Archivio sconti di riga " 11 60 14
STRING F_R_RICERCA 1 STRING F_R_RICERCA 1
BEGIN BEGIN
PROMPT 100 100 "" PROMPT 100 100 ""
FLAG "H" FLAG "H"
USE LF_SCONTI USE LF_SCONTI
JOIN %UMS INTO CODTAB=UM JOIN %UMS INTO CODTAB=UM
INPUT TIPO F_R_TIPO SELECT INPUT TIPO F_R_TIPO SELECT
INPUT CODCAT F_R_CODCAT INPUT CODCAT F_R_CODCAT
INPUT CODART F_R_CODART INPUT CODART F_R_CODART
INPUT UM F_R_UM INPUT UM F_R_UM
DISPLAY "C.V." CODCAT DISPLAY "C.V." CODCAT
DISPLAY "Codice art.@20" CODART DISPLAY "Codice art.@20" CODART
DISPLAY "U.M." UM DISPLAY "U.M." UM
DISPLAY "Sconto@25" SCONTO DISPLAY "Sconto@25" SCONTO
OUTPUT F_R_CODCAT CODCAT OUTPUT F_R_CODCAT CODCAT
OUTPUT F_R_CODART CODART OUTPUT F_R_CODART CODART
OUTPUT F_R_UM UM OUTPUT F_R_UM UM
OUTPUT F_R_SCONTO SCONTO OUTPUT F_R_SCONTO SCONTO
OUTPUT F_R_UMDESC %UMS->S0 END
END
LISTA F_R_TIPO 1
LISTA F_R_TIPO 1 BEGIN
BEGIN PROMPT 100 100 ""
PROMPT 100 100 "" FIELD LF_SCONTI->TIPO
FIELD LF_SCONTI->TIPO FLAG "H"
FLAG "H" ITEM "R|Sconti di riga"
ITEM "R|Sconti di riga" END
END
STRING F_R_CODCAT 2
STRING F_R_CODCAT 2 BEGIN
BEGIN PROMPT 2 2 "Cat. vendita "
PROMPT 2 2 "Categoria vendita " FIELD LF_SCONTI->CODCAT
FIELD LF_SCONTI->CODCAT FLAG "U"
FLAG "U" KEY 1
KEY 1 USE %CVE
USE %CVE INPUT CODTAB F_R_CODCAT
INPUT CODTAB F_R_CODCAT DISPLAY "Codice" CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@50" S0 OUTPUT F_R_CODCAT CODTAB
OUTPUT F_R_CODCAT CODTAB OUTPUT F_R_DESCAT S0
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
END END
STRING F_R_CODART 20 STRING F_R_DESCAT 50
BEGIN BEGIN
PROMPT 4 4 "Codice articolo " PROMPT 22 2 ""
FIELD LF_SCONTI->CODART FLAG "D"
FLAG "U" END
KEY 1
USE LF_ANAGR STRING F_R_CODART 20
INPUT CODART F_R_CODART BEGIN
DISPLAY "Codice@20" CODART PROMPT 2 4 "Cod. articolo "
DISPLAY "Descrizione@50" DESCR FIELD LF_SCONTI->CODART
OUTPUT F_R_CODART CODART FLAG "U"
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART KEY 1
END USE LF_ANAGR
INPUT CODART F_R_CODART
STRING F_R_UM 2 DISPLAY "Codice@20" CODART
BEGIN DISPLAY "Descrizione@50" DESCR
PROMPT 15 6 "U.M. " OUTPUT F_R_CODART CODART
FIELD LF_SCONTI->UM OUTPUT F_R_DESART DESCR
FLAG "U" VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
KEY 1 END
USE LF_UMART KEY 2
JOIN %UMS INTO CODTAB=UM STRING F_R_UM 2
INPUT CODART F_R_CODART SELECT BEGIN
INPUT UM F_R_UM PROMPT 50 4 "U.M. "
DISPLAY "U.M." UM FIELD LF_SCONTI->UM
DISPLAY "Desccrizione@50" %UMS->S0 FLAG "U"
OUTPUT F_R_UM UM KEY 1
OUTPUT F_R_UMDESC %UMS->S0 USE LF_UMART KEY 2
VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART JOIN %UMS INTO CODTAB=UM
END INPUT CODART F_R_CODART SELECT
INPUT UM F_R_UM
STRING F_R_UMDESC 50 DISPLAY "U.M." UM
BEGIN DISPLAY "Desccrizione@50" %UMS->S0
PROMPT 8 8 "Descrizione " OUTPUT F_R_UM UM
FLAG "D" VALIDATE AUTOEXIT_FUNC 2 F_R_CODCAT F_R_CODART
END END
GROUPBOX DLG_NULL 75 11 STRING F_R_DESART 50
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 2 6 "Descrizione "
//FLAG "R" FLAG "D"
END END
STRING F_R_SCONTO 25 GROUPBOX DLG_NULL 75 10
BEGIN BEGIN
PROMPT 13 12 "Sconto " PROMPT 0 0 ""
FIELD LF_SCONTI->SCONTO FLAG "R"
END END
ENDPAGE STRING F_R_SCONTO 25
BEGIN
ENDMASK PROMPT 2 12 "Sconto "
FIELD LF_SCONTI->SCONTO
END
ENDPAGE
ENDMASK


75
ve/ve2200x.h
View File

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


584
ve/ve2200x.uml
View File

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

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

@ -1,378 +1,457 @@
#include <lffiles.h> #include <lffiles.h>
#include "ve2300x.h" #include "ve2300x.h"
TOOLBAR "" 0 20 60 2 TOOLBAR "" 0 20 60 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Archivio righe condiz. di vendita " 0 0 70 20 PAGE "Archivio righe condiz. di vendita " 0 0 70 20
STRING F_R_TIPO 1 STRING F_R_TIPO 1
BEGIN BEGIN
PROMPT 100 100 "" PROMPT 100 100 ""
FIELD LF_RCONDV->TIPO FIELD LF_RCONDV->TIPO
FLAG "DUP" FLAG "DUP"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_R_L_CATVEN 2 // campo riservato ai listini STRING F_R_L_CATVEN 2 // campo riservato ai listini
BEGIN BEGIN
PROMPT 2 1 "Cat. vendita " PROMPT 2 2 "Cat. vendita "
FIELD LF_RCONDV->CATVEN FIELD LF_RCONDV->CATVEN
FLAG "UP" FLAG "UP"
KEY 1 KEY 1
USE %CVE USE %CVE
INPUT CODTAB F_R_L_CATVEN INPUT CODTAB F_R_L_CATVEN
DISPLAY "Cat." CODTAB DISPLAY "Cat." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_R_L_CATVEN CODTAB OUTPUT F_R_L_CATVEN CODTAB
CHECKTYPE REQUIRED OUTPUT F_R_L_DESVEN S0
END CHECKTYPE REQUIRED
END
LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
BEGIN STRING F_R_L_DESVEN 50 // campo riservato ai listini
PROMPT 28 1 "Tipo " BEGIN
FIELD LF_RCONDV->TIPOCF PROMPT 23 2 ""
FLAG "P" FLAG "D"
KEY 1 END
ITEM "C|Cliente"
ITEM "F|Fornit." LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
CHECKTYPE REQUIRED BEGIN
END PROMPT 2 1 "Tipo C/F "
FIELD LF_RCONDV->TIPOCF
STRING F_R_C_CODCF 6 // campo riservato ai contratti FLAG "P"
BEGIN KEY 1
PROMPT 52 1 "Codice " ITEM "C|Cliente"
FIELD LF_RCONDV->CODCF ITEM "F|Fornit."
FLAG "UP" CHECKTYPE REQUIRED
KEY 1 END
USE LF_CLIFO
INPUT TIPOCF F_R_C_TIPOCF STRING F_R_C_CODCF 6 // campo riservato ai contratti
INPUT CODCF F_R_C_CODCF BEGIN
DISPLAY "C/F" TIPOCF PROMPT 2 2 "Cod. C/F "
DISPLAY "Codice" CODCF FIELD LF_RCONDV->CODCF
DISPLAY "Ragione sociale@50" RAGSOC FLAG "UP"
OUTPUT F_R_C_TIPOCF TIPOCF KEY 1
OUTPUT F_R_C_CODCF CODCF USE LF_CLIFO
CHECKTYPE REQUIRED INPUT TIPOCF F_R_C_TIPOCF
END INPUT CODCF F_R_C_CODCF
DISPLAY "C/F" TIPOCF
STRING F_R_L_COD 3 // campo riservato ai listini DISPLAY "Codice" CODCF
BEGIN DISPLAY "Ragione sociale@50" RAGSOC
PROMPT 2 3 "Codice listino " OUTPUT F_R_C_TIPOCF TIPOCF
FIELD LF_RCONDV->COD OUTPUT F_R_C_CODCF CODCF
FLAG "UPG" OUTPUT F_R_C_DESCF RAGSOC
KEY 1 CHECKTYPE REQUIRED
USE LF_CONDV END
INPUT TIPO F_R_TIPO SELECT
INPUT CATVEN F_R_L_CATVEN STRING F_R_C_DESCF 50 // campo riservato ai contratti
INPUT COD F_R_L_COD BEGIN
DISPLAY "C.V." CATVEN PROMPT 23 2 ""
DISPLAY "Codice" COD FLAG "D"
DISPLAY "Descrizione@50" DESCR END
OUTPUT F_R_TIPO TIPO
OUTPUT F_R_L_CATVEN CATVEN STRING F_R_L_COD 3 // campo riservato ai listini
OUTPUT F_R_L_COD COD BEGIN
CHECKTYPE REQUIRED PROMPT 2 3 "Listino "
END FIELD LF_RCONDV->COD
FLAG "UPG"
NUMBER F_R_C_COD 3 // campo riservato ai contratti KEY 1
BEGIN USE LF_CONDV
PROMPT 28 3 "Numero contratto " INPUT TIPO F_R_TIPO SELECT
FIELD LF_RCONDV->COD INPUT CATVEN F_R_L_CATVEN
FLAG "PG" INPUT COD F_R_L_COD
KEY 1 DISPLAY "C.V." CATVEN
USE LF_CONDV DISPLAY "Codice" COD
INPUT TIPO F_R_TIPO SELECT DISPLAY "Descrizione@50" DESCR
INPUT TIPOCF F_R_C_TIPOCF OUTPUT F_R_TIPO TIPO
INPUT CODCF F_R_C_CODCF OUTPUT F_R_L_CATVEN CATVEN
INPUT COD F_R_C_COD OUTPUT F_R_L_COD COD
DISPLAY "C/F" TIPOCF OUTPUT F_R_L_DES DESCR
DISPLAY "Codice" CODCF CHECKTYPE REQUIRED
DISPLAY "Numero" COD END
DISPLAY "Descrizione@50" DESCR
OUTPUT F_R_TIPO TIPO STRING F_R_L_DES 50 // campo riservato ai contratti
OUTPUT F_R_C_TIPOCF TIPOCF BEGIN
OUTPUT F_R_C_CODCF CODCF PROMPT 23 3 ""
OUTPUT F_R_C_COD COD FLAG "D"
CHECKTYPE REQUIRED END
END
NUMBER F_R_C_COD 3 // campo riservato ai contratti
STRING F_R_O_COD 3 // campo riservato alle offerte BEGIN
BEGIN PROMPT 2 3 "Contratto N. "
PROMPT 2 2 "Codice offerta " FIELD LF_RCONDV->COD
FIELD LF_RCONDV->COD FLAG "PG"
FLAG "UPG" KEY 1
KEY 1 USE LF_CONDV
USE LF_CONDV INPUT TIPO F_R_TIPO SELECT
INPUT TIPO F_R_TIPO SELECT INPUT TIPOCF F_R_C_TIPOCF
INPUT COD F_R_O_COD INPUT CODCF F_R_C_CODCF
DISPLAY "Codice" COD INPUT COD F_R_C_COD
DISPLAY "Descrizione@50" DESCR DISPLAY "C/F" TIPOCF
OUTPUT F_R_TIPO TIPO DISPLAY "Codice" CODCF
OUTPUT F_R_O_COD COD DISPLAY "Numero" COD
CHECKTYPE REQUIRED DISPLAY "Descrizione@50" DESCR
END OUTPUT F_R_TIPO TIPO
OUTPUT F_R_C_TIPOCF TIPOCF
LIST F_R_TIPORIGA 8 OUTPUT F_R_C_CODCF CODCF
BEGIN OUTPUT F_R_C_COD COD
PROMPT 2 4 "Riga " OUTPUT F_R_C_DES DESCR
FIELD LF_RCONDV->TIPORIGA CHECKTYPE REQUIRED
FLAG "P" END
KEY 1
ITEM "A|Articolo" STRING F_R_C_DES 50 // campo riservato ai listini
ITEM "G|Gr. merc." BEGIN
ITEM "R|Rag. fis." PROMPT 23 3 ""
END FLAG "D"
END
STRING F_R_CODRIGA_A 20
BEGIN STRING F_R_O_COD 3 // campo riservato alle offerte
PROMPT 28 4 "Codice " BEGIN
FIELD LF_RCONDV->CODRIGA PROMPT 2 2 "Codice offerta "
FLAG "U" FIELD LF_RCONDV->COD
KEY 1 FLAG "UPG"
USE LF_ANAGR KEY 1
INPUT CODART F_R_CODRIGA_A USE LF_CONDV
DISPLAY "Articolo@20" CODART INPUT TIPO F_R_TIPO SELECT
DISPLAY "Descrizione@50" DESCR INPUT COD F_R_O_COD
OUTPUT F_R_CODRIGA_A CODART DISPLAY "Codice" COD
CHECKTYPE REQUIRED DISPLAY "Descrizione@50" DESCR
END OUTPUT F_R_TIPO TIPO
OUTPUT F_R_O_COD COD
STRING F_R_CODRIGA_G 20 CHECKTYPE REQUIRED
BEGIN END
PROMPT 28 5 "Codice "
FIELD LF_RCONDV->CODRIGA STRING F_R_O_DES 50 // campo riservato alle offerte
FLAG "U" BEGIN
KEY 1 PROMPT 2 4 "Descr. offerta "
USE %GMC FLAG "D"
INPUT CODTAB F_R_CODRIGA_G END
DISPLAY "Gr. merc." CODTAB
DISPLAY "Descrizione@50" S0 LIST F_R_TIPORIGA 14
OUTPUT F_R_CODRIGA_G CODTAB BEGIN
CHECKTYPE REQUIRED PROMPT 2 4 "Tipo riga "
MESSAGE COPY,F_R_CODRIGA_A FIELD LF_RCONDV->TIPORIGA
END FLAG "P"
KEY 1
STRING F_R_CODRIGA_R 20 ITEM "A|Articolo"
BEGIN ITEM "G|Gruppo merc."
PROMPT 28 6 "Codice " ITEM "S|Sottogr. merc."
FIELD LF_RCONDV->CODRIGA ITEM "R|Ragg. fiscale"
FLAG "U" END
KEY 1
USE %RFA STRING F_R_CODRIGA_A 20
INPUT CODTAB F_R_CODRIGA_R BEGIN
DISPLAY "Ragg. fisc." CODTAB PROMPT 37 4 "Codice articolo "
DISPLAY "Descrizione@50" S0 FIELD LF_RCONDV->CODRIGA
OUTPUT F_R_CODRIGA_R CODTAB FLAG "U"
CHECKTYPE REQUIRED KEY 1
MESSAGE COPY,F_R_CODRIGA_A USE LF_ANAGR
END INPUT CODART F_R_CODRIGA_A
DISPLAY "Articolo@20" CODART
STRING F_R_NSCAGL 1 DISPLAY "Descrizione@50" DESCR
BEGIN OUTPUT F_R_CODRIGA_A CODART
PROMPT 2 7 "N.ro scaglione " OUTPUT F_R_DESRIGA_A DESCR
FIELD LF_RCONDV->NSCAGL CHECKTYPE REQUIRED
KEY 1 END
CHECKTYPE REQUIRED
END STRING F_R_DESRIGA_A 50
BEGIN
STRING F_R_LO_UM 2 // campo riservato a listini e offerte PROMPT 2 5 "Descrizione articolo "
BEGIN FLAG "D"
PROMPT 28 7 "U.M. " END
FIELD LF_RCONDV->UM
FLAG "U" STRING F_R_CODRIGA_G 3
KEY 1 BEGIN
USE LF_UMART KEY 2 PROMPT 2 5 "Gruppo merc. "
JOIN %UMS INTO CODTAB=UM FIELD LF_RCONDV->CODRIGA
INPUT CODART F_R_CODRIGA_A SELECT FLAG "U"
INPUT UM F_R_LO_UM KEY 1
DISPLAY "U.M." UM USE %GMC
DISPLAY "Desccrizione@50" %UMS->S0 INPUT CODTAB[1,3] F_R_CODRIGA_G
OUTPUT F_R_LO_UM UM DISPLAY "Gr. merc." CODTAB[1,3]
CHECKTYPE REQUIRED DISPLAY "Descrizione@50" S0
END OUTPUT F_R_CODRIGA_G CODTAB[1,3]
OUTPUT F_R_DESRIGA_G S0
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto CHECKTYPE REQUIRED
BEGIN MESSAGE COPY,F_R_CODRIGA_A
PROMPT 100 100 "" END
FLAG "D"
USE LF_RCONDV SELECT (CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD) STRING F_R_DESRIGA_G 50
INPUT TIPO F_R_TIPO SELECT BEGIN
//INPUT CATVEN F_R_L_CATVEN PROMPT 23 5 ""
//INPUT COD F_R_L_COD FLAG "D"
INPUT TIPORIGA F_R_TIPORIGA END
INPUT CODRIGA F_R_CODRIGA_A
INPUT UM F_R_LO_UM STRING F_R_CODRIGA_S 2
INPUT NSCAGL F_R_NSCAGL BEGIN
DISPLAY "Tipo" TIPORIGA PROMPT 2 5 "Sottogr. merc. "
DISPLAY "Codice@20" CODRIGA FIELD LF_RCONDV->CODRIGA
DISPLAY "U.M." UM FLAG "U"
DISPLAY "N.S." NSCAGL KEY 1
OUTPUT F_R_TIPORIGA TIPORIGA USE %GMC
OUTPUT F_R_CODRIGA_A CODRIGA INPUT CODTAB[4,5] F_R_CODRIGA_S
OUTPUT F_R_CODRIGA_G CODRIGA DISPLAY "Sottogr. merc." CODTAB[4,5]
OUTPUT F_R_CODRIGA_R CODRIGA DISPLAY "Descrizione@50" S0
OUTPUT F_R_LO_UM UM OUTPUT F_R_CODRIGA_S CODTAB[4,5]
OUTPUT F_R_NSCAGL NSCAGL OUTPUT F_R_DESRIGA_S S0
END CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto END
BEGIN
PROMPT 100 100 "" STRING F_R_DESRIGA_S 50
FLAG "D" BEGIN
USE LF_RCONDV SELECT (TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD) PROMPT 23 5 ""
INPUT TIPO F_R_TIPO SELECT FLAG "D"
//INPUT TIPOCF F_R_C_TIPOCF END
//INPUT CODCF F_R_C_CODCF
//INPUT COD F_R_C_COD STRING F_R_CODRIGA_R 2
INPUT TIPORIGA F_R_TIPORIGA BEGIN
INPUT CODRIGA F_R_CODRIGA_A PROMPT 2 5 "Ragg.fiscale "
INPUT NSCAGL F_R_NSCAGL FIELD LF_RCONDV->CODRIGA
DISPLAY "Tipo" TIPORIGA FLAG "U"
DISPLAY "Codice@20" CODRIGA KEY 1
DISPLAY "N.S." NSCAGL USE %RFA
OUTPUT F_R_TIPORIGA TIPORIGA INPUT CODTAB F_R_CODRIGA_R
OUTPUT F_R_CODRIGA_A CODRIGA DISPLAY "Ragg. fisc." CODTAB
OUTPUT F_R_CODRIGA_G CODRIGA DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_R CODRIGA OUTPUT F_R_CODRIGA_R CODTAB
OUTPUT F_R_NSCAGL NSCAGL OUTPUT F_R_DESRIGA_R S0
END CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto END
BEGIN
PROMPT 100 100 "" STRING F_R_DESRIGA_R 50
FLAG "D" BEGIN
USE LF_RCONDV SELECT COD==#F_R_L_COD PROMPT 23 5 ""
INPUT TIPO F_R_TIPO SELECT FLAG "D"
//INPUT COD F_R_O_COD END
INPUT TIPORIGA F_R_TIPORIGA
INPUT CODRIGA F_R_CODRIGA_A STRING F_R_NSCAGL 1
INPUT UM F_R_LO_UM BEGIN
INPUT NSCAGL F_R_NSCAGL PROMPT 2 7 "N.ro scaglione "
DISPLAY "Tipo" TIPORIGA FIELD LF_RCONDV->NSCAGL
DISPLAY "Codice@20" CODRIGA KEY 1
DISPLAY "U.M." UM CHECKTYPE REQUIRED
DISPLAY "N.S." NSCAGL END
OUTPUT F_R_TIPORIGA TIPORIGA
OUTPUT F_R_CODRIGA_A CODRIGA STRING F_R_LO_UM 2 // campo riservato a listini e offerte
OUTPUT F_R_CODRIGA_G CODRIGA BEGIN
OUTPUT F_R_CODRIGA_R CODRIGA PROMPT 28 7 "U.M. "
OUTPUT F_R_LO_UM UM FIELD LF_RCONDV->UM
OUTPUT F_R_NSCAGL NSCAGL FLAG "U"
END KEY 1
USE LF_UMART KEY 2
GROUPBOX DLG_NULL 78 9 // fine della chiave JOIN %UMS INTO CODTAB=UM
BEGIN INPUT CODART F_R_CODRIGA_A SELECT
PROMPT 0 0 "" INPUT UM F_R_LO_UM
FLAG "R" DISPLAY "U.M." UM
END DISPLAY "Desccrizione@50" %UMS->S0
OUTPUT F_R_LO_UM UM
NUMBER F_R_QLIM 15 5 CHECKTYPE REQUIRED
BEGIN END
PROMPT 2 9 "Q.ta' limite scagl. "
FIELD LF_RCONDV->QLIM STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
END BEGIN
PROMPT 100 100 ""
NUMBER F_R_PREZZO 18 2 FLAG "D"
BEGIN USE LF_RCONDV SELECT (CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD)
PROMPT 2 10 "Prezzo " INPUT TIPO F_R_TIPO SELECT
FIELD LF_RCONDV->PREZZO //INPUT CATVEN F_R_L_CATVEN
END //INPUT COD F_R_L_COD
INPUT TIPORIGA F_R_TIPORIGA
STRING F_R_SCONTO 25 INPUT CODRIGA F_R_CODRIGA_A
BEGIN INPUT UM F_R_LO_UM
PROMPT 35 10 "Sconto " INPUT NSCAGL F_R_NSCAGL
FIELD LF_RCONDV->SCONTO DISPLAY "Tipo" TIPORIGA
FLAG "U" DISPLAY "Codice@20" CODRIGA
END DISPLAY "U.M." UM
DISPLAY "N.S." NSCAGL
BOOLEAN F_R_ADDIVA OUTPUT F_R_TIPORIGA TIPORIGA
BEGIN OUTPUT F_R_CODRIGA_A CODRIGA
PROMPT 2 11 "Addebito IVA" OUTPUT F_R_CODRIGA_G CODRIGA
FIELD LF_RCONDV->ADDIVA OUTPUT F_R_CODRIGA_R CODRIGA
END OUTPUT F_R_LO_UM UM
OUTPUT F_R_NSCAGL NSCAGL
STRING F_R_CODIVA 4 END
BEGIN
PROMPT 31 11 "Codice IVA " STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
FIELD LF_RCONDV->CODIVA BEGIN
FLAG "U" PROMPT 100 100 ""
USE %IVA FLAG "D"
INPUT CODTAB F_R_CODIVA USE LF_RCONDV SELECT (TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD)
DISPLAY "Codice" CODTAB INPUT TIPO F_R_TIPO SELECT
DISPLAY "Descrizione@50" S0 //INPUT TIPOCF F_R_C_TIPOCF
OUTPUT F_R_CODIVA CODTAB //INPUT CODCF F_R_C_CODCF
CHECKTYPE NORMAL //INPUT COD F_R_C_COD
END INPUT TIPORIGA F_R_TIPORIGA
INPUT CODRIGA F_R_CODRIGA_A
NUMBER F_R_PERCPROVV 5 2 INPUT NSCAGL F_R_NSCAGL
BEGIN DISPLAY "Tipo" TIPORIGA
PROMPT 2 12 "Provvigione % " DISPLAY "Codice@20" CODRIGA
FIELD LF_RCONDV->PERCPROVV DISPLAY "N.S." NSCAGL
NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100) OUTPUT F_R_TIPORIGA TIPORIGA
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" OUTPUT F_R_CODRIGA_A CODRIGA
END OUTPUT F_R_CODRIGA_G CODRIGA
OUTPUT F_R_CODRIGA_R CODRIGA
NUMBER F_R_QOM 15 5 OUTPUT F_R_NSCAGL NSCAGL
BEGIN END
PROMPT 2 13 "Q.ta' sconto/omaggio "
FIELD LF_RCONDV->QOM STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
END BEGIN
PROMPT 100 100 ""
STRING F_R_UMOM 2 FLAG "D"
BEGIN USE LF_RCONDV SELECT COD==#F_R_L_COD
PROMPT 47 13 "U.M. q.ta' omaggio " INPUT TIPO F_R_TIPO SELECT
FIELD LF_RCONDV->UMOM //INPUT COD F_R_O_COD
FLAG "U" INPUT TIPORIGA F_R_TIPORIGA
USE LF_UMART KEY 2 INPUT CODRIGA F_R_CODRIGA_A
JOIN %UMS INTO CODTAB=UM INPUT UM F_R_LO_UM
INPUT CODART F_R_CODARTOM SELECT INPUT NSCAGL F_R_NSCAGL
INPUT UM F_R_UMOM DISPLAY "Tipo" TIPORIGA
DISPLAY "U.M." UM DISPLAY "Codice@20" CODRIGA
DISPLAY "Desccrizione@50" %UMS->S0 DISPLAY "U.M." UM
OUTPUT F_R_UMOM UM DISPLAY "N.S." NSCAGL
END OUTPUT F_R_TIPORIGA TIPORIGA
OUTPUT F_R_CODRIGA_A CODRIGA
NUMBER F_R_QBASE 15 5 OUTPUT F_R_CODRIGA_G CODRIGA
BEGIN OUTPUT F_R_CODRIGA_R CODRIGA
PROMPT 2 14 "Q.ta' base sconto " OUTPUT F_R_LO_UM UM
FIELD LF_RCONDV->QBASE OUTPUT F_R_NSCAGL NSCAGL
END END
STRING F_R_CODARTOM 20 GROUPBOX DLG_NULL 78 9 // fine della chiave
BEGIN BEGIN
PROMPT 2 15 "Codice art. omaggio " PROMPT 0 0 ""
FIELD LF_RCONDV->CODARTOM FLAG "R"
FLAG "U" END
USE LF_ANAGR
INPUT CODART F_R_CODARTOM NUMBER F_R_QLIM 15 5
DISPLAY "Articolo@20" CODART BEGIN
DISPLAY "Descrizione@50" DESCR PROMPT 2 9 "Q.ta' limite scagl. "
OUTPUT F_R_CODARTOM CODART FIELD LF_RCONDV->QLIM
CHECKTYPE NORMAL END
END
NUMBER F_R_PREZZO 18 2
NUMBER F_R_PROMAGGIO 18 2 BEGIN
BEGIN PROMPT 2 10 "Prezzo "
PROMPT 2 16 "Prezzo omaggio " FIELD LF_RCONDV->PREZZO
FIELD LF_RCONDV->PROMAGGIO END
END
STRING F_R_SCONTO 25
//STRINF F_R_CO_CODLOTTO 6 BEGIN
//BEGIN PROMPT 35 10 "Sconto "
//PROMPT 2 17 "Codice lotto " FIELD LF_RCONDV->SCONTO
//FIELD LF_RCONDV->CODLOTTO FLAG "U"
//FLAG "U" END
//END
BOOLEAN F_R_ADDIVA
BOOLEAN F_R_O_ARTES BEGIN
BEGIN PROMPT 2 11 "Addebito IVA"
PROMPT 47 17 "Art. in esaurimento" FIELD LF_RCONDV->ADDIVA
FIELD LF_RCONDV->ARTES END
END
STRING F_R_CODIVA 4
ENDPAGE BEGIN
PROMPT 31 11 "Codice IVA "
ENDMASK 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