Код

	Дата1 = Формат('03.06.2007',"ДГГГГММДД");
	Дата2 = Формат('04.06.2007',"ДГГГГММДД");

	RS = СоздатьОбъект("ODBCRecordSet");
	RS.УстБД1С();

	RS.Выполнить("drop table #tmp__");

	ТекстЗапроса = "
	|create table #tmp__
	|         (
	|           Товар         char(9)       not null,
	|           Склад         char(9)       not null,
	|           ОстатокТовара numeric(12,3) not null,
	|           Стоимость     numeric(11,2) not null,
	|           Дата          datetime      not null
	|         )
	|";  

	рез = RS.Выполнить(ТекстЗапроса);
    
	Если рез = 0 Тогда
		Сообщить(RS.ПолучитьОписаниеОшибки());
		Возврат;
	КонецЕсли;

	ТекстЗапроса = "
	|declare @@curDate datetime
	|
	|set @@curDate = cast('"+Дата1+"' as datetime)
	|
	|while @@curDate<=cast('"+Дата2+"' as datetime)
	|begin
	|     insert into #tmp__(Товар,Склад,ОстатокТовара,Стоимость,Дата)
	|     select
	|       Рег.Товар              [Товар],
	|       Рег.Склад              [Склад],
	|       sum(Рег.ОстатокТовара) [ОстатокТовара],  
	|       sum(Рег.Стоимость)     [Стоимость],  
	|       @@curDate              [Дата]
	|     from
	|        (  
	|           select
	|             $rg.Товар         [Товар],
	|             $rg.Склад         [Склад],  
	|             $rg.ОстатокТовара [ОстатокТовара],  
	|             $rg.Стоимость     [Стоимость]  
	|           from
	|             $РегистрИтоги.ПартииТоваров as rg (nolock)
	|           where
	|              rg.period = dateadd(m,-1,dateadd(dd,-day(@@curDate)+1,@@curDate)) and
	|             $rg.Фирма = $ПустойИд
	|           union all
	|           select
	|             $ra.Товар                          [Товар],
	|             $ra.Склад                          [Склад],  
	|             $ra.ОстатокТовара*(1-ra.debkred*2) [ОстатокТовара],  
	|             $ra.Стоимость*(1-ra.debkred*2)     [Стоимость]  
	|           from
	|             $Регистр.ПартииТоваров ra (nolock)
	|           inner join
	|             _1sjourn j (nolock) on j.iddoc = ra.iddoc
	|           where
	|              cast(left(j.date_time_iddoc,8) as datetime) between dateadd(dd,-day(@@curDate)+1,@@curDate) and @@curDate and
	|             $ra.Фирма = $ПустойИд
	|        ) Рег  
	|     group by
	|        Рег.Товар,
	|        Рег.Склад
	|     set @@curDate = dateadd(dd,1,@@curDate)
	|  end
	|";

	рез = RS.Выполнить(ТекстЗапроса);
	Если рез = 0 Тогда
		Сообщить(RS.ПолучитьОписаниеОшибки());
		Возврат;
	КонецЕсли;  

	ТекстЗапроса = "
	|select
	|  Товар         [Товар $Справочник.ТМЦ],
	|  Склад         [Склад $Справочник.Склады],
	|  ОстатокТовара [ОстатокТовара],
	|  Стоимость     [Стоимость],      
	|  Дата          [Дата]    
	|from
	|  #tmp__
	|";

	Попытка
		тз = RS.ВыполнитьИнструкцию(ТекстЗапроса);
	Исключение    
		Сообщить(RS.ПолучитьОписаниеОшибки());
		Возврат;
	КонецПопытки;
                
	тз.ВыбратьСтроку();