Modificati alcuni campi a video, corrette le chiamate alle ricerche.
git-svn-id: svn://10.65.10.50/trunk@3114 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
deb1a18721
commit
fdcd32b259
144
ve/ve2400.uml
144
ve/ve2400.uml
@ -5,15 +5,21 @@ TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Gestione anagrafica di magazzino " 0 0 70 20
|
||||
PAGE "Pagina 1" 0 0 70 20
|
||||
|
||||
GROUPBOX DLG_NULL 71 5
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
//FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODART 20
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice art. "
|
||||
FIELD LF_ANAGR->CODART
|
||||
FIELD LF_ANAMAG->CODART
|
||||
KEY 1
|
||||
FLAG "U"
|
||||
USE LF_ANAGR
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART F_CODART
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
@ -25,34 +31,27 @@ END
|
||||
STRING F_TIPO 1
|
||||
BEGIN
|
||||
PROMPT 42 1 "Tipo "
|
||||
FIELD LF_ANAGR->TIPO
|
||||
FIELD LF_ANAMAG->TIPO
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD LF_ANAGR->DESCR
|
||||
FIELD LF_ANAMAG->DESCR
|
||||
KEY 2
|
||||
USE LF_ANAGR KEY 2
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_DESCR
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESCR DESCR
|
||||
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 71 5
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
//FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_GRMERC1 3
|
||||
BEGIN
|
||||
PROMPT 1 5 "Gruppo merc. 1 "
|
||||
FIELD LF_ANAGR->GRMERC1[1,3]
|
||||
FIELD LF_ANAMAG->GRMERC1[1,3]
|
||||
GROUP 1
|
||||
FLAG "U"
|
||||
END
|
||||
@ -60,12 +59,12 @@ END
|
||||
STRING F_GRMERC1B 2
|
||||
BEGIN
|
||||
PROMPT 21 5 ""
|
||||
FIELD LF_ANAGR->GRMERC1[4,5]
|
||||
FIELD LF_ANAMAG->GRMERC1[4,5]
|
||||
GROUP 1
|
||||
FLAG "U"
|
||||
MESSAGE EMPTY CLEAR,2@
|
||||
MESSAGE ENABLE,2@
|
||||
USE %GMC
|
||||
USE GMC
|
||||
INPUT CODTAB[1,3] F_GRMERC1
|
||||
INPUT CODTAB[4,5] F_GRMERC1B
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -80,7 +79,7 @@ STRING F_GRMERC1D 50
|
||||
BEGIN
|
||||
PROMPT 26 5 ""
|
||||
GROUP 1
|
||||
USE %GMC KEY 2
|
||||
USE GMC KEY 2
|
||||
INPUT S0 F_GRMERC1D
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
@ -92,7 +91,7 @@ END
|
||||
STRING F_GRMERC2 3
|
||||
BEGIN
|
||||
PROMPT 1 6 "Gruppo merc. 2 "
|
||||
FIELD LF_ANAGR->GRMERC2[1,3]
|
||||
FIELD LF_ANAMAG->GRMERC2[1,3]
|
||||
GROUP 2
|
||||
FLAG "U"
|
||||
END
|
||||
@ -100,13 +99,13 @@ END
|
||||
STRING F_GRMERC2B 2
|
||||
BEGIN
|
||||
PROMPT 21 6 ""
|
||||
FIELD LF_ANAGR->GRMERC2[4,5]
|
||||
FIELD LF_ANAMAG->GRMERC2[4,5]
|
||||
GROUP 2
|
||||
FLAG "U"
|
||||
MESSAGE EMPTY CLEAR,3@
|
||||
MESSAGE ENABLE,3@
|
||||
NUM_EXPR (#F_GRMERC2=="")||(#F_GRMERC2!=#F_GRMERC1)
|
||||
USE %GMC
|
||||
USE GMC
|
||||
INPUT CODTAB[1,3] F_GRMERC2
|
||||
INPUT CODTAB[4,5] F_GRMERC2B
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -121,7 +120,7 @@ STRING F_GRMERC2D 50
|
||||
BEGIN
|
||||
PROMPT 26 6 ""
|
||||
GROUP 2
|
||||
USE %GMC KEY 2
|
||||
USE GMC KEY 2
|
||||
INPUT S0 F_GRMERC2D
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
@ -133,7 +132,7 @@ END
|
||||
STRING F_GRMERC3 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Gruppo merc. 3 "
|
||||
FIELD LF_ANAGR->GRMERC3[1,3]
|
||||
FIELD LF_ANAMAG->GRMERC3[1,3]
|
||||
GROUP 3
|
||||
FLAG "U"
|
||||
END
|
||||
@ -141,11 +140,11 @@ END
|
||||
STRING F_GRMERC3B 2
|
||||
BEGIN
|
||||
PROMPT 21 7 ""
|
||||
FIELD LF_ANAGR->GRMERC3[4,5]
|
||||
FIELD LF_ANAMAG->GRMERC3[4,5]
|
||||
GROUP 3
|
||||
FLAG "U"
|
||||
NUM_EXPR (#F_GRMERC3=="")||((#F_GRMERC3!=#F_GRMERC1)&&(#F_GRMERC3!=#F_GRMERC2))
|
||||
USE %GMC
|
||||
USE GMC
|
||||
INPUT CODTAB[1,3] F_GRMERC3
|
||||
INPUT CODTAB[4,5] F_GRMERC3B
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -160,7 +159,7 @@ STRING F_GRMERC3D 50
|
||||
BEGIN
|
||||
PROMPT 26 7 ""
|
||||
GROUP 3
|
||||
USE %GMC KEY 2
|
||||
USE GMC KEY 2
|
||||
INPUT S0 F_GRMERC3D
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
@ -178,8 +177,8 @@ END
|
||||
|
||||
STRING F_CATCONA 3
|
||||
BEGIN
|
||||
PROMPT 1 12 "Categoria conto acquisti "
|
||||
FIELD LF_ANAGR->CATCONA
|
||||
PROMPT 1 13 "Categoria conto acquisti "
|
||||
FIELD LF_ANAMAG->CATCONA
|
||||
GROUP 11
|
||||
MESSAGE CLEAR,12@
|
||||
MESSAGE EMPTY ENABLE,12@
|
||||
@ -198,7 +197,7 @@ END
|
||||
|
||||
STRING F_CATCONA1 40
|
||||
BEGIN
|
||||
PROMPT 36 12 ""
|
||||
PROMPT 36 13 ""
|
||||
FLAG "D"
|
||||
GROUP 11
|
||||
USE CAA KEY 2
|
||||
@ -213,8 +212,8 @@ END
|
||||
|
||||
STRING F_GRUPPOA 2
|
||||
BEGIN
|
||||
PROMPT 1 13 "Conto d'acquisto "
|
||||
FIELD LF_ANAGR->GRUPPOA
|
||||
PROMPT 1 14 "Conto d'acquisto "
|
||||
FIELD LF_ANAMAG->GRUPPOA
|
||||
GROUP 12
|
||||
MESSAGE CLEAR,11@
|
||||
MESSAGE EMPTY ENABLE,11@
|
||||
@ -222,15 +221,15 @@ END
|
||||
|
||||
STRING F_CONTOA 2
|
||||
BEGIN
|
||||
PROMPT 22 13 ""
|
||||
FIELD LF_ANAGR->CONTOA
|
||||
PROMPT 22 14 ""
|
||||
FIELD LF_ANAMAG->CONTOA
|
||||
GROUP 12
|
||||
END
|
||||
|
||||
STRING F_SOTTOCA 6
|
||||
BEGIN
|
||||
PROMPT 26 13 ""
|
||||
FIELD LF_ANAGR->SOTTOCA
|
||||
PROMPT 26 14 ""
|
||||
FIELD LF_ANAMAG->SOTTOCA
|
||||
GROUP 12
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_GRUPPOA
|
||||
@ -249,7 +248,7 @@ END
|
||||
|
||||
STRING F_DESCRA 40
|
||||
BEGIN
|
||||
PROMPT 36 13 ""
|
||||
PROMPT 36 14 ""
|
||||
FLAG "D"
|
||||
GROUP 12
|
||||
USE LF_PCON KEY 2
|
||||
@ -265,8 +264,8 @@ END
|
||||
|
||||
STRING F_CATCONV 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Categoria conto vendite "
|
||||
FIELD LF_ANAGR->CATCONV
|
||||
PROMPT 1 15 "Categoria conto vendite "
|
||||
FIELD LF_ANAMAG->CATCONV
|
||||
GROUP 21
|
||||
MESSAGE CLEAR,22@
|
||||
MESSAGE EMPTY ENABLE,22@
|
||||
@ -285,7 +284,7 @@ END
|
||||
|
||||
STRING F_CATCONV1 40
|
||||
BEGIN
|
||||
PROMPT 36 14 ""
|
||||
PROMPT 36 15 ""
|
||||
FLAG "D"
|
||||
GROUP 21
|
||||
USE CRA KEY 2
|
||||
@ -300,8 +299,8 @@ END
|
||||
|
||||
STRING F_GRUPPOV 2
|
||||
BEGIN
|
||||
PROMPT 1 15 "Conto di vendita "
|
||||
FIELD LF_ANAGR->GRUPPOV
|
||||
PROMPT 1 16 "Conto di vendita "
|
||||
FIELD LF_ANAMAG->GRUPPOV
|
||||
GROUP 22
|
||||
MESSAGE CLEAR,21@
|
||||
MESSAGE EMPTY ENABLE,21@
|
||||
@ -309,15 +308,15 @@ END
|
||||
|
||||
STRING F_CONTOV 2
|
||||
BEGIN
|
||||
PROMPT 22 15 ""
|
||||
FIELD LF_ANAGR->CONTOV
|
||||
PROMPT 22 16 ""
|
||||
FIELD LF_ANAMAG->CONTOV
|
||||
GROUP 22
|
||||
END
|
||||
|
||||
STRING F_SOTTOCV 6
|
||||
BEGIN
|
||||
PROMPT 26 15 ""
|
||||
FIELD LF_ANAGR->SOTTOCV
|
||||
PROMPT 26 16 ""
|
||||
FIELD LF_ANAMAG->SOTTOCV
|
||||
GROUP 22
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_GRUPPOV
|
||||
@ -336,7 +335,7 @@ END
|
||||
|
||||
STRING F_DESCRV 40
|
||||
BEGIN
|
||||
PROMPT 36 15 ""
|
||||
PROMPT 36 16 ""
|
||||
FLAG "D"
|
||||
GROUP 22
|
||||
USE LF_PCON KEY 2
|
||||
@ -350,20 +349,20 @@ END
|
||||
|
||||
STRING F_UMP 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "U.M. peso "
|
||||
FIELD LF_ANAGR->UMP
|
||||
PROMPT 1 17 "U.M. peso "
|
||||
FIELD LF_ANAMAG->UMP
|
||||
END
|
||||
|
||||
NUMBER F_PESO 15 5
|
||||
BEGIN
|
||||
PROMPT 30 16 "Peso "
|
||||
FIELD LF_ANAGR->PESO
|
||||
PROMPT 30 17 "Peso "
|
||||
FIELD LF_ANAMAG->PESO
|
||||
END
|
||||
|
||||
STRING F_CLASSDOG 10
|
||||
BEGIN
|
||||
PROMPT 1 17 "Classe doganale "
|
||||
FIELD LF_ANAGR->CLASSDOG
|
||||
PROMPT 1 18 "Classe doganale "
|
||||
FIELD LF_ANAMAG->CLASSDOG
|
||||
FLAG "UZ"
|
||||
USE %CLD
|
||||
INPUT CODTAB F_CLASSDOG
|
||||
@ -376,26 +375,20 @@ END
|
||||
|
||||
STRING F_CLASSDOG1 40
|
||||
BEGIN
|
||||
PROMPT 36 17 ""
|
||||
PROMPT 36 18 ""
|
||||
FLAG "D"
|
||||
USE %CLD KEY 2
|
||||
INPUT S0 F_CLASSDOG1
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
OUTPUT F_CLASSDOG CODTAB
|
||||
OUTPUT F_CLASSDOG1 S0
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Gestione anagrafica di magazzino " 0 0 70 20
|
||||
PAGE "Pagina 2 " 0 0 70 20
|
||||
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice IVA "
|
||||
FIELD LF_ANAGR->CODIVA
|
||||
FIELD LF_ANAMAG->CODIVA
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVA
|
||||
DISPLAY "Codice " CODTAB
|
||||
@ -416,17 +409,17 @@ BEGIN
|
||||
OUTPUT F_CODIVA1 S0
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOCF 1
|
||||
LISTBOX F_TIPOCF 20
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "H"
|
||||
ITEM "F|"
|
||||
ITEM "F|Fornitore"
|
||||
END
|
||||
|
||||
NUMBER F_CODFORN 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice fornitore "
|
||||
FIELD LF_ANAGR->CODFORN
|
||||
FIELD LF_ANAMAG->CODFORN
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODFORN
|
||||
@ -439,7 +432,7 @@ END
|
||||
NUMBER F_COSTSTD 18 0
|
||||
BEGIN
|
||||
PROMPT 37 2 "Costo standard "
|
||||
FIELD LF_ANAGR->COSTSTD
|
||||
FIELD LF_ANAMAG->COSTSTD
|
||||
END
|
||||
|
||||
STRING F_CODFORN1 50
|
||||
@ -457,21 +450,26 @@ END
|
||||
BOOLEAN F_ARTFIS
|
||||
BEGIN
|
||||
PROMPT 2 4 "Articolo fiscale "
|
||||
FIELD LF_ANAGR->ARTFIS
|
||||
FIELD LF_ANAMAG->ARTFIS
|
||||
MESSAGE TRUE ENABLE,23@
|
||||
MESSAGE FALSE DISABLE,23@
|
||||
END
|
||||
|
||||
STRING F_RAGGFIS 5
|
||||
BEGIN
|
||||
PROMPT 2 5 "Raggrupp. fiscale "
|
||||
FIELD LF_ANAGR->RAGGFIS
|
||||
FIELD LF_ANAMAG->RAGGFIS
|
||||
USE %RFA
|
||||
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
||||
INPUT CODTAB F_RAGGFIS
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_RAGGFIS CODTAB
|
||||
OUTPUT F_RAGGFIS1 S0
|
||||
OUTPUT F_CLASSEFIS S8
|
||||
OUTPUT F_CLASSEFIS1 -200->S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 23
|
||||
END
|
||||
|
||||
STRING F_RAGGFIS1 40
|
||||
@ -483,7 +481,7 @@ END
|
||||
STRING F_CLASSEFIS 1
|
||||
BEGIN
|
||||
PROMPT 2 6 "Classe fiscale "
|
||||
FIELD LF_ANAGR->CLASSEFIS
|
||||
FIELD LF_ANAMAG->CLASSEFIS
|
||||
USE %ASF
|
||||
INPUT CODTAB F_CLASSEFIS
|
||||
DISPLAY "Codice " CODTAB
|
||||
@ -491,6 +489,7 @@ BEGIN
|
||||
OUTPUT F_CLASSEFIS CODTAB
|
||||
OUTPUT F_CLASSEFIS1 S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 23
|
||||
END
|
||||
|
||||
STRING F_CLASSEFIS1 40
|
||||
@ -502,7 +501,7 @@ END
|
||||
BOOLEAN F_ARTPROD
|
||||
BEGIN
|
||||
PROMPT 2 7 "Articolo di produzione "
|
||||
FIELD LF_ANAGR->ARTPROD
|
||||
FIELD LF_ANAMAG->ARTPROD
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET1 71 5
|
||||
@ -514,7 +513,7 @@ END
|
||||
|
||||
SPREADSHEET F_SHEET2 71 5
|
||||
BEGIN
|
||||
PROMPT 2 13 ""
|
||||
PROMPT 2 14 ""
|
||||
ITEM "Cod. art.@20"
|
||||
ITEM "Tipo@10"
|
||||
END
|
||||
@ -523,6 +522,7 @@ ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "VE2400A.UML"
|
||||
#include "VE2400B.UML"
|
||||
#include "VE2400C.UML"
|
||||
#include "ve2400a.uml"
|
||||
#include "ve2400b.uml"
|
||||
#include "ve2400c.uml"
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user