Закрытие остатков по оценочным обязательствам (резервам) ЗКГУ

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