v7: Число фильтров превысило..

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

БухИт_003.ИспользоватьСубконто(Мм);
БухИт_003.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода,Сч);
Всего1=0; Всего2=0; Всего3=0; Всего4=0; Ном=0;
СформироватьТаблицу(БухИт_003,"Пусто",Сч,,,,,,,); //формируем счет
//Таб.ВывестиСекцию("Пусто");
БухИт_003.ВыбратьСубконто(ВидыСубконто.Подразделения);
Пока БухИт_003.ПолучитьСубконто(ВидыСубконто.Подразделения) = 1 Цикл
БухИт_003.ВыбратьСубконто(ВидыСубконто.Номенклатура);
Пока БухИт_003.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл
СформироватьТаблицу(БухИт_003,"Объект",,,,,,,,); //формируем объект
//Таб.ВывестиСекцию("Объект");
Ном=0;
БухИт_003.ВыбратьСубконто(Мм);
Пока БухИт_003.ПолучитьСубконто(Мм) = 1 Цикл
Колво1=БухИт_003.СНД(3);
Колво2=БухИт_003.ДО(3);
Колво3=БухИт_003.КО(3);
Колво4=БухИт_003.СКД(3);
Стоим1=БухИт_003.СНД(1);
Стоим2=БухИт_003.ДО(1);
Стоим3=БухИт_003.КО(1);
Стоим4=БухИт_003.СКД(1);
Цена=?(Колво1<>0,(Стоим1/Колво1),?(Колво2<>0,(Стоим2/Колво2),?(Колво3<>0,(Стоим3/Колво3),?(Колво4<>0,(Стоим4/Колво4),0))));
Если (Колво1<>0) Или (Колво2<>0) Или (Колво3<>0) Или (Колво4<>0) Или
(Стоим1<>0) Или (Стоим2<>0) Или (Стоим3<>0) Или (Стоим4<>0) Тогда
Ном=Ном+1;
Всего1=Всего1+Стоим1;
Всего2=Всего2+Стоим2;
Всего3=Всего3+Стоим3;
Всего4=Всего4+Стоим4;
Если ИтогиПоСч = 0 Тогда
СформироватьТаблицу(БухИт_003,"БухИт",Сч,Ном,ДокПоставки,Цена,,,,); //формируем материалы по партиям
//Таб.ВывестиСекцию("БухИт");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;