Как упорядочить строки в печатной форме по выбору пользователя?

Question

[Alex Gutter]

Уважаемые опытные 1с-ники, прошу помочь. Я только начала осваивать 1с и язык запросов. Пытаюсь решить следующую задачу: строки в печатной форме документа по выбору пользователя должны упорядочиваться:
а) по длине наименования товара,
б) по наименованию товара,
в) по цене.
Листинг модуля менеджера

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

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

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

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

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

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

		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры

Answer 1

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

1) На форме размещаете "Поле переключателя" с вашими вариантами сортировок
2) В вашем тексте запросе вместо "РасходнаяНакладная.Номенклатура.Количество УБЫВ" пишите что-то типа "#РежимСортировки"
3) Чуть ниже делаете, в зависимости от выбранного пользователя режима сортировки, замену в тексте вашей метки на реальное поле с направлением сортировки. Типа:

Если ВариантСортировки = 0 Тогда
  СтрЗаменить(Запрос.Текст, "#РежимСортировки", "РасходнаяНакладная.Номенклатура.Количество УБЫВ");
ИначеЕсли ВариантСортировки = 1 Тогда
  СтрЗаменить(Запрос.Текст, "#РежимСортировки", "РасходнаяНакладная.Номенклатура.Количество ВОЗР");
КонецЕсли;

Comments

[Alex Gutter]

Спасибо большое! Буду пробовать.

[Alex Gutter]

Попробовал ваш вариант, не получается так как у вас. Но нашел другое решение - правда более громоздкое.

Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать");
	Запрос = Новый Запрос;
	Запрос.Текст =
	  "ВЫБРАТЬ
		|	РасходнаяНакладная.Дата,
		|	РасходнаяНакладная.Клиенты,
		|	РасходнаяНакладная.Номер,
		|	РасходнаяНакладная.УпорядочитьПо,
		|	РасходнаяНакладная.Номенклатура.(
		|		НомерСтроки,
		|		Товар,
		|		Цена,
		|		Количество,
		|		Сумма
		|	)
		|ИЗ
		|	Документ.РасходнаяНакладная КАК РасходнаяНакладная
		|ГДЕ
		|	РасходнаяНакладная.Ссылка В (&Ссылка)";
			
	ВариантСортировки = Ссылка[0].УпорядочитьПо;
	
	Если ВариантСортировки = "0" Тогда
  		Запрос.Текст = 
		"ВЫБРАТЬ
		|	РасходнаяНакладная.Дата,
		|	РасходнаяНакладная.Клиенты,
		|	РасходнаяНакладная.Номер,
		|	РасходнаяНакладная.УпорядочитьПо,
		|	РасходнаяНакладная.Номенклатура.(
		|		НомерСтроки,
		|		Товар,
		|		Цена,
		|		Количество,
		|		Сумма
		|	)
		|ИЗ
		|	Документ.РасходнаяНакладная КАК РасходнаяНакладная
		|ГДЕ
		|	РасходнаяНакладная.Ссылка В (&Ссылка)
		|УПОРЯДОЧИТЬ ПО
		|РасходнаяНакладная.Номенклатура.Товар ВОЗР";
	ИначеЕсли ВариантСортировки = "1" Тогда
		Запрос.Текст =
		"ВЫБРАТЬ
		|	РасходнаяНакладная.Дата,
		|	РасходнаяНакладная.Клиенты,
		|	РасходнаяНакладная.Номер,
		|	РасходнаяНакладная.УпорядочитьПо,
		|	РасходнаяНакладная.Номенклатура.(
		|		НомерСтроки,
		|		Товар,
		|		Цена,
		|		Количество,
		|		Сумма
		|	)
		|ИЗ
		|	Документ.РасходнаяНакладная КАК РасходнаяНакладная
		|ГДЕ
		|	РасходнаяНакладная.Ссылка В (&Ссылка)
		|УПОРЯДОЧИТЬ ПО
		|	РасходнаяНакладная.Номенклатура.Цена ВОЗР";
	КонецЕсли;

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

Должно быть:
Запрос.Текст = СтрЗаменить(Запрос.Текст, "#РежимСортировки", "РасходнаяНакладная.Номенклатура.Количество УБЫВ");

[Alex Gutter]

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

Answer 2

[Алексей Беспалов]

Нужно реализовать выбор самого способа сортировки. Это делать команду и перед началом формирования печатной формы показывать диалог с выбором варианта сортировки. Ну или где то на форме расположить реквизит с вариантом сортировки и передавать его в функцию печати. Ну а дальше менять запрос в зависимости от выбранного варианта.

Comments

[Alex Gutter]

Извините, я совсем новичок. Мне бы поподробнее узнать что прописать и в каком модуле.