TundaNC

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   
   Если ЭтоОтладка() Тогда
      Возврат;
   КонецЕсли;   
   
   ПараметрыПечати = Новый Структура;
   Если ТипЗнч(Параметры.ОбъектыНазначения) = Тип("Массив") И Параметры.ОбъектыНазначения.Количество() = 1 Тогда 
      ПараметрыПечати.Вставить("ЗаголовокФормы", Параметры.ОбъектыНазначения[0]);
   КонецЕсли;
   
   ПараметрыИсточника = Новый Структура;
   ПараметрыИсточника.Вставить("ИдентификаторКоманды", Параметры.ИдентификаторКоманды);
   ПараметрыИсточника.Вставить("ОбъектыНазначения",    Параметры.ОбъектыНазначения);
   
   ПараметрыОткрытия = УправлениеПечатьюСлужебныйКлиент.ПараметрыОткрытияФормыПечати();
   ПараметрыОткрытия.Вставить("ИсточникДанных",        Параметры.ДополнительнаяОбработкаСсылка);
   ПараметрыОткрытия.Вставить("ПараметрыИсточника",    ПараметрыИсточника);
   ПараметрыОткрытия.Вставить("ПараметрКоманды",       Параметры.ОбъектыНазначения);
   ПараметрыОткрытия.Вставить("ПараметрыПечати",       ПараметрыПечати);
   
   ПараметрыОткрытия.УникальныйИдентификаторХранилища = ЭтаФорма.УникальныйИдентификатор;
   
   СформированныеПечатныеФормы = УправлениеПечатьюВызовСервера.НачатьФормированиеПечатныхФорм(ПараметрыОткрытия);
   ПараметрыОткрытия.ВладелецФормы = ЭтаФорма;
   
   РезультатФоновойОперации = Новый Структура;
   РезультатФоновойОперации.Вставить("Статус", "Выполнено");
   РезультатФоновойОперации.Вставить("КраткоеПредставлениеОшибки", "");
   РезультатФоновойОперации.Вставить("ПодробноеПредставлениеОшибки", "");
   РезультатФоновойОперации.Вставить("Сообщения", Новый ФиксированныйМассив(Новый Массив));
   РезультатФоновойОперации.Вставить("АдресРезультата", ПоместитьВоВременноеХранилище(СформированныеПечатныеФормы, ПараметрыОткрытия.УникальныйИдентификаторХранилища));
   
   ВыполнитьОткрытиеПечатнойФормыФормированияПечатныхФорм(РезультатФоновойОперации, ПараметрыОткрытия);  
       
КонецПроцедуры

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

КонецПроцедуры

Поле объекта не обнаружено (ОбъектыПечати)
{ВнешняяОбработка.РеализацияТоваровУслуг_СчетНаОплатуПокупателю_СчетЗаказ.Форма.Форма.Форма(322)}:ПараметрыОткрытия.Вставить("ОбъектыПечати",         СтруктураРезультата.ОбъектыПечати);
{ВнешняяОбработка.РеализацияТоваровУслуг_СчетНаОплатуПокупателю_СчетЗаказ.Форма.Форма.Форма(309)}:ВыполнитьОткрытиеПечатнойФормыФормированияПечатныхФорм(РезультатФоновойОперации, ПараметрыОткрытия);
{ОбщийМодуль.ДополнительныеОтчетыИОбработкиКлиент.Модуль(391)}:ОткрытьФорму("ВнешняяОбработка." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма);
{ОбщийМодуль.ДополнительныеОтчетыИОбработкиКлиент.Модуль(265)}:ВыполнитьОткрытиеФормыОбработки(ВыполняемаяКоманда, Форма, ВыполняемаяКоманда.ОбъектыПечати);
{ОбщийМодуль.УправлениеПечатьюСлужебныйКлиент.Модуль(95)}:МодульДополнительныеОтчетыИОбработкиКлиент.ВыполнитьНазначаемуюКомандуПечати(ОписаниеКоманды, Форма);