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 1996-06-27 09:58:42 +00:00
parent deb1a18721
commit fdcd32b259

View File

@ -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"