И снова БухИтоги

"вопрос в следующем...Помогите начинающему. У меня на складе есть товар..И мне нужно по бух итогам на каком складе он лежит и просто его списать при проведении документа...Пишу так...

СчО06 = СчетПоКоду("006");
СпрМ = СоздатьОбъект("Справочник.МестаХранения");

Дата1 = "01.01.2006";
СписокБланков = СоздатьОбъект("СписокЗначений");
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
СписокБланков.ДобавитьЗначение(НомПутевок,);
КонецЦикла;

БИБланк = СоздатьОбъект("БухгалтерскиеИтоги");
БИБланк.ИспользоватьСубконто(ВидыСубконто.БланкиСтрогойОтчетности,СписокБланков,2);
БИБланк.ИспользоватьСубконто(ВидыСубконто.МестаХранения);
БИБланк.ВыполнитьЗапрос(Дата1,ТекущийДокумент(), "006",,,,, "К");

ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТаблицаОстатков, "НомПутевок, Количество");
ТаблицаОстатков.Свернуть("НомПутевок", "Количество");
ТаблицаОстатков.НоваяКолонка("СчетУчета");
ТаблицаОстатков.НоваяКолонка("МестаХранения");
ТаблицаОстатков.ВыбратьСтроки();

Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл
КоличествоНаСкладе = 0;
ТаблицаОстатков.СчетУчета = СчО06;
БухИтоги = БИБланк;



Вообщем загвоздка в том..что определить наличие данного товара происходит..а вот опреление на каком складе не получается...

Заранее спасибоЙЙЙЙ
"

А где в этом тексте происходит определение товаров на складе !?

"Пардон..не дописал...

Если БухИтоги.ПолучитьСчет(, ТаблицаОстатков.СчетУчета) = 1 Тогда

БухИтоги.ВыбратьСубконто();
Пока БухИтоги.ПолучитьСубконто(1,,ТаблицаОстатков.НомПутевок) = 1 Цикл  
 КоличествоНаСкладе = БухИтоги.СКД("К");
КонецЦикла;
КонецЕсли;

А вот именно со складом..проблемы..."

Нужна выборка по ВТОРОМУ субконто (местам хранения)... Используйте коструктор

"Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.БланкиСтрогойОтчетност, списокбланков, 2);
Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,, 1);
Ит.ВыполнитьЗапрос(дата1, дата2, "006",,, 1,, "К");

Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл // перебираем виды бланков
 Ит.ВыбратьСубконто(2);
 Пока Ит.ПолучитьСубконто(2) = 1 Цикл // перебираем местахранения
  склад=ит.субконто(2); // склад
  кол=ит.СКД(3);// кол-во на складе
 КонецЦикла;
КонецЦикла;"