|
0
Artic
10.04.12
✎
19:53
|
После обновления Бухгалтерии ПРОФ 2.0 при обновлении информационной базы выдает ошибку (нет памяти) выяснил, что ошибка в этой процедуре
Процедура ЗаполнитьКППвДокументахРегламентированныйОтчет()
конкретно в строчке
Выборка = Документы.РегламентированныйОтчет.Выбрать();
певый раз встречаюсь с такой ошибкой, что я могу исправить?
Экспорт
Перем ПоказателиОтчета, ДанныеТитульный; // для отчетов, где титульный раздел - не многостраничный
Перем ДанныеМногостраничныхРазделов, ТаблицаТитульный; // для отчетов, где титульный раздел - многостраничный
#Если ТолстыйКлиентОбычноеПриложение Тогда
Состояние("Заполняется новый служебный реквизит в сохраненных регламентированных отчетах...");
#КонецЕсли
Выборка = Документы.РегламентированныйОтчет.Выбрать();
Пока Выборка.Следующий() Цикл
ОпределенКПП = Ложь;
Док = Выборка.ПолучитьОбъект();
ДанныеОтчета = Док.ДанныеОтчета.Получить();
Если ДанныеОтчета = Неопределено ИЛИ ТипЗнч(ДанныеОтчета) <> Тип("Структура") Тогда
Продолжить;
КонецЕсли;
КПП = "";
Если ДанныеОтчета.Свойство("ПоказателиОтчета", ПоказателиОтчета) И ПоказателиОтчета.Свойство("ПолеТабличногоДокументаТитульный", ДанныеТитульный)
И ДанныеТитульный.Свойство("КПП1_1", КПП) Тогда
Для Сч = 2 По 9 Цикл
КПП = КПП + ДанныеТитульный["КПП1_" + Сч];
КонецЦикла;
ОпределенКПП = Истина;
ИначеЕсли ДанныеОтчета.Свойство("ДанныеМногостраничныхРазделов", ДанныеМногостраничныхРазделов)
И ДанныеМногостраничныхРазделов.Свойство("Титульный", ТаблицаТитульный)
И ТаблицаТитульный[0].Данные.Свойство("КПП1_1", КПП) Тогда
Для Инд = 2 по 9 Цикл
КПП = КПП + ТаблицаТитульный[0].Данные["КПП1_" + Строка(Инд)];
КонецЦикла;
ОпределенКПП = Истина;
КонецЕсли;
Если ОпределенКПП Тогда
Док.КПП = СтрЗаменить(КПП, "-", "");
Попытка
Док.Записать();
Исключение
КонецПопытки;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
|
|
4
DMLangepas
10.04.12
✎
20:11
|
(2) +1 как вариант, но могут ведь в будущем и запросить отчетность, по форме того периода, придётся искать)
|
|