Добавление страниц в форму где их нет
Понадобилось добавить страницы в форму контрагента, добавил:
Код не сложный:
Функция СоздатьЭлементыКарточкиКлиентаНаФорме(Форма) Экспорт Если Форма.ИмяФормы = "Справочник.Лиды.Форма.ФормаЭлемента" Тогда //Перед телефонами Привязка = Форма.Элементы.ГруппаЗаголовокГруппыКонтакты; //Привязка = Форма.Элементы.Компания; ИначеЕсли Форма.ИмяФормы = "Справочник.Контрагенты.Форма.ФормаЭлемента" Тогда ГрСтраницы = ДобавитьЭлементФормы(Форма, "ген_Страницы", Тип("ГруппаФормы"), Форма, истина); ГрСтраницы.Вид = ВидГруппыФормы.Страницы; ГрСтраницаОсн = ДобавитьЭлементФормы(Форма, "ген_Страница_Осн", Тип("ГруппаФормы"), ГрСтраницы, истина); ГрСтраницаОсн.Вид = ВидГруппыФормы.Страница; ГрСтраницаОсн.Заголовок = "Основное"; ГрСтраницаДоп = ДобавитьЭлементФормы(Форма, "ген_Страница_Доп", Тип("ГруппаФормы"), ГрСтраницы, истина); ГрСтраницаДоп.Вид = ВидГруппыФормы.Страница; ГрСтраницаДоп.Заголовок = "Карточка"; Форма.Элементы.Переместить(Форма.Элементы.КолонкиФормы, ГрСтраницаОсн); Гр = ДобавитьЭлементФормы(Форма, "ген_ГруппаПусто", Тип("ГруппаФормы"), ГрСтраницаДоп, истина); Гр.Вид = ВидГруппыФормы.ОбычнаяГруппа; Гр.Видимость = ложь; //Перед группой пустой Привязка = Гр; КонецЕсли; ... КонецФункции Функция ДобавитьЭлементФормы(Форма, Имя, Тип, Привязка, Добавлять = истина) Экспорт Если Добавлять Тогда Возврат Форма.Элементы.Добавить(Имя, Тип, Привязка); Иначе Возврат Форма.Элементы.Вставить(Имя, Тип, Привязка.Родитель, Привязка); КонецЕсли; КонецФункции
В Привязка теперь группа, перед которой можно вставлять доп.элементы.
Среда: УНФ 3.0.5.211
Свежие комментарии