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

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

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