10vital08
17.02.2017, 16:11
Добрый день!
Ситуация такая:
я хочу организовать сортировку строк в печатной форме документа по выбору пользователя, а именно по: наименованию номенклатуры, длине наименования номенклатуры.
Подскажите пожалуйста, что для этого нужно сделать?
Вот исходный модуль печати:
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печат� �)
Макет = Документы.Реализация_товар ов.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Реализация_товаров.Дата,
| Реализация_товаров.Контраг ент,
| Реализация_товаров.Номер,
| Реализация_товаров.Товары.(
| НомерСтроки,
| Номенклатура,
| Количество,
| Цена,
| Сумма
| )
|ИЗ
| Документ.Реализация_товаро в КАК Реализация_товаров
|ГДЕ
| Реализация_товаров.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать() ;
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
ТабДок.Очистить();
ВставлятьРазделительСтран иц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтран иц Тогда
ТабДок.ВывестиГоризонталь� �ыйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаго ловок);
Шапка.Параметры.Заполнить(� �ыборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТова рыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.За полнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТова ры, ВыборкаТовары.Уровень());
КонецЦикла;
ВставлятьРазделительСтран иц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Ситуация такая:
я хочу организовать сортировку строк в печатной форме документа по выбору пользователя, а именно по: наименованию номенклатуры, длине наименования номенклатуры.
Подскажите пожалуйста, что для этого нужно сделать?
Вот исходный модуль печати:
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печат� �)
Макет = Документы.Реализация_товар ов.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Реализация_товаров.Дата,
| Реализация_товаров.Контраг ент,
| Реализация_товаров.Номер,
| Реализация_товаров.Товары.(
| НомерСтроки,
| Номенклатура,
| Количество,
| Цена,
| Сумма
| )
|ИЗ
| Документ.Реализация_товаро в КАК Реализация_товаров
|ГДЕ
| Реализация_товаров.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать() ;
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
ТабДок.Очистить();
ВставлятьРазделительСтран иц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтран иц Тогда
ТабДок.ВывестиГоризонталь� �ыйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаго ловок);
Шапка.Параметры.Заполнить(� �ыборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТова рыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.За полнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТова ры, ВыборкаТовары.Уровень());
КонецЦикла;
ВставлятьРазделительСтран иц = Истина;
КонецЦикла;
//}}
КонецПроцедуры