Различия
Показаны различия между двумя версиями страницы.
Следующая версия | Предыдущая версия | ||
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 |