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

← На главную

При разработке алгоритмов занесения данных из одной группы документов в другой часто возникают ошибки, связанные с неверной логикой работы циклов или отсутствием промежуточных структур данных. В 1С 7.7 одна из распространенных проблем — перезапись значений переменных в цикле обхода строк документов, из-за чего в итоговый расчет попадает только значение из последней строки последнего документа.

Рассмотрим, в чем заключается эта проблема, проанализируем ошибки в коде и разберем правильные способы заполнения табличных частей.

Анализ частой ошибки при переборе документов

Проанализируем типичный фрагмент кода, в котором выполняется попытка получить количество и адреса из существующих документов:


Док = СоздатьОбъект("Документ.Перерасчет");
Док.ВыбратьДокументы(НачМесяца(Дата1), КонМесяца(Дата2));            
Пока Док.ПолучитьДокумент() > 0 Цикл
    Если Док.Проведен() = 0 Тогда
        Продолжить;
    КонецЕсли;          
    Док.ВыбратьСтроки();
    Пока Док.ПолучитьСтроку() = 1 Цикл                   
        Количество = Док.Количество; // Ошибка: переменная постоянно перезаписывается!
    КонецЦикла;
КонецЦикла;

В чем заключается ошибка? При выполнении внутреннего цикла по строкам Док.ПолучитьСтроку() переменная Количество перезаписывается на каждом шаге. После завершения циклов в ней останется только значение последней строки последнего прочитанного документа. Итоговый расчет с использованием этой переменной будет некорректным.

Варианты правильной реализации

Способ 1. Использование промежуточной Таблицы Значений

Если необходимо обработать данные табличной части документа-источника, оптимальным подходом является выгрузка данных во временную структуру с помощью ТаблицаЗначений, ее сводка и последующее заполнение целевой табличной части.

Выгружаем табличную часть источника во временную таблицу значений через ВыгрузитьТабличнуюЧасть().
Сворачиваем или обрабатываем данные в таблице значений по необходимым разрезам (например, по лицевому счету или адресу).
Загружаем полученный результат в текущий документ или заполняем его построчно.

Рассмотрим пример формирования структуры и заполнения через объект ТаблицаЗначений:


ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
ТабЗнач.НоваяКолонка("Адрес");
ТабЗнач.НоваяКолонка("Количество");
ТабЗнач.НоваяКолонка("Сумма");

// Наполнение таблицы значений из обработанных документов
Док = СоздатьОбъект("Документ.Перерасчет");
Док.ВыбратьДокументы(НачМесяца(Дата1), КонМесяца(Дата2));

Пока Док.ПолучитьДокумент() = 1 Цикл
    Если (Док.Проведен() = 0) Или (Док.ПометкаУдаления() = 1) Тогда
        Продолжить;
    КонецЕсли;
    
    Док.ВыбратьСтроки();
    Пока Док.ПолучитьСтроку() = 1 Цикл
        ТабЗнач.НоваяСтрока();
        ТабЗнач.Адрес = Док.Адрес;
        ТабЗнач.Количество = Док.Количество;
        ТабЗнач.Сумма = Док.Сумма;
    КонецЦикла;
КонецЦикла;

// Группируем показатели по адресу
ТабЗнач.Свернуть("Адрес", "Количество, Сумма");

// Переносим собранные данные в табличную часть формы
ТабЛС.УдалитьСтроки();
ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку() = 1 Цикл
    ТабЛС.НоваяСтрока();
    ТабЛС.Адрес = ТабЗнач.Адрес;
    ТабЛС.Количество = ТабЗнач.Количество;
    ТабЛС.Сумма = ТабЗнач.Сумма;
КонецЦикла;

Способ 2. Использование языка запросов 1С 7.7

Для повышения производительности при работе с большим объемом данных за период рекомендуется отказаться от последовательного перебора методом ВыбратьДокументы() в пользу встроенного языка запросов.

Преимущество запроса заключается в том, что платформа сразу выполняет фильтрацию по состоянию проведения, виду документа и группирует данные на уровне выборки.


Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = 
"//{{ЗАПРОС(Сформировать)
|Период с (НачМесяца(Дата1)) по (КонМесяца(Дата2));
|Адрес = Документ.Перерасчет.Адрес;
|Количество = Документ.Перерасчет.Количество;
|Сумма = Документ.Перерасчет.Сумма;
|Функция ВсегоКоличество = Сумма(Количество);
|Функция ВсегоСумма = Сумма(Сумма);
|Группировка Адрес без групп;
|Условие(Документ.Перерасчет.Комментарий = ""Начало отопительного периода"");
|"//}}ЗАПРОС
;

Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
    ТабЛС.УдалитьСтроки();
    Пока Запрос.Группировка("Адрес") = 1 Цикл
        ТабЛС.НоваяСтрока();
        ТабЛС.Адрес = Запрос.Адрес;
        ТабЛС.Количество = Запрос.ВсегоКоличество;
        ТабЛС.Сумма = Запрос.ВсегоСумма;
    КонецЦикла;
КонецЕсли;

Способ 3. Штатный механизм "Ввод на основании"

Если требуется заполнить новый документ на основании только одного конкретного документа, логичнее использовать штатный механизм конфигуратора:

В конфигураторе для создаваемого документа добавить реквизит ДокументОснование соответствующего типа.
В свойствах документа включить флаг "Ввод на основании" и выбрать документ-источник.
В модуле документа написать предопределенную процедуру ВводНаОсновании(ДокОснование), в которой перенести реквизиты и строки табличной части через ВыгрузитьТабличнуюЧасть() или построчным перебором.

Выбор конкретного решения зависит от задачи: для консолидации нескольких документов за период подходят Запросы и Таблицы Значений, а для переноса данных один-к-одному — штатный Ввод на основании.