Как вывести на Печать документ с выбранной сортировкой?

Question

[lusamir]

Уважаемые программисты. Я только пытаюсь стать программистом. У меня такой вопрос.
В форме документа сделала сортировку по упорядочиванию товаров по Наименованию и Цене.
Однако при печати выбранная сортировка не срабатывает.
Как сделать, чтобы в печатной форме товар выводился согласно сортировке?

Вот листинг :

Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Клиент.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Клиент.Дата,
| Клиент.Клиенты,
| Клиент.Номер,
| Клиент.Номенклатура.(
| НомерСтроки,
| Товар,
| Цена,
| Количество,
| Сумма
| )
|ИЗ
| Документ.Клиент КАК Клиент
|ГДЕ
| Клиент.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьНоменклатураШапка = Макет.ПолучитьОбласть("НоменклатураШапка");
ОбластьНоменклатура = Макет.ПолучитьОбласть("Номенклатура");
Подвал = Макет.ПолучитьОбласть("Подвал");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьНоменклатураШапка);
ВыборкаНоменклатура = Выборка.Номенклатура.Выбрать();
Пока ВыборкаНоменклатура.Следующий() Цикл
ОбластьНоменклатура.Параметры.Заполнить(ВыборкаНоменклатура);
ТабДок.Вывести(ОбластьНоменклатура, ВыборкаНоменклатура.Уровень());
КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
-----------------------------------------------------------------------------
Листинг процедуры сортировки по Цене и Наименованию:
&НаКлиенте
Процедура СортировкаПоЦене(Команда)
Объект.Номенклатура.Сортировать("Цена");
КонецПроцедуры
&НаКлиенте
Процедура СортировкаПоДлинеНаименования(Команда)
Объект.Номенклатура.Сортировать("Номенклатура");
КонецПроцедуры

Comments

[Sgr_A]

Задание выдано при отклике на вакансию? Можете озвучить задание в первозданном виде?

[lusamir]

Еще раз здравствуйте
Задание звучит следующим образом:
----------------------------------------------------------------------------------
Сделать печатную форму накладной. Строки в печатной форме по выбору пользователя могут быть упорядочены (по возрастанию):

- по длине наименования товара

- по наименованию товара

- по цене
Для решения данного пункта нельзя:

- использовать в запросе конструкцию ДлинаСтроки()

- добавлять реквизит ДлинаНаименования в справочник Товары
----------------------------------------------------------------------------------
Так вот....
По цене и наименованию я сделала.
Не могу сделать по Длине строке
Помогите, пожалуйста

[Sgr_A]

@lusamir

По цене и наименованию я сделала.

Думаю что нет.
Судя по вашему коду, вы сортируете данные в самой ТЧ документа. А у вас сказано, что пользователь должен выбирать:

Строки в печатной форме по выбору пользователя могут быть упорядочены (по возрастанию)

Думаю, нужно перед печатью задать вопрос, получить ответ и уже дальше с ним работать.

[lusamir]

Sgr_A, на форме поставила 2 кнопки Печать - с сортировкой по наименованию
- с сортировкой по цене
Надо ещё одну - с сортировкой по длине наименования

[Sgr_A]

lusamir, думаю что этот вариант тоже не очень красив. Лучше одна команда печати, и перед печатью задавать вопрос, какой вариант сортировки нужен.

[lusamir]

Sgr_A, Прекрасное решение!
И как же его осуществить?

[lusamir]

Но сейчас меня ьольше олнует то - как сделать сортировку по длине наименования....прям головная боль(((

[Sgr_A]

lusamir,

И как же его осуществить?

Мне за вас сделать тестовое задание и потом может за вас на работу выйти?

[lusamir]

Sgr_A, уж не знаю как отблагодарить вас за помощь

Answer 1

[Дмитрий Кинаш]

Вам нужно в запросе использовать секцию "УПОРЯДОЧИТЬ ПО".
Почитайте: https://its.1c.ru/db/v8std/content/412/hdoc

Comments

[Sgr_A]

lusamir, и сложить это с вычислением длины наименования в запросе, либо делать постобработкой данных, после запроса, где будете вычислять длину и потом таблицу по ней сортировать.

[Дмитрий Кинаш]

Sgr_A, постобработка не нужна - достаточно расчета в запросе с помощью строковой функции:

Функция ДлинаСтроки (StringLength)
ДлинаСтроки(<Строка>)
Данная функция получает длину строки.
Строка - Строка. Строка, длину, которой нужно получить.
Возвращаемое значение: Число (длина - 12).

[Sgr_A]

Дмитрий Кинаш,
Дим, почитай в комментариях описание задачи:

Для решения данного пункта нельзя:
- использовать в запросе конструкцию ДлинаСтроки()
- добавлять реквизит ДлинаНаименования в справочник Товары

[Дмитрий Кинаш]

Sgr_A, ну раз нельзя, то что уж тут...

[lusamir]

Дмитрий Кинаш, В задаче есть ограничения:

Для решения данного пункта нельзя:

- использовать в запросе конструкцию ДлинаСтроки()

- добавлять реквизит ДлинаНаименования в справочник Товары

[Дмитрий Кинаш]

lusamir, вы же в курсе, что нарушаете правила данного ресурса? Если бы вы задали вопрос в другом, менее дружественном, разделе, то ваш вопрос давно был бы удален, а вас могли бы забанить.
https://qna.habr.com/help/rules#5.12

Задавайте обезличенные технические вопросы. Например: какие есть варианты отсортировать по длине строки результаты запроса.

И вам тут уже дали ответ: 1) добавляете колонку для длинны, 2) делайте цикл по выгрузке из запроса с расчетом длинны и помещением в нужную колонку, 3) сортируйте по новой колонке

[lusamir]

Дмитрий Кинаш, увы существуют ограничения в условиях задачи такие как:
Для решения данного пункта нельзя:

- использовать в запросе конструкцию ДлинаСтроки()

- добавлять реквизит ДлинаНаименования в справочник Товары

[Дмитрий Кинаш]

lusamir, что именно из моего комментария вы не поняли? Что вы нарушитель и тут запрещено просить помощи для прохождения собеседований или детальное описание реализации задачи с учетом ограничений от вашего потенциального работодателя?

[lusamir]

Про политику форума я правда не знала.
Потому что читала тут и про реализацию, и про задачи новичков.
Теперь знаю и впредь буду осмотрительней

[Дмитрий Кинаш]

lusamir, главное задавайте вопрос не в лоб с описанием задачи, а сфокусируйтесь на проблеме.

Как тут - вам нельзя делать сортировку в запросе, но в печатную форму нужно вывести отсортированным - следовательно сортировка должна быть между этими событиями. И самым быстрым вариантом является выгрузка в таблицу и добавление новой колонки (альтернативы есть - создание копии таблицы и перегонка туда записей, или явные переносы записей на указанный номер строки - но по скорости будет дольше за счет ограничения в выборе алгоритмов сортировки и код будет засорен служебными действиями).

Давно просим у 1С сортировку по произвольному выражению вместо колонки и приводим им подобные примеры (не с длинной названия, а по результату взаимосвязанных полей, например со сложными скидками и налогами), но они упорно отказывают ((

[lusamir]

// Этот код пишу в самой процедуре печати
Таб.Колонки.Добавить("ДлинаТовара");
Для каждого Стр из Таб Цикл
Стр=Таб.Добавить();
Стр.Длина=СтрДлина(Стр.Товар);
Конецикла
\\Запрос где реализуется сортировка по колонке ДлинаТовара

Так?

[Дмитрий Кинаш]

lusamir, похоже, но зачем создавать новые строки?

Таб = Запрос.Выполнить().Выгрузить();
Таб.Колонки.Добавить("ДлинаТовара");
Для каждого Стр из Таб Цикл
    Стр.Длина=СтрДлина(Стр.Товар);
Конецикла;
Таб.Сортировать("ДлинаТовара");

[lusamir]

Дмитрий Кинаш, спасибо Вам.

Answer 2

[Sgr_A]

По описанию вашей задачи (из комментария) Вам, предполагаю, надо:
1. Сделать взаимодействие с пользователем при печати. Чтобы задать ему вопрос, какой метод сортировки нужен, и в зависимости от выбора использовать эти данные дальше;
Пример запроса в поисковике

2. Решить задачу с вычислением длинны наименования в запросе;

Где посмотреть

Статья раз
Статья два

3. Сделать запрос динамичным (изменчивым), в зависимости от выбранного метода сортировки пользователем.

Где посмотреть

Раз
Два
Три