#Область ОбработчикиСобытийФормы
&НаКлиенте
Процедура СогласиеНаПередачуПерсональныхДанныхПриИзменении(Элемент)
Элементы.Подтвердить.Доступность = ЗначениеЗаполнено(СогласиеНаПередачуПерсональныхДанных);
Элементы.БольшеНеПоказывать.Доступность = ЗначениеЗаполнено(СогласиеНаПередачуПерсональныхДанных);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура Подтвердить(Команда)
Если БольшеНеПоказывать Тогда
ЗапомнитьЧтоОтправкаПерсональныхДанныхРазрешена();
КонецЕсли;
Закрыть(КодВозвратаДиалога.ОК);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервереБезКонтекста
Процедура ЗапомнитьЧтоОтправкаПерсональныхДанныхРазрешена()
ХранилищеОбщихНастроек.Сохранить("ДокументооборотСКонтролирующимиОрганами_ОтправкаПерсональныхДанныхРазрешена", , Истина);
КонецПроцедуры
#КонецОбласти
