Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 06:30

Печать Регламентированных Форм

Автор andrew_cher, 06 дек 2011, 09:57

0 Пользователей и 1 гость просматривают эту тему.

andrew_cher

В 1С 8.2 Бюджетная отчетность, редакция 1.1 (1.1.4.2)  при печати формы Ф.0503127 появляется ошибка " {ОбщийМодуль.ПечатьРегламентированныхФорм.Модуль(235)}: Значение не является значением объектного типа (ПолучитьОбласть)     Макет = МакетыРаскрытия.Строка.ПолучитьОбласть();
" подскажите в чем проблема )
листинг цикла :
Пока Выборка.Следующий() Цикл
       
        МакетыРаскрытия = ЭкземплярОтчета.ВернутьМассивМакетовРаскрытия(СокрП(Выборка.КодГруппыРаскрытия)+"_"+СокрП(Выборка.КодСтроки));
        ИскомаяСтрока = СокрП(Выборка.КодГруппыРаскрытия)+"_"+СокрП(Выборка.КодСтроки)+"_РазметкаПустойСтроки";
        Обл = ТабДокВывода.Области.Найти(ИскомаяСтрока);

        Если МакетыРаскрытия<> Неопределено Тогда
               
            Макет = МакетыРаскрытия.Строка.ПолучитьОбласть();
       
        // точечные границы в раскрытии - условно невидимы при печати
            ЯчейкаСЛевойГраницей  = Новый Массив;
            ЯчейкаСПравойГраницей = Новый Массив;
           
                Для Каждого ОблМакета Из Макет.Области Цикл

                Если ОблМакета.ТипОбласти <> ТипОбластиЯчеекТабличногоДокумента.Прямоугольник Тогда
ТипОбластиЯчеекТабличногоДокумента.Прямоугольник Тогда
                    Продолжить;
                КонецЕсли;
               
                Если ОблМакета.ГраницаСлева.ТипЛинии = ТипЛинииЯчейкиТабличногоДокумента.Точечная Тогда
                    ОблМакета.ГраницаСлева = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.НетЛинии);
                    ЯчейкаСЛевойГраницей.Добавить(ОблМакета.Имя);
                КонецЕсли;
               
                Если ОблМакета.ГраницаСправа.ТипЛинии = ТипЛинииЯчейкиТабличногоДокумента.Точечная Тогда
                    ОблМакета.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.НетЛинии);
                    ЯчейкаСПравойГраницей.Добавить(ОблМакета.Имя);
                КонецЕсли;
               
            КонецЦикла;

Dethmontt

Так тут скорее всего вот эта функция работает не правильно
МакетыРаскрытия = ЭкземплярОтчета.ВернутьМассивМакетовРаскрытия(СокрП(Выборка.КодГруппыРаскрытия)+"_"+СокрП(Выборка.КодСтроки));
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск