ssfedkin
Федор Сергеев

 ВПФ = НайтиВПФ("Печать ТТН"); // получение Внешней печатной формы
   
   ПараметрыОткрытия = Новый Структура("ИсточникДанных, ПараметрыИсточника, КоллекцияПечатныхФорм");
   ПараметрыОткрытия.ИсточникДанных = ВПФ;
   ПараметрыОткрытия.ПараметрыИсточника = Новый Структура("ИдентификаторКоманды, ОбъектыНазначения");
   ИдентификаторКомандыПечати1 = "ПечатьТТН3"; 
   ПараметрыОткрытия.ПараметрыИсточника.ИдентификаторКоманды = ИдентификаторКомандыПечати1;
   ПараметрыОткрытия.ПараметрыИсточника.ОбъектыНазначения = ОбъектыНазначения;
   
   // Формирование КоллекцияПечатныхФорм
   СформироватьПечатныеФормы(ПараметрыОткрытия);
   
   ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия);

&НаСервереБезКонтекста
Функция НайтиВПФ(НаименованиеВПФ) //можно передавать НаименованиеВПФ
   Возврат Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(НаименованиеВПФ);//если надо найти по имени
КонецФункции


Процедура СформироватьПечатныеФормы(ПараметрыОткрытия)

    Результат = Неопределено; 
    ОбъектыПечати = Новый СписокЗначений;    
    ПараметрыВывода = Неопределено;

    УправлениеПечатью.ПечатьПоВнешнемуИсточнику(
        ПараметрыОткрытия.ИсточникДанных,
        ПараметрыОткрытия.ПараметрыИсточника,
        Результат,
        ОбъектыПечати,
        ПараметрыВывода
    ); 

    ПараметрыОткрытия.КоллекцияПечатныхФорм = Общегоназначения.ТаблицаЗначенийВМассив(Результат);   
      
КонецПроцедуры

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