Corretti errori MI4287 e MI4292

git-svn-id: svn://10.65.10.50/trunk@3313 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-08-01 13:36:01 +00:00
parent 88fae62e50
commit 22deb75f21

View File

@ -38,11 +38,12 @@ BEGIN
FLAGS "R"
KEY 1
USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*")
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL
JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3]
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT // PER INPUT
INPUT CODTAB[4,11] FLD_TABCAM_D0
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data@10" D0
DISPLAY "Descrizione@25" S0
DISPLAY "Descrizione@25" -50->S0
DISPLAY "Cambio@15" R10
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_D0 D0