1С 8.3: Журнал регистрации платежных ведомостей(Т-53А) ошибка при получении данных из форм

&НаКлиенте
Процедура Команда1(Команда)
    ВыполнитьКомандуНаСервере();
КонецПроцедуры

&НаСервере
Функция ВыполнитьКомандуНаСервере()
    ЗапросБанк = Новый Запрос;
    ЗапросБанк.УстановитьПараметр("Дата1", ЭтаФорма.Дата1);
    ЗапросБанк.УстановитьПараметр("Дата2", ЭтаФорма.Дата2);
    ЗапросБанк.УстановитьПараметр("Организация", ЭтаФорма.Организация);

    ЗапросБанк.Текст= "ВЫБРАТЬ
                       |    ВедомостьНаВыплатуЗарплатыВБанк.Дата КАК Дата,
                       |    ВедомостьНаВыплатуЗарплатыВБанк.Номер КАК Номер,
                       |    ВедомостьНаВыплатуЗарплатыВБанк.СпособВыплаты КАК СпособВыплаты,
                       |    ВедомостьНаВыплатуЗарплатыВБанк.Подразделение КАК Подразделение,
                       |    ВедомостьНаВыплатуЗарплатыВБанк.СуммаПоДокументу КАК СуммаПоДокументу
                       |ИЗ
                       |    Документ.ВедомостьНаВыплатуЗарплатыВБанк КАК ВедомостьНаВыплатуЗарплатыВБанк
                       |ГДЕ
                       |    ВедомостьНаВыплатуЗарплатыВБанк.Дата >= &Дата1
                       |    И ВедомостьНаВыплатуЗарплатыВБанк.Дата < &Дата2
                       |
                       |УПОРЯДОЧИТЬ ПО
                       |    Дата" ;
    ШапкаБанк = ЗапросБанк.Выполнить().Выгрузить();


    //ПО кассе!!!
    ЗапросКасса = Новый Запрос;
    ЗапросКасса.УстановитьПараметр("Дата1", ЭтаФорма.Дата1);
    ЗапросКасса.УстановитьПараметр("Дата2", ЭтаФорма.Дата2);
    ЗапросКасса.УстановитьПараметр("Организация", ЭтаФорма.Организация);

    ЗапросКасса.Текст= "ВЫБРАТЬ
                       |    ВедомостьНаВыплатуЗарплатыВКассу.Дата КАК Дата,
                       |    ВедомостьНаВыплатуЗарплатыВКассу.Номер КАК Номер,
                       |    ВедомостьНаВыплатуЗарплатыВКассу.СпособВыплаты КАК СпособВыплаты,
                       |    ВедомостьНаВыплатуЗарплатыВКассу.Подразделение КАК Подразделение,
                       |    ВедомостьНаВыплатуЗарплатыВКассу.СуммаПоДокументу КАК СуммаПоДокументу
                       |ИЗ
                       |    Документ.ВедомостьНаВыплатуЗарплатыВКассу КАК ВедомостьНаВыплатуЗарплатыВКассу
                       |ГДЕ
                       |    ВедомостьНаВыплатуЗарплатыВКассу.Дата >= &Дата1
                       |    И ВедомостьНаВыплатуЗарплатыВКассу.Дата < &Дата2
                       |
                       |УПОРЯДОЧИТЬ ПО
                       |    Дата";
    ШапкаКасса = ЗапросКасса.Выполнить().Выгрузить();

    Сообщить(ЭтаФорма.Дата1);
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Т53а";

    Макет = ЭтаФорма.ПолучитьМакет("Макет");

    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    ОбластьМакета.Параметры.Заполнить(ШапкаБанк);
    ОбластьМакета.Параметры.Заполнить(ШапкаКасса);

    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьСтроки = Макет.ПолучитьОбласть("Строка");
    НомерСтроки=0;

    //цикл для банка
    Для каждого ВыборкаСтрокЗарплата Из ШапкаБанк Цикл
     НомерСтроки = НомерСтроки + 1;

    ОбластьСтроки.Параметры.Заполнить(ВыборкаСтрокЗарплата);
    ОбластьСтроки.Параметры.НомерСтроки = НомерСтроки;

    ТабДокумент.Вывести(ОбластьСтроки);
    КонецЦикла;

    //Второй цикл для кассы

    Для каждого ВыборкаСтрокЗарплата Из ШапкаКасса Цикл
     НомерСтроки = НомерСтроки + 1;

    ОбластьСтроки.Параметры.Заполнить(ВыборкаСтрокЗарплата);
    ОбластьСтроки.Параметры.НомерСтроки = НомерСтроки;

    ТабДокумент.Вывести(ОбластьСтроки);
    КонецЦикла;


    ОбластьМакетаПодвал = Макет.ПолучитьОбласть("Подвал");
    Итог=777;
    ОбластьМакетаПодвал.Параметры.Итого = Итог;
    ТабДокумент.Вывести(ОбластьМакетаПодвал);


Возврат ТабДокумент;



КонецФункции // ВыполнитьКомандуНаСервере()