Ansan
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите пожалуйста - почему не работает внешний обработчик "отчет по материалам" в Бухгалтерии 4.5 ? В Бухгалтерии 4.4 - все нормально - выгружает с ценами и средней суммой, в 4.5 - количество есть, в ценах - нули. Обработчик я так понимаю самописный )).
Процедура Сформировать()
ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Материал","Справочник.Материалы");
ТЗ.НоваяКолонка("Количество","Число");
ТЗ.НоваяКолонка("СредняяЦена","Число");
ТЗ.НоваяКолонка("Сумма","Число");
Таб=СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ВключатьСубсчета(1,0);
БухИт.ИспользоватьСубконто("МестаХранения",МестоХранения);
БухИт.ИспользоватьСубконто("Материалы",);
БухИт.ВыполнитьЗапрос(,ВыбДата,"10",,,1,"Период","5");
БухИт.ВыбратьСубконто(1);
Пока БухИт.ПолучитьСубконто(1)=1 Цикл
Таб.ВывестиСекцию("МОЛ");
БухИт.ВыбратьСубконто(2);
Пока БухИт.ПолучитьСубконто(2)=1 Цикл
Если БухИт.СКД("К")>0 Тогда
ТЗ.НоваяСтрока();
ТЗ.Материал=БухИт.Субконто(2);
ТЗ.Количество=БухИт.СКД("К");
ТЗ.Сумма=БухИт.СКД("С");
ТЗ.СредняяЦена=ТЗ.Сумма/ТЗ.Количество;
КонецЕсли;
КонецЦикла;
ТЗ.Сортировать("Материал");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.Вывестисекцию("Подвал");
ТЗ.УдалитьСтроки();
КонецЦикла;
Таб.Опции(0,0,4);
Таб.ТолькоПросмотр(1);
Таб.Показать();
КонецПроцедуры // Сформировать()
// **********************************************************
Процедура ПриОткрытии()
ВыбДата=РабочаяДата();
КонецПроцедуры // ПриОткрытии() |
,и на все вопросы ответь утвердительно 
. 
