|
Всем доброго времени суток!
У меня такая проблема на ms sql server 2000 крутятся две базы, одна база 1с 8.1 (monetka2) а другая база продаж по кассам (OLAP) не одинэсовская, я в базе OLAP сделала хранимую процедуру, которая берет данные из двух этих баз.
Вот ее код:
ALTER PROCEDURE dbo.GetSaleByFamily
@DateBegin int, --дата начала
@DateEnd int --дата конца
AS
BEGIN
--Временная таблица
declare @TempTable table(
Дата datetime,
Себестоимость numeric(24,2),
Сегмент varchar(100),
Семья varchar(100)
)
--Таблица с данными из 1с
declare @1C table(
Дата datetime,
Сегмент varchar(100),
Семья varchar(100),
Себестоимость numeric(24,2)
)
DECLARE
@d datetime,
@nom binary(16),
@Seb numeric(9,2),
@Segment binary(16),
@Family binary(16),
@tmp binary(16),
@segment_name varchar(100),
@family_name varchar(100)
DECLARE mycursor CURSOR FOR
select
dateadd(dd,0, datediff(dd,0,_Period)) as Дата,
_Fld2888RRef as НомСсылка,
_Fld2895 as СебестоимостьРуб
from monetka2.dbo._AccumReg2887
where dateadd(dd,0, datediff(dd,0,_Period))>=Str(@DateBegin) and dateadd(dd,0, datediff(dd,0,_Period))<=Str(@DateEnd)
OPEN mycursor
FETCH NEXT FROM mycursor
INTO @d, @nom, @seb
WHILE @@FETCH_STATUS = 0
BEGIN
select @segment=_ParentIDRRef from monetka2.dbo._Reference56 where _IDRRef=@nom
while 1=1
BEGIN
SET @Family=@Segment
select @segment=_ParentIDRRef from monetka2.dbo._Reference56 where _IDRRef=@family
select @tmp=_ParentIDRRef from monetka2.dbo._Reference56 where _IDRRef=@segment
if (@tmp=0) break
END
select @segment_name=_Description from monetka2.dbo._Reference56 where _IDRRef=@segment
select @family_name=_Description from monetka2.dbo._Reference56 where _IDRRef=@Family
insert into @TempTable(Дата,Себестоимость,Сегмент,Семья) VALUES(@d,@seb,@segment_name,@family_name)
FETCH NEXT FROM mycursor
INTO @d, @nom, @seb
END
CLOSE mycursor
DEALLOCATE mycursor
insert into @1C(Дата,Сегмент,Семья,Себестоимость)
select
Дата,
Сегмент,
Семья,
sum(Себестоимость) as Себестоимость
from @TempTable
group by
Дата,
Сегмент,
Семья
order by
Дата,
Сегмент,
Семья
--------------------------------------------------------------
--Таблица с данными из ОЛАПа
declare @OLAP table(
Дата datetime,
Сегмент varchar(100),
Семья varchar(100),
ДеньНедели int,
Сумма numeric(24,2),
[Сумма чеков] numeric(24,2),
Покупок int,
Покупателей int,
Количество numeric(24,2)
)
insert into @OLAP(Дата,Сегмент,Семья,ДеньНедели,Сумма,[Сумма чеков],Покупок,Покупателей,Количество)
select
cast((substring(str(dateid),9,2)+'.'+substring(str(dateid),7,2)+'.'+substring(str(dateid),3,4)) as datetime) as Дата,
gg3.name as Сегмент,
f as Семья,
dayofweekid as ДеньНедели,
sum(cast(summa as numeric(24,2))) as Сумма,
sum(cast(SummaCheque as numeric(24,2))) as [Сумма чеков],
count(chequeId) as Покупок,
count(DISTINCT chequeId) as Покупателей,
sum(cast(quantity as numeric(24,2))) as Количество
from
(select
segment,
gg2.name as f,
DateID,
DayOfWeekId,
q.summa,
q.SummaCheque,
q.chequeId,
q.quantity
from olap.dbo.GoodsGroup gg2 inner join
(select
ch.GoodsId,
ch.Summa,
ch.SummaCheque,
ch.dateid,
ch.dayOfWeekID,
ch.shopindex,
ch.chequeID,
ch.quantity,
g.name,
gg.branch,
family =
case
when CHARINDEX(',', gg.branch, CHARINDEX(',', gg.branch, 0)+1)>0 then
substring(gg.branch,CHARINDEX(',', gg.branch, 0)+1,CHARINDEX(',',gg.branch,CHARINDEX(',', gg.branch, 0)+1)-1 - CHARINDEX(',', gg.branch, 0))
when CHARINDEX(',', gg.branch, CHARINDEX(',', gg.branch, 0)+1)=0 then
substring(gg.branch,CHARINDEX(',', gg.branch, 0)+1,len(gg.branch))
end,
segment =
case
when CHARINDEX(',', gg.branch, 1)>0 then
substring(gg.branch,1,CHARINDEX(',', gg.branch, 0)-1)
when CHARINDEX(',', gg.branch, 1)=0 then
substring(gg.branch,1,len(gg.branch))
end
from olap.dbo.V_ChequePos ch, olap.dbo.goods g, olap.dbo.goodsGroup gg
where DateId>=@DateBegin and DateID<=@DateEnd and operationid=1 and ch.GoodsId=g.id and gg.id=-1*g.groupID) q
on gg2.code=q.family) q2, olap.dbo.goodsGroup gg3 where gg3.code=q2.segment
group by
DateID,
gg3.name,
f,
dayofweekid
order by
dateid,
gg3.name,
f
-----------------------------------------------------------------------
select
o.Дата,
o.Сегмент,
o.Семья,
o.ДеньНедели,
o.Сумма,
o.[Сумма чеков],
o.Покупок,
o.Покупателей,
o.Количество,
c.Себестоимость
from @OLAP o, @1C c
where o.Дата=c.Дата and o.Сегмент=c.Сегмент and o.Семья=c.Семья
END
На выходе получается таблица, которую я хочу вставить в Excel 2007. Пишу макрос, вот кусок кода:
.............................
sConn = "Provider=SQLOLEDB.1;User ID=sa;Password=111;Data Source=" + Array_M(iMonetka) + ";Initial Catalog=OLAP"
Set oConn = CreateObject("ADODB.Connection")
On Error GoTo CnErrorHandler
oConn.Open sConn
CnErrorHandler:
If oConn.Errors.Count > 0 Then
Exit For
End If
Dim rs
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "exec dbo.GetSaleByFamily " & DateBegin & ", " & DateEnd, oConn
rs.MoveFirst
.......................
Вылетает на моменте rs.MoveFirst, синтаксис в макросе должен быть верным, потому что этот когда хранимая процедура с этими же параметрами брала данные из одной базы простым селектом, все работало, а после усложнения процедуры в экселе она работать перестала, хотя в Query Analyzer все проходит успешно.
Есть у кого-нибудь идеи по этому поводу? :)
|
