Программное добавление реквизитов на форму документа. Без изменения самой формы.

Применимо к обычным формам. Методика не требует изменения формы, актуально для полностью типовых форм.

Описание
Подробнее

Описание

Долгое время искал способ программного добавления реквизитов на обычную форму. Не хотелось изменять и включать возможность редактирования у типовой формы, так как это вызывает трудности при обновлении типовой конфигурации. Но в виду того что надо было добавить один — два реквизита в один — два типовых документам, острой необходимости не было. И вот потребовалось добавить в более чем 30 документах реквизит «Подразделение организации» с типом справочник «Подразделения организаций», справочник типовой.

Итак. В данном случае выводим новые реквизиты снизу формы. Исходим от того, что у нас в типовых формах есть процедура обновления заголовка, которая выводить текущее состояние документа (новый, проведен, не проведен или записан), в ней и вызовем процедуру вывода новых реквизитов.

Вкраце последовательность действий:

1. Выводиться форма

2. Увеличиваем высоту формы на общую высоту добавляемых реквизитов (некая высота — n).

3. Обратно уменьшаем высоту растягиваемых элементов на n, а остальные элементы формы, которые прикреплены к нижнему краю, смещаем на n вверх.

4. Добавляем новые реквизиты, устанавливаем их свойства и привязки. Profit!

На форме появляются новые реквизиты, привязки корректно отрабатывают, так как мы их не трогали и не меняли. Раньше моя ошибка заключалась в том что я пытался отключить привязку элементов к нижней границе формы, а после добавления новых элементов, пытался их восстановить. В итоге формы нещадно глючили, ломались привязки. А решение оказалось на поверхности. Не надо трогать привязки, все корректируется высотой и положением самого элемента.

З.Ы. Возможно будут проблемы с элементами которые привязаны к нижней границе через другой элемент, но в моих 30 документах такого не наблюдалось. В крайнем случае можно сохранить параметры всех элементов на форме: верхняя точка и высота элемента. И после увеличения высоты формы восстановить эти параметры.

Примеры кода, думаю комментариев будет достаточно:

Функция ВыводитьДополнительныеРеквизиты(ДокументОбъект, ФормаДокумента)

Результат = Ложь;

Если ДокументОбъект.Метаданные().Реквизиты.Найти(«ПодразделениеОрганизации») <> Неопределено Тогда

Для Каждого Стр из ФормаДокумента.ЭлементыФормы Цикл

Если Стр.Данные = «ПодразделениеОрганизации» Тогда

Возврат Результат;

КонецЕсли;

КонецЦикла;

Результат = Истина;

КонецЕсли;

Возврат Результат;

КонецФункции

Процедура ВыводДополнительныхРеквизитов(ДокументОбъект, ФормаДокумента) Экспорт

// Проверка на наличие дополнительных реквизитов

Если Не ВыводитьДополнительныеРеквизиты(ДокументОбъект, ФормаДокумента) Тогда Возврат КонецЕсли;

// Вывод или сохранение дополнительных реквизитов

// Если элемент формы существует то сохраняем значение

Элемент = ФормаДокумента.ЭлементыФормы.Найти(«_ПодразделениеОрганизации»);

Если Элемент = Неопределено Тогда

ВысотаОбщаяДобавляемыхЭлементовПоВертикали = 27; // Общая высота всех добавляемых элементов

ВысотаОдногоЭлемента = 19;

ВысотаНижнейПанели = 0; // будет вычислятся если нижняя панель есть

РасстояниеМеждуЭлементами = 8;

// Увеличение высоты

ФормаДокумента.Высота = ФормаДокумента.Высота + ВысотаОбщаяДобавляемыхЭлементовПоВертикали;

// Обработка элементов формы

Для Каждого Стр из ФормаДокумента.ЭлементыФормы Цикл

_ПервыйЭлемент = Неопределено;

_ГраницаПервогоЭлемента = Неопределено;

_ВторойЭлемент = Неопределено;

_ГраницаВторогоЭлемента = Неопределено;

Стр.ПолучитьПривязку(ГраницаЭлементаУправления.Низ, _ПервыйЭлемент, _ГраницаПервогоЭлемента, _ВторойЭлемент, _ГраницаВторогоЭлемента);

Если _ПервыйЭлемент = ФормаДокумента.Панель И _ГраницаПервогоЭлемента = ГраницаЭлементаУправления.Низ Тогда

// Исключаем нижнюю панель команд

Если ВРЕГ(СокрЛП(Стр.Имя)) = «ОСНОВНЫЕДЕЙСТВИЯФОРМЫ» Тогда

ВысотаНижнейПанели = Стр.Высота;

Продолжить;

КонецЕсли;

// У растягиваемых элементов уменьшаем высоту, а элементы с фиксированной высотой смещаем вверх

Стр.ПолучитьПривязку(ГраницаЭлементаУправления.Верх, _ПервыйЭлемент, _ГраницаПервогоЭлемента, _ВторойЭлемент, _ГраницаВторогоЭлемента);

Стр.Верх = Стр.Верх — ВысотаОбщаяДобавляемыхЭлементовПоВертикали;

Иначе

Стр.Высота = Стр.Высота — ВысотаОбщаяДобавляемыхЭлементовПоВертикали;

КонецЕсли;

КонецЦикла;

ПоложениеПервогоЭлемента = ФормаДокумента.Высота — ВысотаОбщаяДобавляемыхЭлементовПоВертикали — ВысотаНижнейПанели — ВысотаОбщаяДобавляемыхЭлементовПоВертикали;

// Создание заголовка

Элемент = ФормаДокумента.ЭлементыФормы.Добавить(Тип(«Надпись»), «_ЗаголовокПодразделениеОрганизации», Истина, ФормаДокумента.Панель);

Элемент.Заголовок = «Подразделение организации:»;

// Настройка

Элемент.Лево = РасстояниеМеждуЭлементами;

Элемент.Верх = ПоложениеПервогоЭлемента;

Элемент.Высота = ВысотаОдногоЭлемента;

Элемент.Ширина = 155;

// Установка привязок

Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Верх, ФормаДокумента.Панель, ГраницаЭлементаУправления.Низ);

Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Низ, ФормаДокумента.Панель, ГраницаЭлементаУправления.Низ);

Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Право, ФормаДокумента.Панель, ГраницаЭлементаУправления.Лево);

Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Лево, ФормаДокумента.Панель, ГраницаЭлементаУправления.Лево);

// Создание поле ввода

Элемент = ФормаДокумента.ЭлементыФормы.Добавить(Тип(«ПолеВвода»), «_ПодразделениеОрганизации», Истина, ФормаДокумента.Панель);

Элемент.ТипЗначения = Новый ОписаниеТипов(«СправочникСсылка.ПодразделенияОрганизаций»);

Элемент.Данные = «ПодразделениеОрганизации»;

// Настройка

Элемент.Лево = РасстояниеМеждуЭлементами + 155 + РасстояниеМеждуЭлементами;

Элемент.Верх = ПоложениеПервогоЭлемента;

Элемент.Высота = ВысотаОдногоЭлемента;

Элемент.Ширина = ФормаДокумента.Ширина — (РасстояниеМеждуЭлементами * 3) — 155;

// Установка привязок

Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Право, ФормаДокумента.Панель, ГраницаЭлементаУправления.Право);

// Заполнение значения

Если ДокументОбъект.ЭтоНовый() Тогда

Элемент.Значение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной(«глТекущийПользователь»), «ОсновноеПодразделениеОрганизации»);

КонецЕсли;

КонецПроцедуры

Каталог решений - Программное добавление реквизитов на форму документа. Без изменения самой формы.