Проблема задваивания записей движений в регистр накопления (остатки)

Здравствуйте, возникла Проблема задваивания записей движений в регистр накопления
Вот ОбработкаПроведения документа,
работает для каждой строки табличной части документа в регистр накопления записывается 2 строки - так надо - одна для грузчика, другая для водителя
Вот код:

Процедура ОбработкаПроведения(Отказ, РежимПроведения)

    Движения.ЗарплатаВодителямГрузчикам.Записывать = Истина ;

    //зарплата водителям
    Для Каждого Строка Из Маршруты Цикл
        Движение = Движения.ЗарплатаВодителямГрузчикам.Добавить() ;
        Движение.ВидДвижения=ВидДвиженияНакопления.Приход ;
        Движение.Период = Дата ;
        Движение.Регистратор = Ссылка ;
        Движение.Маршрут = Строка.Маршрут ;
        Движение.Тоннаж = Строка.Тоннаж ;
        Движение.Топливо = Строка.Топливо ;
        Движение.Скорость = Строка.Скорость ;
        Движение.Водитель = Строка.Водитель ;
        Движение.Штраф = Строка.Штраф ;
        Движение.Зарплата = Строка.ЗарплатаВодителю ;
        Движение.Итог = Строка.Топливо + Строка.Скорость + Строка.ЗарплатаВодителю - Строка.Штраф ;

    КонецЦикла ;

    // зарплата грузчикам
    Для Каждого Строка Из Маршруты Цикл

        Если Не Строка.Грузчик.Пустая()Тогда

            Движение = Движения.ЗарплатаВодителямГрузчикам.Добавить() ;
            Движение.ВидДвижения=ВидДвиженияНакопления.Приход ;
            Движение.Период = Дата ;
            Движение.Регистратор = Ссылка ;
            Движение.Маршрут = Строка.Маршрут ;
            Движение.Грузчик = Строка.Грузчик ;
            Движение.Зарплата = Строка.ЗарплатаГрузчику ;
            Движение.Итог = Строка.ЗарплатаГрузчику;
        КонецЕсли ;

      КонецЦикла ;


    Движения.Записать();


КонецПроцедуры

Проблема при проведении бывет записывакется как надо - по 1 строке в регистр, а бывает записывается по 2 строки на каждую фамилию (водителя и грузчика),
кто знает подскажите пожалуйста, спасибо.