Заполнение РС ЗаработанныеПраваНаОтпуск

	
       Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|	ПриемНаРаботу.Сотрудник КАК Сотрудник,
	|	ПриемНаРаботу.ДатаПриема КАК ДатаПриема,
	|   ДобавитьКДате(ДатаПриема, Год, 1) КАК ДатаУвольнения,
	|	ПриемНаРаботуЕжегодныеОтпуска.ВидЕжегодногоОтпуска КАК ВидЕжегодногоОтпуска,
	|	ПриемНаРаботуЕжегодныеОтпуска.КоличествоДнейВГод КАК КоличествоДнейВГод
	|ИЗ
	|	Документ.ПриемНаРаботу.ЕжегодныеОтпуска КАК ПриемНаРаботуЕжегодныеОтпуска
	|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриемНаРаботу КАК ПриемНаРаботу
	|		ПО ПриемНаРаботуЕжегодныеОтпуска.Ссылка.Сотрудник = ПриемНаРаботу.Сотрудник
	|ГДЕ
	|	ПриемНаРаботу.Сотрудник.Наименование ПОДОБНО ""%Рыжаков%""";
	Результат = Запрос.Выполнить();
	
	Выборка = Результат.Выбрать();
	
	
	
	НаборЗаписей = РегистрыСведений.it_Logika_Рыжаков_ЗаработанныеПраваНаОтпуска_Дубль.СоздатьНаборЗаписей();
	
	Пока Выборка.Следующий() Цикл
		
		
		НоваяЗапись = НаборЗаписей.Добавить();
		
		НоваяЗапись.Период = Выборка.ДатаПриема + (86400*15);
		
		НоваяЗапись.Сотрудник = Выборка.Сотрудник;
		
		НоваяЗапись.ВидЕжегодногоОтпуска = Выборка.ВидЕжегодногоОтпуска;
		
		НоваяЗапись.КоличествоДней = Выборка.КоличествоДнейВГод/12;
		
		НоваяЗапись.ДатаНачала = Выборка.ДатаПриема;
		
		НоваяЗапись.ДатаОкончания = Выборка.ДатаУвольнения - 86400;
		
		НоваяЗапись.КоличествоДнейЗаПериод = Выборка.КоличествоДнейВГод/12;
		
	КонецЦикла;
	
		НаборЗаписей.Записать();