"Док=ТекущийДокумент();<br><br><br>ТЗ=СоздатьОбъект("ТаблицаЗначений");<br>ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура");<br>ТЗ.НоваяКолонка("МОЛ", "Справочник.МОЛ");<br>Док.ВыбратьСтроки();<br>Пока Док.ПолучитьСтроку() = 1 Цикл <br> ТЗ.НоваяСтрока();<br> ТЗ.Товар = Док.Товар;<br> ТЗ.Мол=Док.Товар.МОЛ;<br> <br>КонецЦикла;<br><br>ТЗ.Сортировать("МОЛ");<br>ТЗ.ВыбратьСтроки();<br>МОЛ="""";<br>Пока ТЗ.ПолучитьСтроку()=1 Цикл <br> Если ТЗ.МОЛ=МОЛ Тогда<br> Товар=ТЗ.Товар;<br> Таб.ВывестиСекцию("Строка");<br> <br> Иначе<br> МОЛ=ТЗ.Товар.МОЛ; <br> Таб.ВывестиСекцию("МОЛ"); <br> Товар=ТЗ.Товар;<br> Таб.ВывестиСекцию("Строка");<br>КонецЕсли; <br>КонецЦикла;"