Содержание:
Файлы материала
Описание
Новый реквизит на форму, можно добавить программно через расширение, при этом не забирать саму форму в расширение (это удобно тем, что последующие обновления внешнего вида формы не смогут сломать наше расширение). В типовых конфигурациях, данный способ можно реализовывать в процедуре «ПриСозданииНаСервере» общего модуля «УправлениеСвойствами» или в аналогичном обработчике необходимой формы.
Полный список реквизитов и их связи в статье — Шпаргалка по программному созданию реквизитов и элементов (УФ).
Программное добавление реквизита на форму
Для примера, стоит задача в конфигурации ЗУП 3.1 добавить реквизит «Способ отражения зарплаты в БУ» для позиции штатного расписания в группе «Дополнительные данные».
Создадим расширение и выполним следующую последовательность действий:
- Добавим в расширение справочник «Штатное расписание» и создадим реквизит «АВ_СпособОтражения» с типом данных «СправочникСсылка.СпособыОтраженияЗарплатыВБухУчете»
2. Заберем в расширение процедуру «ПриСозданииНаСервере» из общего модуля «УправлениеСвойствами», программно добавим поле в форму и свяжем его с реквизитом объекта добавленного на первом шаге.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
&После("ПриСозданииНаСервере") Процедура АВ_ПриСозданииНаСервере(Форма, ДополнительныеПараметры) Если Форма.ИмяФормы = "Справочник.ШтатноеРасписание.Форма.ФормаЭлемента" Тогда #Область ДобавлениеЭлементовФормы ИмяГруппы = "ГруппаДополнительныеРеквизиты"; ГруппаФормы = Форма.Элементы.Найти(ИмяГруппы); Если ГруппаФормы <> Неопределено Тогда ИмяЭлемента = "АВ_СпособОтражения"; Если Форма.Элементы.Найти(ИмяЭлемента) = Неопределено Тогда ЭлементФормы = Форма.Элементы.Добавить(ИмяЭлемента, Тип("ПолеФормы"), ГруппаФормы); //Вместо Добавить() можно использовать метод Вставить() //в 4-й параметре указывается Элемент перед которым должен быть вставлен новый элемент. //ЭлементФормы = Форма.Элементы.Вставить(ИмяЭлемента, Тип("ПолеФормы"), ГруппаФормы, Форма.Элементы.Найти("ИмяСледующегоЭлементаФормы")); ЭлементФормы.Вид = ВидПоляФормы.ПолеВвода; ЭлементФормы.ПутьКДанным = "Объект.АВ_СпособОтражения"; //ЭлементФормы.МногострочныйРежим = Истина; //ЭлементФормы.Высота = 3; КонецЕсли; КонецЕсли; #КонецОбласти КонецЕсли; КонецПроцедуры |
Образец расширения для скачивания в начале описания.
Программное добавление реквизита в табличную часть формы
Например, таким же способом, добавим в табличную часть «Рабочие места» реквизит «Спецжиры» с типом «Булево».
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
&После("ПриСозданииНаСервере") Процедура АВ_ПриСозданииНаСервере(Форма, ДополнительныеПараметры) Если Форма.ИмяФормы = "Документ.РезультатыСпецоценкиУсловийТруда.Форма.ФормаДокумента" Тогда #Область ДобавлениеЭлементовФормы ИмяЭлемента = "АВ_ЕстьСпецжиры"; Если Форма.Элементы.Найти(ИмяЭлемента) = Неопределено Тогда ЭлементФормы = Форма.Элементы.Добавить("Спецжиры", Тип("ПолеФормы"), Форма.Элементы.РабочиеМеста); ЭлементФормы.Вид = ВидПоляФормы.ПолеФлажка; ЭлементФормы.ПутьКДанным = "Объект.РабочиеМеста.АВ_ЕстьСпецжиры"; //ЭлементФормы.ТолькоПросмотр = Истина; КонецЕсли; #КонецОбласти КонецЕсли; КонецПроцедуры |
В результате получим табличную часть с новой колонкой.
Программное добавление табличной части на форму
Аналогично добавим табличную часть «АВ_ВредныеФакторы» на форму справочника «Профессии».
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
&После("ПриСозданииНаСервере") Процедура АВ_ПриСозданииНаСервере(Форма, ДополнительныеПараметры) Если Форма.ИмяФормы = "Справочник.ПрофессииРабочих.Форма.ФормаЭлемента" Тогда #Область ДобавлениеЭлементовФормы ИмяГруппы = "ГруппаДополнительныеРеквизиты"; ГруппаФормы = Форма.Элементы.Найти(ИмяГруппы); Если ГруппаФормы <> Неопределено Тогда ИмяЭлемента = "АВ_ВредныеФакторы"; Если Форма.Элементы.Найти(ИмяЭлемента) = Неопределено Тогда ЭлементФормыТаблица = Форма.Элементы.Добавить(ИмяЭлемента, Тип("ТаблицаФормы"), ГруппаФормы); ЭлементФормыТаблица.ПутьКДанным = "Объект.АВ_ВредныеФакторы"; ЭлементФормы = Форма.Элементы.Добавить("ВредныйФактор", Тип("ПолеФормы"), ЭлементФормыТаблица); ЭлементФормы.Вид = ВидПоляФормы.ПолеВвода; ЭлементФормы.ПутьКДанным = "Объект.АВ_ВредныеФакторы.ВредныйФактор"; КонецЕсли; КонецЕсли; #КонецОбласти КонецЕсли; КонецПроцедуры |
Спасибо. Помогло.
методика не работает для справочника ХарактеристикиНоменклатуры в унф — не понимаю почему
Очень хорошая шпаргалка, но не пойму почему в каких-то примерах есть #Область ДобавлениеРеквизитовФормы (с содержимым), а в каких-то сразу #Область ДобавлениеЭлементовФормы. Подскажите, пожалуйста.
В данном случаи реквизит и табличная част уже были созданы в дереве объектов метаданных, поэтому программно добавляются только элементы и связываются с реквизитами через «ПутьКДанным».
Спасибо! Работает