Процедура кнПодборНажатие(Элемент)
	ОчиститьСообщения();
	форма = Справочники.Номенклатура.ПолучитьФормуВыбора();
	форма.ВладелецФормы = ЭтаФорма;//указали владельца;
	форма.РежимВыбора = Истина;
	форма.ЗакрыватьПриВыборе = Ложь;
	форма.Открыть();
КонецПроцедуры


//Это обработчик выбора для формы, т.к. форма - владелец
//открываемой формы выбора справочника;
Процедура ОбработкаВыбора(значениеВыбора, Источник)
	перем стр;
	стр = табл.Найти(строка(значениеВыбора), "Вторая");
	если стр = Неопределено тогда
		кол = табл.Количество();
		новаяСтрока = табл.Добавить();
		новаяСтрока.Первая = кол + 1;
		новаяСтрока.Вторая = строка(значениеВыбора);
	иначе
		Сообщить("Наименование " + строка(значениеВыбора) + " уже имеется в таблице.");
	конецЕсли;
конецПроцедуры   

  Функция ПолучитьСписокОткрытыхОкон() Экспорт
    
    ВключатьФормыЭлементов = ЭтаФорма.ВладелецФормы.ЭлементыФормы.ВключатьФормыЭлементов.Значение;
    
    // Определим перебором, сколько у нас объектов в системе 
    КолвоОбъектов = 0;
    Для Каждого ТипОбъекта Из ВсеТипы Цикл
        Если (ТипОбъекта.Ключ <> "Константы") и (ТипОбъекта.Ключ <> "ОбщиеФормы") Тогда
            Для каждого Объект из Метаданные[ТипОбъекта.Ключ] Цикл
                Для каждого Фрм из Объект.Формы Цикл
                    КолвоОбъектов = КолвоОбъектов + 1;    
                КонецЦикла;
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
    
    ЭлементыФормы.ХодВыполненияОперации.МинимальноеЗначение  = 1;
    ЭлементыФормы.ХодВыполненияОперации.МаксимальноеЗначение = КолвоОбъектов;
    ЭлементыФормы.ХодВыполненияОперации.Шаг = 100 / КолвоОбъектов;
    
    КолвоОбъектов = 0;
    сзСписокОкон = Новый СписокЗначений;
    // Перебор типов метаданных 
    Для Каждого ТипОбъекта Из ВсеТипы Цикл
        Если (ТипОбъекта.Ключ <> "Константы") и (ТипОбъекта.Ключ <> "ОбщиеФормы") Тогда
            Для каждого Объект из Метаданные[ТипОбъекта.Ключ] Цикл
                Если ВключатьФормыЭлементов И(ТипОбъекта.Ключ = "Справочники" Или ТипОбъекта.Ключ = "Документы") Тогда
                    // для элементов справочников и документов 
                    Менеджер = Вычислить((ТипОбъекта.Ключ + "[Объект.Имя]"));
                    Выборка = Менеджер.выбрать();
                    пока Выборка.Следующий() Цикл
                        ФормаЭлем = Выборка.Ссылка.ПолучитьФорму();
                        Если ФормаЭлем.Открыта() Тогда    
                            сзСписокОкон.Добавить(ФормаЭлем, Строка(Выборка.Ссылка) + " (" + Объект.Имя + ", форма элемента)");
                        КонецЕсли;    
                    КонецЦикла;
                КонецЕсли;
                Для каждого Фрм из Объект.Формы Цикл
                    Форма = Вычислить(ТипОбъекта.Ключ + "[Объект.Имя].ПолучитьФорму(Фрм)");
                    КолвоОбъектов = КолвоОбъектов + 1;    
                    ЭлементыФормы.ХодВыполненияОперации.Значение = КолвоОбъектов;
                    Попытка
                        Если Форма.открыта() Тогда
                            сзСписокОкон.Добавить(Форма, Объект.Имя + " (" + Фрм + ")");
                        КонецЕсли;    
                    Исключение
                        Сообщить("ошибка");
                    КонецПопытки;
                КонецЦикла;
            КонецЦикла;
        КонецЕсли;
КонецЦикла;
Возврат сзСписокОкон;
КонецФункции