Q5/ws_objects/Ew_ware.pbl.src/uf_warebalc.srf

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

forward prototypes
global function integer uf_warebalc (integer arg_balctype, long arg_balcdateint, long arg_storageid, datetime arg_balcdate, ref string arg_msg)
end prototypes

global function integer uf_warebalc (integer arg_balctype, long arg_balcdateint, long arg_storageid, datetime arg_balcdate, ref string arg_msg);//uf_warebalc
Long rslt = 1

IF uf_warebalc_storage(arg_balctype,arg_balcdateint,arg_storageid,arg_balcdate,arg_msg) = 1 THEN
	IF arg_balctype = 1 THEN
		arg_msg = '结存操作成功'
	ELSE
		arg_msg = '反结存操作成功'
	END IF
ELSE
	rslt = 0
	GOTO ext
END IF

//日志	
IF arg_balctype = 1 THEN
	f_setsysoplog('结存','结存,仓库ID:'+String(arg_storageid)+',期间:'+String(arg_balcdateint),arg_msg,True)
ELSE
	f_setsysoplog('反结存','反结存,仓库ID:'+String(arg_storageid)+',期间:'+String(arg_balcdateint),arg_msg,True)
END IF
//--

ext:
RETURN rslt


end function