Добавление страниц в форму где их нет

Понадобилось добавить страницы в форму контрагента, добавил:

Код не сложный:

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

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

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

Функция ДобавитьЭлементФормы(Форма, Имя, Тип, Привязка, Добавлять = истина) Экспорт
	Если Добавлять Тогда
		Возврат Форма.Элементы.Добавить(Имя, Тип, Привязка);
	Иначе                                                 
		Возврат Форма.Элементы.Вставить(Имя, Тип, Привязка.Родитель, Привязка);
	КонецЕсли;
КонецФункции

В Привязка теперь группа, перед которой можно вставлять доп.элементы.

Среда: УНФ 3.0.5.211

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *