From 74082e8a6397c5061a11697264d7f33b26a12c21 Mon Sep 17 00:00:00 2001 From: guy Date: Thu, 21 Jun 2007 14:17:29 +0000 Subject: [PATCH] Patch level : 4.0 Files correlati : mg0 Ricompilazione Demo : [ ] Commento : Aggiunte maschere per strutturazione avanzata dei codici articolo git-svn-id: svn://10.65.10.50/trunk@15435 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- mg/batbfsa.h | 4 + mg/batbfsa.uml | 64 +++++++++++ mg/batbgsa.h | 24 +++++ mg/batbgsa.uml | 281 +++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 373 insertions(+) create mode 100755 mg/batbfsa.h create mode 100755 mg/batbfsa.uml create mode 100755 mg/batbgsa.h create mode 100755 mg/batbgsa.uml diff --git a/mg/batbfsa.h b/mg/batbfsa.h new file mode 100755 index 000000000..d410f5e59 --- /dev/null +++ b/mg/batbfsa.h @@ -0,0 +1,4 @@ +#define F_CODLIV 101 +#define F_ROOT 102 +#define F_DESLIV 103 +#define F_FORMLIV 104 diff --git a/mg/batbfsa.uml b/mg/batbfsa.uml new file mode 100755 index 000000000..5fc4f9c87 --- /dev/null +++ b/mg/batbfsa.uml @@ -0,0 +1,64 @@ +// ATTENZIONE: riuso gli stessi id di batbfca +#include "batbfsa.h" + +TOOLBAR "" 0 -3 0 3 +#include +ENDPAGE + +PAGE "Formato Sottocodice Articoli" 0 0 0 -3 + +GROUPBOX DLG_NULL 78 6 +BEGIN + PROMPT 1 1 "Sottocodici Articolo" + FLAGS "R" +END + +// codice parte del formato codice +STRING F_CODLIV 3 +BEGIN + PROMPT 2 2 "Codice " + FLAG "UZ" + FIELD CODTAB + KEY 1 + USE FSA + INPUT CODTAB F_CODLIV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Formato@20" S1 + OUTPUT F_CODLIV CODTAB + OUTPUT F_DESLIV S0 + CHECKTYPE REQUIRED + VALIDATE FIXLEN_FUNC 3 +END + +BOOLEAN F_ROOT +BEGIN + PROMPT 28 2 "Livello radice (Primo livello della gerarchia)" + FIELD B0 +END + +// descrizione parte del formato codice +STRING F_DESLIV 50 +BEGIN + PROMPT 2 3 "Descrizione " + FIELD S0 + KEY 2 + USE FSA + INPUT S0 F_DESLIV + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice Parte" CODTAB + DISPLAY "Formato@20" S1 + COPY OUTPUT F_CODLIV + CHECKTYPE REQUIRED +END + +STRING F_FORMLIV 24 +BEGIN + PROMPT 2 5 "Formato " + FIELD S1 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK \ No newline at end of file diff --git a/mg/batbgsa.h b/mg/batbgsa.h new file mode 100755 index 000000000..27949761b --- /dev/null +++ b/mg/batbgsa.h @@ -0,0 +1,24 @@ +// ARTICOLI +#define F_CODLIV 101 +#define F_DESLIV 102 +#define F_FORMLIV 103 +#define F_ROOT 104 +#define F_CODGROUP 111 +#define F_DESGROUP 112 + +#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 diff --git a/mg/batbgsa.uml b/mg/batbgsa.uml new file mode 100755 index 000000000..378d20235 --- /dev/null +++ b/mg/batbgsa.uml @@ -0,0 +1,281 @@ +#include "batbgsa.h" + +TOOLBAR "" 0 -3 0 3 +#include +ENDPAGE + +PAGE "Gruppi Sottocodice Articoli" 0 0 0 3 + +// codice parte del formato codice +STRING F_CODLIV 3 +BEGIN + PROMPT 2 2 "Parte " + FIELD CODTAB[1,3] + KEY 1 + FLAG "UZ" + USE FSA + INPUT CODTAB F_CODLIV + DISPLAY "Codice Parte" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Formato@20" S1 + OUTPUT F_CODLIV CODTAB + OUTPUT F_DESLIV S0 + OUTPUT F_FORMLIV S1 + OUTPUT F_ROOT B0 + CHECKTYPE FORCED +END + +// descrizione parte del formato codice +STRING F_DESLIV 50 +BEGIN + PROMPT 21 2 "" + FLAGS "D" +END + +// STRINGA DEL FORMATO CODICE +STRING F_FORMLIV 20 +BEGIN + PROMPT 2 3 "Formato " + FLAGS "D" +END + +LIST F_ROOT 1 10 +BEGIN + PROMPT 42 3 "Livello" + FLAGS "DG" + ITEM " |Secondario" + MESSAGE HIDE,3@ + ITEM "X|Radice" + MESSAGE SHOW,3@ +END + +STRING F_CODGROUP 20 +BEGIN + FLAGS "U" + PROMPT 2 4 "Gruppo " + FIELD CODTAB[4,24] + KEY 1 + USE GSA + JOIN FSA ALIAS 500 INTO CODTAB==CODTAB[1,3] + INPUT CODTAB[1,3] F_CODLIV SELECT + INPUT CODTAB[4,24] F_CODGROUP + DISPLAY "Codice" CODTAB[1,3] + DISPLAY "Parte@50 " 500@->S0 + DISPLAY "Gruppo@20" CODTAB[2,25] + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODLIV CODTAB[1,3] + OUTPUT F_CODGROUP CODTAB[4,24] + OUTPUT F_DESGROUP S0 + CHECKTYPE REQUIRED + + MESSAGE EMPTY ENABLE,F_DESLIV + MESSAGE DISABLE,F_DESLIV +END + +STRING F_DESGROUP 50 +BEGIN + PROMPT 11 5 "" + FIELD S0 + KEY 2 + USE GSA KEY 2 SELECT CODTAB[1,3]==#F_CODLIV + JOIN FSA ALIAS 500 INTO CODTAB==CODTAB[1,3] + INPUT S0 F_DESGROUP + DISPLAY "Descrizione@50 " S0 + DISPLAY "Codice" CODTAB[1,3] + DISPLAY "Parte@50" 500@->S0 + DISPLAY "Gruppo@20" CODTAB[4,24] + COPY OUTPUT F_CODGROUP + CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 75 10 +BEGIN + PROMPT 1 6 "@bSottolivelli" + GROUP 3 +END + +STRING F_CHILD1 3 +BEGIN + PROMPT 2 7 "Parte 2 " + USE FSA SELECT CODTAB!=#F_CODLIV + INPUT CODTAB F_CHILD1 + COPY DISPLAY F_CODLIV + OUTPUT F_CHILD1 CODTAB + OUTPUT F_DESCR1 S0 + FIELD S1[1,3] + CHECKTYPE REQUIRED + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD2 + MESSAGE ENABLE,F_CHILD2 +END + +STRING F_DESCR1 50 +BEGIN + PROMPT 21 7 "" + GROUP 3 + FLAGS "D" +END + +STRING F_CHILD2 3 +BEGIN + PROMPT 2 8 "Parte 3 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD2 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD2 CODTAB + OUTPUT F_DESCR2 S0 + FIELD S1[4,6] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD3 + MESSAGE ENABLE,F_CHILD3 +END + +STRING F_DESCR2 50 +BEGIN + PROMPT 21 8 "" + FLAGS "D" + GROUP 3 +END + +STRING F_CHILD3 3 +BEGIN + PROMPT 2 9 "Parte 4 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD3 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD3 CODTAB + OUTPUT F_DESCR3 S0 + FIELD S1[7,9] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD4 + MESSAGE ENABLE,F_CHILD4 +END + +STRING F_DESCR3 50 +BEGIN + PROMPT 21 9 "" + FLAGS "D" + GROUP 3 +END + +STRING F_CHILD4 3 +BEGIN + PROMPT 2 10 "Parte 5 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD4 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD4 CODTAB + OUTPUT F_DESCR4 S0 + FIELD S1[10,12] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD5 + MESSAGE ENABLE,F_CHILD5 +END + +STRING F_DESCR4 50 +BEGIN + PROMPT 21 10 "" + FLAGS "D" + GROUP 3 +END + +STRING F_CHILD5 3 +BEGIN + PROMPT 2 11 "Parte 6 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD5 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD5 CODTAB + OUTPUT F_DESCR5 S0 + FIELD S1[13,15] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD6 + MESSAGE ENABLE,F_CHILD6 +END + +STRING F_DESCR5 50 +BEGIN + PROMPT 21 11 "" + FLAGS "D" + GROUP 3 +END + +STRING F_CHILD6 3 +BEGIN + PROMPT 2 12 "Parte 7 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD6 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD6 CODTAB + OUTPUT F_DESCR6 S0 + FIELD S1[16,18] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD7 + MESSAGE ENABLE,F_CHILD7 +END + +STRING F_DESCR6 50 +BEGIN + PROMPT 21 12 "" + FLAGS "D" + GROUP 3 +END + +STRING F_CHILD7 3 +BEGIN + PROMPT 2 13 "Parte 8 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD7 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD7 CODTAB + OUTPUT F_DESCR7 S0 + FIELD S1[19,21] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" + MESSAGE EMPTY CLEAR,F_CHILD8 + MESSAGE ENABLE,F_CHILD8 +END + +STRING F_DESCR7 50 +BEGIN + PROMPT 21 13 "" + FLAGS "D" + GROUP 3 +END + +STRING F_CHILD8 3 +BEGIN + PROMPT 2 14 "Parte 9 " + COPY USE F_CHILD1 + INPUT CODTAB F_CHILD8 + COPY DISPLAY F_CHILD1 + OUTPUT F_CHILD8 CODTAB + OUTPUT F_DESCR8 S0 + FIELD S1[22,24] + CHECKTYPE NORMAL + GROUP 3 + FLAGS "G" +END + +STRING F_DESCR8 50 +BEGIN + PROMPT 21 14 "" + FLAGS "D" + GROUP 3 +END + +ENDPAGE + +ENDMASK