| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия |
| external:pro_bonus:98_dop:25_zapret_oplaty_bonusom [2024/12/12 09:13] – Алексей Коробов | external:pro_bonus:98_dop:25_zapret_oplaty_bonusom [2025/02/05 17:44] (текущий) – Александр Ильин |
|---|
| ====== Либо начисление бонуса, либо оплата бонусами ====== | ====== Либо начисление бонуса, либо оплата бонусами ====== |
| |
| Бывают случаи, когда программа лояльности предполагает запрет на оплату бонусами в заказе, где они начисляются. Т. е. можно либо оплатить заказ или его часть бонусами, либо начислить бонусы. | Бывают случаи, когда программа лояльности предполагает запрет на оплату бонусами в заказе, где они начисляются. Т. е. можно либо оплатить заказ или его часть бонусами (при этом на сумму оплаченную Рублями бонус не начисляется), либо начислить бонусы (на всю сумму заказа, без возможности потраты бонусов). |
| |
| Такая задача решается с помощью кассового скрипта, размещаемого на форме "Редактирование заказа" и/или "Редактирование заказа (быстрый чек)" - в компоненте CheckView . | |
| |
| | Такая задача решается с помощью кассового скрипта, размещаемого на форме "Редактирование заказа" и/или "Редактирование заказа (быстрый чек)" - в компоненте CheckView . |
| | Скрипт работает как для расчёта по местам, так и для обычного случая. |
| | При нажатии на кнопку "оплата" - задаёт вопрос. |
| | {{:external:pro_bonus:98_dop:pasted:20241212-091630.png}} |
| | В зависимости от ответа либо блокируется для оплаты валюта "Оплата бонусами", либо удаляется из заказа скидка-бонус (и тогда бонусы не начисляются). |
| Скрипт вставляем в верхнюю часть обработчика (важна последовательность). | Скрипт вставляем в верхнюю часть обработчика (важна последовательность). |
| Внутри скрипта нужно поменять код валюты оплаты бонусами и код скидки-бонуса. | Внутри скрипта нужно поменять код валюты оплаты бонусами и код скидки-бонуса. |
| |
| d:= TDiscountitem(SL.Objects[i]); | d:= TDiscountitem(SL.Objects[i]); |
| k:=GUI.MessageDlgEx('Списываем бонусы или начисляем бонусы для места № '+inttostr(Tdiscountitem(d).seat)+'?',mtInformation, mbYes+mbNo, 'Списываем;Начисляем'); | k:=GUI.MessageDlgEx('Списываем бонусы или начисляем бонусы? для места № '+inttostr(Tdiscountitem(d).seat)+'?',mtInformation, mbYes+mbNo, 'Оплачиваем бонусами;Начисляем бонусы'); |
| if k= id_YES then | if k= id_YES then |
| begin | begin |