Patch level : 4.0

Files correlati     : mg0.exe batbgsa.msk
Ricompilazione Demo : [ ]
Commento            :
Aggiunto controllo sulla lunghezza massima dei codici articolo avanzati


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

mg/batbgsa.h

@@ -4,21 +4,38 @@
 #define F_FORMLIV     103
 #define F_CODGROUP    104
 #define F_DESGROUP    105
-#define F_ROOT        199
+#define F_ROOT        197
+#define F_FORMAT      198
+#define F_FORMATLEN   199
 
 #define F_CHILD1      201
-#define F_DESCR1      202
+#define F_FORMAT1     301
-#define F_CHILD2      203
+#define F_DESCR1      401
-#define F_DESCR2      204
+
-#define F_CHILD3      205
+#define F_CHILD2      202
-#define F_DESCR3      206
+#define F_FORMAT2     302
-#define F_CHILD4      207
+#define F_DESCR2      402
-#define F_DESCR4      208
+
-#define F_CHILD5      209
+#define F_CHILD3      203
-#define F_DESCR5      210
+#define F_FORMAT3     303
-#define F_CHILD6      211
+#define F_DESCR3      403
-#define F_DESCR6      212
+
-#define F_CHILD7      213
+#define F_CHILD4      204
-#define F_DESCR7      214
+#define F_FORMAT4     304
-#define F_CHILD8      215
+#define F_DESCR4      404
-#define F_DESCR8      216
+
+#define F_CHILD5      205
+#define F_FORMAT5     305
+#define F_DESCR5      405
+
+#define F_CHILD6      206
+#define F_FORMAT6     306
+#define F_DESCR6      406
+
+#define F_CHILD7      207
+#define F_FORMAT7     307
+#define F_DESCR7      407
+
+#define F_CHILD8      208
+#define F_FORMAT8     308
+#define F_DESCR8      408

mg/batbgsa.uml

@@ -33,7 +33,7 @@ BEGIN
 END
 
 // STRINGA DEL FORMATO CODICE
-STRING F_FORMLIV 20
+STRING F_FORMLIV 20 10
 BEGIN
   PROMPT 2 3 "Formato  "
   FLAGS "D"
@@ -101,6 +101,7 @@ BEGIN
   INPUT CODTAB F_CHILD1
   COPY DISPLAY F_CODLIV
   OUTPUT F_CHILD1 CODTAB
+  OUTPUT F_FORMAT1 S1
   OUTPUT F_DESCR1 S0
   FIELD S1[1,3]
   CHECKTYPE REQUIRED
@@ -110,9 +111,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD2
 END
 
-STRING F_DESCR1 50
+STRING F_FORMAT1 20 10
 BEGIN
-  PROMPT 21 7 ""
+  PROMPT 16 7 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR1 50 45
+BEGIN
+  PROMPT 28 7 ""
   GROUP 3
   FLAGS "D"
 END
@@ -124,6 +132,7 @@ BEGIN
   INPUT CODTAB F_CHILD2
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD2 CODTAB
+  OUTPUT F_FORMAT2 S1
   OUTPUT F_DESCR2 S0
   FIELD S1[4,6]
   CHECKTYPE NORMAL
@@ -133,9 +142,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD3
 END
 
-STRING F_DESCR2 50
+STRING F_FORMAT2 20 10
 BEGIN
-  PROMPT 21 8 ""
+  PROMPT 16 8 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR2 50 45
+BEGIN
+  PROMPT 28 8 ""
   FLAGS "D"
   GROUP 3
 END
@@ -147,6 +163,7 @@ BEGIN
   INPUT CODTAB F_CHILD3
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD3 CODTAB
+  OUTPUT F_FORMAT3 S1
   OUTPUT F_DESCR3 S0
   FIELD S1[7,9]
   CHECKTYPE NORMAL
@@ -156,9 +173,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD4
 END
 
-STRING F_DESCR3 50
+STRING F_FORMAT3 20 10
 BEGIN
-  PROMPT 21 9 ""
+  PROMPT 16 9 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR3 50 45
+BEGIN
+  PROMPT 28 9 ""
   FLAGS "D"
   GROUP 3
 END
@@ -170,6 +194,7 @@ BEGIN
   INPUT CODTAB F_CHILD4
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD4 CODTAB
+  OUTPUT F_FORMAT4 S1
   OUTPUT F_DESCR4 S0
   FIELD S1[10,12]
   CHECKTYPE NORMAL
@@ -179,9 +204,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD5
 END
 
-STRING F_DESCR4 50
+STRING F_FORMAT4 20 10
 BEGIN
-  PROMPT 21 10 ""
+  PROMPT 16 10 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR4 50 45
+BEGIN
+  PROMPT 28 10 ""
   FLAGS "D"
   GROUP 3
 END
@@ -193,6 +225,7 @@ BEGIN
   INPUT CODTAB F_CHILD5
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD5 CODTAB
+  OUTPUT F_FORMAT5 S1
   OUTPUT F_DESCR5 S0
   FIELD S1[13,15]
   CHECKTYPE NORMAL
@@ -202,9 +235,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD6
 END
 
-STRING F_DESCR5 50
+STRING F_FORMAT5 20 10
 BEGIN
-  PROMPT 21 11 ""
+  PROMPT 16 11 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR5 50 45
+BEGIN
+  PROMPT 28 11 ""
   FLAGS "D"
   GROUP 3
 END
@@ -216,6 +256,7 @@ BEGIN
   INPUT CODTAB F_CHILD6
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD6 CODTAB
+  OUTPUT F_FORMAT6 S1
   OUTPUT F_DESCR6 S0
   FIELD S1[16,18]
   CHECKTYPE NORMAL
@@ -225,9 +266,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD7
 END
 
-STRING F_DESCR6 50
+STRING F_FORMAT6 20 10
 BEGIN
-  PROMPT 21 12 ""
+  PROMPT 16 12 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR6 50 45
+BEGIN
+  PROMPT 28 12 ""
   FLAGS "D"
   GROUP 3
 END
@@ -239,6 +287,7 @@ BEGIN
   INPUT CODTAB F_CHILD7
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD7 CODTAB
+  OUTPUT F_FORMAT7 S1
   OUTPUT F_DESCR7 S0
   FIELD S1[19,21]
   CHECKTYPE NORMAL
@@ -248,9 +297,16 @@ BEGIN
   MESSAGE ENABLE,F_CHILD8
 END
 
-STRING F_DESCR7 50
+STRING F_FORMAT7 20 10
 BEGIN
-  PROMPT 21 13 ""
+  PROMPT 16 13 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR7 50 45
+BEGIN
+  PROMPT 28 13 ""
   FLAGS "D"
   GROUP 3
 END
@@ -262,6 +318,7 @@ BEGIN
   INPUT CODTAB F_CHILD8
   COPY DISPLAY F_CHILD1
   OUTPUT F_CHILD8 CODTAB
+  OUTPUT F_FORMAT8 S1
   OUTPUT F_DESCR8 S0
   FIELD S1[22,24]
   CHECKTYPE NORMAL
@@ -269,13 +326,40 @@ BEGIN
   FLAGS "G"
 END
 
-STRING F_DESCR8 50
+STRING F_FORMAT8 20 10
 BEGIN
-  PROMPT 21 14 ""
+  PROMPT 16 14 ""
+  GROUP 3
+  FLAGS "D"
+END
+
+STRING F_DESCR8 50 45
+BEGIN
+  PROMPT 28 14 ""
   FLAGS "D"
   GROUP 3
 END
 
+STRING F_FORMAT 90 30
+BEGIN
+  PROMPT 1 16 "Formato complessivo "
+  FLAGS "D"
+  GROUP 3
+  DRIVENBY F_FORMAT1 F_FORMAT2 F_FORMAT3 F_FORMAT4 F_FORMAT5 F_FORMAT6 F_FORMAT7 F_FORMAT8
+  STR_CALC #F_FORMLIV+#F_FORMAT1+#F_FORMAT2+#F_FORMAT3+#F_FORMAT4+#F_FORMAT5+#F_FORMAT6+#F_FORMAT7+#F_FORMAT8
+END
+
+STRING F_FORMATLEN 3
+BEGIN
+  PROMPT 1 37 "Lunghezza formato   "
+  FLAGS "L"
+  GROUP 3
+  DRIVENBY F_FORMAT
+  STR_EXPR LEN(#F_FORMAT)<=20
+  WARNING "Il formato dell'articolo non puo' superare i 20 caratteri"
+END
+
+
 ENDPAGE
 
 ENDMASK

mg/mg0100.cpp

@@ -1,5 +1,8 @@
 // gestione tabelle di magazzino
 
+#include "mglib.h"
+#include "../ve/vetbmag.h"
+
 #include <modaut.h>
 #include <tabapp.h>
 #include <tabutil.h>
@@ -7,11 +10,9 @@
 #include "batbcau.h"
 #include "batbfca.h"
 
-#include "mglib.h"
-#include "../ve/vetbmag.h"
 
 // applicazione per la gestione delle tabelle di magazzino
-class Tab_app_mag : public Tab_application
+class Tab_app_mag : public TTable_application
 {
   
 protected:  // TRelation_application