() УТ 11.5.15
Была небольшая ошибка в коде (не помню где именно, прикрепляю исправленную процедуру:
текст процедуры |
---|
&После("ЗаполнитьДополнительныеРеквизитыВФорме")
Процедура РасшРекв_ЗаполнитьДополнительныеРеквизитыВФорме(Форма, Объект = Неопределено, ПоляНадписей = Ложь, СкрытьУдаленные = Неопределено)
СписокДопРеквизитов = Форма.Свойства_ОписаниеДополнительныхРеквизитов;
Для Каждого СтрокаСвойства Из СписокДопРеквизитов Цикл
Если Не СтрокаСвойства.ЭлементФормыДобавлен Тогда
Продолжить;
КонецЕсли;
Свойство = СтрокаСвойства.Свойство;
ИмяГруппы = РасшРекв_РаботаСФормамиСервер.ПолучитьИмяГруппыПоПредставлению(Свойство);
Элементы = Форма.Элементы;
Если ПустаяСтрока(ИмяГруппы) Тогда
Продолжить;
КонецЕсли;
Если ЗначениеЗаполнено(Свойство) Тогда
ЭлементФормы = Элементы[СтрокаСвойства.ИмяРеквизитаЗначение];
Если Элементы.Найти(ИмяГруппы) = Неопределено Тогда
ГруппаСоздана = РасшРекв_РаботаСФормамиСервер.СоздатьГруппуФормы(Элементы, ЭлементФормы.Родитель, Свойство, ИмяГруппы);
Иначе
ГруппаСоздана = Истина;
КонецЕсли;
Если ГруппаСоздана Тогда
Если СтрНайти(ЭлементФормы.Родитель.Имя, "Группа_") > 0 Тогда
Элементы.Переместить(ЭлементФормы.Родитель, Элементы[ИмяГруппы]);
Иначе
Элементы.Переместить(ЭлементФормы, Элементы[ИмяГруппы]);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры Показать |
)