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
This commit is contained in:
guy
parent
ad39bae6e4
commit
61b9ba448d
49
mg/batbgsa.h
49
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_CHILD2 203
|
||||
#define F_DESCR2 204
|
||||
#define F_CHILD3 205
|
||||
#define F_DESCR3 206
|
||||
#define F_CHILD4 207
|
||||
#define F_DESCR4 208
|
||||
#define F_CHILD5 209
|
||||
#define F_DESCR5 210
|
||||
#define F_CHILD6 211
|
||||
#define F_DESCR6 212
|
||||
#define F_CHILD7 213
|
||||
#define F_DESCR7 214
|
||||
#define F_CHILD8 215
|
||||
#define F_DESCR8 216
|
||||
#define F_FORMAT1 301
|
||||
#define F_DESCR1 401
|
||||
|
||||
#define F_CHILD2 202
|
||||
#define F_FORMAT2 302
|
||||
#define F_DESCR2 402
|
||||
|
||||
#define F_CHILD3 203
|
||||
#define F_FORMAT3 303
|
||||
#define F_DESCR3 403
|
||||
|
||||
#define F_CHILD4 204
|
||||
#define F_FORMAT4 304
|
||||
#define F_DESCR4 404
|
||||
|
||||
#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
|
||||
|
||||
118
mg/batbgsa.uml
118
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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user