Имя: Пароль:
1C
1С v8
Ошибка при обновлении
0 Artic
 
10.04.12
19:53
После обновления Бухгалтерии ПРОФ 2.0 при обновлении информационной базы выдает ошибку (нет памяти) выяснил, что ошибка в этой процедуре

Процедура ЗаполнитьКППвДокументахРегламентированныйОтчет()
конкретно в строчке
Выборка = Документы.РегламентированныйОтчет.Выбрать();

певый раз встречаюсь с такой ошибкой, что я могу исправить?







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