Кассир:Бонусы кассиру — различия между версиями
Материал из wiki.standart-n.ru
Lander (обсуждение | вклад) (→Типы бонусов) |
Lander (обсуждение | вклад) (→Типы бонусов) |
||
Строка 11: | Строка 11: | ||
<code> | <code> | ||
− | uses Zkassa; | + | uses Zkassa; |
begin | begin | ||
Chequelist.Active.FillGroups; | Chequelist.Active.FillGroups; | ||
Строка 23: | Строка 23: | ||
end; | end; | ||
</code> | </code> | ||
− | |||
− | uses Zkassa; | + | |
− | begin | + | 2. по сумме продажи товара заданной группы |
+ | <code> | ||
+ | uses Zkassa; | ||
+ | begin | ||
Chequelist.Active.FillGroups; | Chequelist.Active.FillGroups; | ||
//Премия 3% от продажи товаров из группы Акция | //Премия 3% от продажи товаров из группы Акция | ||
+ | bonus = 0.03; // размер бонуса | ||
+ | group_bonus = 10033; // ИД группы товара для бонуса | ||
If (::doc_type = 3) Then | If (::doc_type = 3) Then | ||
− | result:=Chequelist.Active.GroupSumm( | + | result:=Chequelist.Active.GroupSumm(group_bonus)*bonus; |
Else | Else | ||
− | result:=-1*Chequelist.Active.GroupSumm( | + | result:=-1*Chequelist.Active.GroupSumm(group_bonus)*bonus; |
− | end; | + | end; |
</code> | </code> |
Версия 14:50, 23 августа 2022
Бонусы кассиру
Настройка
Добавляем через интерфейс модуля кассир желаемые бонусы
Типы бонусов
1. по количеству в чеке товара заданной группы
uses Zkassa; begin Chequelist.Active.FillGroups; //Премия 100 тнг bonus = 100; // размер бонуса group_bonus = 10033; // ИД группы товара для бонуса If (::doc_type = 3) Then result:=Chequelist.Active.GroupQuant(group_bonus)*bonus Else result:=-1*Chequelist.Active.GroupQuant(group_bonus)*bonus; end;
2. по сумме продажи товара заданной группы
uses Zkassa; begin Chequelist.Active.FillGroups; //Премия 3% от продажи товаров из группы Акция bonus = 0.03; // размер бонуса group_bonus = 10033; // ИД группы товара для бонуса If (::doc_type = 3) Then result:=Chequelist.Active.GroupSumm(group_bonus)*bonus; Else result:=-1*Chequelist.Active.GroupSumm(group_bonus)*bonus; end;