gifts2017

Прайс – лист с сортировкой

Опубликовал igor Bajin (tigra378) в раздел Обработки - Ценообразование, прайсы

Печать прайс-листа

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

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

И при записи в форме группы, если, конечно, там уже чего-нибудь нет (в моём случае есть, и поэтому добавил кнопку) добавил вот это:

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

При установке значения порядка было решено в зависимости от количества вложенных папок и необходимости их сортировки было взято за основу, что папки могут принимать значения от 1000 до 9999, где первые два числа "10" это первый уровень иерархии, вторые два "00" второй уровень (можно, конечно, и больше, но мне хватило двух). 

Пример: в группе номенклатуры "Комбайны" её порядковый номер "1000", куча подгрупп. Для них задаём порядок в промежутке от 1000 до 1099 в моём случае этого вполне достаточно. Далее для группы номенклатуры "Трактора" порядковый номер "1100" подгруппы принимают значения с 1100 по 1199 и так далее.

Внёс изменения в обработку Печать прайс-листа.

В обработке настроил отборы, чтобы попадали только группы с заполненным реквизитом "ПорядокВПрайсе", и установил по нему сортировку.

Вроде всё, может, кому-то пригодится (не претендую на идеальность решения).

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
ПечатьПрайсЛиста.epf
.epf 49,25Kb
05.05.14
3
.epf 49,25Kb 3 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Павел Богачев (pvb2003) 14.05.14 11:14
А написать конфигурацию на которой работает - 10.3 или 11.1
2. igor Bajin (tigra378) 15.05.14 08:08
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа