Как выявить отрицательные остатки номенклатуры по складам и погасить их в 1С

При ведении складского и бухгалтерского учета в программе 1С периодически возникает ситуация, когда по одной и той же номенклатуре на одном складе образуется отрицательный остаток («минус»), а на другом складе находится положительный остаток. Для исправления такой ситуации необходимо сформировать таблицу распределения остатков или автоматически создать документы перемещения (или списания и оприходования).

Рассмотрим подробно, как правильно составить запрос к остаткам номенклатуры, выявить «красные» остатки и распределить их за счет складов-доноров.

Оптимизация источника данных в запросе

В исходном запросе часто используют виртуальную таблицу ОстаткиИОбороты. Однако если нашей задачей является только анализ текущего или конечного сальдо, эффективнее задействовать виртуальную таблицу Остатки на указанную дату. Это существенно снижает нагрузку на базу данных, так как платформе не требуется рассчитывать обороты за период.

Проанализируем базовую структуру запроса к регистру бухгалтерии:

Запрос = Новый Запрос;
Запрос.Текст = 
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ
    |	Остатки.Счет КАК Счет,
    |	Остатки.Субконто1 КАК Номенклатура,
    |	Остатки.Субконто2 КАК Склад,
    |	Остатки.КоличествоОстатокДт КАК Количество
    |ИЗ
    |	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет В ИЕРАРХИИ (&Счет), , Организация = &Организация) КАК Остатки
    |ГДЕ
    |	Остатки.КоличествоОстатокДт <> 0";

Способ 1. Использование итогов и сортировки в запросе

Разберем вариант алгоритма, при котором выгрузка и перекрытие остатков происходят при иерархическом обходе выборки запроса. Для этого добавим предложение ИТОГИ ПО с группировкой по номенклатуре и упорядочим записи по возрастанию количества.

Благодаря сортировке по возрастанию в рамках одной номенклатуры первыми в выборке будут идти склады с отрицательными остатками, а затем — с положительными. Это позволяет удобно сопоставлять данные в цикле.

Запрос.Текст = 
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ
    |	Остатки.Субконто1 КАК Номенклатура,
    |	Остатки.Субконто2 КАК Склад,
    |	Остатки.КоличествоОстатокДт КАК Количество
    |ИЗ
    |	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет В ИЕРАРХИИ (&Счет), , Организация = &Организация) КАК Остатки
    |УПОРЯДОЧИТЬ ПО
    |	Количество ВОЗР
    |ИТОГИ
    |	СУММА(Количество)
    |ПО
    |	Номенклатура";

ВыборкаНоменклатура = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаНоменклатура.Следующий() Цикл
    // Если общий остаток по номенклатуре отрицательный или нет плюсовых складов, пропускаем
    Если ВыборкаНоменклатура.Количество <= 0 Тогда
        // Обработка случая полной недостачи
    КонецЕсли;
    
    ВыборкаСклад = ВыборкаНоменклатура.Выбрать();
    // Обход складов конкретной номенклатуры (сначала минусы, потом плюсы)
    // Размещение логики гашения в памяти или ТЗ
КонецЦикл;

Способ 2. Обработка через две таблицы значений

Рассмотрим алгоритм, когда результат запроса выгружается в две таблицы значений: с отрицательными остатками (склады-приемники) и с положительными остатками (склады-доноры).

1. Выгружаем результат запроса в одну общую таблицу значений.
2. Разделяем данные методом Скопировать() с фильтром по значению количества или через отбор строк.
3. Проходим циклом по таблице отрицательных остатков и находим строки с аналогичной номенклатурой в таблице положительных остатков.
4. Списываем требуемое количество из положительного остатка и уменьшаем потребность в отрицательном остатке. По мере полного погашения удаляем или обнуляем строки во второй таблице.

// Пример логики распределения остатков в коде:
ТЗ_Отрицательные = ТЗ_ВсеОстатки.Скопировать(Новый СтруктурныйОтбор("Количество", МеньшеНуля)); 
ТЗ_Положительные = ТЗ_ВсеОстатки.Скопировать(Новый СтруктурныйОтбор("Количество", БольшеНуля));

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

Важные нюансы при корректировке остатков

Выясним, на что необходимо обратить внимание при автоматическом устранении минус-остатков:

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