git-svn-id: svn://10.65.10.50/trunk@4389 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-05-23 14:30:30 +00:00
parent 778e37f103
commit 4138c506b6

View File

@ -102,6 +102,7 @@ END
//Livelli giacenza
STRING F_LIV1 10
BEGIN
FLAGS "U"
PROMPT 2 2 "Livello 1 "
USE GCG //SELECT CODTAB[1,1]=="1"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
@ -118,6 +119,7 @@ END
STRING F_LIV2 6
BEGIN
FLAGS "U"
PROMPT 40 2 "Livello 2 "
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
USE GCG //SELECT CODTAB[1,1]=="2"
@ -132,6 +134,7 @@ END
STRING F_LIV3 6
BEGIN
FLAGS "U"
PROMPT 2 3 "Livello 3 "
USE GCG //SELECT CODTAB[1,1]=="3"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
@ -145,6 +148,7 @@ END
STRING F_LIV4 6
BEGIN
FLAGS "U"
PROMPT 40 3 "Livello 4 "
USE GCG //SELECT CODTAB[1,1]=="4"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
@ -347,11 +351,10 @@ BEGIN
FLAGS "D"
END
NUMBER F_NDIST 10
NUMBER F_NDIST 15 5
BEGIN
PROMPT 42 19 "Distinte "
FIELD NDIST
FLAGS "D"
END