0
mirror1982
23.04.12
✎
14:16
|
Процедура Сформировать()
спр=СоздатьОбъект("Справочник.Номенклатура");
спрК=СоздатьОбъект("Справочник.Контрагенты");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
спрК.ВыбратьЭлементы();
Пока спрК.ПолучитьЭлемент()=1 Цикл
Если спрК.ЭтоГруппа()=0 Тогда
Контрагент=спрК.ТекущийЭлемент();
КонецЕсли;
спр.ВыбратьЭлементы();
Таб.ПрисоединитьСекцию("Строка|Контрагент");
Пока спр.ПолучитьЭлемент()=1 Цикл
Если (спр.ЭтоГруппа()=1)И(спр.Уровень()=1) Тогда
Товары=спр.ТекущийЭлемент();
Таб.ПрисоединитьСекцию("Строка|Столбец");
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
КонецЦикла;
Таб.Показать("Таблица");
КонецПроцедуры
Написано криво, но не суть. Как сделать так, чтобы после прохождения цикла по номенклатуре, после каждого контрагента. В таблице секция перескакивала на следующую строчку?
|
|