Corretta la visualizzazione dei campi chiave nel passaggio

da un archivio di provvigione all'altro


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

pr/pr0600a.h

@@ -30,4 +30,14 @@
 #define F_TIMPORTO                          128
 #define F_TVALORE                           129
 
-
+#define G_CAMPICHIAVE           1
+#define G_CLI             5
+#define G_CATV            6
+#define G_AGE             7
+#define G_PAG             8
+#define G_SCONTO          9
+#define G_ZONA            10
+#define G_ART             11
+#define G_GMC             12
+#define G_SMC             13
+#define G_RFA             14

pr/pr0600a.uml

@@ -80,14 +80,14 @@ BEGIN
   OUTPUT F_CLIENTE CODCF
   OUTPUT F_DESCR1 RAGSOC
   CHECKTYPE FORCED
-  GROUP 1 5
+  GROUP G_CAMPICHIAVE 5
 END
 
 STRING F_DESCR1 50 39
 BEGIN
   PROMPT 41 6 ""
   FLAGS "D"
-  GROUP 1 5
+  GROUP G_CAMPICHIAVE 5
 END
 
 STRING F_CATVEN 2
@@ -102,14 +102,14 @@ BEGIN
   OUTPUT F_CATVEN CODTAB
   OUTPUT F_DESCR2 S0
   CHECKTYPE FORCED
-  GROUP 1 6
+  GROUP G_CAMPICHIAVE 6
 END
 
 STRING F_DESCR2 50 39
 BEGIN
   PROMPT 41 7 ""
   FLAGS "D"
-  GROUP 1 6
+  GROUP G_CAMPICHIAVE 6
 END
 
 STRING F_CODAGE 5
@@ -124,14 +124,14 @@ BEGIN
   OUTPUT F_CODAGE CODAGE
   OUTPUT F_DESCR3 RAGSOC
   CHECKTYPE FORCED
-  GROUP 1 7
+  GROUP G_CAMPICHIAVE 7
 END
 
 STRING F_DESCR3 50 39
 BEGIN
   PROMPT 41 8 ""
   FLAGS "D"
-  GROUP 1 7
+  GROUP G_CAMPICHIAVE 7
 END
 
 STRING F_CODPAG 4
@@ -146,14 +146,14 @@ BEGIN
   OUTPUT F_CODPAG CODTAB
   OUTPUT F_DESCR4 S0
   CHECKTYPE FORCED
-  GROUP 1 8
+  GROUP G_CAMPICHIAVE 8
 END
 
 STRING F_DESCR4 50 39
 BEGIN
   PROMPT 41 9 ""
   FLAGS "D"
-  GROUP 1 8
+  GROUP G_CAMPICHIAVE 8
 END
 
 STRING F_CODSCONTO 2
@@ -168,14 +168,14 @@ BEGIN
   OUTPUT F_CODSCONTO CODTAB
   OUTPUT F_DESCR5 S0
   CHECKTYPE FORCED
-  GROUP 1 9
+  GROUP G_CAMPICHIAVE 9
 END
 
 STRING F_DESCR5 50 39
 BEGIN
   PROMPT 41 10 ""
   FLAGS "D"
-  GROUP 1 9
+  GROUP G_CAMPICHIAVE 9
 END
 
 STRING F_CODZONA 2
@@ -190,14 +190,14 @@ BEGIN
   OUTPUT F_CODZONA CODTAB
   OUTPUT F_DESCR6 S0
   CHECKTYPE FORCED
-  GROUP 1 10
+  GROUP G_CAMPICHIAVE 10
 END
 
 STRING F_DESCR6 50 39
 BEGIN
   PROMPT 41 11 ""
   FLAGS "D"
-  GROUP 1 10
+  GROUP G_CAMPICHIAVE 10
 END
 
 STRING F_CODART 20
@@ -212,14 +212,14 @@ BEGIN
   OUTPUT F_CODART CODART
   OUTPUT F_DESCR7 DESCR
   CHECKTYPE FORCED
-  GROUP 1 11
+  GROUP G_CAMPICHIAVE 11
 END
 
 STRING F_DESCR7 50 39
 BEGIN
   PROMPT 41 12 ""
   FLAGS "D"
-  GROUP 1 11
+  GROUP G_CAMPICHIAVE 11
 END
 
 STRING F_CODGMC 3
@@ -234,14 +234,14 @@ BEGIN
   OUTPUT F_CODGMC CODTAB[1,3]
   OUTPUT F_DESCR8 S0
   CHECKTYPE FORCED
-  GROUP 1 12
+  GROUP G_CAMPICHIAVE 12
 END
 
 STRING F_DESCR8 50 39
 BEGIN
   PROMPT 41 13 ""
   FLAGS "D"
-  GROUP 1 12
+  GROUP G_CAMPICHIAVE 12
 END
 
 STRING F_CODSMC 5
@@ -249,21 +249,22 @@ BEGIN
   PROMPT 2 14 "Sottocat. merc.              "
   FLAGS "U"
   KEY 1
-  USE GMC
+  USE GMC //SELECT CODTAB[4,5]!=""
   INPUT CODTAB F_CODSMC
-  DISPLAY "Codice" CODTAB
+  DISPLAY "Cat." CODTAB[1,3]
+  DISPLAY "Sotto cat." CODTAB[4,5]
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODSMC CODTAB
   OUTPUT F_DESCR9 S0
   CHECKTYPE FORCED
-  GROUP 1 13
+  GROUP G_CAMPICHIAVE 13
 END
 
 STRING F_DESCR9 50 39
 BEGIN
   PROMPT 41 14 ""
   FLAGS "D"
-  GROUP 1 13
+  GROUP G_CAMPICHIAVE 13
 END
 
 STRING F_CODRFA 5
@@ -278,14 +279,14 @@ BEGIN
   OUTPUT F_CODRFA CODTAB
   OUTPUT F_DESCR10 S0
   CHECKTYPE FORCED
-  GROUP 1 14
+  GROUP G_CAMPICHIAVE 14
 END
 
 STRING F_DESCR10 50 39
 BEGIN
   PROMPT 41 15 ""
   FLAGS "D"
-  GROUP 1 14
+  GROUP G_CAMPICHIAVE 14
 END
 
 LISTBOX F_TIPO 20
@@ -293,7 +294,7 @@ BEGIN
   PROMPT 2 18 "Tipo provvigione                "
   FIELD TIPO
   ITEM "P|Percentuale"
-  MESSAGE SHOW,F_PERCPROVV|HIDE,2@
+  MESSAGE SHOW,F_PERCPROVV|HIDE,F_IMPORTO|HIDE,F_TIMPORTO|HIDE,F_TVALORE
   ITEM "I|Importo unitario"
   MESSAGE HIDE,F_PERCPROVV|SHOW,F_IMPORTO|SHOW,F_TIMPORTO|HIDE,F_TVALORE
   ITEM "V|Valore complessivo"
@@ -311,13 +312,11 @@ END
 TEXT F_TIMPORTO
 BEGIN
   PROMPT 2 19 "Importo unitario"
-  GROUP 2
 END
 
 TEXT F_TVALORE
 BEGIN
   PROMPT 2 19 "Valore complessivo "
-  GROUP 2
 END
 
 NUMBER F_IMPORTO 18 2
@@ -325,7 +324,6 @@ BEGIN
   PROMPT 38 19 ""
   FIELD IMPORTO
   PICTURE "###.###.###.###"
-  GROUP 2
 END
 
 ENDPAGE