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