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

Uppercase sul codice livello

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4889 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-23 08:14:57 +00:00
parent ad85706042
commit 7f8e00b981
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mg/mg1100a.uml
View File

@ -72,7 +72,6 @@ BEGIN
OUTPUT H_GESTGIA B0
// OUTPUT F_CODDEP CODTAB[4,5]
CHECKTYPE REQUIRED
END
STRING F_CODDEP 2
@ -140,6 +139,7 @@ END
STRING F_LIV1 10
BEGIN
PROMPT 2 8 "Livello 1 "
FLAGS "U"
USE GCG //SELECT CODTAB[1,1]=="1"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "1"
@ -155,6 +155,7 @@ END
STRING F_LIV2 6
BEGIN
FLAGS "U"
PROMPT 40 8 "Livello 2 "
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
USE GCG //SELECT CODTAB[1,1]=="2"
@ -170,6 +171,7 @@ END
STRING F_LIV3 6
BEGIN
FLAGS "U"
PROMPT 2 9 "Livello 3 "
USE GCG //SELECT CODTAB[1,1]=="3"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
@ -184,6 +186,7 @@ END
STRING F_LIV4 6
BEGIN
FLAGS "U"
PROMPT 40 9 "Livello 4 "
USE GCG //SELECT CODTAB[1,1]=="4"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]