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:
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