Модуль ирОбщий. АктивнаяУправляемаяФормаЛкс().

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Модуль ирОбщий. АктивнаяУправляемаяФормаЛкс(). (В обычном приложении нет Окон в Функция АктивнаяУправляемая()

Модуль ирОбщий. АктивнаяУправляемаяФормаЛкс().

antonyfg

Дата: Среда, 07.10.2020, 10:46 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 13

Репутация: 12

Статус: Оффлайн

Расширение 5.60e

Модуль ирОбщий.

Функция АктивнаяУправляемаяФормаЛкс() Экспорт 

ТекущееОкно = АктивноеОкно();
Если ТекущееОкно = Неопределено Тогда
Окна = ПолучитьОкна();

В обычном режиме 1С функция возвращает НЕОПРЕДЕЛЕНО, что приводит к ошибке {ИнструментыРазработчикаTormozit ОбщийМодуль.ирОбщий.Модуль(33204)}: Итератор для значения не определен
Для Каждого ТекущееОкно Из Окна Цикл

Для Каждого ТекущееОкно Из Окна Цикл
Если ТекущееОкно.НачальнаяСтраница Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если ТипЗнч(ТекущееОкно) = Тип("ОкноКлиентскогоПриложения") Тогда
АктивнаяФорма = Неопределено;
Для Каждого Форма Из ТекущееОкно.Содержимое Цикл
Если Форма.ВводДоступен() Тогда
АктивнаяФорма = Форма;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат АктивнаяФорма;

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

Думаю, надо добавить проверку Окна на Неопределено и ошибки не будет.
Например:

Функция АктивнаяУправляемаяФормаЛкс() Экспорт

ТекущееОкно = АктивноеОкно();

Если ТекущееОкно = Неопределено Тогда
Окна = ПолучитьОкна();

// 2020-10-07
Если Окна = Неопределено
Тогда
Возврат Неопределено;
КонецЕсли;

Для Каждого ТекущееОкно Из Окна Цикл
Если ТекущееОкно.НачальнаяСтраница Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если ТипЗнч(ТекущееОкно) = Тип("ОкноКлиентскогоПриложения") Тогда
АктивнаяФорма = Неопределено;
Для Каждого Форма Из ТекущееОкно.Содержимое Цикл
Если Форма.ВводДоступен() Тогда
АктивнаяФорма = Форма;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат АктивнаяФорма;

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