Corretti errori MI4019-MI4030-MI4021-MI4022

git-svn-id: svn://10.65.10.50/trunk@535 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-04 11:13:36 +00:00
parent 64b0aee134
commit 01db8ec946

View File

@ -16,7 +16,7 @@ END
NUMBER FLD_CM1_GRUPPO 3
BEGIN
PROMPT 2 1 "Gruppo "
PROMPT 2 1 "Gruppo "
FIELD LF_PCON->GRUPPO
FLAGS "R"
KEY 1
@ -37,11 +37,11 @@ END
NUMBER FLD_CM1_CONTO 3
BEGIN
PROMPT 2 2 "Conto "
PROMPT 2 2 "Conto "
FIELD LF_PCON->CONTO
FLAGS "R"
KEY 1
USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
USE LF_PCON KEY 1 SELECT ((CONTO!="") && (SOTTOCONTO=""))
COPY INPUT FLD_CM1_GRUPPO
INPUT CONTO FLD_CM1_CONTO
DISPLAY "Gruppo" GRUPPO
@ -65,7 +65,7 @@ BEGIN
FIELD LF_PCON->SOTTOCONTO
FLAGS "R"
KEY 1
USE LF_PCON KEY 1
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY INPUT FLD_CM1_CONTO
INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO