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

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

forward prototypes
global function integer f_update_aps_mtrl_will (ref string arg_msg, boolean arg_if_commit)
end prototypes

global function integer f_update_aps_mtrl_will (ref string arg_msg, boolean arg_if_commit);Int rslt = 1

DECLARE pro1 Procedure FOR dt_sys_update_aps_mtrl_will ;
EXECUTE pro1;
IF sqlca.SQLErrText <> '' THEN
	rslt = 0
	arg_msg = '重算物料监控表失败,' + sqlca.SQLErrText
	GOTO ext
END IF
CLOSE pro1;

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


end function