Как реализовать алгоритм пропорционального распределения сумм незавершенного производства на готовую продукцию в 1С 7.7?

← На главную

При закрытии производственных счетов и списании затрат незавершенного производства (НЗП) часто возникает задача распределения накопленных сумм затрат на список выпущенной номенклатуры. Главное требование — соблюсти корректные пропорции (по стоимости, объему или смешанной базе), чтобы на дешевые детали не ложились необоснованно крупные суммы, а также полностью исключить расхождение в копейках из-за округления.

Разберем основные подходы к расчету, архитектуру алгоритма для платформы 1С 7.7 и способы обработки типовых исключительных ситуаций.

Вариант 1. Классическое распределение пропорционально стоимости

Рассмотрим базовый математический сценарий: у нас есть общая сумма распределяемых затрат и список выпущенной продукции со своей базовой стоимостью. Доля каждой строки определяется отношением ее стоимости к общей сумме базы.

Чтобы избежать накопления ошибок от промежуточного деления, долю строки не стоит сохранять в отдельную переменную с ограниченной точностью. Рекомендуется вычислять сумму распределения прямым выражением: Окр(СуммаЗатраты * БазаСтроки / ИтогБазы, 2).

Посмотрим на пример кода с использованием объекта ТаблицаЗначений:


// ТЗ_Затраты - таблица с распределяемыми суммами
// ТЗ_Продукция - таблица с выпущенной продукцией (колонки: Номенклатура, Количество, СтоимостьБаза, СуммаСписания)

БазаИтого = ТЗ_Продукция.Итог("СтоимостьБаза");

Если БазаИтого = 0 Тогда
    Предупреждение("Итоговая база для распределения равна нулю!");
    Возврат;
EndIf;

// Обходим каждую распределяемую статью/сумму затрат
ТЗ_Затраты.ВыбратьСтроки();
Пока ТЗ_Затраты.ПолучитьСтроку() = 1 Цикл
    
    СуммаКРаспределению = ТЗ_Затраты.Сумма;
    СуммаНакоплено = 0;
    ВсегоСтрок = ТЗ_Продукция.КоличествоСтрок();
    
    Для Ном = 1 По ВсегоСтрок Цикл
        ТЗ_Продукция.ПолучитьСтрокуПоНомеру(Ном);
        
        Если Ном = ВсегоСтрок Тогда
            // На последнюю строку относим остаток, исключая копейки от округления
            ДоляСтроки = СуммаКРаспределению - СуммаНакоплено;
        Иначе
            ДоляСтроки = Окр(СуммаКРаспределению * ТЗ_Продукция.СтоимостьБаза / БазаИтого, 2);
            СуммаНакоплено = СуммаНакоплено + ДоляСтроки;
        КонецЕсли;
        
        ТЗ_Продукция.СуммаСписания = ТЗ_Продукция.СуммаСписания + ДоляСтроки;
    КонецЦикла;
    
КонецЦикла;

Вариант 2. Смешанная база распределения (учет стоимости и количества)

В реальном производстве возникают ситуации, когда дешевые массовые позиции требуют значительных трудозатрат или накладных расходов. Если распределять затраты только по стоимости, выпуск большого объема дешевой продукции не получит должной доли косвенных расходов.

В таком случае применяется расчет весового коэффициента с учетом двух параметров — объема выпуска и стоимости:

Коэффициент = (Количество / Итог("Количество") + Сумма / Итог("Сумма")) / 2

Разберем по шагам реализацию распределения по смешанной базе:

Рассчитываем общие итоги по колонкам Количество и СтоимостьБаза.
Для каждой позиции вычисляем относительный комбинированный вес.
Суммируем веса и распределяем затраты пропорционально полученным долям.


ИтогКол = ТЗ_Продукция.Итог("Количество");
ИтогСум = ТЗ_Продукция.Итог("СтоимостьБаза");

Если (ИтогКол = 0) Или (ИтогСум = 0) Тогда
    Предупреждение("Невозможно рассчитать смешанную базу: один из итогов равен нулю.");
    Возврат;
КонецЕсли;

// Заполняем весовой коэффициент для каждой строки
ТЗ_Продукция.ВыбратьСтроки();
Пока ТЗ_Продукция.ПолучитьСтроку() = 1 Цикл
    ТЗ_Продукция.Вес = ( (ТЗ_Продукция.Количество / ИтогКол) + (ТЗ_Продукция.СтоимостьБаза / ИтогСум) ) / 2;
КонецЦикла;

ИтогВес = ТЗ_Продукция.Итог("Вес");

// Распределяем затрату
ТЗ_Затраты.ВыбратьСтроки();
Пока ТЗ_Затраты.ПолучитьСтроку() = 1 Цикл
    СуммаКРаспределению = ТЗ_Затраты.Сумма;
    СуммаНакоплено = 0;
    ВсегоСтрок = ТЗ_Продукция.КоличествоСтрок();
    
    Для Ном = 1 По ВсегоСтрок Цикл
        ТЗ_Продукция.ПолучитьСтрокуПоНомеру(Ном);
        
        Если Ном = ВсегоСтрок Тогда
            ДоляСтроки = СуммаКРаспределению - СуммаНакоплено;
        Иначе
            ДоляСтроки = Окр(СуммаКРаспределению * ТЗ_Продукция.Вес / ИтогВес, 2);
            СуммаНакоплено = СуммаНакоплено + ДоляСтроки;
        КонецЕсли;
        
        ТЗ_Продукция.СуммаСписания = ТЗ_Продукция.СуммаСписания + ДоляСтроки;
    КонецЦикла;
КонецЦикла;

Обработка копеек и погрешностей округления

Проблема «потерянных копеек» является критической для бухгалтерского учета. Если относить погрешность строго на последнюю строку таблицы, а в ней окажется позиция с мизерным выпуском, искажение себестоимости по этой номенклатуре может стать существенным.

Проанализируем оптимальные методы списания разницы округления:

Списание на строку с максимальной базой: перед распределением находим строку с наибольшей суммой или объемом и относим разницу округления на нее. Для крупной позиции добавление 1–2 копеек практически не влияет на удельную себестоимость.
Метод наибольших остатков: распределение целых частей копеек по позициям с наибольшими дробными остатками при делении.

Важные практические нюансы при работе в 1С 7.7

Предварительная свертка данных: если распределение затрат производится по разрезам (например, сч. 20 и сч. 43 с разными субконто), перед циклом распределения таблицы следует агрегировать с помощью метода Свернуть() по ключевым аналитикам. Это существенно повышает скорость расчета.
Нулевая или отрицательная база: обязательно проверяйте итоговое значение базы перед делением. Отрицательные суммы (например, возникшие из-за сторно) необходимо исключать из базы распределения во избежание искажения финансовых результатов.
Альтернативные базы: если фактическая стоимость выпуска на момент расчета еще не сформирована, в качестве устойчивой расчетной базы используйте плановую себестоимость либо данные списания прямых материалов по спецификациям.