7.7 Сортировка ТЗ без сортировки многострочной части. Как сделать?

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

Я здесь ошибок не углядел - не должна сортировка сработать для табличной части документа.<br>Попробуйте поискать "Сортировать" в модуле - возможно сортировка табличной части выполняется, но в другом месте.

"Товар=ТЗ.Товар; //нельзя так... у вас Товар - это идентификатор реквизита табличной части. Надо другой идентификатор использовать, например ТоварНаПечать. Возможно, что визуально вам поэтому и кажется, что табличная часть пересортировывается<br>"

Поменял Товар на Товарр, ничего не поменялось<br>и еще<br>если открыть документ для просмотра то вся печатная форма заполняется товаром который находится в списке первым

сбросьте мне полный текст модуля документа на mirtovv@mail.ru

"Сортировать" больше нигде нету

"Процедура СчётВходящийБезРеквизитов()<br><br> <br> Таб = СоздатьОбъект("Таблица"); <br><br>ВП = Валюта; <br>КурсПечати = Курс;                   <br>ДатаКурса = Дата_Курса;<br><br>Если ПустоеЗначение(Контрагент) = 0 Тогда<br>Если Контрагент.ВидКонтрагента <> Перечисление.ВидыКонтрагентов.Нерезидент Тогда<br>Если ТипУчета > 0 Тогда<br>ВП = Гривня; <br>КурсПечати = глКурсДляВалюты(ВП,ДатаДок);                   <br>ДатаКурса = ДатаДок;<br>КонецЕсли; <br>КонецЕсли; <br>КонецЕсли; <br><br>ПечФорма = "СчётВходящийБезРеквизитов";<br>Язык = глЯзык(ПечФорма); <br>Таб.ИсходнаяТаблица(ПечФорма);<br>глУстПропись(Валюта,Язык);<br><br>Фирма.ИспользоватьДату(ДатаДок,1);<br>Таб.ВывестиСекцию("Шапка");<br><br>Док=ТекущийДокумент();<br><br><br>ТЗ=СоздатьОбъект("ТаблицаЗначений");<br>ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура");<br>ТЗ.НоваяКолонка("МОЛ", "Справочник.МОЛ");<br>ТЗ.НоваяКолонка("КОЛ"); <br>ТЗ.НоваяКолонка("КОД");<br>ТЗ.НоваяКолонка("АРТ"); <br>ТЗ.НоваяКолонка("ЕД"); <br>ТЗ.НоваяКолонка("Цена");<br>Док.ВыбратьСтроки();<br>Пока Док.ПолучитьСтроку() = 1 Цикл <br> ТЗ.НоваяСтрока();<br> ТЗ.Товар = Док.Товар;<br> ТЗ.Мол=Док.Товар.МОЛ;<br> ТЗ.КОЛ=Формат(Док.Количество,"Ч12.2");<br> ТЗ.АРТ=Док.Товар.Артикул;<br> ТЗ.КОД=Док.Товар.Код; <br> ТЗ.ЕД=Док.Единица; <br> ТЗ.Цена=Формат(Док.ЦенаСНДС,"Ч12.2");<br>КонецЦикла;<br><br>ТЗ.Сортировать("МОЛ");<br>ТЗ.ВыбратьСтроки();<br>МОЛ="""";<br>Пока ТЗ.ПолучитьСтроку()=1 Цикл <br> Если ТЗ.МОЛ=МОЛ Тогда<br> Товар=ТЗ.Товар; <br> Код=Товар.Код; <br> Кол=ТЗ.КОЛ; <br> Арт=ТЗ.АРТ;<br> Код=ТЗ.Код; <br> Ед=ТЗ.ЕД;<br> Цена=ТЗ.Цена;<br> ИмяФайла=(Товар.Код); <br> ИмяКаталога = ("E:\1с\Склад\foto\small\");<br> Если ФС.СуществуетФайл(ИмяКаталога + ИмяФайла + ".jpg")=0 Тогда <br> Фото="""";<br>Иначе; <br>Фото="+";<br>КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br> <br> Иначе<br> МОЛ=ТЗ.Товар.МОЛ; <br> Таб.ВывестиСекцию("МОЛ"); <br> Товар=ТЗ.Товар; <br> Код=Товар.Код; <br> Кол=ТЗ.КОЛ; <br> Арт=ТЗ.АРТ;<br> Код=ТЗ.Код;<br> Ед=ТЗ.ЕД;<br> Цена=ТЗ.Цена;<br> ИмяФайла=(Товар.Код); <br> ИмяКаталога = ("E:\1с\Склад\foto\small\");<br> Если ФС.СуществуетФайл(ИмяКаталога + ИмяФайла + ".jpg")=0 Тогда <br> Фото="""";<br>Иначе; <br>Фото="+";<br>КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br>КонецЕсли; <br>КонецЦикла;<br><br><br><br><br>Таб.ТолькоПросмотр(1);<br>Таб.Защита(Константа.ФлагЗащитыТаблиц);<br>Таб.Опции(0,0,,);<br>Таб.Показать("ПЕЧАТЬ: Счёт входящий","""");<br><br>КонецПроцедуры<br>"

Сори не там исправил, теперь заработало!<br>Всем спасибо!

"1. Док=ТекущийДокумент(); // - убрать<br><br>2.<br>Док.ВыбратьСтроки();<br>Пока Док.ПолучитьСтроку() = 1 Цикл <br> ТЗ.НоваяСтрока();<br> ТЗ.Товар = Док.Товар;<br> ТЗ.Мол=Док.Товар.МОЛ;<br> ТЗ.КОЛ=Формат(Док.Количество,"Ч12.2");<br> ТЗ.АРТ=Док.Товар.Артикул;<br> ТЗ.КОД=Док.Товар.Код; <br> ТЗ.ЕД=Док.Единица; <br> ТЗ.Цена=Формат(Док.ЦенаСНДС,"Ч12.2");<br>КонецЦикла;<br><br>поменять на<br>ВыбратьСтроки();<br>Пока ПолучитьСтроку() = 1 Цикл <br> ТЗ.НоваяСтрока();<br> ТЗ.Товар = Товар;<br> ТЗ.Мол=Товар.МОЛ;<br> ТЗ.КОЛ=Формат(Количество,"Ч12.2");<br> ТЗ.АРТ=Товар.Артикул;<br> ТЗ.КОД=Товар.Код; <br> ТЗ.ЕД=Единица; <br> ТЗ.Цена=Формат(ЦенаСНДС,"Ч12.2");<br>КонецЦикла;<br><br>3.<br>...<br>Если ТЗ.МОЛ=МОЛ Тогда<br>Товар=ТЗ.Товар; <br>Код=Товар.Код; <br><br>НЕ ИСПОЛЬЗОВАТЬ в качестве идентификаторов переменных идентификаторы реквизитов!! Что за "Товар" тут снова?"

а как сделать что бы печатать по конкретному МОЛ?<br>что бы МОЛ выбирать перед печатью