Договоры между организациями / Разблокирование реквизитов / Модуль формы

#Область ОписаниеПеременных

&НаКлиенте
Перем ПараметрыОбработчикаОжидания;

&НаКлиенте
Перем ФормаДлительнойОперации;

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

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	// Возврат при получении формы для анализа.
	Если Параметры.Свойство("АвтоТест") Тогда
		Возврат;
	КонецЕсли;
	
	СформироватьЗаголовокРеквизиты();
	
	СобытияФорм.ПриСозданииНаСервере(ЭтотОбъект, Отказ, СтандартнаяОбработка);
	
КонецПроцедуры

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

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

&НаКлиенте
Процедура РазрешитьРедактирование(Команда)
	
	Закрыть(Истина);
	
КонецПроцедуры

&НаКлиенте
Процедура ПроверитьИспользованиеОбъекта(Команда)
	
	ЗапретРедактированияРеквизитовОбъектовУТКлиент.ПроверитьИспользованиеОбъекта(ЭтотОбъект, ПараметрыОбработчикаОжидания);
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ВыполнитьПереопределяемуюКоманду(Команда)
	
	СобытияФормКлиент.ВыполнитьПереопределяемуюКоманду(ЭтотОбъект, Команда);
	
КонецПроцедуры

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

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

#Область Прочее

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

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

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