v8: БП 2.0 Закрытие счета 25 ((( не закрывается, разные подразделения с 20

Я решал эту задачу путем быдлокодинга - внес изменения в процедуру РаспределитьОПРиОХРПроводки():

Процедура РаспределитьОПРиОХРПроводки(Обход,мБазаКоэффициентов,ОбщепроизводственныеРасходы,ИмяРеквБазы,СтруктураДопПараметров,СтруктураШапкиДокумента,мКэшВидовСубконтоСчета,РаспределениеВыполнено)

    ЗаписьРасчетаКосвенныхРасходов = СтруктураДопПараметров.ЗаписьРасчетаКосвенныхРасходов;

    СтруктПоиска = Новый Структура;

    Если (Обход.Сумма = 0 Или Обход.Сумма = NULL) И (Обход.СуммаНУ = 0 Или Обход.СуммаНУ = NULL) И (Обход.СуммаПР = 0 Или Обход.СуммаПР = NULL) И (Обход.СуммаВР = 0 Или Обход.СуммаВР = NULL) Тогда
        Возврат;
    КонецЕсли;

    СтруктПоиска.Очистить();
    ФлагПоВсейБазе = НЕ ОбщепроизводственныеРасходы;

    ВсегоБазаРаспределения   = 0;
    ВсегоБазаРаспределенияНУ = 0;

    Если ФлагПоВсейБазе Тогда
        Для Каждого СтрКоэф Из мБазаКоэффициентов Цикл
            Если ЗначениеЗаполнено(СтрКоэф.ПодразделениеКт) Тогда
                Если Не Обход.Подразделение = СтрКоэф.ПодразделениеКт Тогда
                    Продолжить;
                КонецЕсли;
            КонецЕсли;
            ВсегоБазаРаспределения = ВсегоБазаРаспределения   + СтрКоэф["База" + ИмяРеквБазы];
            ВсегоБазаРаспределенияНУ = ВсегоБазаРаспределенияНУ + СтрКоэф["База" + ИмяРеквБазы + "НУ"];
        КонецЦикла;
        НаборСтрок = мБазаКоэффициентов;

    Иначе
        // --->>
        ПодразделениеЗатрат = Обход.Подразделение;
        Если Обход.СчетЗатрат=ПланыСчетов.Хозрасчетный.ОбщепроизводственныеРасходы Тогда
            Если ЗначениеЗаполнено(Обход.Подразделение) Тогда
                ОтборМетодыРаспределения = Новый Структура("Организация, СчетЗатрат, Подразделение");
                ОтборМетодыРаспределения.Вставить("Организация", Организация);
                ОтборМетодыРаспределения.Вставить("СчетЗатрат", Обход.СчетЗатрат);
                ОтборМетодыРаспределения.Вставить("Подразделение", Обход.Подразделение);
                МетодыРаспределения = РегистрыСведений.МетодыРаспределенияКосвенныхРасходовОрганизаций.СрезПоследних(НачалоМесяца(Дата), ОтборМетодыРаспределения);
                Если НЕ МетодыРаспределения.Количество()=0 Тогда
                    Если ЗначениеЗаполнено(МетодыРаспределения[0].ПодразделениеЗатрат) Тогда
                        ПодразделениеЗатрат = МетодыРаспределения[0].ПодразделениеЗатрат;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
        // <<---

        СтруктПоиска.Вставить("Подразделение", ПодразделениеЗатрат); // <<->>