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

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

forward prototypes
global function integer f_outware_savelock_cancel (long arg_storageid, ref string arg_msg)
end prototypes

global function integer f_outware_savelock_cancel (long arg_storageid, ref string arg_msg);Int rslt = 1

IF sys_option_outware_save_lock = 0 THEN
	rslt = 1
	GOTO ext
END IF

UPDATE u_outware_save_lock
	SET iflock = 0
	Where storageid = :arg_storageid;
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