andreyparmuzin
Андрей Пармузин

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

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

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