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% от продажи товаров из группы Акция
 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;