Проверка на модальность about bsl-language-server HOT 5 CLOSED

&НаКлиенте
Процедура ДобавитьХарактеристику(Команда)
   
    // Выбор вида характеристики
    ВидХарактеристики = ОткрытьФормуМодально("ПланВидовХарактеристик.ФормаВыбора");
   
    Если ВидХарактеристики = Неопределено Тогда
        Возврат;
    КонецЕсли;
   
   
    // Обработка результата выбора
   // ...
КонецПроцедуры

&НаКлиенте
Процедура ДобавитьХарактеристику(Команда)
    // Выбор вида характеристики
    Обработчик = Новый ОписаниеОповещения("ДобавитьХарактеристикуЗавершение", ЭтотОбъект);
    Режим = РежимОткрытияОкнаФормы.БлокироватьВеcьИнтерфейс;
    ОткрытьФорму("ПланВидовХарактеристик.ВидыХарактеристик.ФормаВыбора",,,,,, Обработчик, Режим);
КонецПроцедуры

&НаКлиенте
Процедура ДобавитьХарактеристикуЗавершение(ВидХарактеристики, Параметры) Экспорт

    Если ВидХарактеристики = Неопределено Тогда
        Возврат;
    КонецЕсли;
   
    // Обработка результата выбора
    // ...
КонецПроцедуры

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

&НаКлиенте
Процедура ПредставлениеРасписаниеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    ДополнительныеПараметры = Новый Структура("Модифицированность", Истина);
    ОписаниеОповещения = Новый ОписаниеОповещения("ИзменитьРасписаниеЗавершение", ЭтотОбъект, ДополнительныеПараметры);
    РегламентныеЗаданияКлиент.ИзменитьРасписание(ОписаниеОповещения, Расписание);
КонецПроцедуры

&НаКлиенте
Процедура ИзменитьРасписаниеЗавершение(Результат, ДополнительныеПараметры) Экспорт
    Если ТипЗнч(Результат) = Тип("РасписаниеРегламентногоЗадания") Тогда
        Расписание = Результат;
        ПредставлениеРасписание = Строка(Расписание);
        ДополнительныеПараметры.Свойство("Модифицированность", Модифицированность)
   КонецЕсли;
КонецПроцедуры

Функция ИзменитьРасписание(Расписание) Экспорт
    ДиалогРасписания = Новый ДиалогРасписанияРегламентногоЗадания(Расписание);
   Если ДиалогРасписания.ОткрытьМодально() Тогда
        Расписание = ДиалогРасписания.Расписание;
        Возврат Истина;
    КонецЕсли;
    Возврат Ложь;
КонецФункции

Процедура ИзменитьРасписание(ОписаниеОповещения, Расписание) Экспорт
    ДиалогРасписания = Новый ДиалогРасписанияРегламентногоЗадания(Расписание);
    ДиалогРасписания.Показать(ОписаниеОповещения);
КонецПроцедуры