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
This commit is contained in:
guy
parent
4f3bf8acef
commit
74082e8a63
4
mg/batbfsa.h
Executable file
4
mg/batbfsa.h
Executable file
@ -0,0 +1,4 @@
|
|||||||
|
#define F_CODLIV 101
|
||||||
|
#define F_ROOT 102
|
||||||
|
#define F_DESLIV 103
|
||||||
|
#define F_FORMLIV 104
|
||||||
64
mg/batbfsa.uml
Executable file
64
mg/batbfsa.uml
Executable file
@ -0,0 +1,64 @@
|
|||||||
|
// ATTENZIONE: riuso gli stessi id di batbfca
|
||||||
|
#include "batbfsa.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 -3 0 3
|
||||||
|
#include <toolbar.h>
|
||||||
|
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
|
||||||
24
mg/batbgsa.h
Executable file
24
mg/batbgsa.h
Executable file
@ -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
|
||||||
281
mg/batbgsa.uml
Executable file
281
mg/batbgsa.uml
Executable file
@ -0,0 +1,281 @@
|
|||||||
|
#include "batbgsa.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 -3 0 3
|
||||||
|
#include <toolbar.h>
|
||||||
|
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
|
||||||
Loading…
x
Reference in New Issue
Block a user