Создаю ТЗ с заранее неизвестным количествои колонок (товаров). Как получить итоги начиная с первой строки товаров(пропуская колонки Дата, Номер, Контрагент)?


ТЗ =  Новый ТаблицаЗначений;
   ТЗ.Колонки.Добавить("Дата",,,7);
   ТЗ.Колонки.Добавить("Номер",,,10);
   ТЗ.Колонки.Добавить("Контрагент",,,15);
   
   Номер = "0";
   Пока Выборка.Следующий() Цикл        
       Если Выборка.Номер <> Номер Тогда
           НоваяСтрока = ТЗ.Добавить();
           НоваяСтрока.Дата = Формат(Дата(СокрЛП(Выборка.Дата)), "ДЛФ=Д");
           НоваяСтрока.Номер = СокрЛП(Выборка.Номер);
           НоваяСтрока.Контрагент = СокрЛП(Выборка.Контрагент);
       КонецЕсли;
       НазваниеКолонки = Строка("н"+СокрЛП(Выборка.Номенклатура.Код));
       ОтображениеНазванияКолонки = СокрЛП(Выборка.Номенклатура);
           Если ТЗ.Колонки.Найти(НазваниеКолонки) = Неопределено Тогда
               ТЗ.Колонки.Добавить(НазваниеКолонки,,ОтображениеНазванияКолонки, 15);
               НоваяСтрока[НазваниеКолонки] = Выборка.Количество;
           Иначе
               НоваяСтрока[НазваниеКолонки] = Выборка.Количество;
           КонецЕсли;
       Номер = Выборка.Номер;
   КонецЦикла;
   
   ТабличноеПоле.Очистить();
   ЭлементыФормы.ТабличноеПоле.Значение = ТЗ;
   ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();

ТЗ.Итог("Колонка"), не?

это то да - но не могу догнать как цикл задать правильно по последнюю строку?

точнее колонку

Для й=0 По ТЗ.Колонки.Количество()-1 Цикл
 ТвойИтог=ТЗ.Итог(ТЗ.Колонки[й].Имя);

вообще, правильно стелепатировал?

Для Каждого Колонка из ТЗ.Колонки Цикл
  Если Не Найти(Колонка.Имя,"Дата") >0 И не .... Тогда
     Итог =ТЗ.Итог(Колонка.Имя);
Это если колонок дат несколько.

тут у меня основной тупняк - в том что колонки создаются с названием кодов товара + приставка - тоесть как правильно перебрать именно их?

Заведи префикс, ищи префикс в цикле, если нашел получай итог

префикс начинается с "н"+СокрЛП(Выборка.Номенклатура.Код
вот и прошу по своему коду пример - т.к. сам недодумкуюсь

разобрался:


   ТЗ =  Новый ТаблицаЗначений;
   ТЗ.Колонки.Добавить("Дата",,,7);
   ТЗ.Колонки.Добавить("Номер",,,10);
   ТЗ.Колонки.Добавить("Контрагент",,,15);
   
   Номер = "0";
   Пока Выборка.Следующий() Цикл        
       Если Выборка.Номер <> Номер Тогда
           НоваяСтрока = ТЗ.Добавить();
           НоваяСтрока.Дата = Формат(Дата(СокрЛП(Выборка.Дата)), "ДЛФ=Д");
           НоваяСтрока.Номер = СокрЛП(Выборка.Номер);
           НоваяСтрока.Контрагент = СокрЛП(Выборка.Контрагент);
       КонецЕсли;
       НазваниеКолонки = Строка("н"+СокрЛП(Выборка.Номенклатура.Код));
       ОтображениеНазванияКолонки = СокрЛП(Выборка.Номенклатура);
           Если ТЗ.Колонки.Найти(НазваниеКолонки) = Неопределено Тогда
               ТЗ.Колонки.Добавить(НазваниеКолонки,,ОтображениеНазванияКолонки, 15);
               НоваяСтрока[НазваниеКолонки] = Выборка.Количество;
           Иначе
               НоваяСтрока[НазваниеКолонки] = Выборка.Количество;
           КонецЕсли;
       Номер = Выборка.Номер;
   КонецЦикла;
   
   Для кол = 0 По ТЗ.Колонки.Количество()-1 Цикл
      НоваяСтрока[Кол] = ТЗ.Итог(кол);
   КонецЦикла;

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

   
   НоваяСтрока = ТЗ.Добавить();
   Для кол = 0 По ТЗ.Колонки.Количество()-1 Цикл
      НоваяСтрока[Кол] = ТЗ.Итог(кол);
   КонецЦикла;