root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reso permanente il campo Livello

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4497 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-06-03 10:00:35 +00:00
parent 7e4bf2b28b
commit 21f5b5d47d
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
mg/batbgcg.uml
View File

@ -11,17 +11,17 @@ NUMBER F_CODLIV 1
BEGIN BEGIN
PROMPT 2 2 "Numero livello " PROMPT 2 2 "Numero livello "
FIELD CODTAB[1,1] FIELD CODTAB[1,1]
KEY 1 KEY 1
FLAG "U" FLAG "UP"
USE FCG USE FCG
INPUT CODTAB[1,1] F_CODLIV INPUT CODTAB[1,1] F_CODLIV
DISPLAY "N.Liv." CODTAB[1,1] DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Descrizione@50 " S0 DISPLAY "Descrizione@50 " S0
OUTPUT F_CODLIV CODTAB OUTPUT F_CODLIV CODTAB
OUTPUT F_DESLIV S0 OUTPUT F_DESLIV S0
OUTPUT F_FORMLIV S1 OUTPUT F_FORMLIV S1
CHECKTYPE FORCED CHECKTYPE FORCED
ADD NONE ADD NONE
END END
// descrizione parte del formato codice // descrizione parte del formato codice
@ -29,57 +29,57 @@ STRING F_DESLIV 50
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
USE FCG KEY 2 USE FCG KEY 2
INPUT S0 F_DESLIV INPUT S0 F_DESLIV
DISPLAY "Descrizione@50 " S0 DISPLAY "Descrizione@50 " S0
DISPLAY "N.Liv." CODTAB[1,1] DISPLAY "N.Liv." CODTAB[1,1]
COPY OUTPUT F_CODLIV COPY OUTPUT F_CODLIV
CHECKTYPE FORCED CHECKTYPE FORCED
ADD NONE ADD NONE
END END
// STRINGA DEL FORMATO CODICE // STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 23 STRING F_FORMLIV 23
BEGIN BEGIN
PROMPT 2 5 "Formato previsto per il codice gruppo " PROMPT 2 5 "Formato previsto per il codice gruppo "
FLAGS "D" FLAGS "D"
END END
STRING F_CODGROUP 23 STRING F_CODGROUP 23
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 22 6 "Codice del gruppo " PROMPT 22 6 "Codice del gruppo "
FIELD CODTAB[2,25] FIELD CODTAB[2,25]
KEY 1 KEY 1
USE GCG USE GCG
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_CODLIV SELECT INPUT CODTAB[1,1] F_CODLIV SELECT
INPUT CODTAB[2,25] F_CODGROUP INPUT CODTAB[2,25] F_CODGROUP
DISPLAY "N.Liv." CODTAB[1,1] DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0 DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25] DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0 DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_CODLIV CODTAB[1,1] OUTPUT F_CODLIV CODTAB[1,1]
OUTPUT F_CODGROUP CODTAB[2,25] OUTPUT F_CODGROUP CODTAB[2,25]
OUTPUT F_DESGROUP S0 OUTPUT F_DESGROUP S0
MESSAGE DISABLE,F_DESLIV MESSAGE DISABLE,F_DESLIV
MESSAGE EMPTY ENABLE,F_DESLIV MESSAGE EMPTY ENABLE,F_DESLIV
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESGROUP 50 STRING F_DESGROUP 50
BEGIN BEGIN
PROMPT 2 7 "Descr. gruppo " PROMPT 2 7 "Descr. gruppo "
FIELD S0 FIELD S0
KEY 2 KEY 2
USE GCG KEY 2 USE GCG KEY 2
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT S0 F_DESGROUP INPUT S0 F_DESGROUP
DISPLAY "Descrizione@50 " GCG->S0 DISPLAY "Descrizione@50 " GCG->S0
DISPLAY "N.Liv." CODTAB[1,1] DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0 DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25] DISPLAY "Codice@23" CODTAB[2,25]
COPY OUTPUT F_CODGROUP COPY OUTPUT F_CODGROUP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE