Создание одной сводной реализации в день на конец дня

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	// Добвляем команду формы
	НоваяКоманда = ЭтаФорма.Команды.Добавить("Обработать");
	// Свойство "Действие" содержит имя процедуры-обработчика команды
	НоваяКоманда.Действие = "Обработать";
	
	
	НовыйЭлемент = Элементы.Добавить("КомандаОбработать", Тип("КнопкаФормы"));
	НовыйЭлемент.ИмяКоманды = "Обработать";	
	
	КонтрагентРП=Справочники.Контрагенты.НайтиПоНаименованию("Розничный покупатель",Истина);
	РозничныйПокупатель=КонтрагентРП.Ссылка;	
КонецПроцедуры

&НаКлиенте
Процедура Обработать(Элемент)
	
	Если НЕ ЗначениеЗаполнено(ДатаНач) Тогда
		Сообщить("Не заполнена дата начала!");
		Возврат;
	КонецЕсли;
	Если НЕ ЗначениеЗаполнено(ДатаКон) Тогда
		Сообщить("Не заполнена дата конца!");
		Возврат;
	КонецЕсли;
	Если ДатаНач>ДатаКон Тогда
		Сообщить("Начальная дата превышает конечкую!");
		Возврат;
	КонецЕсли;

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

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