7.7 БухИтоги

Добрый день!!!

Появилась проблеммка, не могу разобраться! С "целыми" счетами идет, а с субсчетами отказывается работать!

В чем дело?

Код:

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

БИ10.ВключатьСубсчета(1,1);          
Если ВидСчета = 10.1 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.1",,,,, "К"); 
ИначеЕсли ВидСчета = 10.2 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.2",,,,, "К");
ИначеЕсли ВидСчета = 10.3 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.3",,,,, "К");       
ИначеЕсли ВидСчета = 10.4 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.4",,,,, "К");
ИначеЕсли ВидСчета = 10.5 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.5",,,,, "К");      
ИначеЕсли ВидСчета = 10.6 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.6",,,,, "К");
ИначеЕсли ВидСчета = 10.10 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.10",,,,, "К");       
ИначеЕсли ВидСчета = 10.8 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.8",,,,, "К");
ИначеЕсли ВидСчета = 10.9 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.9",,,,, "К");      
ИначеЕсли ВидСчета = 10.12 Тогда
БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.12",,,,, "К");

КонецЕсли;

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

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



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

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

Надо проще: :unsure:

Просто в запросе взять все субсчета!

Код:

БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10.1,10.2,10.3,10.4,10.5,10.6,10.8,10.9,10.10,10.12",,,,, "К");