Документооборот с контролирующими органами / Сообщение о необработанном заявлении / Модуль формы

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

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

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

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

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

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

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

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


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

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

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

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