text ＃ПолучитьОткрытуюФорму＃БСП

Posted 2021-05-01

Функция ПолучитьОткрытуюФорму(Источник, ИмяФормы = "", ИмяМетаданных="", МетаданныеИсточника="")
    
    #Если Клиент Тогда
 
        ОткрытаяФорма = Неопределено;
        
        ПараметрыИсточника = Источник.ДополнительныеСвойства;
        
        Попытка
            Если СтрЧислоВхождений(НРег(ИмяФормы),"списка")>0 Тогда
                ФормаСписка = Вычислить(ИмяМетаданных + "[МетаданныеИсточника.Имя].ПолучитьФормуСписка()");
                Если ФормаСписка.Открыта() Тогда
                    ОткрытаяФорма = ФормаСписка;
                    ПараметрыИсточника.Вставить("ОткрытаяФорма", ОткрытаяФорма);
                    ПараметрыИсточника.Вставить("ДействиеСФормой", "ЗакончитьРедактирование");
                КонецЕсли;
            ИначеЕсли СтрЧислоВхождений(НРег(ИмяФормы),"выбора")>0 Тогда 
                ФормаВыбора = Вычислить(ИмяМетаданных + "[МетаданныеИсточника.Имя].ПолучитьФормуВыбора()");
                Если ФормаВыбора.Открыта() Тогда 
                    ОткрытаяФорма = ФормаВыбора;
                    ПараметрыИсточника.Вставить("ОткрытаяФорма", ОткрытаяФорма);
                    ПараметрыИсточника.Вставить("ДействиеСФормой", "ЗакончитьРедактирование");
                КонецЕсли;
            Иначе 
                ФормаЭлемента = Источник.ПолучитьФорму(ИмяФормы);
                Если ФормаЭлемента.Открыта() Тогда 
                    ОткрытаяФорма = ФормаЭлемента;
                    ПараметрыИсточника.Вставить("ОткрытаяФорма", ОткрытаяФорма);
                    ПараметрыИсточника.Вставить("ДействиеСФормой", "Закрыть");
                КонецЕсли;
            КонецЕсли;
        Исключение
        КонецПопытки;
        
        Возврат ОткрытаяФорма;
    #КонецЕсли
 
    
КонецФункции