This commit was manufactured by cvs2svn to create branch 'R_10_00'.
git-svn-id: svn://10.65.10.50/branches/R_10_00@21045 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
a81c192eb4
commit
74838aed82
BIN
res/insoluto.bmp
Executable file
BIN
res/insoluto.bmp
Executable file
Binary file not shown.
After Width: | Height: | Size: 822 B |
BIN
res/insoluto.png
Executable file
BIN
res/insoluto.png
Executable file
Binary file not shown.
After Width: | Height: | Size: 25 KiB |
BIN
res/pagamento.bmp
Executable file
BIN
res/pagamento.bmp
Executable file
Binary file not shown.
After Width: | Height: | Size: 822 B |
BIN
res/pagamento.png
Executable file
BIN
res/pagamento.png
Executable file
Binary file not shown.
After Width: | Height: | Size: 26 KiB |
130
ve/ve2500ac.uml
Executable file
130
ve/ve2500ac.uml
Executable file
@ -0,0 +1,130 @@
|
||||
//maschera per i 'C'ontratti (parte iniziale)
|
||||
|
||||
#include "ve2500a.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 0 0 2
|
||||
|
||||
#include <filebar.h>
|
||||
|
||||
BUTTON DLG_CREA 2 2
|
||||
BEGIN
|
||||
PROMPT 10 -1 "Cr~ea"
|
||||
PICTURE TOOL_IMPORT
|
||||
END
|
||||
|
||||
BUTTON DLG_COMPATTA 2 2
|
||||
BEGIN
|
||||
PROMPT 11 -1 "Co~mpatta"
|
||||
PICTURE TOOL_PACK
|
||||
END
|
||||
|
||||
#include <cancelbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Dati generali e Righe" 0 2 0 0
|
||||
|
||||
LIST FA_TIPO 1 9
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
ITEM "C|Contratto"
|
||||
FLAGS "D"
|
||||
FIELD TIPO
|
||||
KEY 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 0 "@bDati Contratto"
|
||||
END
|
||||
|
||||
LIST FA_C_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 1 1 "Cli./Forn."
|
||||
FIELD TIPOCF
|
||||
KEY 1
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
END
|
||||
|
||||
STRING FA_C_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 25 1 ""
|
||||
FIELD CODCF
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF FA_C_TIPOCF SELECT
|
||||
INPUT CODCF FA_C_CODCF
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT FA_C_TIPOCF TIPOCF
|
||||
OUTPUT FA_C_CODCF CODCF
|
||||
OUTPUT FA_C_DESCF RAGSOC
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING FA_C_DESCF 50 41
|
||||
BEGIN
|
||||
PROMPT 35 1 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FA_COD 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Contratto "
|
||||
FIELD COD
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "C"
|
||||
INPUT TIPOCF FA_C_TIPOCF SELECT
|
||||
INPUT CODCF FA_C_CODCF SELECT
|
||||
INPUT COD FA_COD
|
||||
DISPLAY "CF" TIPOCF
|
||||
DISPLAY "Cod.CF" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FA_C_TIPOCF TIPOCF
|
||||
OUTPUT FA_C_CODCF CODCF
|
||||
OUTPUT FA_COD COD
|
||||
OUTPUT FA_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING FA_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 18 2 ""
|
||||
FIELD DESCR
|
||||
END
|
||||
|
||||
BOOLEAN FA_C_OBBL
|
||||
BEGIN
|
||||
PROMPT 62 3 "Obbligatorio"
|
||||
FIELD OBBLIG
|
||||
END
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
PROMPT 0 6 "@bRighe contratto"
|
||||
END
|
||||
|
||||
//stringa farlocca per poter usare le maschere strutturate con più .uml
|
||||
STRING FA_L_CATVEN 2
|
||||
BEGIN
|
||||
PROMPT 0 100 ""
|
||||
FLAGS "HD"
|
||||
END
|
||||
|
||||
#include "ve2500ax.uml"
|
||||
|
||||
//aggiungere qui i campi specifici dei contratti in pag.2
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "ve2500as.uml"
|
202
ve/ve2500al.uml
Executable file
202
ve/ve2500al.uml
Executable file
@ -0,0 +1,202 @@
|
||||
//maschera per i 'L'istini (parte iniziale)
|
||||
|
||||
#include "ve2500a.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 0 0 2
|
||||
|
||||
#include <filebar.h>
|
||||
|
||||
BUTTON DLG_CREA 2 2
|
||||
BEGIN
|
||||
PROMPT 10 -1 "Cr~ea"
|
||||
PICTURE TOOL_IMPORT
|
||||
END
|
||||
|
||||
BUTTON DLG_COMPATTA 2 2
|
||||
BEGIN
|
||||
PROMPT 11 -1 "Co~mpatta"
|
||||
PICTURE TOOL_PACK
|
||||
END
|
||||
|
||||
#include <cancelbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Dati generali e Righe" 0 2 0 0
|
||||
|
||||
LIST FA_TIPO 1 7
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
ITEM "L|Listino"
|
||||
FLAGS "D"
|
||||
FIELD TIPO
|
||||
KEY 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 0 "@bDati Listino"
|
||||
END
|
||||
|
||||
STRING FA_L_CATVEN 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Cat. ven. "
|
||||
FIELD CATVEN
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE CVE
|
||||
INPUT CODTAB FA_L_CATVEN
|
||||
DISPLAY "Cat." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FA_L_CATVEN CODTAB
|
||||
OUTPUT FA_L_DESVEN S0
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING FA_L_DESVEN 50
|
||||
BEGIN
|
||||
PROMPT 18 1 ""
|
||||
USE CVE KEY 2
|
||||
INPUT S0 FA_L_DESVEN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cat." CODTAB
|
||||
COPY OUTPUT FA_L_CATVEN
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FA_COD 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Listino "
|
||||
FIELD COD
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "L"
|
||||
INPUT CATVEN FA_L_CATVEN SELECT
|
||||
INPUT COD FA_COD
|
||||
DISPLAY "C.V." CATVEN
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FA_L_CATVEN CATVEN
|
||||
OUTPUT FA_COD COD
|
||||
OUTPUT FA_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING FA_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 18 2 ""
|
||||
FIELD DESCR
|
||||
END
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
PROMPT 0 6 "@bRighe listino"
|
||||
END
|
||||
|
||||
|
||||
#include "ve2500ax.uml"
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 0 12 "@bListino successivo"
|
||||
END
|
||||
|
||||
STRING FA_L_CODSUCC 3
|
||||
BEGIN
|
||||
PROMPT 1 13 ""
|
||||
FIELD CODLISSUCC
|
||||
FLAGS "U"
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "L"
|
||||
INPUT CATVEN FA_L_CATVEN SELECT
|
||||
INPUT COD FA_L_CODSUCC
|
||||
DISPLAY "C.V." CATVEN
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT FA_L_CODSUCC COD
|
||||
OUTPUT FA_L_DESSUCC DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FA_L_DESSUCC 50
|
||||
BEGIN
|
||||
PROMPT 10 13 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 15 "@bListino padre"
|
||||
END
|
||||
|
||||
STRING FA_L_FATHCATVEN 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Cat. ven. "
|
||||
FIELD FATHCATVEN
|
||||
FLAGS "U"
|
||||
USE CVE
|
||||
INPUT CODTAB FA_L_FATHCATVEN
|
||||
DISPLAY "Cat." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FA_L_FATHCATVEN CODTAB
|
||||
OUTPUT FA_L_FATHDESVEN S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FA_L_FATHDESVEN 50
|
||||
BEGIN
|
||||
PROMPT 18 16 ""
|
||||
USE CVE KEY 2
|
||||
INPUT S0 FA_L_FATHDESVEN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cat." CODTAB
|
||||
COPY OUTPUT FA_L_FATHCATVEN
|
||||
END
|
||||
|
||||
STRING FA_L_FATHCOD 3
|
||||
BEGIN
|
||||
PROMPT 1 17 "Listino "
|
||||
FIELD FATHCOD
|
||||
FLAGS "U"
|
||||
USE LF_CONDV SELECT (CATVEN!=#FA_L_CATVEN)||(COD!=#FA_COD)
|
||||
INPUT TIPO "L"
|
||||
INPUT CATVEN FA_L_FATHCATVEN SELECT
|
||||
INPUT COD FA_L_FATHCOD
|
||||
DISPLAY "C.V." CATVEN
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FA_L_FATHCATVEN CATVEN
|
||||
OUTPUT FA_L_FATHCOD COD
|
||||
OUTPUT FA_L_FATHDESCR DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FA_L_FATHDESCR 50
|
||||
BEGIN
|
||||
PROMPT 18 17 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FA_L_ARROTONDA 8
|
||||
BEGIN
|
||||
PROMPT 1 18 "Arrotonda "
|
||||
FIELD ARROTONDA
|
||||
END
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
PROMPT 21 18 "es. -0,05=per difetto ai 5 cent; +0,10=per eccesso ai 10 cent"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "ve2500as.uml"
|
||||
|
85
ve/ve2500ao.uml
Executable file
85
ve/ve2500ao.uml
Executable file
@ -0,0 +1,85 @@
|
||||
//maschera per i 'O'fferte (parte iniziale)
|
||||
|
||||
#include "ve2500a.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 0 0 2
|
||||
|
||||
#include <filebar.h>
|
||||
|
||||
BUTTON DLG_CREA 2 2
|
||||
BEGIN
|
||||
PROMPT 10 -1 "Cr~ea"
|
||||
PICTURE TOOL_IMPORT
|
||||
END
|
||||
|
||||
BUTTON DLG_COMPATTA 2 2
|
||||
BEGIN
|
||||
PROMPT 11 -1 "Co~mpatta"
|
||||
PICTURE TOOL_PACK
|
||||
END
|
||||
|
||||
#include <cancelbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Dati generali e Righe" 0 2 0 0
|
||||
|
||||
LIST FA_TIPO 1 7
|
||||
BEGIN
|
||||
PROMPT 100 100 ""
|
||||
ITEM "O|Offerta"
|
||||
FLAGS "D"
|
||||
FIELD TIPO
|
||||
KEY 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 0 "@bDati Offerta"
|
||||
END
|
||||
|
||||
STRING FA_COD 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Offerta "
|
||||
FIELD COD
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "O"
|
||||
INPUT COD FA_COD
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FA_COD COD
|
||||
OUTPUT FA_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING FA_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 18 2 ""
|
||||
FIELD DESCR
|
||||
END
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
PROMPT 0 6 "@bRighe Offerta"
|
||||
END
|
||||
|
||||
//stringa farlocca per poter usare le maschere strutturate con più .uml
|
||||
STRING FA_L_CATVEN 2
|
||||
BEGIN
|
||||
PROMPT 0 100 ""
|
||||
FLAGS "HD"
|
||||
END
|
||||
|
||||
#include "ve2500ax.uml"
|
||||
|
||||
//aggiungere qui i campi specifici delle offerte in pag.2
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "ve2500as.uml"
|
308
ve/ve2500as.uml
Executable file
308
ve/ve2500as.uml
Executable file
@ -0,0 +1,308 @@
|
||||
/////////////////////////////////////////
|
||||
//maschera di riga
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Riga listino" -1 -1 78 22
|
||||
|
||||
LIST S_TIPORIGA 1 16
|
||||
BEGIN
|
||||
PROMPT 1 0 "Tipo riga "
|
||||
FIELD TIPORIGA
|
||||
ITEM "A|Articolo"
|
||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
|
||||
ITEM "G|Gruppo merc."
|
||||
MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
|
||||
ITEM "S|Sottogr. merc."
|
||||
MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
|
||||
ITEM "R|Ragg. fiscale"
|
||||
MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
|
||||
END
|
||||
|
||||
STRING S_CODRIGA_A 20
|
||||
BEGIN
|
||||
PROMPT 1 1 "Articolo "
|
||||
FIELD CODRIGA
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART S_CODRIGA_A
|
||||
DISPLAY "Articolo@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT S_CODRIGA_A CODART
|
||||
OUTPUT S_DESRIGA_A DESCR
|
||||
CHECKTYPE FORCED
|
||||
ADD RUN ve2 -3
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING S_DESRIGA_A 50 39
|
||||
BEGIN
|
||||
PROMPT 35 1 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR S_DESRIGA_A
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Articolo@20" CODART
|
||||
COPY OUTPUT S_CODRIGA_A
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ve2 -3
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING S_CODRIGA_G 20 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Gr. merceologico "
|
||||
FIELD CODRIGA
|
||||
FLAGS "U"
|
||||
USE GMC SELECT CODTAB[4,5] == ""
|
||||
INPUT CODTAB[1,3] S_CODRIGA_G
|
||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CODRIGA_G CODTAB[1,3]
|
||||
OUTPUT S_DESRIGA_G S0
|
||||
CHECKTYPE FORCED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING S_DESRIGA_G 50
|
||||
BEGIN
|
||||
PROMPT 24 1 ""
|
||||
USE GMC KEY 2 SELECT CODTAB[4,5] == ""
|
||||
INPUT S0 S_DESRIGA_G
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||
COPY OUTPUT S_CODRIGA_G
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING S_CODRIGA_S 20 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Sottogr. merc. "
|
||||
FIELD CODRIGA
|
||||
FLAGS "U"
|
||||
USE GMC SELECT CODTAB[4,5] != ""
|
||||
INPUT CODTAB S_CODRIGA_S
|
||||
DISPLAY "Gruppo merc." CODTAB[1,3]
|
||||
DISPLAY "Sottogr. merc." CODTAB[4,5]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CODRIGA_S CODTAB
|
||||
OUTPUT S_DESRIGA_S S0
|
||||
CHECKTYPE FORCED
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING S_DESRIGA_S 50
|
||||
BEGIN
|
||||
PROMPT 24 1 ""
|
||||
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
||||
INPUT S0 S_DESRIGA_S
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||
DISPLAY "Sottogr. merc." CODTAB[4,5]
|
||||
COPY OUTPUT S_CODRIGA_S
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING S_CODRIGA_R 20 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Raggr. fiscale "
|
||||
FIELD CODRIGA
|
||||
FLAGS "U"
|
||||
USE RFA
|
||||
INPUT CODTAB S_CODRIGA_R
|
||||
DISPLAY "Ragg. fisc." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CODRIGA_R CODTAB
|
||||
OUTPUT S_DESRIGA_R S0
|
||||
CHECKTYPE FORCED
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRING S_DESRIGA_R 50
|
||||
BEGIN
|
||||
PROMPT 24 1 ""
|
||||
USE RFA KEY 2
|
||||
INPUT S0 S_DESRIGA_R
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Ragg. fisc." CODTAB
|
||||
COPY OUTPUT S_CODRIGA_R
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
NUMBER S_PREZZO 18 5
|
||||
BEGIN
|
||||
PROMPT 1 2 "Prezzo "
|
||||
FIELD PREZZO
|
||||
FLAGS "U"
|
||||
DRIVENBY -FA_CODVAL
|
||||
END
|
||||
|
||||
STRING S_UM 2
|
||||
BEGIN
|
||||
PROMPT 67 0 "U.M. "
|
||||
FIELD UM
|
||||
FLAGS "U"
|
||||
USE LF_UMART KEY 2
|
||||
JOIN %UMS INTO CODTAB=UM
|
||||
INPUT CODART S_CODRIGA_A SELECT
|
||||
INPUT UM S_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Descrizione@50" %UMS->S0
|
||||
OUTPUT S_UM UM
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 1 3 "Scaglione"
|
||||
END
|
||||
|
||||
NUMBER S_NSCAGL 1
|
||||
BEGIN
|
||||
PROMPT 2 4 "Numero "
|
||||
FIELD NSCAGL
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_QLIM 15 5
|
||||
BEGIN
|
||||
PROMPT 24 4 "Qta limite "
|
||||
FIELD QLIM
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 1 6 "IVA"
|
||||
END
|
||||
|
||||
BOOLEAN S_ADDIVA
|
||||
BEGIN
|
||||
PROMPT 2 7 "Addebito"
|
||||
FIELD ADDIVA
|
||||
END
|
||||
|
||||
STRING S_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 25 7 "Codice"
|
||||
FIELD CODIVA
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB S_CODIVA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CODIVA CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 8
|
||||
BEGIN
|
||||
PROMPT 1 9 "Sconti e omaggi"
|
||||
END
|
||||
|
||||
STRING S_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 2 10 "Sconto/maggiorazione "
|
||||
FIELD SCONTO
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER S_QOM 15 5
|
||||
BEGIN
|
||||
PROMPT 2 11 "Qta sconto/omaggio "
|
||||
FIELD QOM
|
||||
END
|
||||
|
||||
NUMBER S_QBASE 15 5
|
||||
BEGIN
|
||||
PROMPT 2 12 "Qta base sconto "
|
||||
FIELD QBASE
|
||||
END
|
||||
|
||||
STRING S_CODARTOM 20
|
||||
BEGIN
|
||||
PROMPT 2 13 "Cod. articolo omaggio "
|
||||
FIELD CODARTOM
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART S_CODARTOM
|
||||
DISPLAY "Articolo@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT S_CODARTOM CODART
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING S_UMOM 2
|
||||
BEGIN
|
||||
PROMPT 2 14 "U.M. qta omaggio "
|
||||
FIELD UMOM
|
||||
FLAGS "U"
|
||||
USE LF_UMART KEY 2
|
||||
JOIN %UMS INTO CODTAB=UM
|
||||
INPUT CODART S_CODARTOM SELECT
|
||||
INPUT UM F_UMOM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Descrizione@50" %UMS->S0
|
||||
OUTPUT S_UMOM UM
|
||||
END
|
||||
|
||||
NUMBER S_PROMAGGIO 18 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "Prezzo omaggio "
|
||||
FIELD PROMAGGIO
|
||||
FLAGS "U"
|
||||
DRIVENBY -FA_CODVAL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 1 17 "Storico"
|
||||
END
|
||||
|
||||
NUMBER S_PRZSTO 18 5
|
||||
BEGIN
|
||||
PROMPT 2 18 "Prezzo storico "
|
||||
FIELD PRZSTO
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
DATA S_DATAPRZSTO
|
||||
BEGIN
|
||||
PROMPT 2 19 "Data prz storico "
|
||||
FIELD DATAPRZSTO
|
||||
END
|
||||
|
||||
DATA S_DATAULTAUM
|
||||
BEGIN
|
||||
PROMPT 2 20 "Data ultimo aumento "
|
||||
FIELD DATAULTAUM
|
||||
END
|
||||
|
||||
NUMBER S_PERCPROVV 5 2
|
||||
BEGIN
|
||||
PROMPT 2 22 "% provv. "
|
||||
FIELD PERCPROVV
|
||||
NUM_EXPR (#F_PERCPROVV>=0)&&(#F_PERCPROVV<=100)
|
||||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
337
ve/ve2500ax.uml
Executable file
337
ve/ve2500ax.uml
Executable file
@ -0,0 +1,337 @@
|
||||
//maschera comune a 'L'istini 'C'ontratti 'O'fferte
|
||||
|
||||
DATA FA_VALINI
|
||||
BEGIN
|
||||
PROMPT 1 3 "Inizio validita` "
|
||||
FIELD VALIN
|
||||
END
|
||||
|
||||
DATA FA_VALFIN
|
||||
BEGIN
|
||||
PROMPT 35 3 "Fine validita` "
|
||||
FIELD VALFIN
|
||||
END
|
||||
|
||||
//campi di ricerca parziale sullo sheet
|
||||
//-------------------------------------
|
||||
LIST FA_TIPORIGA 1 13
|
||||
BEGIN
|
||||
PROMPT 1 5 ""
|
||||
FLAGS "P"
|
||||
ITEM "A|Articolo"
|
||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
|
||||
ITEM "G|Gr. merc."
|
||||
MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
|
||||
ITEM "S|Sotgr.merc."
|
||||
MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
|
||||
ITEM "R|Ragg. fisc."
|
||||
MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
|
||||
END
|
||||
|
||||
STRING FA_CODRIGA_A 20
|
||||
BEGIN
|
||||
PROMPT 18 5 ""
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART FA_CODRIGA_A
|
||||
DISPLAY "Articolo@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT FA_CODRIGA_A CODART
|
||||
OUTPUT FA_DESRIGA_A DESCR
|
||||
OUTPUT FA_GRMERC_A GRMERC
|
||||
CHECKTYPE SEARCH
|
||||
ADD RUN ve2 -3
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FA_DESRIGA_A 50 33
|
||||
BEGIN
|
||||
PROMPT 42 5 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR FA_DESRIGA_A
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Articolo@20" CODART
|
||||
COPY OUTPUT FA_CODRIGA_A
|
||||
CHECKTYPE SEARCH
|
||||
ADD RUN ve2 -3
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FA_CODRIGA_G 20 3
|
||||
BEGIN
|
||||
PROMPT 18 5 ""
|
||||
FLAGS "U"
|
||||
USE GMC SELECT CODTAB[4,5] == ""
|
||||
INPUT CODTAB[1,3] FA_CODRIGA_G
|
||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FA_CODRIGA_G CODTAB[1,3]
|
||||
OUTPUT FA_DESRIGA_G S0
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FA_DESRIGA_G 50
|
||||
BEGIN
|
||||
PROMPT 25 5 ""
|
||||
USE GMC KEY 2 SELECT CODTAB[4,5] == ""
|
||||
INPUT S0 F_DESRIGA_G
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||
COPY OUTPUT FA_CODRIGA_G
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FA_CODRIGA_S 20 5
|
||||
BEGIN
|
||||
PROMPT 18 5 ""
|
||||
FLAGS "U"
|
||||
USE GMC SELECT CODTAB[4,5] != ""
|
||||
INPUT CODTAB FA_CODRIGA_S
|
||||
DISPLAY "Gruppo merc." CODTAB[1,3]
|
||||
DISPLAY "Sottogr. merc." CODTAB[4,5]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FA_CODRIGA_S CODTAB
|
||||
OUTPUT FA_DESRIGA_S S0
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING FA_DESRIGA_S 50 48
|
||||
BEGIN
|
||||
PROMPT 27 5 ""
|
||||
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
||||
INPUT S0 FA_DESRIGA_S
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Gr. merc." CODTAB[1,3]
|
||||
DISPLAY "Sottogr. merc." CODTAB[4,5]
|
||||
COPY OUTPUT FA_CODRIGA_S
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING FA_CODRIGA_R 20 5
|
||||
BEGIN
|
||||
PROMPT 18 5 ""
|
||||
FLAGS "U"
|
||||
USE RFA
|
||||
INPUT CODTAB FA_CODRIGA_R
|
||||
DISPLAY "Ragg. fisc." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FA_CODRIGA_R CODTAB
|
||||
OUTPUT FA_DESRIGA_R S0
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRING FA_DESRIGA_R 50 48
|
||||
BEGIN
|
||||
PROMPT 27 5 ""
|
||||
USE RFA KEY 2
|
||||
INPUT S0 FA_DESRIGA_R
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Ragg. fisc." CODTAB
|
||||
COPY OUTPUT FA_CODRIGA_R
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRING FA_GRMERC_A 5
|
||||
BEGIN
|
||||
PROMPT 15 6 "Gr.merc. "
|
||||
USE GMC
|
||||
INPUT CODTAB FA_GRMERC_A
|
||||
OUTPUT FA_DESGRMERC_A S0
|
||||
FLAGS "DG"
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1 2 3
|
||||
END
|
||||
|
||||
STRING FA_DESGRMERC_A 50 27
|
||||
BEGIN
|
||||
PROMPT 30 6 ""
|
||||
FLAGS "D"
|
||||
GROUP 1 2 3
|
||||
END
|
||||
|
||||
BUTTON DLG_GRMERC 18 1
|
||||
BEGIN
|
||||
PROMPT 58 6 "Modifica Gr.Merc."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
//------------------------------------------
|
||||
|
||||
SPREADSHEET FA_RIGHE
|
||||
BEGIN
|
||||
PROMPT 1 7 "Righe"
|
||||
ITEM "Tipo@4"
|
||||
ITEM "Codice@20"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Prezzo netto@18"
|
||||
ITEM "UM"
|
||||
ITEM "N.Scagl."
|
||||
ITEM "Qta lim. scagl."
|
||||
ITEM "Sconto@25"
|
||||
ITEM "Add.IVA"
|
||||
ITEM "Cod.IVA"
|
||||
ITEM "Qta sconto/omag"
|
||||
ITEM "Qta base sconto"
|
||||
ITEM "Cod. art. omaggio@20"
|
||||
ITEM "UM omaggio"
|
||||
ITEM "Prezzo omaggio"
|
||||
ITEM "Prezzo storico"
|
||||
ITEM "Data prz.storico"
|
||||
ITEM "Data ult.aumento"
|
||||
ITEM "% provvigione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Dati avanzati" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 0 0 "@bGestione valuta"
|
||||
END
|
||||
|
||||
STRING FA_CODVAL 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Valuta "
|
||||
FIELD CODVAL
|
||||
FLAGS "U"
|
||||
USE %VAL
|
||||
INPUT CODTAB FA_CODVAL
|
||||
DISPLAY "Valuta" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cambio" S4
|
||||
OUTPUT FA_CODVAL CODTAB
|
||||
OUTPUT FA_CONTROEURO B1
|
||||
OUTPUT FA_CAMBIO S4
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY CLEAR,FA_CAMBIO|CLEAR,FA_DATACAM|DISABLE,FA_DATACAM
|
||||
MESSAGE ENABLE,FA_CAMBIO|ENABLE,FA_DATACAM
|
||||
END
|
||||
|
||||
NUMBER FA_CAMBIO 15 6
|
||||
BEGIN
|
||||
PROMPT 17 1 "Cambio "
|
||||
FIELD CAMBIO
|
||||
END
|
||||
|
||||
BOOLEAN FA_CONTROEURO
|
||||
BEGIN
|
||||
PROMPT 42 1 "Contro Euro"
|
||||
FIELD CONTROEURO
|
||||
END
|
||||
|
||||
DATA FA_DATACAM
|
||||
BEGIN
|
||||
PROMPT 61 1 "Data "
|
||||
FIELD DATACAM
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 0 3 "@bScaglioni"
|
||||
END
|
||||
|
||||
BOOLEAN FA_GESTSCAGL
|
||||
BEGIN
|
||||
PROMPT 1 4 "Gestione scaglioni"
|
||||
FIELD GESTSCAGL
|
||||
MESSAGE FALSE CLEAR,FA_DECIMALI
|
||||
MESSAGE TRUE ENABLE,FA_DECIMALI
|
||||
END
|
||||
|
||||
LISTBOX FA_DECIMALI 7
|
||||
BEGIN
|
||||
PROMPT 25 4 "Decimali per quantita' limite "
|
||||
FIELD DECIMALI
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|1"
|
||||
ITEM "2|2"
|
||||
ITEM "3|3"
|
||||
ITEM "4|4"
|
||||
ITEM "5|5"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 0 6 "@bSequenza ricerca"
|
||||
END
|
||||
|
||||
LIST FA_SEQRIC_1 10
|
||||
BEGIN
|
||||
PROMPT 1 7 ""
|
||||
FIELD SEQRIC[1,1]
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gruppo M."
|
||||
ITEM "S|Sottog. M."
|
||||
ITEM "R|Ragg.fisc."
|
||||
END
|
||||
|
||||
LIST FA_SEQRIC_2 10
|
||||
BEGIN
|
||||
PROMPT 18 7 ""
|
||||
FIELD SEQRIC[2,2]
|
||||
ITEM "-|Nessuno" MESSAGE CLEAR,5@
|
||||
ITEM "A|Articoli" MESSAGE ENABLE,FA_SEQRIC_3
|
||||
ITEM "G|Gruppo M." MESSAGE ENABLE,FA_SEQRIC_3
|
||||
ITEM "S|Sottog. M." MESSAGE ENABLE,FA_SEQRIC_3
|
||||
ITEM "R|Ragg.fisc." MESSAGE ENABLE,FA_SEQRIC_3
|
||||
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#FA_SEQRIC_1)
|
||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||
END
|
||||
|
||||
LIST FA_SEQRIC_3 10
|
||||
BEGIN
|
||||
PROMPT 33 7 ""
|
||||
FIELD SEQRIC[3,3]
|
||||
ITEM "-|Nessuno" MESSAGE CLEAR,FA_SEQRIC_4
|
||||
ITEM "A|Articoli" MESSAGE ENABLE,FA_SEQRIC_4
|
||||
ITEM "G|Gruppo M." MESSAGE ENABLE,FA_SEQRIC_4
|
||||
ITEM "S|Sottog. M." MESSAGE ENABLE,FA_SEQRIC_4
|
||||
ITEM "R|Ragg.fisc." MESSAGE ENABLE,FA_SEQRIC_4
|
||||
GROUP 5
|
||||
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#FA_SEQRIC_1)&&(#THIS_FIELD!=#FA_SEQRIC_2))
|
||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||
END
|
||||
|
||||
LIST FA_SEQRIC_4 10
|
||||
BEGIN
|
||||
PROMPT 48 7 ""
|
||||
FIELD SEQRIC[4,4]
|
||||
ITEM "-|Nessuno"
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gruppo M."
|
||||
ITEM "S|Sottog. M."
|
||||
ITEM "R|Ragg.fisc."
|
||||
GROUP 5
|
||||
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#FA_SEQRIC_1)&&(#THIS_FIELD!=#FA_SEQRIC_2)&&(#THIS_FIELD!=#FA_SEQRIC_3))
|
||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 0 9 "@bParametri gestione"
|
||||
END
|
||||
|
||||
BOOLEAN FA_IMPLORDI
|
||||
BEGIN
|
||||
PROMPT 1 10 "Importi lordi"
|
||||
FIELD IMPLORDI
|
||||
END
|
||||
|
||||
BOOLEAN FA_GESTUM
|
||||
BEGIN
|
||||
PROMPT 20 10 "Gestione unita` di misura"
|
||||
FIELD GESTUM
|
||||
END
|
||||
|
||||
BOOLEAN FA_GESTSCO
|
||||
BEGIN
|
||||
PROMPT 50 10 "Gestione sconti/omaggi"
|
||||
FIELD GESTSCO
|
||||
END
|
124
ve/ve2500bc.uml
Executable file
124
ve/ve2500bc.uml
Executable file
@ -0,0 +1,124 @@
|
||||
#include "ve2500b.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 0 0 2
|
||||
|
||||
#include <stdbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Creazione nuovo contratto" 0 2 0 0
|
||||
|
||||
RADIOBUTTON FB_SELECT 76
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bTipologia di generazione"
|
||||
ITEM "1|Copia da contratto esistente"
|
||||
MESSAGE HIDE,2@|SHOW,1@
|
||||
ITEM "2|Anagrafica articoli"
|
||||
MESSAGE HIDE,1@|SHOW,2@
|
||||
END
|
||||
|
||||
//Copia contratto esistente
|
||||
//-----------------------------------------------
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bDati contratto origine"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LIST FB_C_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Cli./Forn."
|
||||
FIELD TIPOCF
|
||||
KEY 1
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_C_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 25 8 ""
|
||||
FIELD CODCF
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF FB_C_TIPOCF SELECT
|
||||
INPUT CODCF FB_C_CODCF
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT FB_C_TIPOCF TIPOCF
|
||||
OUTPUT FB_C_CODCF CODCF
|
||||
OUTPUT FB_C_DESCF RAGSOC
|
||||
CHECKTYPE FORCED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_C_DESCF 50 41
|
||||
BEGIN
|
||||
PROMPT 35 8 ""
|
||||
FLAGS "D"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
//stringa farlocca per poter usare le maschere strutturate con più .uml
|
||||
STRING FB_L_CATVEN 2
|
||||
BEGIN
|
||||
PROMPT 0 100 ""
|
||||
FLAGS "HD"
|
||||
GROUP 1
|
||||
END
|
||||
//stringa farlocca...
|
||||
STRING FB_L_DESVEN 50
|
||||
BEGIN
|
||||
PROMPT 0 100 ""
|
||||
FLAGS "HD"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
||||
STRING FB_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Contratto "
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "C"
|
||||
INPUT TIPOCF FB_C_TIPOCF SELECT
|
||||
INPUT CODCF FB_C_CODCF SELECT
|
||||
INPUT COD FB_COD
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Cod.CF" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FB_C_TIPOCF TIPOCF
|
||||
OUTPUT FB_C_CODCF CODCF
|
||||
OUTPUT FB_COD COD
|
||||
OUTPUT FB_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 21 9 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER FB_RICARICO 6 2
|
||||
BEGIN
|
||||
PROMPT 2 10 "Ricarico "
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN FB_COPIATESTA
|
||||
BEGIN
|
||||
PROMPT 21 10 "Copia tutti i dati di testata"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
#include "ve2500bx.uml"
|
||||
|
||||
ENDMASK
|
97
ve/ve2500bl.uml
Executable file
97
ve/ve2500bl.uml
Executable file
@ -0,0 +1,97 @@
|
||||
#include "ve2500b.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 0 0 2
|
||||
|
||||
#include <stdbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Creazione nuovo listino" 0 2 0 0
|
||||
|
||||
RADIOBUTTON FB_SELECT 76
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bTipologia di generazione"
|
||||
ITEM "1|Copia da listino esistente"
|
||||
MESSAGE HIDE,2@|SHOW,1@
|
||||
ITEM "2|Anagrafica articoli"
|
||||
MESSAGE HIDE,1@|SHOW,2@
|
||||
END
|
||||
|
||||
//Copia listino esistente
|
||||
//-----------------------------------------------
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bDati listino origine"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_L_CATVEN 2
|
||||
BEGIN
|
||||
PROMPT 2 8 "Cat. vend. "
|
||||
FIELD CATVEN
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE CVE
|
||||
INPUT CODTAB FB_L_CATVEN
|
||||
DISPLAY "Cat." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FB_L_CATVEN CODTAB
|
||||
OUTPUT FB_L_DESVEN S0
|
||||
CHECKTYPE FORCED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_L_DESVEN 50
|
||||
BEGIN
|
||||
PROMPT 21 8 ""
|
||||
USE CVE KEY 2
|
||||
INPUT S0 FB_L_DESVEN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cat." CODTAB
|
||||
COPY OUTPUT FB_L_CATVEN
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Listino "
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "L"
|
||||
INPUT CATVEN FB_L_CATVEN SELECT
|
||||
INPUT COD FB_COD
|
||||
DISPLAY "C.V." CATVEN
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FB_L_CATVEN CATVEN
|
||||
OUTPUT FB_COD COD
|
||||
OUTPUT FB_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 21 9 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER FB_RICARICO 6 2
|
||||
BEGIN
|
||||
PROMPT 2 10 "Ricarico "
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN FB_COPIATESTA
|
||||
BEGIN
|
||||
PROMPT 21 10 "Copia tutti i dati di testata"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
#include "ve2500bx.uml"
|
||||
|
||||
ENDMASK
|
82
ve/ve2500bo.uml
Executable file
82
ve/ve2500bo.uml
Executable file
@ -0,0 +1,82 @@
|
||||
#include "ve2500b.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 0 0 2
|
||||
|
||||
#include <stdbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Creazione nuova offerta" 0 2 0 0
|
||||
|
||||
RADIOBUTTON FB_SELECT 76
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bTipologia di generazione"
|
||||
ITEM "1|Copia da offerta esistente"
|
||||
MESSAGE HIDE,2@|SHOW,1@
|
||||
ITEM "2|Anagrafica articoli"
|
||||
MESSAGE HIDE,1@|SHOW,2@
|
||||
END
|
||||
|
||||
//Copia listino esistente
|
||||
//-----------------------------------------------
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bDati offerta origine"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
//stringa farlocca per poter usare le maschere strutturate con più .uml
|
||||
STRING FB_L_CATVEN 2
|
||||
BEGIN
|
||||
PROMPT 0 100 ""
|
||||
FLAGS "HD"
|
||||
GROUP 1
|
||||
END
|
||||
//stringa farlocca..
|
||||
STRING FB_L_DESVEN 50
|
||||
BEGIN
|
||||
PROMPT 0 100 ""
|
||||
USE CVE KEY 2
|
||||
FLAGS "HD"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Offerta "
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "O"
|
||||
INPUT COD FB_COD
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Fine validita'" VALFIN
|
||||
OUTPUT FB_COD COD
|
||||
OUTPUT FB_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FB_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 21 9 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER FB_RICARICO 6 2
|
||||
BEGIN
|
||||
PROMPT 2 10 "Ricarico "
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN FB_COPIATESTA
|
||||
BEGIN
|
||||
PROMPT 21 10 "Copia tutti i dati di testata"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
#include "ve2500bx.uml"
|
||||
|
||||
ENDMASK
|
137
ve/ve2500bx.uml
Executable file
137
ve/ve2500bx.uml
Executable file
@ -0,0 +1,137 @@
|
||||
#include "ve2500b.h"
|
||||
|
||||
//Generazione da anagrafica articoli
|
||||
//-----------------------------------------------
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bAnagrafica articoli"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_DACODART 20
|
||||
BEGIN
|
||||
PROMPT 2 8 "Da articolo "
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART FB_DACODART
|
||||
DISPLAY "Articolo@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT FB_DACODART CODART
|
||||
OUTPUT FB_DADESART DESCR
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ve2 -3
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_DADESART 50 35
|
||||
BEGIN
|
||||
PROMPT 38 8 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR FB_DADESART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Articolo@20" CODART
|
||||
COPY OUTPUT FB_DACODART
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ve2 -3
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_ACODART 20
|
||||
BEGIN
|
||||
PROMPT 2 9 "A articolo "
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART FB_ACODART
|
||||
COPY DISPLAY FB_DACODART
|
||||
OUTPUT FB_ACODART CODART
|
||||
OUTPUT FB_ADESART DESCR
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ve2 -3
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_ADESART 50 35
|
||||
BEGIN
|
||||
PROMPT 38 9 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR FB_ADESART
|
||||
COPY DISPLAY FB_DADESART
|
||||
COPY OUTPUT FB_ACODART
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ve2 -3
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_GRMERC 3
|
||||
BEGIN
|
||||
PROMPT 2 10 "Gr. merc. "
|
||||
FLAGS "U"
|
||||
USE GMC SELECT CODTAB[4,5] == ""
|
||||
INPUT CODTAB[1,3] FB_GRMERC
|
||||
DISPLAY "Gruppo" CODTAB[1,3]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FB_GRMERC CODTAB[1,3]
|
||||
OUTPUT FB_DESGRMERC S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_SOTGRMERC 2
|
||||
BEGIN
|
||||
PROMPT 20 10 ""
|
||||
FLAGS "U"
|
||||
USE GMC
|
||||
COPY INPUT FB_GRMERC
|
||||
INPUT CODTAB[4,5] FB_SOTGRMERC
|
||||
DISPLAY "Gruppo" CODTAB[1,3]
|
||||
DISPLAY "Sottogruppo" CODTAB[4,5]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
COPY OUTPUT FB_GRMERC
|
||||
OUTPUT FB_SOTGRMERC CODTAB[4,5]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_DESGRMERC 50 45
|
||||
BEGIN
|
||||
PROMPT 28 10 ""
|
||||
USE GMC KEY 2
|
||||
INPUT S0 FB_DESGRMERC
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Gruppo" CODTAB[1,3]
|
||||
DISPLAY "Sottogruppo" CODTAB[4,5]
|
||||
COPY OUTPUT FB_SOTGRMERC
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_RAGFIS 5
|
||||
BEGIN
|
||||
PROMPT 2 11 "Raggr. fis. "
|
||||
FLAGS "U"
|
||||
USE RFA
|
||||
INPUT CODTAB FB_RAGFIS
|
||||
DISPLAY "Ragg. fisc." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FB_RAGFIS CODTAB
|
||||
OUTPUT FB_DESRAGFIS S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FB_DESRAGFIS 50
|
||||
BEGIN
|
||||
PROMPT 23 11 ""
|
||||
USE RFA KEY 2
|
||||
INPUT S0 FB_DESRAGFIS
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Ragg. fisc." CODTAB
|
||||
COPY OUTPUT FB_RAGFIS
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
Loading…
x
Reference in New Issue
Block a user