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

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

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

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

UPDATE aps_mrp_lock
	SET iflock = 0
	Where scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = 'MRP运算解锁失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

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

RETURN rslt



















end function