Tolti LF_*-> errati
git-svn-id: svn://10.65.10.50/trunk@2080 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
16cec7fc31
commit
05029328bb
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user