Patch level : 10.0 294

Files correlati     : ve2400.msk
Ricompilazione Demo : [ ]
Commento            :
0001287: ricerca categoria merceologica per descrizione
richiamando la ricerca per descrizione dall'anagrafico articoli non viene visualizzato l'imbuto per l'attivazione della ricerca.


git-svn-id: svn://10.65.10.50/trunk@18794 c028cbd2-c16b-5b4b-a496-9718f37d4682

ve/ve2400.uml

@@ -147,8 +147,8 @@ BEGIN
   FLAGS "A"
   USE LF_DESLIN KEY NRIGA
   INPUT CODART F_CODART
-    ITEM "Cod. lingua"
-    ITEM "Descrizione@50"
+  ITEM "Cod. lingua"
+  ITEM "Descrizione@50"
 END
 
 ENDPAGE
@@ -184,6 +184,7 @@ BEGIN
     INPUT CODTAB F_GRMERC
     DISPLAY "Codice" CODTAB[1,3]
     DISPLAY "Descrizione@50" S0
+    DISPLAY "IVA@5" S7
     OUTPUT F_GRMERC CODTAB[1,3]
     OUTPUT F_GRMERCD1 S0
     OUTPUT H_GRMERCD1 S0
@@ -199,6 +200,7 @@ BEGIN
     INPUT S0 F_GRMERCD1
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
+    DISPLAY "IVA@5" S7
     OUTPUT F_GRMERC CODTAB[1,3]
     OUTPUT F_GRMERCD1 S0
     CHECKTYPE NORMAL
@@ -220,8 +222,7 @@ BEGIN
     USE GMC //SELECT CODTAB[4,5] != ""
     INPUT CODTAB[1,3] F_GRMERC
     INPUT CODTAB[4,5] F_GRMERCB
-    DISPLAY "Codice" CODTAB
-    DISPLAY "Descrizione@50" S0
+    COPY DISPLAY F_GRMERC
     OUTPUT F_GRMERC CODTAB[1,3]
     OUTPUT F_GRMERCB CODTAB[4,5]
     OUTPUT F_GRMERCD2 S0
@@ -236,8 +237,7 @@ BEGIN
     GROUP G_GRMERC
     USE GMC KEY 2 SELECT CODTAB[4,5] != ""
     INPUT S0 F_GRMERCD2
-    DISPLAY "Codice" CODTAB
-    DISPLAY "Descrizione@50" S0
+    COPY DISPLAY F_GRMERCD1
     COPY OUTPUT F_GRMERCB
     CHECKTYPE NORMAL
 END
@@ -263,8 +263,8 @@ BEGIN
   PROMPT 23 6 ""
   USE RPD KEY 2
   INPUT S0 F_DESREPARTO
+  DISPLAY "Descrizione@70" S0
   DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
   COPY OUTPUT F_REPARTO
   CHECKTYPE NORMAL
 	GROUP G_VD
@@ -292,7 +292,7 @@ BEGIN
   HELP "Descrizione stagione"
 	USE %STG KEY 2
 	INPUT S0 F_DESSTAGIONE
-	DISPLAY "Descrizione @70" S0
+	DISPLAY "Descrizione@70" S0
 	DISPLAY "Codice" CODTAB
   COPY OUTPUT F_STAGIONE
   CHECKTYPE NORMAL
@@ -399,8 +399,8 @@ BEGIN
   USE RFA
   JOIN %ASF ALIAS 200 INTO CODTAB=S8
   INPUT CODTAB F_RAGGFIS
-  DISPLAY "Codice " CODTAB
-  DISPLAY "Descrizione@40" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
   OUTPUT F_RAGGFIS CODTAB
   OUTPUT F_RAGGFIS1 S0
   OUTPUT H_CLASSEFIS S8
@@ -429,8 +429,8 @@ BEGIN
   FLAGS "UD"
   USE %ASF
   INPUT CODTAB F_CLASSEFIS
-  DISPLAY "Codice " CODTAB
-  DISPLAY "Descrizione@40" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
   OUTPUT F_CLASSEFIS CODTAB
   OUTPUT F_CLASSEFISD S0
   MESSAGE EMPTY "",F_CLASSEFISD
@@ -450,8 +450,8 @@ BEGIN
   FIELD LF_ANAMAG->CODIVA
   USE %IVA
   INPUT CODTAB  F_CODIVA
-  DISPLAY "Codice " CODTAB
-  DISPLAY "Descrizione@40" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
   OUTPUT F_CODIVA CODTAB
   CHECKTYPE NORMAL
 END
@@ -463,8 +463,7 @@ BEGIN
   FIELD LF_ANAMAG->CODIVAR
   USE %IVA
   INPUT CODTAB  F_CODIVAR
-  DISPLAY "Codice " CODTAB
-  DISPLAY "Descrizione@40" S0
+  COPY DISPLAY F_CODIVA
   OUTPUT F_CODIVAR CODTAB
   CHECKTYPE NORMAL
 END
@@ -521,7 +520,7 @@ BEGIN
   FLAG "U"
   USE %UMS
   INPUT CODTAB F_UMP
-  DISPLAY "U.M. "          CODTAB
+  DISPLAY "U.M." CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_UMP CODTAB
   VALIDATE REQIF_FUNC 1 F_PESO
@@ -557,27 +556,30 @@ END
 
 NUMBER F_PPCONF 15 5
 BEGIN
-    PROMPT 1 13 "Pz. per pacco  "
-    FIELD LF_ANAMAG->PPCONF
+  PROMPT 1 13 "Pz. per pacco         "
+  FIELD PPCONF
+  FLAGS "U"
 END
 
 NUMBER F_PPCOLLO 15 5
 BEGIN
-    PROMPT 42 13 "Pz. per collo        "
-    FIELD LF_ANAMAG->PPCOLLO
+  PROMPT 42 13 "Pz. per collo        "
+  FIELD PPCOLLO
+  FLAGS "U"
 END
 
 NUMBER F_PPPALLET 9
 BEGIN 
-  PROMPT 1 14 "Pz. per pallet          "
+  PROMPT 1 14 "Pz. per pallet        "
   FIELD PPPALLET
+  FLAGS "U"
 END 
 
 CURRENCY F_VALSTATUN 15
 BEGIN
-    PROMPT 42 14 "Valore statistico     "
-    FIELD LF_ANAMAG->VALSTATUN
-    FLAGS "U"
+  PROMPT 42 14 "Valore statistico    "
+  FIELD VALSTATUN
+  FLAGS "U"
 END
 
 GROUPBOX DLG_NULL 78 4
@@ -675,6 +677,7 @@ BEGIN
   INPUT CODCF   F_CODFORN
   DISPLAY "Codice " CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Partita IVA" PAIV
   OUTPUT F_CODFORN  CODCF
   OUTPUT F_CODFORN1 RAGSOC
   CHECKTYPE NORMAL
@@ -684,10 +687,9 @@ STRING F_CODFORN1 50
 BEGIN
   PROMPT 1 6 "Ragione sociale  "
   USE LF_CLIFO KEY 2
-  INPUT TIPOCF  F_TIPOCF SELECT
-  INPUT RAGSOC   F_CODFORN1
-  DISPLAY "Codice " CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT RAGSOC F_CODFORN1
+  COPY DISPLAY F_CODFORN
   OUTPUT F_CODFORN  CODCF
   OUTPUT F_CODFORN1 RAGSOC
 END