Заполнение акта сверки непроведенными реализациями

&НаСервере
Процедура Доп_ЗаполнитьнепроведеннымиРеализациямиПослеНаСервере();
    
    ТЧ = объект.ПоДаннымОрганизации;
    Организация = Объект.Организация;
    Дата = Объект.Дата;
    Контрагент = Объект.Контрагент;
    Договор = Объект.ДоговорКонтрагента;
    ПоВсемДоговорам = НЕ ЗначениеЗаполнено(Договор);
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    |    РеализацияТоваровУслуг.Ссылка КАК Док,
    |    РеализацияТоваровУслуг.СуммаДокумента КАК СуммаДокумента,
    |    РеализацияТоваровУслуг.Номер КАК Номер
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |ГДЕ
    |    РеализацияТоваровУслуг.Проведен = ЛОЖЬ
    |    И РеализацияТоваровУслуг.ПометкаУдаления = ЛОЖЬ
    |    И РеализацияТоваровУслуг.Дата МЕЖДУ НАЧАЛОПЕРИОДА(&ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(&ДатаОкончания, ДЕНЬ)
    |    И РеализацияТоваровУслуг.Контрагент = &Контрагент
    |    И (РеализацияТоваровУслуг.ДоговорКонтрагента = &Договор
    |            ИЛИ &ПоВсемДоговорам = ИСТИНА)";
    Запрос.УстановитьПараметр("ДатаНачала",Объект.ДатаНачала);
    Запрос.УстановитьПараметр("ДатаОкончания",Объект.ДатаОкончания);
    Запрос.УстановитьПараметр("Контрагент",Контрагент);
    Запрос.УстановитьПараметр("Договор",Договор);
    Запрос.УстановитьПараметр("ПоВсемДоговорам",ПоВсемДоговорам);
    
    Выборка = Запрос.Выполнить().Выбрать();    
    Пока Выборка.Следующий() Цикл
        НоваяСтрока = ТЧ.Добавить();
        НоваяСтрока.Дата = Выборка.Док.Дата;
        НоваяСтрока.Документ = Выборка.Док;
        НоваяСтрока.Представление = "Продажа" + " (" + ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Выборка.Номер) + " от " + Формат(Выборка.Док.Дата, "ДФ=dd.MM.yyyy") + ")";;
        НоваяСтрока.Дебет = Выборка.СуммаДокумента;
        НоваяСтрока.Кредит = 0;
        НоваяСтрока.Договор = Выборка.Док.ДоговорКонтрагента;
    КонецЦикла;
    ТЧ.Сортировать("Дата");
    
КонецПроцедуры

&НаКлиенте
Процедура Доп_ЗаполнитьнепроведеннымиРеализациямиПосле(Команда)
    Доп_ЗаполнитьнепроведеннымиРеализациямиПослеНаСервере();
КонецПроцедуры