CALL "QRY_TINT"
OB_NR :=10
RET_VAL:=MW20
STATUS :=MW16
//;

A M 4.0
JC mond
L D#2005-5-1
T #IN_DATE
L TOD#10:0:0.0
T #IN_TIME

mond: L D#2008-12-31
T #IN_DATE
L TOD#10:0:0.0
T #IN_TIME




//;

CALL "D_TOD_DT"
IN1 :=#IN_DATE
IN2 :=#IN_TIME
RET_VAL:=#OUT_TIME_DATE_1

//;
A M 0.0
= #OK_MEMORY
//;
A #OK_MEMORY
JNB m008

CALL "SET_TINT"
OB_NR :=10
SDT :=#OUT_TIME_DATE_1
PERIOD :=W#16#1201
RET_VAL:=MW2000
m008: A BR
= M 2000.6
//;
A #OK_MEMORY
JNB m003

CALL "CAN_TINT"
OB_NR :=10
RET_VAL:=MW2001
m003: A BR
= M 2000.5



我的程序错在那，我做的是FC12，在FC13里调用，OB1调用13，但12就是不对！·