Форум Учет и отчетность Складской учет и логистика (WMS)

Написать функцию получения скидки

1. cdpomaa 5 18.03.23 15:09 Сейчас в теме

Есть регистр СкидкиНоменклатуры где Измерение Номенклатура(элемент или группа), ресурс процентСкидки.

Скидки можно установить как на конкретную позицию, так и на папку с позициями. Вложенность папок, например, может достигать 15 уровней.
Если скидка установлена на конкретную позицию, то она для нас имеет наивысший приоритет. Если на позицию скидки нет, то получаем скидки по уровням иерархии. Приоритетней, например, будет скидка на группу "Сплит-системы", а на группу "Блоки", скидка имеет более низкий приоритет.

Нужно написать функцию (или несколько функций) в которую мы передаем Ссылку на Номенклатуру, а она возвращает числовое значение процента скидки. Если скидка не задана, то ноль.

Прикрепленные файлы:

1Cv8.dt

По теме из базы знаний

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
cdpomaa (2.00 $m)

Получили:

aka Любитель XML (2 $m)

Показать полностью

Найденные решения

3. aka Любитель XML 18.03.23 15:53 Сейчас в теме +2 $m

Функция ПолучитьСкидку(Номенклатура)
    НаборЗаписей = РегистрыСведений.СкидкиНоменклатуры.СоздатьНаборЗаписей();
    Отбор = НаборЗаписей.Отбор;
    Отбор.Номенклатура.Установить(Номенклатура);
    НаборЗаписей.Прочитать();
    Если НаборЗаписей.Количество() > 0 Тогда
        Возврат НаборЗаписей[0]. процентСкидки;
    Иначе
        Если ЗначениеЗаполнено(Номенклатура.Родитель) Тогда
            ПолучитьСкидку(Номенклатура.Родитель);
        Иначе
            Возврат 0;
    КонецЕсли;
КонецФункции

Показать

Остальные ответы

Подписаться на ответы

Свернуть все

2. aka Любитель XML 18.03.23 15:49 Сейчас в теме

(0) рекурсивно обходи родителей до тех пор, пока не найдешь запись в РС

3. aka Любитель XML 18.03.23 15:53 Сейчас в теме +2 $m

Функция ПолучитьСкидку(Номенклатура)
    НаборЗаписей = РегистрыСведений.СкидкиНоменклатуры.СоздатьНаборЗаписей();
    Отбор = НаборЗаписей.Отбор;
    Отбор.Номенклатура.Установить(Номенклатура);
    НаборЗаписей.Прочитать();
    Если НаборЗаписей.Количество() > 0 Тогда
        Возврат НаборЗаписей[0]. процентСкидки;
    Иначе
        Если ЗначениеЗаполнено(Номенклатура.Родитель) Тогда
            ПолучитьСкидку(Номенклатура.Родитель);
        Иначе
            Возврат 0;
    КонецЕсли;
КонецФункции

Показать

4. aka Любитель XML 18.03.23 15:53 Сейчас в теме

Примерно так, dt не качал, писал на коленке, мог где-то ошибится

7. Dr.HiHi 3 18.03.23 17:55 Сейчас в теме

(1) подойди к задаче с другой стороны
создать регистр сведений связи номенклатуры, в который будут записываться елемент и вся вышестоящая иерархия и приоритет (уровень иерархии)
добавить событие при записи номенклатуры, чтобы сделались записи относительной изменяемой / создаваемой номенклатуры

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

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

8. user1863362 18.03.23 18:10 Сейчас в теме

(7)

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

Хехе. А также записи для всего поддерева в случае изменения группы.

9. пользователь 18.03.23 18:18