Различия
Показаны различия между двумя версиями страницы.
| Следующая версия | Предыдущая версия | ||
| external:pro_bonus:98_dop:21_raznie_proxenti_oplat [2025/03/20 11:43] – создано Алексей Коробов | external:pro_bonus:98_dop:21_raznie_proxenti_oplat [2025/03/20 11:48] (текущий) – Алексей Коробов | ||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | Разный процент оплаты для разных счетов | + | ====== |
| Бывает ситуация, | Бывает ситуация, | ||
| При этом стандартная настройка подразумевает, | При этом стандартная настройка подразумевает, | ||
| + | Пример - гости могут оплачивать 30% заказа бонусами, | ||
| - | Сделать две отдельные валюты и две отдельные скидки - для гостей и для персонала. | + | Решение для этой ситуации: |
| - | + | 1) Сделать две отдельные валюты и две отдельные скидки - для гостей и для персонала. | |
| - | + | 2) В админке ProBonus для групп счетов гостей и персонала в поле " | |
| - | В интерфейсе ProBonus для групп счетов гостей и персонала в поле " | + | |
| В скрипт вписать коды скидок и валют соответственно. | В скрипт вписать коды скидок и валют соответственно. | ||
| - | |||
| Скрипт на форму редактирования заказа: | Скрипт на форму редактирования заказа: | ||
| + | В данном примере предполагается, | ||
| + | В данном примере предполагается, | ||
| < | < | ||
| - | //ищет скидку бонусной карты | + | //проверяется заказ, проверяются |
| function FindBonusDiscount(DiscCode :integer) : | function FindBonusDiscount(DiscCode :integer) : | ||
| var | var | ||
| Строка 29: | Строка 30: | ||
| if SYS.ObjectInheritsFrom(TObject(it), | if SYS.ObjectInheritsFrom(TObject(it), | ||
| begin | begin | ||
| - | //Если дана картой ПДС | + | //Если неудаленная |
| if (TDiscountItem(it).State <> disDeleted) then //если активна | if (TDiscountItem(it).State <> disDeleted) then //если активна | ||
| - | //if (TDiscountItem(it).ChargeSource = chsInterface) then // | + | //if (TDiscountItem(it).ChargeSource = chsInterface) then // |
| begin | begin | ||
| dbg.dbgprint(' | dbg.dbgprint(' | ||
| Строка 43: | Строка 44: | ||
| end; | end; | ||
| - | // | + | // |
| procedure MainSelectorOnSuitableObjectScript(Sender: | procedure MainSelectorOnSuitableObjectScript(Sender: | ||
| begin | begin | ||