RDT1C/CommonForms/ирНастройкиАлгоритмов/Ext/Form/Module.bsl
2016-12-04 00:14:16 +03:00

56 lines
4.4 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Процедура КнопкаОКНажатие(Кнопка)
ирКэш.Получить().СинтаксическийКонтрольПередЗаписью = СинтаксическийКонтрольПередЗаписью;
ирКэш.Получить().ВыполнятьАлгоритмыЧерезВнешниеОбработки = ВыполнятьАлгоритмыЧерезВнешниеОбработки;
ирКэш.Получить().ПоказыватьВнешниеИсключенияПриВыполненииАлгоритмов = ПоказыватьВнешниеИсключенияПриВыполненииАлгоритмов;
ирКэш.Получить().ФиксироватьВнешниеИсключенияАлгоритмов = ФиксироватьВнешниеИсключенияАлгоритмов;
ирКэш.Получить().ФайловыйКэшАлгоритмовДопускаетРедактирование = ФайловыйКэшАлгоритмовДопускаетРедактирование;
ирКэш.Получить().ПроверитьСтруктуруФайловогоКэша();
ирКэш.Получить().СохранитьНастройкиАлгоритмов();
Закрыть();
КонецПроцедуры
Процедура ПриОткрытии()
КаталогДинамическихВнешнихОбработок = ирКэш.Получить().ПапкаКешаВнешнихОбработокАлгоритмов.ПолноеИмя;
ФайловыйКэшАлгоритмовДопускаетРедактирование = ирКэш.Получить().ФайловыйКэшАлгоритмовДопускаетРедактирование;
СинтаксическийКонтрольПередЗаписью = ирКэш.Получить().СинтаксическийКонтрольПередЗаписью;
ВыполнятьАлгоритмыЧерезВнешниеОбработки = ирКэш.Получить().ВыполнятьАлгоритмыЧерезВнешниеОбработки;
ПоказыватьВнешниеИсключенияПриВыполненииАлгоритмов = ирКэш.Получить().ПоказыватьВнешниеИсключенияПриВыполненииАлгоритмов;
ФиксироватьВнешниеИсключенияАлгоритмов = ирКэш.Получить().ФиксироватьВнешниеИсключенияАлгоритмов;
ФиксироватьВнешниеИсключенияАлгоритмовПриИзменении(ЭлементыФормы.ФиксироватьВнешниеИсключенияАлгоритмов);
Если ирКэш.Получить().Это2iS Тогда
ЭлементыФормы.ВыполнятьАлгоритмыЧерезВнешниеОбработки.Доступность = Ложь;
ЭлементыФормы.ФиксироватьВнешниеИсключенияАлгоритмов.Доступность = Ложь;
ЭлементыФормы.СинтаксическийКонтрольПередЗаписью.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
Процедура КаталогДинамическихВнешнихОбработокОткрытие(Элемент, СтандартнаяОбработка)
ЗапуститьПриложение(Элемент.Значение);
СтандартнаяОбработка = Ложь;
КонецПроцедуры
Процедура ОчиститьНажатие(Элемент)
ирКэш.Получить().ОчиститьКешАлгоритмов(Истина);
КонецПроцедуры
Процедура ФиксироватьВнешниеИсключенияАлгоритмовПриИзменении(Элемент)
ЭлементыФормы.ПоказыватьВнешниеИсключенияПриВыполненииАлгоритмов.Доступность = Элемент.Значение;
КонецПроцедуры
Процедура ВыполнятьАлгоритмыЧерезВнешниеОбработкиПриИзменении(Элемент)
ЭлементыФормы.ФайловыйКэшАлгоритмовДопускаетРедактирование.Доступность = Элемент.Значение;
КонецПроцедуры