Таб = Новый ТаблицаЗначений;
Таб.Колонки.Добавить("Товар");
Для Каждого СтрокаПартииРаспределения ИЗ СтрокаДереваПартий.Строки Цикл
Стр = Таб.Добавить();
Стр.Товар =СтрокаПартииРаспределения.Номенклатура ;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший