&НаСервере
Перем мОбъектОтчета;
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
ПолеТабличногоДокументаФормаОтчета.Очистить();
СформироватьСтруктуруРеквизитовФормы();
СтруктураРеквизитовФормы.СписокПечатаемыхЛистов = Новый СписокЗначений;
СтруктураРеквизитовФормы.мВерсияФормы = "23/12/2011";
СтруктураРеквизитовФормы.мКодОтчета = "0606010";
СтруктураРеквизитовФормы.мПечатныеФормы = Новый СписокЗначений;
ПолеТабличногоДокументаФормаОтчета.Вывести(ОбъектОтчета(ЭтаФорма.ИмяФормы).ПолучитьМакет("ФормаОтчета2012Кв1_ФормаОтчета"));
СтруктураРеквизитовФормы.мВыбраннаяФорма = Параметры.мВыбраннаяФорма;
СтруктураРеквизитовФормы.мДатаКонцаПериодаОтчета = Параметры.мДатаКонцаПериодаОтчета;
СтруктураРеквизитовФормы.мДатаНачалаПериодаОтчета = Параметры.мДатаНачалаПериодаОтчета;
СтруктураРеквизитовФормы.мПериодичность = Параметры.мПериодичность;
СтруктураРеквизитовФормы.мСкопированаФорма = Параметры.мСкопированаФорма;
СтруктураРеквизитовФормы.мСохраненныйДок = Параметры.мСохраненныйДок;
СтруктураРеквизитовФормы.Организация = Параметры.Организация;
ДатаПодписи = ТекущаяДатаСеанса();
Если ЗначениеЗаполнено(Параметры.мСохраненныйДок) И Параметры.мСкопированаФорма = Неопределено Тогда
СтруктураРеквизитовФормы.мПериодичность = Параметры.мСохраненныйДок.Периодичность;
КонецЕсли;
СтруктураРеквизитовФормы.СправочникиВидыКонтактнойИнформацииПочтовыйАдресОрганизации = Справочники.ВидыКонтактнойИнформации.ПочтовыйАдресОрганизации;
Инициализация(Параметры.БезОткрытияФормы);
ИнициализироватьВыводСтатусовИВажныхСообщений_85();
КонецПроцедуры
&НаСервере
Процедура СформироватьСтруктуруРеквизитовФормы()
СтруктураРеквизитовФормы = РегламентированнаяОтчетность.СформироватьСтруктуруОбязательныхРеквизитовСтатистическогоОтчета();
КонецПроцедуры
&НаСервере
Процедура Инициализация(БезОткрытияФормы = Ложь) Экспорт
СтруктураРеквизитовФормы.мБезОткрытияФормы = БезОткрытияФормы;
ТекТабличноеПоле = ПолеТабличногоДокументаФормаОтчета;
СтруктураРеквизитовФормы.ВидДокумента = 0;
НомерКорректировки = 1;
ФормироватьСтруктуруСвойствСтраниц();
СтруктураРеквизитовФормы.мАдресвФорматеДляВыгрузки = "";
Если СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено Тогда
Если СтруктураРеквизитовФормы.мСкопированаФорма <> Неопределено Тогда
ВосстановитьСохраненныеДанные();
КонецЕсли;
Модифицированность = Истина;
Иначе
ВосстановитьСохраненныеДанные();
Если ЗначениеЗаполнено(СтруктураРеквизитовФормы.мСкопированаФорма) Тогда
СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено;
КонецЕсли;
Если НЕ БезОткрытияФормы
И НЕ СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено Тогда
РегламентированнаяОтчетность.БлокировкаИлиЗапретРедактированияОтчета(ЭтотОбъект);
КонецЕсли;
КонецЕсли;
Если СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено Тогда
НомерКорректировки = 0;
Иначе
НомерКорректировки = СтруктураРеквизитовФормы.мСохраненныйДок.Вид;
КонецЕсли;
ПолеТабличногоДокументаФормаОтчета.Области.НомерКорректировки.Значение = НомерКорректировки;
ПолеТабличногоДокументаФормаОтчета.Области.ДатаСоставленияОтчета.Значение = ДатаПодписи;
РегламентированнаяОтчетность.ПолучитьСведенияОПоказателяхОтчета(ЭтаФорма);
Если НЕ СтруктураРеквизитовФормы.ОтображатьКнопкуЗаполнить Тогда
Элементы.Заполнить.Видимость = Ложь;
КонецЕсли;
Если НЕ СтруктураРеквизитовФормы.ОтображатьКнопкуРасшифровать Тогда
Элементы.Расшифровать.Видимость = Ложь;
КонецЕсли;
ПоказатьПериод();
Если СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено
Или СтруктураРеквизитовФормы.мВПрограммеИзмененаОрганизация Тогда
ЗаполнитьСведенияОбОрганизацииНаСервере();
КонецЕсли;
СтруктураРеквизитовФормы.НаимОрганизации = СтруктураРеквизитовФормы.Организация.Наименование;
ТекущийЭлемент = Элементы["ПолеТабличногоДокументаФормаОтчета"];
РегламентированнаяОтчетность.ДобавитьКнопкуПрисоединенныеФайлы(ЭтаФорма);
РегламентированнаяОтчетностьКлиентСервер.ПриИнициализацииФормыРегламентированногоОтчета(ЭтаФорма, "ФСГС");
РегламентированнаяОтчетность.ПриИнициализации(ЭтотОбъект,
?(ЗначениеЗаполнено(СтруктураРеквизитовФормы.мСохраненныйДок),
СтруктураРеквизитовФормы.мСохраненныйДок,
СтруктураРеквизитовФормы.ПустаяСсылкаНаРегламентированныйОтчет));
КонецПроцедуры
&НаСервере
Процедура ФормироватьСтруктуруСвойствСтраниц() Экспорт
мСвойстваРазделовДекларации.ПолучитьЭлементы().Очистить();
СтрокаУровня1 = мСвойстваРазделовДекларации.ПолучитьЭлементы().Добавить();
СтрокаУровня1.ИмяСтраницы = "ФормаОтчета";
СтрокаУровня1.МногострочностьВРазделе = 0;
СтрокаУровня1.МногостраничностьВРазделе = Ложь;
СтрокаУровня1.ОчищатьРаздел = Ложь;
СтрокаУровня1.ИмяПредставления = "";
СтрокаУровня1.ПредставлениеДанных = Ложь;
СтрокаУровня1.РазделОбязателенДляВыгрузки = Неопределено;
СтрокаУровня1.НазваниеПанелиТабличногоПоляРаздела = "ОсновнаяПанель";
СтрокаУровня1.СохранятьМногострКакТЗ = Неопределено;
СтрокаУровня1.РазделЯвляетсяАвтозаполняемым = Ложь;
КонецПроцедуры
&НаСервере
Процедура ВосстановитьСохраненныеДанные()
Перем ДанныеМногострочныхРазделов;
Перем ДанныеВариановАвтоЗаполнения;
Перем ПоказателиОтчета;
Перем ВерсияФормы;
Если СтруктураРеквизитовФормы.Организация <> СтруктураРеквизитовФормы.мСохраненныйДок.Организация
И СтруктураРеквизитовФормы.Организация <> РегламентированнаяОтчетностьКлиентСервер.ПустоеЗначениеТипа("СправочникСсылка.Организации")
И СтруктураРеквизитовФормы.Организация <> Неопределено Тогда
СтруктураРеквизитовФормы.мВПрограммеИзмененаОрганизация = Истина;
Иначе
СтруктураРеквизитовФормы.Организация = СтруктураРеквизитовФормы.мСохраненныйДок.Организация;
КонецЕсли;
ДатаПодписи = СтруктураРеквизитовФормы.мСохраненныйДок.ДатаПодписи;
СтруктураРеквизитовФормы.ЕдиницаИзмерения = СтруктураРеквизитовФормы.мСохраненныйДок.ЕдиницаИзмерения;
СтруктураРеквизитовФормы.ТочностьЕдиницыИзмерения = СтруктураРеквизитовФормы.мСохраненныйДок.ТочностьЕдиницыИзмерения;
Комментарий = СтруктураРеквизитовФормы.мСохраненныйДок.Комментарий;
СписокСохранения = СтруктураРеквизитовФормы.мСохраненныйДок.ДанныеОтчета.Получить();
Если СписокСохранения.Свойство("ДанныеВариантовАвтоЗаполнения", ДанныеВариановАвтоЗаполнения) Тогда
Если НЕ ДанныеВариановАвтоЗаполнения = Неопределено Тогда
мСтруктураВариантыЗаполнения.Очистить();
Для Каждого ЭлементСтруктуры Из ДанныеВариановАвтоЗаполнения Цикл
мСтруктураВариантыЗаполнения.Вставить(ЭлементСтруктуры.Ключ, ЭлементСтруктуры.Ключ);
ЭтаФорма["ТаблицаВариантыЗаполнения" + ЭлементСтруктуры.Ключ].Очистить();
Для Каждого ЭлементМассива Из ЭлементСтруктуры.Значение Цикл
ТаблВарЗаполнения = ЭтаФорма["ТаблицаВариантыЗаполнения" + ЭлементСтруктуры.Ключ].Добавить().ТаблицаВариантовЗаполнения;
ЗначениеВДанныеФормы(ЭлементМассива, ТаблВарЗаполнения);
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЕсли;
СписокСохранения.Свойство("ВерсияФормы", ВерсияФормы);
СписокСохранения.Свойство( "ПоказателиОтчета", ПоказателиОтчета );
ВывестиПоказателиОтчетаВТабличныйДокумент(ПоказателиОтчета);
СтруктураРеквизитовФормы.мАдресвФорматеДляВыгрузки = ПолеТабличногоДокументаФормаОтчета.Области.ОргАдрес.Значение;
ПолеТабличногоДокументаФормаОтчета.Области.ОргАдрес.Значение = РегламентированнаяОтчетностьКлиентСервер.ПредставлениеАдресаВФормате9Запятых(СтруктураРеквизитовФормы.мАдресвФорматеДляВыгрузки);
РегламентированнаяОтчетность.ОперацииПриВосстановленииРегламентированногоОтчета(ЭтаФорма);
Модифицированность = Ложь;
КонецПроцедуры
&НаСервере
Процедура ВывестиПоказателиОтчетаВТабличныйДокумент(ПоказателиОтчета)
Для Каждого ПоказателиСтраницы Из ПоказателиОтчета Цикл
ИмяТекТабличноеПоле = ПоказателиСтраницы.Ключ;
ТекТабличноеПоле = ЭтаФорма[ИмяТекТабличноеПоле];
ПоказателиТаблПоле = ПоказателиСтраницы.Значение;
Для Каждого Показатель Из ПоказателиТаблПоле Цикл
ИмяПоказателя = Показатель.Ключ;
ЗначениеПоказателя = Показатель.Значение;
Попытка
Если Лев(ИмяПоказателя, 2) = "ЧН" Тогда
ОбластьПоказателя = ТекТабличноеПоле.Области[Сред(ИмяПоказателя, 3)];
ОбластьПоказателя.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(ОбластьПоказателя.Формат, ЗначениеПоказателя);
Продолжить;
КонецЕсли;
ТекТабличноеПоле.Области[ИмяПоказателя].Значение = ЗначениеПоказателя;
Исключение
КонецПопытки;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьСведенияОбОрганизацииНаСервере(ВПрограммеИзмененаДатаПодписи = Ложь)
РегламентированнаяОтчетностьКлиентСервер.ЗаполнитьСведенияОбОрганизацииДляОтчетаСтатистики(ЭтаФорма, ВПрограммеИзмененаДатаПодписи);
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьСведенияОбОрганизацииНаКлиенте(ВПрограммеИзмененаДатаПодписи = Ложь)
РегламентированнаяОтчетностьКлиентСервер.ЗаполнитьСведенияОбОрганизацииДляОтчетаСтатистики(ЭтаФорма, ВПрограммеИзмененаДатаПодписи);
КонецПроцедуры
&НаСервере
Процедура ПоказатьПериод()
СтруктураРеквизитовФормы.СтрПериодОтчета = ПредставлениеПериода(НачалоДня(СтруктураРеквизитовФормы.мДатаНачалаПериодаОтчета), КонецДня(СтруктураРеквизитовФормы.мДатаКонцаПериодаОтчета), "ФП = Истина");
ПериодОтчета = " за " + СтруктураРеквизитовФормы.СтрПериодОтчета;
ПолеТабличногоДокументаФормаОтчета.Области.ПериодОтчета.Значение = ПериодОтчета;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если СтрНайти(Заголовок, СтруктураРеквизитовФормы.СтрПериодОтчета) = 0 Тогда
Заголовок = Заголовок + " за " + СтруктураРеквизитовФормы.СтрПериодОтчета;
КонецЕсли;
ОргСтр = " (" + СтруктураРеквизитовФормы.НаимОрганизации + ")";
Если СтрНайти(Заголовок, ОргСтр) = 0 Тогда
Заголовок = Заголовок + ОргСтр;
КонецЕсли;
Заголовок = Заголовок + ?(СтрНайти(ЭтаФорма.ИмяФормы, "Внешний") > 0, " - внешний отчет", "");
ПодключитьОбработчикОжидания("ВыполнитьПроверкуПередОткрытием", 0.1, Истина);
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьПроверкуПередОткрытием()
ОписаниеОповещения = Новый ОписаниеОповещения("ПриОткрытииЗавершение", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередОткрытиемФормыРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытииЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Модифицированность = Ложь;
Закрыть();
Возврат;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка)
РегламентированнаяОтчетностьКлиент.ПередЗакрытиемРегламентированногоОтчета(ЭтаФорма, Отказ, СтандартнаяОбработка, ЗавершениеРаботы, ТекстПредупреждения);
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытии(ЗавершениеРаботы)
Если ЗавершениеРаботы Тогда
Возврат;
КонецЕсли;
ПриЗакрытииНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПриЗакрытииНаСервере()
РегламентированнаяОтчетность.ПриЗакрытииРегламентированногоОтчета(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПолеТабличногоДокументаФормаОтчетаВыбор(Элемент, Область, СтандартнаяОбработка)
Если Элементы.ПолеТабличногоДокументаФормаОтчета.Защита Тогда
Возврат;
КонецЕсли;
Если Область.Имя = "ОргАдрес" Тогда
РегламентированнаяОтчетностьКлиент.ОбработкаАдресаВСтатистическомОтчете(ЭтаФорма, Область, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьФормуКонтактнойИнформацииЗавершение(Результат, Параметры) Экспорт
РегламентированнаяОтчетностьКлиент.ОбновитьАдресВТабличномДокументеСтатистическойОтчетности(Результат, Параметры.Область, СтруктураРеквизитовФормы);
Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПолеТабличногоДокументаФормаОтчетаПриИзмененииСодержимогоОбласти(Элемент, Область)
Если Элементы.ПолеТабличногоДокументаФормаОтчета.Защита Тогда
Возврат;
КонецЕсли;
Если Область.Имя = "ДатаСоставленияОтчета" Тогда
ДатаПодписи = Область.Значение;
ЗаполнитьСведенияОбОрганизацииНаКлиенте(Истина);
Модифицированность = Истина;
Возврат;
ИначеЕсли Область.Имя = "НомерКорректировки" Тогда
Если Область.Значение = 0 Тогда
СтруктураРеквизитовФормы.ВидДокумента = 0;
НомерКорректировки = 0;
Иначе
СтруктураРеквизитовФормы.ВидДокумента = 1;
НомерКорректировки = Область.Значение;
КонецЕсли;
Модифицированность = Истина;
Возврат;
КонецЕсли;
Если Область.СодержитЗначение И Область.ТипЗначения.СодержитТип(Тип("Число")) Тогда
Если Область.Значение = 0 И Область.ТипЗначения.КвалификаторыЧисла.РазрядностьДробнойЧасти <= 1 Тогда
ФорматПредставленияНуля = РегламентированнаяОтчетностьКлиентСервер.ПолучитьПредставлениеНуляИзСтрокиФормата(Область.Формат);
ОтображениеНуля = СокрЛП(Формат(0, РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(Область.Формат, "ЧН=")));
Если ПустаяСтрока(ОтображениеНуля) Тогда
ОтображениеНуля = "0";
КонецЕсли;
ТипСтрокиЗаполнения = Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(СтрДлина(ОтображениеНуля), ДопустимаяДлина.Фиксированная));
СтрокаЗаполнения = ТипСтрокиЗаполнения.ПривестиЗначение();
Список = Новый СписокЗначений;
Список.Добавить("ЧН=' '", " <Пустое значение> " + СтрокаЗаполнения);
Список.Добавить("ЧН=" + ОтображениеНуля, " Отображать как """ + ОтображениеНуля + """ ");
НайденнаяСтрока = Список.НайтиПоЗначению(ФорматПредставленияНуля);
ДополнительныеПараметры = Новый Структура("Область", Область);
ОписаниеОповещения = Новый ОписаниеОповещения("ПолеТабличногоДокументаФормаОтчетаПриИзмененииСодержимогоОбластиЗавершение", ЭтотОбъект, ДополнительныеПараметры);
# Если ВебКлиент Тогда
Если НайденнаяСтрока = Неопределено Тогда
ПоказатьВыборИзСписка(ОписаниеОповещения, Список, Элемент);
Иначе
ПоказатьВыборИзСписка(ОписаниеОповещения, Список, Элемент, НайденнаяСтрока);
КонецЕсли;
#Иначе
Список.ПоказатьВыборЭлемента(ОписаниеОповещения, "Выберите значение", Элемент);
#КонецЕсли
Возврат;
КонецЕсли;
КонецЕсли;
РасчетНаКлиенте();
Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПолеТабличногоДокументаФормаОтчетаПриИзмененииСодержимогоОбластиЗавершение(СписокЭлемент, ДополнительныеПараметры) Экспорт
Область = ДополнительныеПараметры.Область;
Если СписокЭлемент <> Неопределено Тогда
Область.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(Область.Формат, СписокЭлемент.Значение);
КонецЕсли;
РасчетНаКлиенте();
Модифицированность = Истина;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьДатуВЯчейкахНаСервере() Экспорт
ЗаполнитьДатуВЯчейках(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьДатуВЯчейкахНаКлиенте() Экспорт
ЗаполнитьДатуВЯчейках(ЭтаФорма);
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Процедура ЗаполнитьДатуВЯчейках(Форма)
Возврат;
КонецПроцедуры
&НаКлиенте
Процедура Обновить(Команда)
СтруктураРеквизитовФормы.мВПрограммеИзмененаОрганизация = Истина;
ЗаполнитьСведенияОбОрганизацииНаКлиенте();
СтруктураРеквизитовФормы.мВПрограммеИзмененаОрганизация = Ложь;
КонецПроцедуры
&НаКлиенте
Процедура ОчиститьОтчет(Команда)
ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Внимание! Будут очищены все показатели отчета.%1Продолжить операцию?'"), Символы.ПС);
ОписаниеОповещения = Новый ОписаниеОповещения("ОчиститьОтчетЗавершение", ЭтотОбъект);
ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Нет);
КонецПроцедуры
&НаКлиенте
Процедура ОчиститьОтчетЗавершение(Ответ, ДополнительныеПараметры) Экспорт
Если Ответ = КодВозвратаДиалога.Нет Тогда
Возврат;
Иначе
Очистить();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Очистить() Экспорт
ОчиститьТабличноеПолеНаСервере();
Модифицированность = Истина;
КонецПроцедуры
&НаСервере
Процедура ОчиститьТабличноеПолеНаСервере()
ОчиститьТабличноеПоле(ЭтаФорма);
РасчетНаСервере();
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Процедура ОчиститьТабличноеПоле(Форма)
Перем СписокПоказателейНеПодлежащихОчистке;
ВыбТабличноеПоле = Форма.ПолеТабличногоДокументаФормаОтчета;
СписокПоказателейНеПодлежащихОчистке = Новый СписокЗначений;
СписокПоказателейНеПодлежащихОчистке.Добавить("ОргКодОКПО");
СписокПоказателейНеПодлежащихОчистке.Добавить("ОргНазв");
СписокПоказателейНеПодлежащихОчистке.Добавить("ОргАдрес");
СписокПоказателейНеПодлежащихОчистке.Добавить("КодЗнач1");
СписокПоказателейНеПодлежащихОчистке.Добавить("КодЗнач2");
СписокПоказателейНеПодлежащихОчистке.Добавить("КодЗнач3");
СписокПоказателейНеПодлежащихОчистке.Добавить("КодЗнач4");
СписокПоказателейНеПодлежащихОчистке.Добавить("ОргИсполнитель");
СписокПоказателейНеПодлежащихОчистке.Добавить("ОргДолжностьИсп");
СписокПоказателейНеПодлежащихОчистке.Добавить("ОргТелефонИсп");
СписокПоказателейНеПодлежащихОчистке.Добавить("ДатаСоставленияОтчета");
СписокПоказателейНеПодлежащихОчистке.Добавить("НомерКорректировки");
Для Инд = 0 По ВыбТабличноеПоле.Области.Количество() - 1 Цикл
ТекущаяОбласть = ВыбТабличноеПоле.Области[Инд];
Если СписокПоказателейНеПодлежащихОчистке.НайтиПоЗначению(ТекущаяОбласть.Имя) <> Неопределено Тогда
Продолжить;
КонецЕсли;
Если Не ТекущаяОбласть.ТипОбласти = ТипОбластиЯчеекТабличногоДокумента.Прямоугольник Тогда
Продолжить;
КонецЕсли;
Если Не ТекущаяОбласть.СодержитЗначение Тогда
Продолжить;
КонецЕсли;
Если ТекущаяОбласть.Защита Тогда
Продолжить;
КонецЕсли;
ТекущаяОбласть.Очистить();
ТекущаяОбласть.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(ТекущаяОбласть.Формат, "ЧН=' '");
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура РасчетНаКлиенте(ИмяСтраницыПанели = "") Экспорт
Расчет(ЭтаФорма, ИмяСтраницыПанели);
КонецПроцедуры
&НаСервере
Процедура РасчетНаСервере(ИмяСтраницыПанели = "") Экспорт
Расчет(ЭтаФорма, ИмяСтраницыПанели);
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Процедура Расчет(Форма, ИмяСтраницыПанели = "") Экспорт
мФормаОтчета = Форма.ПолеТабличногоДокументаФормаОтчета;
мФормаОтчета.Области.П010000102.Значение = мФормаОтчета.Области.П010000202.Значение + мФормаОтчета.Области.П010000302.Значение + мФормаОтчета.Области.П010000402.Значение + мФормаОтчета.Области.П010000502.Значение + мФормаОтчета.Области.П010000602.Значение
+ мФормаОтчета.Области.П010000702.Значение + мФормаОтчета.Области.П010000802.Значение + мФормаОтчета.Области.П010000902.Значение + мФормаОтчета.Области.П010001002.Значение + мФормаОтчета.Области.П010001102.Значение;
Если мФормаОтчета.Области.П010000102.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000202.Текст + мФормаОтчета.Области.П010000302.Текст + мФормаОтчета.Области.П010000402.Текст + мФормаОтчета.Области.П010000502.Текст + мФормаОтчета.Области.П010000602.Текст
+ мФормаОтчета.Области.П010000702.Текст + мФормаОтчета.Области.П010000802.Текст + мФормаОтчета.Области.П010000902.Текст + мФормаОтчета.Области.П010001002.Текст + мФормаОтчета.Области.П010001102.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000102.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000102.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000103.Значение = мФормаОтчета.Области.П010000203.Значение + мФормаОтчета.Области.П010000303.Значение + мФормаОтчета.Области.П010000403.Значение + мФормаОтчета.Области.П010000503.Значение + мФормаОтчета.Области.П010000603.Значение
+ мФормаОтчета.Области.П010000703.Значение + мФормаОтчета.Области.П010000803.Значение + мФормаОтчета.Области.П010000903.Значение + мФормаОтчета.Области.П010001003.Значение + мФормаОтчета.Области.П010001103.Значение;
Если мФормаОтчета.Области.П010000103.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000203.Текст + мФормаОтчета.Области.П010000303.Текст + мФормаОтчета.Области.П010000403.Текст + мФормаОтчета.Области.П010000503.Текст + мФормаОтчета.Области.П010000603.Текст
+ мФормаОтчета.Области.П010000703.Текст + мФормаОтчета.Области.П010000803.Текст + мФормаОтчета.Области.П010000903.Текст + мФормаОтчета.Области.П010001003.Текст + мФормаОтчета.Области.П010001103.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000103.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000103.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000104.Значение = мФормаОтчета.Области.П010000204.Значение + мФормаОтчета.Области.П010000304.Значение + мФормаОтчета.Области.П010000404.Значение + мФормаОтчета.Области.П010000504.Значение + мФормаОтчета.Области.П010000604.Значение
+ мФормаОтчета.Области.П010000704.Значение + мФормаОтчета.Области.П010000804.Значение + мФормаОтчета.Области.П010000904.Значение + мФормаОтчета.Области.П010001004.Значение + мФормаОтчета.Области.П010001104.Значение;
Если мФормаОтчета.Области.П010000104.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000204.Текст + мФормаОтчета.Области.П010000304.Текст + мФормаОтчета.Области.П010000404.Текст + мФормаОтчета.Области.П010000504.Текст + мФормаОтчета.Области.П010000604.Текст
+ мФормаОтчета.Области.П010000704.Текст + мФормаОтчета.Области.П010000804.Текст + мФормаОтчета.Области.П010000904.Текст + мФормаОтчета.Области.П010001004.Текст + мФормаОтчета.Области.П010001104.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000104.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000104.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000101.Значение = мФормаОтчета.Области.П010000102.Значение + мФормаОтчета.Области.П010000103.Значение + мФормаОтчета.Области.П010000104.Значение;
Если мФормаОтчета.Области.П010000101.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000102.Текст + мФормаОтчета.Области.П010000103.Текст + мФормаОтчета.Области.П010000104.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000101.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000101.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000201.Значение = мФормаОтчета.Области.П010000202.Значение + мФормаОтчета.Области.П010000203.Значение + мФормаОтчета.Области.П010000204.Значение;
Если мФормаОтчета.Области.П010000201.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000202.Текст + мФормаОтчета.Области.П010000203.Текст + мФормаОтчета.Области.П010000204.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000201.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000201.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000301.Значение = мФормаОтчета.Области.П010000302.Значение + мФормаОтчета.Области.П010000303.Значение + мФормаОтчета.Области.П010000304.Значение;
Если мФормаОтчета.Области.П010000301.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000302.Текст + мФормаОтчета.Области.П010000303.Текст + мФормаОтчета.Области.П010000304.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000301.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000301.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000401.Значение = мФормаОтчета.Области.П010000402.Значение + мФормаОтчета.Области.П010000403.Значение + мФормаОтчета.Области.П010000404.Значение;
Если мФормаОтчета.Области.П010000401.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000402.Текст + мФормаОтчета.Области.П010000403.Текст + мФормаОтчета.Области.П010000404.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000401.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000401.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000501.Значение = мФормаОтчета.Области.П010000502.Значение + мФормаОтчета.Области.П010000503.Значение + мФормаОтчета.Области.П010000504.Значение;
Если мФормаОтчета.Области.П010000501.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000502.Текст + мФормаОтчета.Области.П010000503.Текст + мФормаОтчета.Области.П010000504.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000501.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000501.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000601.Значение = мФормаОтчета.Области.П010000602.Значение + мФормаОтчета.Области.П010000603.Значение + мФормаОтчета.Области.П010000604.Значение;
Если мФормаОтчета.Области.П010000601.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000602.Текст + мФормаОтчета.Области.П010000603.Текст + мФормаОтчета.Области.П010000604.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000601.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000601.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000701.Значение = мФормаОтчета.Области.П010000702.Значение + мФормаОтчета.Области.П010000703.Значение + мФормаОтчета.Области.П010000704.Значение;
Если мФормаОтчета.Области.П010000701.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000702.Текст + мФормаОтчета.Области.П010000703.Текст + мФормаОтчета.Области.П010000704.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000701.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000701.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000801.Значение = мФормаОтчета.Области.П010000802.Значение + мФормаОтчета.Области.П010000803.Значение + мФормаОтчета.Области.П010000804.Значение;
Если мФормаОтчета.Области.П010000801.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000802.Текст + мФормаОтчета.Области.П010000803.Текст + мФормаОтчета.Области.П010000804.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000801.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000801.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000901.Значение = мФормаОтчета.Области.П010000902.Значение + мФормаОтчета.Области.П010000903.Значение + мФормаОтчета.Области.П010000904.Значение;
Если мФормаОтчета.Области.П010000901.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000902.Текст + мФормаОтчета.Области.П010000903.Текст + мФормаОтчета.Области.П010000904.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000901.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000901.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010001001.Значение = мФормаОтчета.Области.П010001002.Значение + мФормаОтчета.Области.П010001003.Значение + мФормаОтчета.Области.П010001004.Значение;
Если мФормаОтчета.Области.П010001001.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010001002.Текст + мФормаОтчета.Области.П010001003.Текст + мФормаОтчета.Области.П010001004.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010001001.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010001001.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010001101.Значение = мФормаОтчета.Области.П010001102.Значение + мФормаОтчета.Области.П010001103.Значение + мФормаОтчета.Области.П010001104.Значение;
Если мФормаОтчета.Области.П010001101.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010001102.Текст + мФормаОтчета.Области.П010001103.Текст + мФормаОтчета.Области.П010001104.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010001101.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010001101.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000105.Значение = мФормаОтчета.Области.П010000205.Значение
+ мФормаОтчета.Области.П010000305.Значение
+ мФормаОтчета.Области.П010000405.Значение
+ мФормаОтчета.Области.П010000505.Значение
+ мФормаОтчета.Области.П010000605.Значение
+ мФормаОтчета.Области.П010000705.Значение
+ мФормаОтчета.Области.П010000805.Значение
+ мФормаОтчета.Области.П010000905.Значение
+ мФормаОтчета.Области.П010001005.Значение
+ мФормаОтчета.Области.П010001105.Значение;
Если мФормаОтчета.Области.П010000105.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000205.Текст
+ мФормаОтчета.Области.П010000305.Текст
+ мФормаОтчета.Области.П010000405.Текст
+ мФормаОтчета.Области.П010000505.Текст
+ мФормаОтчета.Области.П010000605.Текст
+ мФормаОтчета.Области.П010000705.Текст
+ мФормаОтчета.Области.П010000805.Текст
+ мФормаОтчета.Области.П010000905.Текст
+ мФормаОтчета.Области.П010001005.Текст
+ мФормаОтчета.Области.П010001105.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000105.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000105.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000106.Значение = мФормаОтчета.Области.П010000206.Значение
+ мФормаОтчета.Области.П010000306.Значение
+ мФормаОтчета.Области.П010000406.Значение
+ мФормаОтчета.Области.П010000506.Значение
+ мФормаОтчета.Области.П010000606.Значение
+ мФормаОтчета.Области.П010000706.Значение
+ мФормаОтчета.Области.П010000806.Значение
+ мФормаОтчета.Области.П010000906.Значение
+ мФормаОтчета.Области.П010001006.Значение
+ мФормаОтчета.Области.П010001106.Значение;
Если мФормаОтчета.Области.П010000106.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000206.Текст
+ мФормаОтчета.Области.П010000306.Текст
+ мФормаОтчета.Области.П010000406.Текст
+ мФормаОтчета.Области.П010000506.Текст
+ мФормаОтчета.Области.П010000606.Текст
+ мФормаОтчета.Области.П010000706.Текст
+ мФормаОтчета.Области.П010000806.Текст
+ мФормаОтчета.Области.П010000906.Текст
+ мФормаОтчета.Области.П010001006.Текст
+ мФормаОтчета.Области.П010001106.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000106.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000106.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000107.Значение = мФормаОтчета.Области.П010000207.Значение
+ мФормаОтчета.Области.П010000307.Значение
+ мФормаОтчета.Области.П010000407.Значение
+ мФормаОтчета.Области.П010000507.Значение
+ мФормаОтчета.Области.П010000607.Значение
+ мФормаОтчета.Области.П010000707.Значение
+ мФормаОтчета.Области.П010000807.Значение
+ мФормаОтчета.Области.П010000907.Значение
+ мФормаОтчета.Области.П010001007.Значение
+ мФормаОтчета.Области.П010001107.Значение;
Если мФормаОтчета.Области.П010000107.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000207.Текст
+ мФормаОтчета.Области.П010000307.Текст
+ мФормаОтчета.Области.П010000407.Текст
+ мФормаОтчета.Области.П010000507.Текст
+ мФормаОтчета.Области.П010000607.Текст
+ мФормаОтчета.Области.П010000707.Текст
+ мФормаОтчета.Области.П010000807.Текст
+ мФормаОтчета.Области.П010000907.Текст
+ мФормаОтчета.Области.П010001007.Текст
+ мФормаОтчета.Области.П010001107.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000107.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000107.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000108.Значение = мФормаОтчета.Области.П010000208.Значение
+ мФормаОтчета.Области.П010000308.Значение
+ мФормаОтчета.Области.П010000408.Значение
+ мФормаОтчета.Области.П010000508.Значение
+ мФормаОтчета.Области.П010000608.Значение
+ мФормаОтчета.Области.П010000708.Значение
+ мФормаОтчета.Области.П010000808.Значение
+ мФормаОтчета.Области.П010000908.Значение
+ мФормаОтчета.Области.П010001008.Значение
+ мФормаОтчета.Области.П010001108.Значение;
Если мФормаОтчета.Области.П010000108.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000208.Текст
+ мФормаОтчета.Области.П010000308.Текст
+ мФормаОтчета.Области.П010000408.Текст
+ мФормаОтчета.Области.П010000508.Текст
+ мФормаОтчета.Области.П010000608.Текст
+ мФормаОтчета.Области.П010000708.Текст
+ мФормаОтчета.Области.П010000808.Текст
+ мФормаОтчета.Области.П010000908.Текст
+ мФормаОтчета.Области.П010001008.Текст
+ мФормаОтчета.Области.П010001108.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000108.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000108.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000109.Значение = мФормаОтчета.Области.П010000209.Значение
+ мФормаОтчета.Области.П010000309.Значение
+ мФормаОтчета.Области.П010000409.Значение
+ мФормаОтчета.Области.П010000509.Значение
+ мФормаОтчета.Области.П010000609.Значение
+ мФормаОтчета.Области.П010000709.Значение
+ мФормаОтчета.Области.П010000809.Значение
+ мФормаОтчета.Области.П010000909.Значение
+ мФормаОтчета.Области.П010001009.Значение
+ мФормаОтчета.Области.П010001109.Значение;
Если мФормаОтчета.Области.П010000109.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000209.Текст
+ мФормаОтчета.Области.П010000309.Текст
+ мФормаОтчета.Области.П010000409.Текст
+ мФормаОтчета.Области.П010000509.Текст
+ мФормаОтчета.Области.П010000609.Текст
+ мФормаОтчета.Области.П010000709.Текст
+ мФормаОтчета.Области.П010000809.Текст
+ мФормаОтчета.Области.П010000909.Текст
+ мФормаОтчета.Области.П010001009.Текст
+ мФормаОтчета.Области.П010001109.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000109.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000109.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000110.Значение = мФормаОтчета.Области.П010000210.Значение
+ мФормаОтчета.Области.П010000310.Значение
+ мФормаОтчета.Области.П010000410.Значение
+ мФормаОтчета.Области.П010000510.Значение
+ мФормаОтчета.Области.П010000610.Значение
+ мФормаОтчета.Области.П010000710.Значение
+ мФормаОтчета.Области.П010000810.Значение
+ мФормаОтчета.Области.П010000910.Значение
+ мФормаОтчета.Области.П010001010.Значение
+ мФормаОтчета.Области.П010001110.Значение;
Если мФормаОтчета.Области.П010000110.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000210.Текст
+ мФормаОтчета.Области.П010000310.Текст
+ мФормаОтчета.Области.П010000410.Текст
+ мФормаОтчета.Области.П010000510.Текст
+ мФормаОтчета.Области.П010000610.Текст
+ мФормаОтчета.Области.П010000710.Текст
+ мФормаОтчета.Области.П010000810.Текст
+ мФормаОтчета.Области.П010000910.Текст
+ мФормаОтчета.Области.П010001010.Текст
+ мФормаОтчета.Области.П010001110.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000110.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000110.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000111.Значение = мФормаОтчета.Области.П010000211.Значение
+ мФормаОтчета.Области.П010000311.Значение
+ мФормаОтчета.Области.П010000411.Значение
+ мФормаОтчета.Области.П010000511.Значение
+ мФормаОтчета.Области.П010000611.Значение
+ мФормаОтчета.Области.П010000711.Значение
+ мФормаОтчета.Области.П010000811.Значение
+ мФормаОтчета.Области.П010000911.Значение
+ мФормаОтчета.Области.П010001011.Значение
+ мФормаОтчета.Области.П010001111.Значение;
Если мФормаОтчета.Области.П010000111.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000211.Текст
+ мФормаОтчета.Области.П010000311.Текст
+ мФормаОтчета.Области.П010000411.Текст
+ мФормаОтчета.Области.П010000511.Текст
+ мФормаОтчета.Области.П010000611.Текст
+ мФормаОтчета.Области.П010000711.Текст
+ мФормаОтчета.Области.П010000811.Текст
+ мФормаОтчета.Области.П010000911.Текст
+ мФормаОтчета.Области.П010001011.Текст
+ мФормаОтчета.Области.П010001111.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000111.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000111.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000107.Значение = мФормаОтчета.Области.П010000108.Значение + мФормаОтчета.Области.П010000109.Значение + мФормаОтчета.Области.П010000110.Значение;
Если мФормаОтчета.Области.П010000107.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000108.Текст + мФормаОтчета.Области.П010000109.Текст + мФормаОтчета.Области.П010000110.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000107.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000107.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000207.Значение = мФормаОтчета.Области.П010000208.Значение + мФормаОтчета.Области.П010000209.Значение + мФормаОтчета.Области.П010000210.Значение;
Если мФормаОтчета.Области.П010000207.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000208.Текст + мФормаОтчета.Области.П010000209.Текст + мФормаОтчета.Области.П010000210.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000207.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000207.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000307.Значение = мФормаОтчета.Области.П010000308.Значение + мФормаОтчета.Области.П010000309.Значение + мФормаОтчета.Области.П010000310.Значение;
Если мФормаОтчета.Области.П010000307.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000308.Текст + мФормаОтчета.Области.П010000309.Текст + мФормаОтчета.Области.П010000310.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000307.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000307.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000407.Значение = мФормаОтчета.Области.П010000408.Значение + мФормаОтчета.Области.П010000409.Значение + мФормаОтчета.Области.П010000410.Значение;
Если мФормаОтчета.Области.П010000407.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000408.Текст + мФормаОтчета.Области.П010000409.Текст + мФормаОтчета.Области.П010000410.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000407.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000407.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000507.Значение = мФормаОтчета.Области.П010000508.Значение + мФормаОтчета.Области.П010000509.Значение + мФормаОтчета.Области.П010000510.Значение;
Если мФормаОтчета.Области.П010000507.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000508.Текст + мФормаОтчета.Области.П010000509.Текст + мФормаОтчета.Области.П010000510.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000507.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000507.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000607.Значение = мФормаОтчета.Области.П010000608.Значение + мФормаОтчета.Области.П010000609.Значение + мФормаОтчета.Области.П010000610.Значение;
Если мФормаОтчета.Области.П010000607.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000608.Текст + мФормаОтчета.Области.П010000609.Текст + мФормаОтчета.Области.П010000610.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000607.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000607.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000707.Значение = мФормаОтчета.Области.П010000708.Значение + мФормаОтчета.Области.П010000709.Значение + мФормаОтчета.Области.П010000710.Значение;
Если мФормаОтчета.Области.П010000707.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000708.Текст + мФормаОтчета.Области.П010000709.Текст + мФормаОтчета.Области.П010000710.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000707.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000707.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000807.Значение = мФормаОтчета.Области.П010000808.Значение + мФормаОтчета.Области.П010000809.Значение + мФормаОтчета.Области.П010000810.Значение;
Если мФормаОтчета.Области.П010000807.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000808.Текст + мФормаОтчета.Области.П010000809.Текст + мФормаОтчета.Области.П010000810.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000807.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000807.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010000907.Значение = мФормаОтчета.Области.П010000908.Значение + мФормаОтчета.Области.П010000909.Значение + мФормаОтчета.Области.П010000910.Значение;
Если мФормаОтчета.Области.П010000907.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010000908.Текст + мФормаОтчета.Области.П010000909.Текст + мФормаОтчета.Области.П010000910.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010000907.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010000907.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010001007.Значение = мФормаОтчета.Области.П010001008.Значение + мФормаОтчета.Области.П010001009.Значение + мФормаОтчета.Области.П010001010.Значение;
Если мФормаОтчета.Области.П010001007.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010001008.Текст + мФормаОтчета.Области.П010001009.Текст + мФормаОтчета.Области.П010001010.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010001007.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010001007.Формат, ФорматПредставленияНуля);
КонецЕсли;
мФормаОтчета.Области.П010001107.Значение = мФормаОтчета.Области.П010001108.Значение + мФормаОтчета.Области.П010001109.Значение + мФормаОтчета.Области.П010001110.Значение;
Если мФормаОтчета.Области.П010001107.Значение = 0 Тогда
ФорматПредставленияНуля = ?(ПустаяСтрока(мФормаОтчета.Области.П010001108.Текст + мФормаОтчета.Области.П010001109.Текст + мФормаОтчета.Области.П010001110.Текст), "ЧН=' '", "ЧН=");
мФормаОтчета.Области.П010001107.Формат = РегламентированнаяОтчетностьКлиентСервер.ЗаменитьПредставлениеНуляВСтрокеФормата(мФормаОтчета.Области.П010001107.Формат, ФорматПредставленияНуля);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СохранитьОтчет(Команда)
СохранитьНаКлиенте();
КонецПроцедуры
&НаКлиенте
Процедура СохранитьНаКлиенте(Автосохранение = Ложь, ВыполняемоеОповещение = Неопределено) Экспорт
Вариант = СтруктураРеквизитовФормы.ВидДокумента * НомерКорректировки;
Если НЕ РегламентированнаяОтчетностьКлиент.ПриЗаписиРегламентированногоОтчетаНаКлиенте(ЭтаФорма, , Автосохранение, Вариант) Тогда
Возврат;
КонецЕсли;
ПодобныйОтчетСуществует = Ложь;
ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки = Ложь;
ПоказателиОтчета = Новый Структура();
#Если ВебКлиент Тогда
ЗаполнитьПоказателиОтчетаНаСервере(ПоказателиОтчета);
#Иначе
ЗаполнитьПоказателиОтчетаНаКлиенте(ПоказателиОтчета);
#КонецЕсли
РезультатСохранения = ПередСохранением(, ПодобныйОтчетСуществует, Вариант, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, Автосохранение, ПоказателиОтчета);
ВидДокументаНомерКорректировкиИзменен = Неопределено;
Если ПодобныйОтчетСуществует И Автосохранение Тогда
Возврат;
КонецЕсли;
НуженВопросПередСохранением = (ПодобныйОтчетСуществует ИЛИ ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки);
Если НуженВопросПередСохранением Тогда
СохранитьНаКлиентеСВопросом(Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПодобныйОтчетСуществует, ПоказателиОтчета);
Иначе
ПослеСохраненияНаКлиенте(ВыполняемоеОповещение, РезультатСохранения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СохранитьНаКлиентеСВопросом(Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПодобныйОтчетСуществует, ПоказателиОтчета)
Если ПодобныйОтчетСуществует Тогда
Кнопки = Новый СписокЗначений;
Кнопки.Добавить(КодВозвратаДиалога.Да, "Сохранить");
Кнопки.Добавить(КодВозвратаДиалога.Нет, "Отмена");
ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Отчет с видом %1 уже существует.
|Сохранить отчет с таким же видом?'"), ?(Вариант = 0, """Первичный""", """Корректирующий/" + Вариант + """"));
ДополнительныеПараметры = Новый Структура("Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПоказателиОтчета", Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПоказателиОтчета);
ОписаниеОповещения = Новый ОписаниеОповещения("ВопросСохранитьОтчетСТакимЖеВидомЗавершение", ЭтотОбъект, ДополнительныеПараметры);
ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, Кнопки, , Кнопки.Получить(1).Значение);
Иначе
СохранитьНаКлиентеСВопросомПродолжение(Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПоказателиОтчета);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВопросСохранитьОтчетСТакимЖеВидомЗавершение(Ответ, ДополнительныеПараметры) Экспорт
Автосохранение = ДополнительныеПараметры.Автосохранение;
Вариант = ДополнительныеПараметры.Вариант;
ВыполняемоеОповещение = ДополнительныеПараметры.ВыполняемоеОповещение;
ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки = ДополнительныеПараметры.ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки;
ПоказателиОтчета = ДополнительныеПараметры.ПоказателиОтчета;
Если Ответ = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
СохранитьНаКлиентеСВопросомПродолжение(Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПоказателиОтчета);
КонецПроцедуры
&НаКлиенте
Процедура СохранитьНаКлиентеСВопросомПродолжение(Автосохранение, Вариант, ВыполняемоеОповещение, ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки, ПоказателиОтчета)
Если ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки Тогда
ПараметрыФормы = Новый Структура();
ПараметрыФормы.Вставить("ВидОтчета", Вариант);
ФормаВопроса = РегламентированнаяОтчетностьКлиент.ПолучитьОбщуюФормуПоИмени("ВопросПриИзмененииВидаДокументаНомераКорректировки", ПараметрыФормы);
ДополнительныеПараметры = Новый Структура("Автосохранение, Вариант, ВыполняемоеОповещение, ПоказателиОтчета", Автосохранение, Вариант, ВыполняемоеОповещение, ПоказателиОтчета);
ОписаниеОповещения = Новый ОписаниеОповещения("ВопросПриИзмененииВидаДокументаЗавершение", ЭтотОбъект, ДополнительныеПараметры);
ФормаВопроса.ОписаниеОповещенияОЗакрытии = ОписаниеОповещения;
ФормаВопроса.РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
ФормаВопроса.Открыть();
Иначе
Состояние(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Сохраняется %1...'"), ЭтаФорма.Заголовок), , , БиблиотекаКартинок.Записать);
РезультатСохранения = Сохранить(Автосохранение, , Вариант, Ложь, ПоказателиОтчета);
ПослеСохраненияНаКлиенте(ВыполняемоеОповещение, РезультатСохранения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВопросПриИзмененииВидаДокументаЗавершение(Результат, ДополнительныеПараметры) Экспорт
Автосохранение = ДополнительныеПараметры.Автосохранение;
Вариант = ДополнительныеПараметры.Вариант;
ВыполняемоеОповещение = ДополнительныеПараметры.ВыполняемоеОповещение;
ПоказателиОтчета = ДополнительныеПараметры.ПоказателиОтчета;
КодВозврата = Результат;
Если КодВозврата = КодВозвратаДиалога.Да
ИЛИ КодВозврата = КодВозвратаДиалога.Нет Тогда
ВидДокументаНомерКорректировкиИзменен = ?(КодВозврата = КодВозвратаДиалога.Да, Истина, Ложь);
Иначе
Возврат;
КонецЕсли;
Состояние(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Сохраняется %1...'"), ЭтаФорма.Заголовок), , , БиблиотекаКартинок.Записать);
РезультатСохранения = Сохранить(Автосохранение, , Вариант, ВидДокументаНомерКорректировкиИзменен, ПоказателиОтчета);
ПослеСохраненияНаКлиенте(ВыполняемоеОповещение, РезультатСохранения);
КонецПроцедуры
&НаКлиенте
Процедура ПослеСохраненияНаКлиенте(ВыполняемоеОповещение, РезультатСохранения)
КлючУникальности = СтруктураРеквизитовФормы.мСохраненныйДок;
Если РезультатСохранения Тогда
РегламентированнаяОтчетностьКлиент.ПослеЗаписиРегламентированногоОтчета(ЭтаФорма);
Если ВыполняемоеОповещение <> Неопределено Тогда
ВыполнитьОбработкуОповещения(ВыполняемоеОповещение);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ПередСохранением(КодИФНС = "не применимо", ПодобныйОтчетСуществует="", Вариант="", ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки="", Автосохранение="", ПоказателиОтчета="")
Если РегламентированнаяОтчетность.БылиИзмененыКлючевыеРеквизитыОтчета(ЭтаФорма, КодИФНС)
И РегламентированнаяОтчетность.СуществуетДокументСАналогичнымиРеквизитами(ЭтаФорма, КодИФНС) Тогда
ПодобныйОтчетСуществует = Истина;
КонецЕсли;
СтруктураРеквизитовФормы.мЗаписываетсяНовыйДокумент = (СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено ИЛИ СтруктураРеквизитовФормы.мСкопированаФорма <> Неопределено);
Если Вариант <> Неопределено И ((СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено) ИЛИ (СтруктураРеквизитовФормы.мСкопированаФорма <> Неопределено) ИЛИ (Вариант <> СтруктураРеквизитовФормы.мВариант)) Тогда
Если СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено ИЛИ СтруктураРеквизитовФормы.мСкопированаФорма <> Неопределено Тогда
ИначеЕсли Вариант <> СтруктураРеквизитовФормы.мВариант Тогда
ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки = Истина;
КонецЕсли;
КонецЕсли;
Если ПодобныйОтчетСуществует
ИЛИ ОткрытьФормуВопросаПриИзмененииВидаДокументаНомераКорректировки Тогда
Возврат Ложь;
КонецЕсли;
Возврат Сохранить(Автосохранение, КодИФНС, Вариант, , ПоказателиОтчета);
КонецФункции
&НаСервере
Функция Сохранить(Автосохранение = Ложь, КодИФНС = "не применимо", Вариант = Неопределено, ВидДокументаНомерКорректировкиИзменен = Неопределено, ПоказателиОтчета = Неопределено) Экспорт
ДанныеДляРазблокирования = Неопределено;
Если НЕ СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено Тогда
Если НЕ СтруктураРеквизитовФормы.мБезОткрытияФормы Тогда
ДанныеДляРазблокирования = Новый Структура("Ключ,ИдФормы",
СтруктураРеквизитовФормы.мСохраненныйДок, ЭтаФорма.УникальныйИдентификатор);
КонецЕсли;
СтруктураРеквизитовФормы.мСохраненныйДок = СтруктураРеквизитовФормы.мСохраненныйДок.ПолучитьОбъект();
КонецЕсли;
Если НЕ РегламентированнаяОтчетность.ПриЗаписиРегламентированногоОтчетаНаСервере(ЭтаФорма, КодИФНС, Автосохранение, Вариант, ВидДокументаНомерКорректировкиИзменен, СтруктураРеквизитовФормы.мСохраненныйДок) Тогда
СтруктураРеквизитовФормы.мСохраненныйДок = СтруктураРеквизитовФормы.мСохраненныйДок.Ссылка;
Возврат Ложь;
КонецЕсли;
СтруктураРеквизитовФормы.мСохраненныйДок.ФорматВыгрузки = "Автоматически";
СтруктураРеквизитовФормы.мСохраненныйДок.ИсточникОтчета = Метаданные.Отчеты[ИмяОтчета(ЭтаФорма.ИмяФормы)].Имя;
СтруктураРеквизитовФормы.мСохраненныйДок.НаименованиеОтчета = Метаданные.Отчеты[ИмяОтчета(ЭтаФорма.ИмяФормы)].ОсновнаяФорма.Синоним;
СтруктураРеквизитовФормы.мСохраненныйДок.ДатаНачала = СтруктураРеквизитовФормы.мДатаНачалаПериодаОтчета;
СтруктураРеквизитовФормы.мСохраненныйДок.ДатаОкончания = СтруктураРеквизитовФормы.мДатаКонцаПериодаОтчета;
СтруктураРеквизитовФормы.мСохраненныйДок.Периодичность = СтруктураРеквизитовФормы.мПериодичность;
СтруктураРеквизитовФормы.мСохраненныйДок.ВыбраннаяФорма = СтруктураРеквизитовФормы.мВыбраннаяФорма;
СтруктураРеквизитовФормы.мСохраненныйДок.Организация = СтруктураРеквизитовФормы.Организация;
СтруктураРеквизитовФормы.мСохраненныйДок.ДатаПодписи = ДатаПодписи;
СтруктураРеквизитовФормы.мСохраненныйДок.ЕдиницаИзмерения = Неопределено;
СтруктураРеквизитовФормы.мСохраненныйДок.ТочностьЕдиницыИзмерения = СтруктураРеквизитовФормы.ТочностьЕдиницыИзмерения;
СтруктураРеквизитовФормы.мСохраненныйДок.ВидОтчетности = Перечисления.ВидыОтчетности.РегламентированнаяОтчетность;
СтруктураРеквизитовФормы.мСохраненныйДок.Вид = Вариант;
СтруктураРеквизитовФормы.мСохраненныйДок.ПредставлениеВида = РегламентированнаяОтчетность.ПредставлениеВидаДокумента(СтруктураРеквизитовФормы.мСохраненныйДок.Вид);
СтруктураРеквизитовФормы.мСохраненныйДок.Комментарий = Комментарий;
СтруктураРеквизитовФормы.мВариант = Вариант;
СписокСохранения = Новый Структура();
СписокСохранения.Вставить("ПоказателиОтчета", ПоказателиОтчета);
СписокСохранения.Вставить("ДанныеМногострочныхРазделов", Неопределено);
СписокСохранения.Вставить("ДанныеВариантовАвтоЗаполнения", Неопределено);
СписокСохранения.Вставить("ВерсияФормы", СтруктураРеквизитовФормы.мВерсияФормы);
ХранилищеДанных = Новый ХранилищеЗначения(СписокСохранения);
СтруктураРеквизитовФормы.мСохраненныйДок.ДанныеОтчета = ХранилищеДанных;
РегламентированнаяОтчетность.ПередЗаписьюНаСервере(ЭтотОбъект,
СтруктураРеквизитовФормы.мСохраненныйДок, Новый Структура);
Попытка
СтруктураРеквизитовФормы.мСохраненныйДок.Записать();
РегламентированнаяОтчетность.СохранитьСтатусОтправкиРеглОтчета(ЭтаФорма);
Исключение
Если НЕ Автосохранение Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='%1'"), РегламентированнаяОтчетностьКлиентСервер.СформироватьТекстСообщения(ОписаниеОшибки()));
Сообщение.Сообщить();
КонецЕсли;
СтруктураРеквизитовФормы.мСохраненныйДок = СтруктураРеквизитовФормы.мСохраненныйДок.Ссылка;
Возврат Ложь;
КонецПопытки;
РегламентированнаяОтчетность.ПослеЗаписиНаСервере(ЭтотОбъект,
СтруктураРеквизитовФормы.мСохраненныйДок, Новый Структура);
Модифицированность = Ложь;
СтруктураРеквизитовФормы.мСохраненныйДок = СтруктураРеквизитовФормы.мСохраненныйДок.Ссылка;
Если НЕ СтруктураРеквизитовФормы.мБезОткрытияФормы
И НЕ СтруктураРеквизитовФормы.мСохраненныйДок = Неопределено Тогда
ЗаблокироватьДанныеДляРедактирования(СтруктураРеквизитовФормы.мСохраненныйДок, , ЭтаФорма.УникальныйИдентификатор);
КонецЕсли;
Если ДанныеДляРазблокирования <> Неопределено Тогда
РазблокироватьДанныеДляРедактирования(ДанныеДляРазблокирования.Ключ, ДанныеДляРазблокирования.ИдФормы);
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Процедура ЗаполнитьПоказателиОтчетаНаСервере(ПоказателиОтчета)
РегламентированнаяОтчетностьКлиентСервер.ЗаполнитьПоказателиОтчета(ЭтаФорма, ПоказателиОтчета);
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоказателиОтчетаНаКлиенте(ПоказателиОтчета)
РегламентированнаяОтчетностьКлиентСервер.ЗаполнитьПоказателиОтчета(ЭтаФорма, ПоказателиОтчета);
КонецПроцедуры
&НаКлиенте
Функция СобратьДанныеТекущегоТаблПоляНаКлиенте(ИмяТабличногоПоля) Экспорт
Возврат РегламентированнаяОтчетностьКлиентСервер.СобратьДанныеТекущегоТаблПоля(ЭтаФорма, ИмяТабличногоПоля);
КонецФункции
&НаСервере
Функция СобратьДанныеТекущегоТаблПоляНаСервере(ИмяТабличногоПоля) Экспорт
Возврат РегламентированнаяОтчетностьКлиентСервер.СобратьДанныеТекущегоТаблПоля(ЭтаФорма, ИмяТабличногоПоля);
КонецФункции
&НаКлиенте
Процедура ПоказатьБланк(Команда)
Отказ = Ложь;
ДополнительныеПараметры = Новый Структура();
ДополнительныеПараметры.Вставить("Команда", Команда);
ОписаниеОповещения = Новый ОписаниеОповещения("ПоказатьБланкЗавершение", ЭтотОбъект, ДополнительныеПараметры);
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередПечатьюРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ПоказатьБланкЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
Команда = ДополнительныеПараметры.Команда;
Если Команда <> Неопределено Тогда
Печать(Команда.Имя);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Печать(ВидПечати, НеИзФормыОтчета = Ложь) Экспорт
Состояние(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='%1. Формируется печатная форма...'"), ЭтаФорма.Заголовок), , , БиблиотекаКартинок.Печать);
Если НЕ ПечатьНаСервере(ВидПечати) Тогда
Возврат;
КонецЕсли;
РегламентированнаяОтчетностьКлиент.ОткрытьФормуПредварительногоПросмотра(ЭтаФорма, ВидПечати, Неопределено, СтруктураРеквизитовФормы.СписокПечатаемыхЛистов);
КонецПроцедуры
&НаСервере
Функция ПечатьНаСервере(ВидПечати)
Если НЕ РегламентированнаяОтчетность.ПринтерДоступен() Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = НСтр("ru='Перед формированием печатных форм необходимо определить в системе принтер и задать его в качестве используемого по умолчанию!'");
Сообщение.Сообщить();
Возврат Ложь;
КонецЕсли;
СтруктураРеквизитовФормы.мПечатныеФормы.Очистить();
ОбластиСтроки = Новый Структура;
Для Каждого Обл Из ПолеТабличногоДокументаФормаОтчета.Области Цикл
Если Обл.ТипОбласти = ТипОбластиЯчеекТабличногоДокумента.Строки
И (Обл.Имя <> "ПолеНомерКорректировки" И Обл.Имя <> "ШапкаОбособленныеПодразделения") Тогда
ОбластиСтроки.Вставить(Обл.Имя, ПолеТабличногоДокументаФормаОтчета.ПолучитьОбласть(Обл.Имя));
КонецЕсли;
КонецЦикла;
Для Каждого Обл Из ОбластиСтроки Цикл
ПечатнаяФорма = Новый ТабличныйДокумент();
ПечатнаяФорма.ОтображатьЗаголовки = Ложь;
ПечатнаяФорма.ОтображатьСетку = Ложь;
ПечатнаяФорма.ЧерноБелыйПросмотр = Истина;
ПечатнаяФорма.ЧерноБелаяПечать = Истина;
ПечатнаяФорма.Автомасштаб = Истина;
ПечатнаяФорма.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ПечатнаяФорма.Вывести(Обл.Значение);
СтруктураРеквизитовФормы.мПечатныеФормы.Добавить(ПечатнаяФорма, "Форма П-4");
КонецЦикла;
РегламентированнаяОтчетность.УдалитьНомерКорректировки(СтруктураРеквизитовФормы.мПечатныеФормы[0].Значение);
РегламентированнаяОтчетностьКлиентСервер.ПроставлениеНомеровЛистов(ЭтаФорма, , СтруктураРеквизитовФормы.СписокПечатаемыхЛистов);
Возврат Истина;
КонецФункции
&НаКлиенте
Процедура ЗагрузитьИзФайла(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьИзФайлаЗавершение", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередЗагрузкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура Выгрузить(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ВыгрузитьЗавершение", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередВыгрузкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьИзФайлаЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
ЗагрузитьИзФайлаОтчет();
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьИзФайлаОтчет() Экспорт
ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьИзФайлаОтчетЗавершение", ЭтотОбъект);
Если Модифицированность Тогда
СохранитьНаКлиенте(,ОписаниеОповещения);
Иначе
ВыполнитьОбработкуОповещения(ОписаниеОповещения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьИзФайлаОтчетЗавершение(Результат, ДополнительныеПараметры) Экспорт
РегламентированнаяОтчетностьЗагрузкаКлиент.ЗагрузитьИзФайлаОтчет(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Функция ЗагрузкаОтчетаИзФайла(ДанныеДляЗагрузки) Экспорт
Если Модифицированность Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон(НСтр("ru='Отчет ""%1"" не сохранен.'"), ЭтотОбъект.Заголовок);
Сообщение.Сообщить();
Возврат Ложь;
КонецЕсли;
Если НЕ ЗагрузкаОтчетаИзФайлаНаСервере(ДанныеДляЗагрузки) Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ЗагрузкаОтчетаИзФайлаНаСервере(ДанныеДляЗагрузки)
РегламентированнаяОтчетность.СформироватьСтруктуруПоказателей(ЭтаФорма);
ПараметрыОтчета = СформироватьСтруктуруПараметров();
ДеревоДляЗагрузки = РегламентированнаяОтчетность.ПолучитьДеревоВыгрузки(ЭтаФорма, "СхемаВыгрузкиXML2012Кв1");
Если НЕ РегламентированнаяОтчетностьЗагрузка.ЗагрузкаОтчетаИзФайла(
ЭтотОбъект, ПараметрыОтчета, ДанныеДляЗагрузки, ДеревоДляЗагрузки) Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаКлиенте
Процедура ВыгрузитьЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
ВыгрузитьОтчет();
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьВыгрузку(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьВыгрузкуЗавершение", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередВыгрузкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьВыгрузкуЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
ПроверитьВыгрузкуОтчета();
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьВыгрузкуОтчета()
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьВыгрузкуОтчетаЗавершение", ЭтотОбъект);
Если НЕ ЗначениеЗаполнено(СтруктураРеквизитовФормы.Организация) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = НСтр("ru='Организация не выбрана! Выгрузка невозможна.'");
Сообщение.Сообщить();
Возврат;
КонецЕсли;
Если Модифицированность Тогда
СохранитьНаКлиенте(,ОписаниеОповещения);
Иначе
ВыполнитьОбработкуОповещения(ОписаниеОповещения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьВыгрузкуОтчетаЗавершение(Результат, ДополнительныеПараметры) Экспорт
ФормаВыгрузкиРеглОтчета = ПолучитьФорму("Документ.ВыгрузкаРегламентированныхОтчетов.Форма.ФормаДокумента", , ЭтаФорма);
СпДокОсн = Новый СписокЗначений;
СпДокОсн.Добавить(СтруктураРеквизитовФормы.мСохраненныйДок);
ФормаВыгрузкиРеглОтчета.Проверить(СпДокОсн);
КонецПроцедуры
&НаКлиенте
Процедура ВыгрузитьОтчет() Экспорт
ОписаниеОповещения = Новый ОписаниеОповещения("ВыгрузитьОтчетЗавершение", ЭтотОбъект);
Если НЕ ЗначениеЗаполнено(СтруктураРеквизитовФормы.Организация) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = НСтр("ru='Организация не выбрана! Выгрузка невозможна.'");
Сообщение.Сообщить();
Возврат;
КонецЕсли;
Если Модифицированность Тогда
СохранитьНаКлиенте(, ОписаниеОповещения);
Иначе
ВыполнитьОбработкуОповещения(ОписаниеОповещения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВыгрузитьОтчетЗавершение(Результат, ДополнительныеПараметры) Экспорт
ФормаВыгрузкиРеглОтчета = ПолучитьФорму("Документ.ВыгрузкаРегламентированныхОтчетов.Форма.ФормаДокумента", , ЭтаФорма);
СпДокОсн = Новый СписокЗначений;
СпДокОсн.Добавить(СтруктураРеквизитовФормы.мСохраненныйДок);
ФормаВыгрузкиРеглОтчета.СформироватьИЗаписать(СпДокОсн);
КонецПроцедуры
&НаСервере
Функция ПроверитьПоказатели() Экспорт
РегламентированнаяОтчетность.СформироватьСтруктуруПоказателей(ЭтаФорма);
ДеревоВыгрузки = РегламентированнаяОтчетность.ПолучитьДеревоВыгрузки(ЭтаФорма, "СхемаВыгрузкиXML2012Кв1");
ПараметрыВыгрузки = СформироватьСтруктуруПараметров();
Если НЕ ПроверитьВозможностьВыгрузки(ПараметрыВыгрузки, ДеревоВыгрузки) Тогда
Возврат Ложь;
КонецЕсли;
ЗаполнитьДанными(ДеревоВыгрузки, ПараметрыВыгрузки);
Если НЕ РегламентированнаяОтчетность.ПроверитьДанные(ЭтаФорма, ДеревоВыгрузки) Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаКлиенте
Функция УниверсальнаяВыгрузка(ТекстВыгрузки = Неопределено, ПроверятьБлокировки = Истина, ИмяФайлаВыгрузки = "", ВыгружатьСОшибками = Ложь) Экспорт
Перем ПараметрыВыгрузки;
Если Модифицированность Тогда
Если СтрНайти(Заголовок, СтруктураРеквизитовФормы.СтрПериодОтчета) = 0 Тогда
ТекстЗаголовка = Заголовок + " за " + СтруктураРеквизитовФормы.СтрПериодОтчета;
Иначе
ТекстЗаголовка = Заголовок;
КонецЕсли;
ОргСтр = " (" + СтруктураРеквизитовФормы.НаимОрганизации + ")";
Если СтрНайти(Заголовок, ОргСтр) = 0 Тогда
ТекстЗаголовка = ТекстЗаголовка + ОргСтр;
КонецЕсли;
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Отчет """ + ТекстЗаголовка + """ не сохранен.";
Сообщение.Сообщить();
Возврат Ложь;
КонецЕсли;
Если НЕ УниверсальнаяВыгрузкаXMLНаСервере(ТекстВыгрузки, ПараметрыВыгрузки) Тогда
Возврат Ложь;
КонецЕсли;
ИмяФайлаВыгрузки = ПараметрыВыгрузки.ИмяФайла;
Возврат Истина;
КонецФункции
&НаСервере
Функция УниверсальнаяВыгрузкаXMLНаСервере(ТекстВыгрузки, ПараметрыВыгрузки) Экспорт
РегламентированнаяОтчетность.СформироватьСтруктуруПоказателей(ЭтаФорма);
ПараметрыВыгрузки = СформироватьСтруктуруПараметров();
ДеревоВыгрузки = РегламентированнаяОтчетность.ПолучитьДеревоВыгрузки(ЭтаФорма, "СхемаВыгрузкиXML2012Кв1");
Если НЕ ПроверитьВозможностьВыгрузки(ПараметрыВыгрузки, ДеревоВыгрузки) Тогда
Возврат Ложь;
КонецЕсли;
ЗаполнитьДанными(ДеревоВыгрузки, ПараметрыВыгрузки);
Если НЕ РегламентированнаяОтчетность.ПроверитьДанные(ЭтаФорма, ДеревоВыгрузки) Тогда
Возврат Ложь;
КонецЕсли;
ТекстВыгрузки = РегламентированнаяОтчетность.ВыгрузитьДеревоВXML(ДеревоВыгрузки, ПараметрыВыгрузки);
Возврат Истина;
КонецФункции
&НаСервере
Функция ПроверитьВозможностьВыгрузки(ПараметрыВыгрузки, ДеревоВыгрузки)
СтатусПроверки = Истина;
ИмяПоляТаблДокумента = "ПолеТабличногоДокументаФормаОтчета";
Если ПустаяСтрока(ПараметрыВыгрузки.ОКПО) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не задан код ОКПО организации!", ИмяПоляТаблДокумента, "ОргКодОКПО");
СтатусПроверки = Ложь;
КонецЕсли;
Если ПустаяСтрока(ПараметрыВыгрузки.ОКВЭД) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не задан код вида деятельности по ОКВЭД организации!", ИмяПоляТаблДокумента, "");
СтатусПроверки = Ложь;
КонецЕсли;
Если ПустаяСтрока(ПараметрыВыгрузки.ОКФС) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не задан код ОКФС организации!", ИмяПоляТаблДокумента, "");
СтатусПроверки = Ложь;
КонецЕсли;
Если ПустаяСтрока(ПараметрыВыгрузки.ОргНазв) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не задано наименование организации!", ИмяПоляТаблДокумента, "ОргНазв");
СтатусПроверки = Ложь;
КонецЕсли;
Если ПустаяСтрока(ПараметрыВыгрузки.ОргИсполнитель) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не указаны Ф.И.О. должностного лица, ответственного за предоставление статистической информации!", ИмяПоляТаблДокумента, "ОргИсполнитель");
СтатусПроверки = Ложь;
КонецЕсли;
Если ПустаяСтрока(ПараметрыВыгрузки.ОргДолжностьИсп) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не указана должность лица, ответственного за предоставление статистической информации!", ИмяПоляТаблДокумента, "ОргДолжностьИсп");
СтатусПроверки = Ложь;
КонецЕсли;
Если ПустаяСтрока(ПараметрыВыгрузки.ОргТелефонИсп) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не указан телефон должностного лица, ответственного за предоставление статистической информации!", ИмяПоляТаблДокумента, "ОргТелефонИсп");
СтатусПроверки = Ложь;
КонецЕсли;
Если НЕ РегламентированнаяОтчетность.ПроверитьРазделыНаНаличиеИнформации(ЭтаФорма, ДеревоВыгрузки, ИмяПоляТаблДокумента) Тогда
РегламентированнаяОтчетность.СообщитьВТаблицуСообщений(ЭтаФорма, "Не заполнены Раздел 1 и Раздел 2!", ИмяПоляТаблДокумента, "");
СтатусПроверки = Ложь;
КонецЕсли;
Возврат СтатусПроверки;
КонецФункции
&НаСервере
Процедура ЗаполнитьДанными(ДеревоВыгрузки, ПараметрыВыгрузки)
РегламентированнаяОтчетность.ОбработатьУсловныеЭлементы(ЭтаФорма, ПараметрыВыгрузки, ДеревоВыгрузки);
ЗаполнитьДаннымиУзел(ПараметрыВыгрузки, ДеревоВыгрузки);
РегламентированнаяОтчетность.ОтсечьНезаполненныеНеобязательныеУзлыСтатистики(ДеревоВыгрузки);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьДаннымиУзел(ПараметрыВыгрузки, Узел, НомерСтроки = Неопределено)
СтрокиУзла = Новый Массив;
Для Каждого Стр Из Узел.Строки Цикл
СтрокиУзла.Добавить(Стр);
КонецЦикла;
Для Каждого Стр из СтрокиУзла Цикл
Если ПустаяСтрока(Стр.ЗначениеПоУмолчанию) Тогда
Если НЕ ПустаяСтрока(Стр.Ключ) Тогда
ПолныйКодПоказателя = Стр.Ключ + ?(ЗначениеЗаполнено(НомерСтроки), "_" + Формат(НомерСтроки, "ЧГ="), "");
ЗначениеПоказателя = Неопределено;
Если ПараметрыВыгрузки.Свойство(ПолныйКодПоказателя, ЗначениеПоказателя) Тогда
ФорматПредставленияНуля = Неопределено;
Если ПараметрыВыгрузки.Свойство("ЧН" + ПолныйКодПоказателя, ФорматПредставленияНуля) Тогда
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, ЗначениеПоказателя, ФорматПредставленияНуля);
Иначе
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, ЗначениеПоказателя);
КонецЕсли;
Иначе
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, "");
КонецЕсли;
Иначе
Стр.Значение = "";
КонецЕсли;
ИначеЕсли Лев(Стр.ЗначениеПоУмолчанию, 1) = "&" Тогда
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, ПараметрыВыгрузки[Сред(Стр.ЗначениеПоУмолчанию, 2)]);
Иначе
Стр.Значение = Стр.ЗначениеПоУмолчанию;
Если НЕ ПустаяСтрока(Стр.Ключ) Тогда
ПолныйКодПоказателя = Стр.Ключ + ?(ЗначениеЗаполнено(НомерСтроки), "_" + Формат(НомерСтроки, "ЧГ="), "");
ЗначениеПоказателя = Неопределено;
Если ПараметрыВыгрузки.Свойство(ПолныйКодПоказателя, ЗначениеПоказателя) Тогда
ФорматПредставленияНуля = Неопределено;
Если ПараметрыВыгрузки.Свойство("ЧН" + ПолныйКодПоказателя, ФорматПредставленияНуля) Тогда
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, ЗначениеПоказателя, ФорматПредставленияНуля);
Иначе
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, ЗначениеПоказателя);
КонецЕсли;
Иначе
РегламентированнаяОтчетность.ВывестиПоказательСтатистикиВXML(Стр, "");
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если Стр.Тип = "С" ИЛИ Стр.Тип = "C" Тогда
ЗаполнитьДаннымиУзел(ПараметрыВыгрузки, Стр, НомерСтроки);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СформироватьИмяФайла(ПараметрыВыгрузки, ДопАтрибуты)
Перем ПолученноеЗначение;
КодОКУД = ДопАтрибуты.OKUD;
КодФормы = ДопАтрибуты.idf;
Периодичность = ДопАтрибуты.idp;
КодОКПО = ПараметрыВыгрузки.ОКПО;
РасчетныйГод = ПараметрыВыгрузки.РасчПериод;
ОтчетныйПериод = ПараметрыВыгрузки.ОтчПериод;
ПараметрыВыгрузки.Свойство("ОКФС", ПолученноеЗначение);
КодОКФС = ПолученноеЗначение;
ПараметрыВыгрузки.Свойство("ОКВЭД", ПолученноеЗначение);
КодОКВЭД = СтрЗаменить(ПолученноеЗначение, ".", "-");
ИмяФайлаXML = КодОКУД + "_" + КодФормы + "_" + Периодичность + "_" + КодОКПО + "_" + РасчетныйГод + "_" + ОтчетныйПериод;
ИмяФайлаXML = ИмяФайлаXML + ?(ПустаяСтрока(КодОКФС), "", "_" + КодОКФС) + ?(ПустаяСтрока(КодОКВЭД), "", "_" + КодОКВЭД) + ".xml";
Возврат ИмяФайлаXML;
КонецФункции
&НаСервере
Функция СформироватьСтруктуруПараметров()
Перем ПолученноеЗначение;
ТабДокумент = мДанныеОтчета.ПолеТабличногоДокументаФормаОтчета;
ДопАтрибуты = СформироватьСтруктуруДопАтрибутов();
СтрокаСведений = "ФИОРук, ОКВЭД, ОКФС";
СведенияОбОрганизации = РегламентированнаяОтчетностьВызовСервера.ПолучитьСведенияОбОрганизации(СтруктураРеквизитовФормы.Организация, СтруктураРеквизитовФормы.мСохраненныйДок.ДатаПодписи, СтрокаСведений);
ПараметрыВыгрузки = Новый Структура;
ДопАтрибуты.Свойство("code", ПолученноеЗначение);
ПараметрыВыгрузки.Вставить("КодШаблона", ПолученноеЗначение);
ДопАтрибуты.Свойство("idf", ПолученноеЗначение);
ПараметрыВыгрузки.Вставить("КодФормы", ПолученноеЗначение);
ДопАтрибуты.Свойство("shifr", ПолученноеЗначение);
ПараметрыВыгрузки.Вставить("ШифрФормы", ПолученноеЗначение);
ОтчПериод = Месяц(СтруктураРеквизитовФормы.мСохраненныйДок.ДатаОкончания);
РасчПериод = Формат(Год(СтруктураРеквизитовФормы.мСохраненныйДок.ДатаОкончания),"ЧГ=0");
ПараметрыВыгрузки.Вставить("ОКПО", СокрЛП(ТабДокумент.ОргКодОКПО));
ПараметрыВыгрузки.Вставить("ОКВЭД", СокрЛП(СведенияОбОрганизации.ОКВЭД));
ПараметрыВыгрузки.Вставить("ОКФС", СокрЛП(СведенияОбОрганизации.ОКФС));
ПараметрыВыгрузки.Вставить("ОтчПериод", СокрЛП(ОтчПериод));
ПараметрыВыгрузки.Вставить("РасчПериод", СокрЛП(РасчПериод));
ПараметрыВыгрузки.Вставить("ОргНазв", СокрЛП(ТабДокумент.ОргНазв));
ПараметрыВыгрузки.Вставить("ОргДиректор", СокрЛП(СведенияОбОрганизации.ФИОРук));
ПараметрыВыгрузки.Вставить("ОргДолжностьИсп", СокрЛП(ТабДокумент.ОргДолжностьИсп));
ПараметрыВыгрузки.Вставить("ОргИсполнитель", СокрЛП(ТабДокумент.ОргИсполнитель));
ПараметрыВыгрузки.Вставить("ОргТелефонИсп", СокрЛП(ТабДокумент.ОргТелефонИсп));
ПараметрыВыгрузки.Вставить("ИмяФайла", СформироватьИмяФайла(ПараметрыВыгрузки, ДопАтрибуты));
ПараметрыВыгрузки.Вставить("ИмяКлючевогоУзлаСодержательнойЧасти", "row");
Возврат ПараметрыВыгрузки;
КонецФункции
&НаСервере
Функция СформироватьСтруктуруДопАтрибутов()
ДопАтрибуты = Новый Структура;
Макет = ОбъектОтчета(ЭтаФорма.ИмяФормы).ПолучитьМакет("АтрибВыгрузкиXML2012Кв1");
ИмяОбласти = ?(СтруктураРеквизитовФормы.мПериодичность = Перечисления.Периодичность.Месяц, "АтрПериодМесяц", "АтрПериодКвартал");
МакетПериод = Макет.ПолучитьОбласть(ИмяОбласти);
Для НомСтр = 1 По МакетПериод.ВысотаТаблицы Цикл
АтрКлюч = СокрЛП(МакетПериод.Область(НомСтр, 1, НомСтр, 1).Текст);
Если НЕ ПустаяСтрока(АтрКлюч) Тогда
АтрКлюч = СтроковыеФункцииКлиентСервер.ЗаменитьОдниСимволыДругими(".- ", АтрКлюч, "___");
ДопАтрибуты.Вставить(АтрКлюч, СокрЛП(МакетПериод.Область(НомСтр, 2, НомСтр, 2).Текст));
КонецЕсли;
КонецЦикла;
Возврат ДопАтрибуты;
КонецФункции
&НаКлиенте
Процедура ЗаполнитьАвто(Команда)
Отказ = Ложь;
РегламентированнаяОтчетностьКлиентПереопределяемый.ПроверитьВозможностьАвтоЗаполненияРеглОтчета(ИмяФормы, Отказ);
Если Отказ Тогда
Возврат;
КонецЕсли;
ДополнительныеПараметры = Новый Структура();
ДополнительныеПараметры.Вставить("Команда", Команда);
ОписаниеОповещения = Новый ОписаниеОповещения("ЗаполнитьАвтоЗавершение", ЭтотОбъект, ДополнительныеПараметры);
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередЗаполнениемРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьАвтоЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
Команда = ДополнительныеПараметры.Команда;
РезультатВыполнения = ЗаполнитьАвтоНаСервере();
Если НЕ РезультатВыполнения.ЗаданиеВыполнено Тогда
ОповещениеОЗавершении = Новый ОписаниеОповещения("ЗаполнитьАвтоЗавершениеПослеЗаполнения", ЭтотОбъект);
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Выполняется заполнение по данным информационной базы'");
ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатВыполнения, ОповещениеОЗавершении, ПараметрыОжидания);
КонецЕсли;
Если Элементы.Расшифровать.Видимость Тогда
Элементы.Расшифровать.Доступность = Истина;
Элементы.ТабличныйДокументКонтекстноеМенюРасшифровать.Доступность = Истина;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьАвтоЗавершениеПослеЗаполнения(РезультатЗагрузки, ДополнительныеПараметры) Экспорт
ЭтотОбъект.Доступность = Истина;
Если РезультатЗагрузки = Неопределено
ИЛИ РезультатЗагрузки.Статус <> "Выполнено" Тогда
ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не удалось выполнить автозаполнение...'"));
Возврат;
КонецЕсли;
ЗагрузитьПодготовленныеДанные();
КонецПроцедуры
&НаСервере
Функция ЗаполнитьАвтоНаСервере()
ПоказателиОтчета = Новый Структура;
ЗаполнитьПоказателиОтчетаНаСервере(ПоказателиОтчета);
ПараметрыОтчета = Новый Структура();
ПараметрыОтчета.Вставить("Организации", Неопределено);
ПараметрыОтчета.Вставить("ЗаполняетсяВЦеломПоОрганизации", Ложь);
ПараметрыОтчета.Вставить("ЗаполняетсяПоКаждомуОП", Истина);
ПараметрыОтчета.Вставить("Организация", СтруктураРеквизитовФормы.Организация);
ПараметрыОтчета.Вставить("ДатаНачалаПериодаОтчета", СтруктураРеквизитовФормы.мДатаНачалаПериодаОтчета);
ПараметрыОтчета.Вставить("ДатаКонцаПериодаОтчета", СтруктураРеквизитовФормы.мДатаКонцаПериодаОтчета);
Контейнер = Новый Структура();
Для каждого ЭлементСтруктуры Из ПоказателиОтчета Цикл
Контейнер.Вставить(ЭлементСтруктуры.Ключ,
РегламентированнаяОтчетность.КонвертированныеЗначенияПоказателейСтатистическойОтчетности(ЭтотОбъект, ЭлементСтруктуры.Значение, Ложь));
КонецЦикла;
Контейнер.Вставить("ПолеТабличногоДокументаФормаОтчета_ДанныеДопСтрок1",
РегламентированнаяОтчетность.КонвертированныеЗначенияПоказателейСтатистическойОтчетности(
ЭтотОбъект, ЭтотОбъект[СтруктураРеквизитовФормы.мИдГруппы1], Ложь));
Контейнер.Вставить("ПолеТабличногоДокументаФормаОтчета_ДанныеДопСтрок2",
РегламентированнаяОтчетность.КонвертированныеЗначенияПоказателейСтатистическойОтчетности(
ЭтотОбъект, ЭтотОбъект[СтруктураРеквизитовФормы.мИдГруппы2], Ложь));
Если СтрЧислоВхождений(ИмяФормы, "ВнешнийОтчет.") > 0 Тогда
ЭтаФормаИмя = СтрЗаменить(ИмяФормы, "ВнешнийОтчет.", "");
ИначеЕсли СтрЧислоВхождений(ИмяФормы, "Отчет.") > 0 Тогда
ЭтаФормаИмя = СтрЗаменить(ИмяФормы, "Отчет.", "");
Иначе
ЭтаФормаИмя = ИмяФормы;
КонецЕсли;
ИДОтчета = Лев(ЭтаФормаИмя, СтрНайти(ЭтаФормаИмя, ".Форма.") - 1);
ИДРедакцииОтчета = Сред(ЭтаФормаИмя, СтрНайти(ЭтаФормаИмя, ".Форма.") + СтрДлина(".Форма."));
ПараметрыВыполненияВФоне = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор);
ПараметрыВыполненияВФоне.ЗапуститьВФоне = Истина;
РезультатВыполнения = ДлительныеОперации.ВыполнитьВФоне("РегламентированнаяОтчетностьПереопределяемый.ЗаполнитьОтчетВФоне",
Новый Структура("ИДОтчета, ИДРедакцииОтчета, ПараметрыОтчета, Контейнер",
ИДОтчета, ИДРедакцииОтчета, ПараметрыОтчета, Контейнер), ПараметрыВыполненияВФоне);
РезультатВыполнения.Вставить("ЗаданиеВыполнено", НРег(РезультатВыполнения.Статус) = "выполнено");
АдресХранилища = РезультатВыполнения.АдресРезультата;
ИдентификаторЗадания = РезультатВыполнения.ИдентификаторЗадания;
Если РезультатВыполнения.ЗаданиеВыполнено Тогда
ЗагрузитьПодготовленныеДанные();
КонецЕсли;
Возврат РезультатВыполнения;
КонецФункции
&НаСервере
Процедура ЗагрузитьПодготовленныеДанные()
Перем ТаблицаГруппы;
Контейнер = РегламентированнаяОтчетность.ПолучитьДанныеАвтозаполненияСтатистическогоОтчета(ЭтотОбъект);
Если Контейнер = Неопределено Тогда
Возврат;
КонецЕсли;
ВывестиПоказателиОтчетаВТабличныйДокумент(Контейнер);
РегламентированнаяОтчетность.УстановитьЦветФорматДоступностьЯчеек(ЭтотОбъект);
РасчетНаСервере();
Если Элементы.Расшифровать.Видимость Тогда
Элементы.Расшифровать.Доступность = Истина;
Элементы.ТабличныйДокументКонтекстноеМенюРасшифровать.Доступность = Истина;
КонецЕсли;
Модифицированность = Истина;
Доступность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура Расшифровать(Команда)
ПараметрыОтчета = Новый Структура;
ПараметрыОтчета.Вставить("Организация", СтруктураРеквизитовФормы.Организация);
ПараметрыОтчета.Вставить("ДатаНачалаПериодаОтчета", СтруктураРеквизитовФормы.мДатаНачалаПериодаОтчета);
ПараметрыОтчета.Вставить("ДатаКонцаПериодаОтчета", СтруктураРеквизитовФормы.мДатаКонцаПериодаОтчета);
ИДИменПоказателей = Новый Массив;
ИДИменПоказателей.Добавить(Элементы.ПолеТабличногоДокументаФормаОтчета.ТекущаяОбласть.Имя);
ЭтаФормаИмя = ЭтаФорма.ИмяФормы;
Если СтрЧислоВхождений(ЭтаФормаИмя, "ВнешнийОтчет.") > 0 Тогда
ЭтаФормаИмя = СтрЗаменить(ЭтаФормаИмя, "ВнешнийОтчет.", "");
ИначеЕсли СтрЧислоВхождений(ЭтаФормаИмя, "Отчет.") > 0 Тогда
ЭтаФормаИмя = СтрЗаменить(ЭтаФормаИмя, "Отчет.", "");
КонецЕсли;
ИДОтчета = Лев(ЭтаФормаИмя, СтрНайти(ЭтаФормаИмя, ".Форма.") - 1);
ИДРедакцииОтчета = ИмяФормыОтчета(ЭтаФорма.ИмяФормы);
РегламентированнаяОтчетностьКлиент.ОткрытьРасшифровкуОтчета(ИДОтчета, ИДРедакцииОтчета, ИДИменПоказателей, ПараметрыОтчета);
КонецПроцедуры
&НаКлиенте
Процедура ОтправитьЧерезПредставителя(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ОтправитьЧерезПредставителяЗавершение", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередВыгрузкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ОтправитьЧерезПредставителяЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
РегламентированнаяОтчетностьКлиент.ПриНажатииНаКнопкуОтправкиЧерезПредставителяВРегламентированномОтчете(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьВИнтернете(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьВИнтернетеЗавершение", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередВыгрузкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьВИнтернетеЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
РегламентированнаяОтчетностьКлиент.ПроверитьВИнтернете(ЭтаФорма, "ФСГС");
КонецПроцедуры
#Область ПанельОтправкиВКонтролирующиеОрганы
&НаКлиенте
Процедура ОбновитьОтправку(Команда)
ЭлектронныйДокументооборотСКонтролирующимиОрганамиКлиент.ОбновитьОтправкуИзПанелиОтправки(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура ГиперссылкаПротоколНажатие(Элемент)
ЭлектронныйДокументооборотСКонтролирующимиОрганамиКлиент.ОткрытьПротоколИзПанелиОтправки(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура ОтправитьНеотправленноеИзвещение(Команда)
ЭлектронныйДокументооборотСКонтролирующимиОрганамиКлиент.ОтправитьНеотправленноеИзвещениеИзПанелиОтправки(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура ЭтапыОтправкиНажатие(Элемент)
ЭлектронныйДокументооборотСКонтролирующимиОрганамиКлиент.ОткрытьСостояниеОтправкиИзПанелиОтправки(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура КритическиеОшибкиОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ЭлектронныйДокументооборотСКонтролирующимиОрганамиКлиент.ОткрытьКритическиеОшибкиИзПанелиОтправки(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура ГиперссылкаНаименованиеЭтапаНажатие(Элемент)
ПараметрыИзменения = Новый Структура;
ПараметрыИзменения.Вставить("Форма", ЭтаФорма);
ПараметрыИзменения.Вставить("Организация", СтруктураРеквизитовФормы.Организация);
ПараметрыИзменения.Вставить("КонтролирующийОрган",
ПредопределенноеЗначение("Перечисление.ТипыКонтролирующихОрганов.ФСГС"));
РегламентированнаяОтчетностьКлиент.ИзменитьСтатусОтправки(ПараметрыИзменения);
КонецПроцедуры
#КонецОбласти
&НаКлиенте
Процедура ОтправитьВКонтролирующийОрган(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверкаВозможностиВыгрузкиРегламентированногоОтчетаПередОтправкой", ЭтотОбъект);
Отказ = Ложь;
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередОтправкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ПроверкаВозможностиВыгрузкиРегламентированногоОтчетаПередОтправкой(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
ОписаниеОповещения = Новый ОписаниеОповещения("ОтправитьВКонтролирующийОрганЗавершение", ЭтотОбъект);
ОнлайнСервисыРегламентированнойОтчетностиКлиент.ПередВыгрузкойРегламентированногоОтчета(ОписаниеОповещения, ЭтотОбъект, Отказ);
КонецПроцедуры
&НаКлиенте
Процедура ОтправитьВКонтролирующийОрганЗавершение(Отказ, ДополнительныеПараметры) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
РегламентированнаяОтчетностьКлиент.ПриНажатииНаКнопкуОтправкиВКонтролирующийОрган(ЭтаФорма, "ФСГС");
КонецПроцедуры
&НаКлиенте
Процедура ЗаписатьИЗакрыть(Команда)
ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить("Форма", ЭтаФорма);
Оповещение = Новый ОписаниеОповещения("ПослеСохраненияФормыЗавершение", ЭтотОбъект, ДополнительныеПараметры);
СохранитьНаКлиенте(, Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ПослеСохраненияФормыЗавершение(Результат, ДополнительныеПараметры) Экспорт
ДополнительныеПараметры.Форма.Закрыть();
КонецПроцедуры
&НаСервере
Процедура РазрешитьРедактированиеРеквизитовОбъекта() Экспорт
РегламентированнаяОтчетность.РазрешитьРедактированиеРеквизитовОтчета(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_РазрешитьРедактированиеРеквизитовОбъекта(Команда)
РегламентированнаяОтчетностьКлиент.РазрешитьРедактированиеРеквизитовОтчета(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОткрытьПрисоединенныеФайлы(Команда)
РегламентированнаяОтчетностьКлиент.СохранитьОтчетИОткрытьФормуПрисоединенныеФайлы(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура КомментарийПриИзменении(Элемент)
Модифицированность = Истина;
КонецПроцедуры
&НаСервере
Функция ОбъектОтчета(ЭтаФормаИмя) Экспорт
Если мОбъектОтчета = Неопределено Тогда
мОбъектОтчета = РегламентированнаяОтчетностьВызовСервера.ОбъектОтчета(ЭтаФормаИмя);
КонецЕсли;
Возврат мОбъектОтчета;
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Функция ИмяОтчета(ЭтаФормаИмя)
Форма_Имя = СтрЗаменить(ЭтаФормаИмя, "Внешний", "");
Возврат Сред(Лев(Форма_Имя, СтрНайти(Форма_Имя, ".Форма.") - 1), 7);
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Функция ИмяФормыОтчета(ЭтаФормаИмя)
Возврат Сред(ЭтаФормаИмя, СтрНайти(ЭтаФормаИмя, ".Форма.") + 7);
КонецФункции
#Область ОбработчикиСобытийФормы
#Область ОбработчикиСобытийПроцессыОбработкиДокументов
&НаКлиенте
Процедура Подключаемый_ВыполнитьЗадачуПоОбработкеДокументаОповещение(Контекст, ДополнительныеПараметры) Экспорт
ВыполнитьЗадачуПоОбработкеДокументаНаСервере(Контекст);
ВыполнитьОбработкуОповещения(ДополнительныеПараметры, Контекст);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ВыполнитьЗадачуПоОбработкеДокумента(Команда)
РегламентированнаяОтчетностьКлиент.ВыполнитьЗадачу(
ЭтотОбъект,
Команда,
?(ЗначениеЗаполнено(СтруктураРеквизитовФормы.мСохраненныйДок),
СтруктураРеквизитовФормы.мСохраненныйДок,
СтруктураРеквизитовФормы.ПустаяСсылкаНаРегламентированныйОтчет));
КонецПроцедуры
#КонецОбласти
#Область ПроцессыОбработкиДокументов
&НаКлиенте
Процедура Подключаемый_КомментарийНаправившегоОткрытие(Элемент, СтандартнаяОбработка)
РегламентированнаяОтчетностьКлиент.КомментарийНаправившегоОткрытие(ЭтотОбъект, Элемент, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_КомментарийСледующемуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
РегламентированнаяОтчетностьКлиент.КомментарийСледующемуНачалоВыбора(
ЭтотОбъект, Элемент, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
#КонецОбласти
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если РегламентированнаяОтчетностьКлиент.ЭтоСобытиеЗавершениеОтправки(ИмяСобытия) Тогда
ВывестиСтатусыИВыжныеСообщенияНаФормуНаСервере();
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
#Область ПроцессыОбработкиДокументов
&НаКлиенте
Процедура Записать(ПараметрыЗаписи) Экспорт
СохранитьНаКлиенте();
КонецПроцедуры
&НаСервере
Процедура ВыполнитьЗадачуПоОбработкеДокументаНаСервере(Контекст)
РегламентированнаяОтчетность.ВыполнитьЗадачу(ЭтотОбъект, Контекст, СтруктураРеквизитовФормы.мСохраненныйДок);
КонецПроцедуры
&НаСервере
Процедура УправлениеДоступностьюРеквизитов(БлокируемыеЭлементы, ТолькоПросмотр) Экспорт
РегламентированнаяОтчетность.УправлениеДоступностьюРеквизитов(ЭтотОбъект, БлокируемыеЭлементы, ТолькоПросмотр);
КонецПроцедуры
#КонецОбласти
&НаСервере
Процедура ИнициализироватьВыводСтатусовИВажныхСообщений_85()
Если РегламентированнаяОтчетность.ДоступнаПодсистема85() Тогда
МодульЭДОСКонтролирующимиОрганами = ОбщегоНазначения.ОбщийМодуль("ЭлектронныйДокументооборотСКонтролирующимиОрганами");
МодульЭДОСКонтролирующимиОрганами.УстановитьРазмещениеНаименованияЭтапаБРО_85(ЭтотОбъект);
МодульЭДОСКонтролирующимиОрганами.ВывестиСтатусыИВыжныеСообщенияНаФорму_85(ЭтотОбъект);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ВывестиСтатусыИВыжныеСообщенияНаФормуНаСервере() Экспорт
Если РегламентированнаяОтчетность.ДоступнаПодсистема85() Тогда
МодульЭДОСКонтролирующимиОрганами = ОбщегоНазначения.ОбщийМодуль("ЭлектронныйДокументооборотСКонтролирующимиОрганами");
МодульЭДОСКонтролирующимиОрганами.ВывестиСтатусыИВыжныеСообщенияНаФорму_85(ЭтотОбъект);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ДетальноеОписаниеСтатусаПослеВыбора(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Если Результат = "ОбновитьОтправку" Тогда
ОбновитьОтправку(Неопределено);
ИначеЕсли Результат = "ГиперссылкаПротокол" Тогда
ГиперссылкаПротоколНажатие(Неопределено);
ИначеЕсли Результат = "ЭтапыОтправки" Тогда
ЭтапыОтправкиНажатие(Неопределено);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ВывестиСтатусыИВыжныеСообщенияНаФорму() Экспорт
ВывестиСтатусыИВыжныеСообщенияНаФормуНаСервере();
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбработкаНажатияКнопкиВВажномСообщении(Команда)
Если Команда.Имя = "ОтправитьНеотправленноеИзвещение" Тогда
ОтправитьНеотправленноеИзвещение(Неопределено);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбработкаНавигационнойСсылкиВВажномСообщении(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если НРег(НавигационнаяСсылкаФорматированнойСтроки) = "критическиеошибки" Тогда
КритическиеОшибкиОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбработкаЗакрытияВажногоСообщения(Команда)
МодульКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектронныйДокументооборотСКонтролирующимиОрганамиКлиентСервер");
МодульКлиентСервер.ЗакрытьВажноеСообщение(ЭтотОбъект, Команда.Имя);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбработатьДействиеИнформационногоСообщения(ЭлементИлиКоманда, НавигационнаяСсылка = Неопределено, СтандартнаяОбработка = Неопределено)
МодульОбщегоНазначенияКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбщегоНазначенияКлиент");
МодульОбщегоНазначенияКлиент.ОбработатьДействиеИнформационногоСообщения(ЭтотОбъект, ЭлементИлиКоманда, НавигационнаяСсылка, СтандартнаяОбработка);
КонецПроцедуры
#КонецОбласти
