SET
= M 0.0


//;

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

AN M 4.0
JC mon
L D#2005-4-7
T #IN_DATE
L TOD#17:45:0.0
T #IN_TIME


mon: L D#2005-4-7
T #IN_DATE
L TOD#17:45:0.0
T #IN_TIME



//;

A M 0.0
CALL "D_TOD_DT"
IN1 :=#IN_DATE
IN2 :=#IN_TIME
RET_VAL:=#OUT_TIME_DATE


//;


CALL "SET_TINT"
OB_NR :=10
SDT :=#OUT_TIME_DATE
PERIOD :=W#16#1201
RET_VAL:=MW28



//;

CALL "CAN_TINT"
OB_NR :=10
RET_VAL:=MW24

那位高手能提示一下，为什么我的程序在到达设定时间后不调用OB10，错在那里？