Очень срочно нужна помощь ЗУП 3.1 Приказ об изменении личных данных (Печатная форма)

 Функция ПечатьИзменениеСведений(МассивОбъектов) Экспорт 


        ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("ИзменениеСведений");
    ОбластьМакет = Макет.ПолучитьОбласть("Шапка");
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ПроизвольныйПриказТЧ.Сотрудник.Представление КАК СотрудникПредставление,
    |    ПроизвольныйПриказ.Дата КАК Дата,
    |    ПроизвольныйПриказТЧ.Сотрудник КАК Сотрудник,
    |    ПроизвольныйПриказ.Номер КАК Номер,
    |    ПроизвольныйПриказТЧ.Сотрудник.Код КАК Код
    |ПОМЕСТИТЬ ВР1
    |ИЗ
    |    Документ.ПроизвольныйПриказ.ТЧ КАК ПроизвольныйПриказТЧ
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПроизвольныйПриказ КАК ПроизвольныйПриказ
    |        ПО ПроизвольныйПриказТЧ.Ссылка = ПроизвольныйПриказ.Ссылка
    |ГДЕ
    |    ПроизвольныйПриказ.Ссылка В(&Ссылка)
    |;
    |
    |////////////////////////////////////////////////////////////­­////////////////////
    |ВЫБРАТЬ
    |    ТекущиеКадровыеДанныеСотрудников.ТекущееПодразделение КАК ТекущееПодразделение,
    |    ТекущиеКадровыеДанныеСотрудников.ТекущаяДолжность КАК ТекущаяДолжность,
    |    ТекущиеКадровыеДанныеСотрудников.Сотрудник КАК Сотрудник,
    |    ПриемНаРаботу.Должность КАК Должность,
    |    ПриемНаРаботу.Подразделение КАК Подразделение
    |ПОМЕСТИТЬ ВР2
    |ИЗ
    |    РегистрСведений.ТекущиеКадровыеДанныеСотрудников КАК ТекущиеКадровыеДанныеСотрудников
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ПриемНаРаботу КАК ПриемНаРаботу
    |        ПО ТекущиеКадровыеДанныеСотрудников.ТекущееПодразделение = ПриемНаРаботу.Подразделение
    |;
    |
    |////////////////////////////////////////////////////////////­­////////////////////
    |ВЫБРАТЬ
    |    ФИОФизическихЛиц.Фамилия КАК Фамилия,
    |    ФИОФизическихЛиц.Имя КАК Имя,
    |    ФИОФизическихЛиц.Отчество КАК Отчество,
    |    ФИОФизическихЛиц.ФизическоеЛицо КАК ФизическоеЛицо
    |ПОМЕСТИТЬ ВР3
    |ИЗ
    |    РегистрСведений.ФИОФизическихЛиц КАК ФИОФизическихЛиц
    |;
    |
    |////////////////////////////////////////////////////////////­­////////////////////
    |ВЫБРАТЬ
    |    ВР1.СотрудникПредставление КАК СотрудникПредставление,
    |    ВР1.Дата КАК Дата,
    |    ВР2.ТекущееПодразделение КАК Подразделение,
    |    ВР2.ТекущаяДолжность КАК Должность,
    |    ВР1.Сотрудник КАК Сотрудник,
    |    ВР1.Номер КАК Номер,
    |    ВР1.Код КАК Код,
    |    ВР3.Фамилия КАК Фамилия,
    |    ВР3.Имя КАК Имя,
    |    ВР3.Отчество КАК Отчество
    |ИЗ
    |    ВР1 КАК ВР1
    |        ЛЕВОЕ СОЕДИНЕНИЕ ВР2 КАК ВР2
    |        ПО ВР1.Сотрудник = ВР2.Сотрудник
    |        ЛЕВОЕ СОЕДИНЕНИЕ ВР3 КАК ВР3
    |        ПО ВР1.Сотрудник.ФизическоеЛицо = ВР3.ФизическоеЛицо";

     
          
    Запрос.УстановитьПараметр("Ссылка", МассивОбъектов);
    Выборка = Запрос.Выполнить().Выбрать();
    Выборка.Следующий();
    ОбластьМакет.Параметры.Заполнить(Выборка);
    
    ОбластьМакет.Параметры.Дата = Формат(Выборка.Дата, "ДЛФ=D");
    ОбластьМакет.Параметры.Номер = Выборка.Номер;


    
    ОбластьМакет1 = Макет.ПолучитьОбласть("Строка");
    ОбластьМакет1.Параметры.Заполнить(Выборка);
    
    ОбластьМакет2 = Макет.ПолучитьОбласть("Подвал");
    
    ТабДок.Вывести(ОбластьМакет);
    ТабДок.Вывести(ОбластьМакет1);
    ТабДок.Вывести(ОбластьМакет2);
    ТабДок.АвтоМасштаб = Истина;

    Возврат ТабДок;

    
КонецФункции