// Сторнирование выработки исполнителей работ
//+МВ 29.10.2021 в Движения документа добавил РН ВыработкаСотрудников
Процедура СторнироватьВыработкуИсполнителей(ДокументСсылка, ВалютаУпр, ВалютаРегл, КурсРегл)
   Если Работы.Количество() = 0 Или Не СторнироватьВыработкуИсполнителей Тогда
      Возврат;
   КонецЕсли;
   
   // получим шапку документа
   ШапкаДокумента = ПолучитьШапкуДокумента(ДокументСсылка);
   
   НаборЗаписейВыработкаСотрудников = Движения.ВыработкаСотрудников;
        
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |   ВыработкаСотрудников.Сотрудник,
   |   ВыработкаСотрудников.Работа,
   |   ВыработкаСотрудников.ВидРемонта,
   |   ВыработкаСотрудников.Цех,
   |   ВыработкаСотрудников.Автомобиль,
   |   ВыработкаСотрудников.Количество,
   |   ВыработкаСотрудников.СуммаУпр,
   |   ВыработкаСотрудников.СуммаУпрСоСкидкой,
   |   ВыработкаСотрудников.ХозОперация
   |ИЗ
   |   РегистрНакопления.ВыработкаСотрудников КАК ВыработкаСотрудников
   |ГДЕ
   |   ВыработкаСотрудников.Регистратор = &ЗаказНаряд
   |
   |УПОРЯДОЧИТЬ ПО
   |   ВыработкаСотрудников.НомерСтроки";
   Запрос.УстановитьПараметр("ЗаказНаряд", ДокументОснование);
   тзВыработкаСотрудников = Запрос.Выполнить().Выгрузить();
        
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |   ЗаказНарядИсполнители.Исполнитель,
   |   ЗаказНарядИсполнители.Цех,
   |   СУММА(ЗаказНарядИсполнители.Процент) КАК Процент,
   |   ЗаказНарядРаботы.Работа
   |ИЗ
   |   Документ.ЗаказНаряд.Исполнители КАК ЗаказНарядИсполнители
   |      ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ЗаказНаряд.Работы КАК ЗаказНарядРаботы
   |      ПО ЗаказНарядИсполнители.ИдентификаторРаботы = ЗаказНарядРаботы.ИдентификаторРаботы
   |ГДЕ
   |   ЗаказНарядИсполнители.Ссылка = &ЗаказНаряд
   |
   |СГРУППИРОВАТЬ ПО
   |   ЗаказНарядИсполнители.Исполнитель,
   |   ЗаказНарядИсполнители.Цех,
   |   ЗаказНарядРаботы.Работа";
   Запрос.УстановитьПараметр("ЗаказНаряд", ДокументОснование);
   ТаблицаИсполнителей=Запрос.Выполнить().Выгрузить();
   Для каждого СтрокаТЧ Из Работы Цикл
      СтрокиТаблицаИсполнителей = ТаблицаИсполнителей.НайтиСтроки(Новый Структура("Работа", СтрокаТЧ.Работа));
      Для каждого СтрокаИсполнителя Из СтрокиТаблицаИсполнителей Цикл
         Количество        = СтрокаТЧ.КоличествоРазница * СтрокаИсполнителя.Процент;
         СуммаУпр          = обПересчет(СтрокаТЧ.СуммаВсегоРазница, ВалютаДокумента, КурсДокумента, ВалютаУпр, КурсВалютыУпр) * СтрокаИсполнителя.Процент;
         СуммаУпрСоСкидкой = СуммаУпр + обПересчет(СтрокаТЧ.СуммаСкидкиРазница, ВалютаДокумента, КурсДокумента, ВалютаРегл, КурсРегл) * СтрокаИсполнителя.Процент;
         Если Количество >= 0 Или (Количество = 0 И СуммаУпр = 0) Тогда
            Продолжить;   // Для сторнирования выработки годится только отрицательная разница между количеством документа и заказ-наряда
         КонецЕсли; 
         Количество         = -Количество;
         СуммаУпр           = -СуммаУпр;
         СуммаУпрСоСкидкой  = -СуммаУпрСоСкидкой;
         СтрокиВыработкаСотрудников = тзВыработкаСотрудников.НайтиСтроки(Новый Структура("Сотрудник, Работа", СтрокаИсполнителя.Исполнитель , СтрокаТЧ.Работа));
         НоваяЗаписьВыработкаСотрудников = Неопределено;
         Для каждого СтрокаВыработкаСотрудников Из СтрокиВыработкаСотрудников Цикл
            Если Количество <= 0 Тогда Прервать; КонецЕсли;
            НоваяЗаписьВыработкаСотрудников = НаборЗаписейВыработкаСотрудников.Добавить();
            НоваяЗаписьВыработкаСотрудников.Период            = ШапкаДокумента.Дата;
            НоваяЗаписьВыработкаСотрудников.Регистратор       = ШапкаДокумента.Ссылка;
            НоваяЗаписьВыработкаСотрудников.Сотрудник         = СтрокаВыработкаСотрудников.Сотрудник;
            НоваяЗаписьВыработкаСотрудников.Работа            = СтрокаВыработкаСотрудников.Работа;
            НоваяЗаписьВыработкаСотрудников.ВидРемонта        = СтрокаВыработкаСотрудников.ВидРемонта;
            НоваяЗаписьВыработкаСотрудников.Цех               = СтрокаВыработкаСотрудников.Цех;
            НоваяЗаписьВыработкаСотрудников.Автомобиль        = СтрокаВыработкаСотрудников.Автомобиль;
            НоваяЗаписьВыработкаСотрудников.Количество        = -Мин(СтрокаВыработкаСотрудников.Количество, Количество);
            НоваяЗаписьВыработкаСотрудников.СуммаУпр          = СтрокаВыработкаСотрудников.СуммаУпр    * НоваяЗаписьВыработкаСотрудников.Количество/СтрокаВыработкаСотрудников.Количество;
            НоваяЗаписьВыработкаСотрудников.СуммаУпрСоСкидкой = СтрокаВыработкаСотрудников.СуммаУпрСоСкидкой * НоваяЗаписьВыработкаСотрудников.Количество/СтрокаВыработкаСотрудников.Количество;
            НоваяЗаписьВыработкаСотрудников.ХозОперация       = ШапкаДокумента.ХозОперация;
            Количество        = Количество            - (-НоваяЗаписьВыработкаСотрудников.Количество);
            СуммаУпр          = СуммаУпр              - (-НоваяЗаписьВыработкаСотрудников.СуммаУпр);
            СуммаУпрСоСкидкой = СуммаУпрСоСкидкой     - (-НоваяЗаписьВыработкаСотрудников.СуммаУпрСоСкидкой);
         КонецЦикла;
      КонецЦикла;
   КонецЦикла; 
КонецПроцедуры