v7: Убрать в проводках регистр партии

Добрый день! Такая ситуация. ПУБ Вернули сырье поставщику на сумму 10 350, перед ним долг почти миллион. Программа делает проводки:
10.1/60.1 - 10 319
60.1/91.1 - 30

Полез смотреть в общий модуль, а там сумма берется из регистра партии, который уже года 4 как заброшен, не используется.

    СуммаНеоплаченногоВозврата = 0;
    СуммаОплаченногоВозврата = 0;

    РасчетыСПоставщиками = СоздатьОбъект("Регистр.РасчетыСПоставщиками");
    РасчетыСПоставщиками.ВыбратьДвиженияДокумента(Док);
    Пока РасчетыСПоставщиками.ПолучитьДвижение() = 1 Цикл

        Если РасчетыСПоставщиками.КодОперации = КО.ВозвратПоставщикуНеоплаченногоТовара Тогда

            СуммаНеоплаченногоВозврата = СуммаНеоплаченногоВозврата + РасчетыСПоставщиками.Долг;

        ИначеЕсли РасчетыСПоставщиками.КодОперации = КО.ВозвратПоставщикуОплаченногоТовара Тогда

            СуммаОплаченногоВозврата = СуммаОплаченногоВозврата + РасчетыСПоставщиками.Долг;

        КонецЕсли;

    КонецЦикла; // РасчетыСПоставщиками.ПолучитьДвижение() = 1

    Если СуммаОплаченногоВозврата + СуммаНеоплаченногоВозврата = 0 Тогда
        КоэффициентОплаченногоВозврата = 0;
    Иначе
        КоэффициентОплаченногоВозврата = СуммаОплаченногоВозврата/(СуммаОплаченногоВозврата + СуммаНеоплаченногоВозврата);
    КонецЕсли;

    ИтогСуммаСписанияМПЗоплач = 0;
    ИтогСуммаСписанияМПЗнеоплач = 0;
    ИтогСуммаСписанияМПЗ_НУ = 0;

    Партии = СоздатьОбъект("Регистр.Партии");
    Партии.ВыбратьДвиженияДокумента(Док);
    Пока Партии.ПолучитьДвижение() = 1 Цикл

        ВидМПЗ = Партии.ВидМПЗ;
        МПЗ = Партии.МПЗ;
        СчетУчетаМПЗ = глПолучитьСчетУчетаМПЗ(МПЗ);

        Если Партии.ВидМПЗ = Перечисление.ВидыМПЗ.Товары Тогда
            НомерЖурналаМПЗ = "ТВ";
            СтрокаМПЗ = "товаров";
            СодержаниеПроводки = "Возврат товаров";
        ИначеЕсли Партии.ВидМПЗ = Перечисление.ВидыМПЗ.Материалы Тогда
            НомерЖурналаМПЗ = "МТ";
            СтрокаМПЗ = "материалов";
            СодержаниеПроводки = "Возврат материалов";
        КонецЕсли;

СуммаОплач = КоэффициентОплаченногоВозврата*Партии.Сумма;
СуммаНеоплач = Партии.Сумма - СуммаОплач;

Как тут можно поступить, отвязаться от регистра партии?
Думал сделать так:
        СуммаОплач = СуммаОплаченногоВозврата;
        СуммаНеоплач = СуммаНеоплаченногоВозврата;

Или все таки нужно мучить регистр партии???
Спасибо!