Tolti LF_*-> errati

git-svn-id: svn://10.65.10.50/trunk@2080 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-11-03 10:35:11 +00:00
parent 16cec7fc31
commit 05029328bb

View File

@ -13,14 +13,13 @@ BEGIN
PROMPT 3 1 "Cod. valuta "
FLAGS "UZ"
KEY 1
FIELD CAM->CODTAB[1,3]
USE %VAL KEY 1
FIELD CODTAB[1,3]
USE %VAL
INPUT CODTAB FLD_TABCAM_CODVAL
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_S0 S0
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@50" S0
HELP "Codice della valuta"
CHECKTYPE FORCED
WARNING "Valuta assente"
END
@ -29,7 +28,7 @@ DATE 200
BEGIN
PROMPT 30 1 ""
FLAGS "D"
FIELD CAM->D0
FIELD D0
END
DATE FLD_TABCAM_D0
@ -51,7 +50,6 @@ BEGIN
CHECKTYPE REQUIRED
MESSAGE COPY,200
WARNING "Data mancante"
HELP "Data dell'ultimo cambio"
END
@ -59,13 +57,12 @@ STRING FLD_TABCAM_S0 50
BEGIN
PROMPT 3 3 "Descrizione "
FLAGS "D"
HELP "Descrizione valuta"
END
NUMBER FLD_TABCAM_R0 15 5
BEGIN
PROMPT 3 5 "Cambio "
FIELD LF_TABCOM->R10
FIELD R10
PICTURE ".5"
FLAGS "R"
END