Распределение расходов будущих периодов / Выбор настроек РБП / Модуль формы

#Область ОбработчикиСобытийФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	УчетРегл = ПолучитьФункциональнуюОпцию("ИспользоватьУчетПрочихДоходовРасходовРегл");

	ПравилоУУ = Параметры.ПравилоРаспределенияРасходовУпр;
	ДокументУУ = Параметры.ДокументУпр;
	Элементы.ГруппаУправленческийУчет.Видимость = Параметры.Свойство("УправленческийУчет") И Параметры.УправленческийУчет;
	Элементы.ГруппаСоздатьУпрУчет.Видимость = НЕ ЗначениеЗаполнено(ДокументУУ);
	Элементы.ДокументУУ.Видимость = ЗначениеЗаполнено(ДокументУУ);

	ПравилоРУ = Параметры.ПравилоРаспределенияРасходовРегл;
	ДокументРУ = Параметры.ДокументРегл;
	Элементы.ГруппаРегламентированныйУчет.Видимость = 
		УчетРегл И Параметры.Свойство("РегламентированныйУчет") И Параметры.РегламентированныйУчет;
	Элементы.ГруппаСоздатьРеглУчет.Видимость = НЕ ЗначениеЗаполнено(ДокументРУ);
	Элементы.ДокументРУ.Видимость = ЗначениеЗаполнено(ДокументРУ);

	//++ НЕ УТ
	ПравилоНУ = Параметры.ПравилоРаспределенияРасходовНУ;
	ДокументНУ = Параметры.ДокументНУ;
	Элементы.ЛокализацияГруппаНалоговыйУчет.Видимость = 
		УчетРегл И Параметры.Свойство("НалоговыйУчет") И Параметры.НалоговыйУчет;
	Элементы.ГруппаСоздатьНалоговыйУчет.Видимость = НЕ ЗначениеЗаполнено(ДокументНУ);
	Элементы.ДокументНУ.Видимость = ЗначениеЗаполнено(ДокументНУ);
	//-- НЕ УТ
	
	НастройкиСистемыЛокализация.УстановитьВидимостьЭлементовЛокализации(ЭтаФорма);
	
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	УправлениеЭлементамиФормы();
	
КонецПроцедуры

#КонецОбласти

#Область ОбработчикиСобытийЭлементовШапкиФормы

&НаКлиенте
Процедура УправленческийУчетПриИзменении(Элемент)
	Если УправленческийУчет И НЕ ЗначениеЗаполнено(ПравилоРБП) Тогда
		ПравилоРБП = ПравилоУУ;
		РегламентированныйУчет = ПравилоРУ = ПравилоРБП;
		НалоговыйУчет = ПравилоНУ = ПравилоРБП;
	Иначе
		ПроверитьАктуальностьПравилаРБП();
	КонецЕсли;
	УправлениеЭлементамиФормы()
КонецПроцедуры

&НаКлиенте
Процедура РегламентированныйУчетПриИзменении(Элемент)
	Если РегламентированныйУчет И НЕ ЗначениеЗаполнено(ПравилоРБП) Тогда
		ПравилоРБП = ПравилоРУ;
		УправленческийУчет = ПравилоУУ = ПравилоРБП;
		НалоговыйУчет = ПравилоНУ = ПравилоРБП;
	Иначе
		ПроверитьАктуальностьПравилаРБП();
	КонецЕсли;
	УправлениеЭлементамиФормы()
КонецПроцедуры

&НаКлиенте
Процедура НалоговыйУчетПриИзменении(Элемент)
	Если НалоговыйУчет И НЕ ЗначениеЗаполнено(ПравилоРБП) Тогда
		ПравилоРБП = ПравилоНУ;
		УправленческийУчет = ПравилоУУ = ПравилоРБП;
		РегламентированныйУчет = ПравилоРУ = ПравилоРБП;
	Иначе
		ПроверитьАктуальностьПравилаРБП();
	КонецЕсли;
	УправлениеЭлементамиФормы()
КонецПроцедуры

&НаКлиенте
Процедура ПравилоУУПриИзменении(Элемент)
	УправлениеЭлементамиФормы()
КонецПроцедуры

&НаКлиенте
Процедура ПравилоРУПриИзменении(Элемент)
	УправлениеЭлементамиФормы()
КонецПроцедуры

&НаКлиенте
Процедура ПравилоНУПриИзменении(Элемент)
	УправлениеЭлементамиФормы()
КонецПроцедуры

#КонецОбласти

#Область ОбработчикиКомандФормы

&НаКлиенте
Процедура Создать(Команда)
	Результат = Новый Структура("ПравилоРБП", ПравилоРБП);
	Результат.Вставить("УправленческийУчет", УправленческийУчет);
	Результат.Вставить("РегламентированныйУчет", РегламентированныйУчет);
	//++ НЕ УТ
	Результат.Вставить("НалоговыйУчет", НалоговыйУчет);
	//-- НЕ УТ
	Закрыть(Результат);
КонецПроцедуры

#КонецОбласти

#Область УправлениеЭлементамиФормы

&НаКлиенте
Процедура УправлениеЭлементамиФормы()
	
	Элементы.УправленческийУчет.Доступность = НЕ ЗначениеЗаполнено(ПравилоРБП) ИЛИ ПравилоУУ = ПравилоРБП;
	Элементы.ПравилоУУ.Доступность = НЕ УправленческийУчет;
	
	Элементы.РегламентированныйУчет.Доступность = НЕ ЗначениеЗаполнено(ПравилоРБП) ИЛИ ПравилоРУ = ПравилоРБП;
	Элементы.ПравилоРУ.Доступность = НЕ РегламентированныйУчет;
	//++ НЕ УТ
	Элементы.НалоговыйУчет.Доступность = НЕ ЗначениеЗаполнено(ПравилоРБП) ИЛИ ПравилоНУ = ПравилоРБП;
	Элементы.ПравилоНУ.Доступность = НЕ НалоговыйУчет;
	//-- НЕ УТ
	
	Элементы.ФормаСоздать.Доступность = ЗначениеЗаполнено(ПравилоРБП);
	
КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

&НаСервере
Процедура ПроверитьАктуальностьПравилаРБП()
	Если НЕ УправленческийУчет 
		И НЕ РегламентированныйУчет
	//++ НЕ УТ
		И НЕ НалоговыйУчет
	//-- НЕ УТ
	 Тогда
		ПравилоРБП = Справочники.ПравилаРаспределенияРасходов.ПустаяСсылка();
	КонецЕсли;
КонецПроцедуры



#КонецОбласти