Остатки отпусков

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

Процедура ВвестиИсправление(СтрокаДереваЗначений) Экспорт
	
 Для Каждого РабочийГод Из СтрокаДереваЗначений.Строки Цикл
    	Если Не РабочийГод.ОтредактированоВручную Или РабочийГод.ВведеныОстатки Тогда
    		Продолжить;
		КонецЕсли;
		
		НаборЗаписей       = РегистрыНакопления.ФактическиеОтпускаОрганизаций.СоздатьНаборЗаписей();
		ФактическиеОтпуска = НаборЗаписей.ВыгрузитьКолонки();
		
    	РезультатПоиска  = мПодсистема.РегистрыСведений.ВидыЕжегодныхОтпусков.НайтиСтроки(Новый Структура("Использование", Истина));
    	Для Каждого ВидОтпуска Из РезультатПоиска Цикл
			КоличествоДней = (РабочийГод["ВидОтпуска_ОстатокДней_" + ВидОтпуска.Идентификатор] - РабочийГод["ВидОтпуска_ОстатокДней_" + ВидОтпуска.Идентификатор + "_СтароеЗначение"]);
    		Если РабочийГод["ВидОтпуска_КоличествоДнейЗаПолныйГод_" + ВидОтпуска.Идентификатор] = 0 Или КоличествоДней = 0 Тогда
    			Продолжить;
			КонецЕсли;
			
			Запись = ФактическиеОтпуска.Добавить();
			
			Запись.ВидЕжегодногоОтпуска = ВидОтпуска.ВидЕжегодногоОтпуска;  
			Запись.Сотрудник            = СтрокаДереваЗначений.Сотрудник;
			Запись.Количество           = -КоличествоДней;
			
			Запись.ДатаОкончания        = РабочийГод.РабочийГодПо;
			Запись.ДатаРегистрации      = ДатаАктуальности;
			Запись.Период               = РабочийГод.РабочийГодС;
			
			Запись.Активность           = Истина;
		КонецЦикла;
		
		Если ФактическиеОтпуска.Количество() > 0 Тогда
			
			Если ЗначениеЗаполнено(РабочийГод.ДокументИсправление) Тогда
				ДокументИсправление = РабочийГод.ДокументИсправление.ПолучитьОбъект();
			Иначе
				ИДКонфигурации  = РегламентированнаяОтчетность.ИДКонфигурации();
               	Если ИДКонфигурации = "ЗУП" Тогда 
				    ДокументИсправление      = Документы.КорректировкаЗаписейРегистровНакопления.СоздатьДокумент();
				ИначеЕсли ИДКонфигурации = "УПП" Тогда 
				    ДокументИсправление      = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
				КонецЕсли;	
				ДокументИсправление.Дата = РабочийГод.РабочийГодС;
				
				ДокументИсправление.УстановитьНовыйНомер();
				
				НоваяСтрока = ДокументИсправление.ТаблицаРегистровНакопления.Добавить();
	 			НоваяСтрока.Имя           = "ФактическиеОтпускаОрганизаций";
	 			НоваяСтрока.Представление = "Фактические отпуска организаций";
				
				//ДокументИсправление.ОбменДанными.Загрузка = Истина;
				//ДокументИсправление.Записать();
			КонецЕсли;
			
			НаборЗаписей = РегистрыНакопления.ФактическиеОтпускаОрганизаций.СоздатьНаборЗаписей();
			НаборЗаписей.Отбор.Регистратор.Установить(ДокументИсправление.Ссылка);
			НаборЗаписей.Прочитать();
			
			Для Каждого Запись Из НаборЗаписей Цикл
				Исправление = ФактическиеОтпуска.Найти(Запись.ВидЕжегодногоОтпуска,"ВидЕжегодногоОтпуска");
				Если Исправление = Неопределено Тогда
					ЗаполнитьЗначенияСвойств(ФактическиеОтпуска.Добавить(), Запись);
				Иначе
					Исправление.Количество = Исправление.Количество + Запись.Количество;	
				КонецЕсли;
			КонецЦикла;
			
			ДокументИсправление.Комментарий   = "#Исправление остатков отпусков по работнику " + СтрокаДереваЗначений.Сотрудник + " за период работы с " + Формат(РабочийГод.РабочийГодС, "ДФ=dd.MM.yyyy") + " по " + Формат(РабочийГод.РабочийГодС, "ДФ=dd.MM.yyyy");
			ДокументИсправление.Ответственный = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнойОтветственный");
	    		
			ДокументИсправление.Движения.ФактическиеОтпускаОрганизаций.Загрузить(ФактическиеОтпуска);

			ДокументИсправление.ОбменДанными.Загрузка = Истина;
			ДокументИсправление.Записать();
		КонецЕсли;	
	КонецЦикла;	
    	
КонецПроцедуры