Кассир:Бонусы кассиру

Бонусы кассиру

Настройка

Добавляем через интерфейс модуля кассир желаемые бонусы

Типы бонусов

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;

uses Zkassa; begin

 Chequelist.Active.FillGroups;
 //Премия 3% от продажи товаров из группы Акция
 If (::doc_type = 3) Then
   result:=Chequelist.Active.GroupSumm(10472)*0.03; 
 Else
   result:=-1*Chequelist.Active.GroupSumm(10472)*0.03;

end;