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