FXApp/ws_objects/l1_uo.pbl.src/f_aps_mrp_lasttime.srf

$PBExportHeader$f_aps_mrp_lasttime.srf
global type f_aps_mrp_lasttime from function_object
end type

forward prototypes
global function integer f_aps_mrp_lasttime (long arg_scid, ref string arg_msg)
end prototypes

global function integer f_aps_mrp_lasttime (long arg_scid, ref string arg_msg);Int rslt = 1

UPDATE aps_mrp_lock
	SET locktime = getdate()
	Where scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新锁定时间失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSE
	COMMIT;
END IF
RETURN rslt




















end function