Aggiunta tabella unitá di misura e modificata tabella gruppi merceologici

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

ve/batbgmc.h

@@ -1,5 +1,6 @@
-#define F_CODICE   101
-#define F_TIPO     102
-#define F_DESCR    103
+#define F_CODICE1  101
+#define F_CODICE2  102
+#define F_TIPO     103
+#define F_DESCR    104
 
 

ve/batbgmc.uml

@@ -6,21 +6,30 @@ ENDPAGE
 
 PAGE "Gruppi merceologici " 11 60 14
 
-
-STRING F_CODICE 2 
+STRING F_CODICE1 3
 BEGIN
   PROMPT 4 4 "Codice merceologico    "
-  FIELD %GMC->CODTAB 
+  FIELD %GMC->CODTAB[1,3]
+  KEY 1
+  FLAG "U"
+END
+
+STRING F_CODICE2 2
+BEGIN
+  PROMPT 32 4 ""
+  FIELD %GMC->CODTAB[4,5]
   KEY 1
   USE %GMC
-  FLAG "U"
-  FLAG "R"
-  INPUT CODTAB  F_CODICE
+  FLAG "UR"
+  INPUT CODTAB[1,3] F_CODICE1
+  INPUT CODTAB[4,5] F_CODICE2
   DISPLAY "Codice " CODTAB
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_CODICE CODTAB
+  OUTPUT F_CODICE1 CODTAB[1,3]
+  OUTPUT F_CODICE2 CODTAB[4,5]
   OUTPUT F_DESCR      S0 
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
+  VALIDATE AUTOEXIT_FUNC 1 F_CODICE1
 END
 
 STRING F_DESCR 50
@@ -32,21 +41,18 @@ BEGIN
   INPUT S0  F_DESCR
   DISPLAY "Codice " CODTAB
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_CODICE CODTAB
+  OUTPUT F_CODICE1 CODTAB[1,3]
+  OUTPUT F_CODICE2 CODTAB[4,5]
   OUTPUT F_DESCR      S0 
   CHECKTYPE REQUIRED
-  
 END
 
-
 GROUPBOX DLG_NULL 70 7
 BEGIN
   PROMPT 3 2 ""
   FLAG "R"
 END
 
-
-
 ENDPAGE
 
 ENDMASK

ve/batbums.h

@@ -0,0 +1,4 @@
+#define F_UM    101
+#define F_DESCR 102
+#define F_UMR   103
+#define F_FC    104

ve/batbums.uml

@@ -0,0 +1,60 @@
+#include "BATBUM.h"
+
+TOOLBAR "" 0 20 60 2
+ #include <toolbar.h>
+ENDPAGE
+
+PAGE "Unit… di misura " 11 60 14
+
+STRING F_UM 2
+BEGIN
+  PROMPT 4 4 "Unit… di misura "
+  FIELD %UM->CODTAB
+  KEY 1
+  FLAG "U"
+  USE %UM
+  FLAG "U"
+  INPUT CODTAB F_UM
+  DISPLAY "Codice " CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_UM CODTAB
+  OUTPUT F_DESCR      S0 
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 4 6 "Descrizione "
+  FIELD %UM->S0
+  KEY 2
+  USE %UM KEY 2
+  INPUT S0  F_DESCR
+  DISPLAY "Codice " CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_UM CODTAB
+  OUTPUT F_DESCR      S0 
+  CHECKTYPE REQUIRED
+END
+
+STRING F_UMR 2
+BEGIN
+  PROMPT 4 10 "Unit… di riferimento "
+  FIELD %UM->S7
+  FLAG "U"
+END
+
+NUMBER F_FC 15 5
+BEGIN
+  PROMPT 4 12 "Fattore conv. al rif. "
+  FIELD %UM->R0
+END
+
+GROUPBOX DLG_NULL 70 7
+BEGIN
+  PROMPT 3 2 ""
+  FLAG "R"
+END
+
+ENDPAGE
+
+ENDMASK