Page History

...

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, j, p, z, CategCode: integer;

Categ: TClassificatorGroup;

it, CurItem: TCheckItem;

DishCode, CntDish1, CntDish2: integer;

CheckView: TCheckView;

DishesCode: TStringList; 

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

DishesCode := TStringList.Create;

//********** Set parameters ***********//

DishesCode.Add('27;45'); // code of category of promotional dish, for which bonus dish is added; bonus dish code
DishesCode.Add('28;46');

DishesCode.Add('8;43');

//DishesCode.Add('17;24');

//DishesCode.Add('18;25');

//DishesCode.Add('19;26');

//DishesCode.Add('11;27');

//********** Set parameters ***********//

CurItem := RKCheck.CurrentCheckItem;

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then //Check dish lines only 

try

for z := 0 to DishesCode.Count-1 do

begin

p:=pos(';',DishesCode.Strings[z]);

CategCode := StrToInt(copy(DishesCode.Strings[z],1,p-1)); // code of category of promotional dish, for which bonus dish is added; 

DishCode := StrToInt(copy(DishesCode.Strings[z],p+1,length(DishesCode.Strings[z])-p)); // bonus dish code

//dbg.dbgprint('CategCode = '+inttostr(CategCode)+' DishCode = '+inttostr(DishCode));

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode));//category code

//dbg.dbgprint('TDish(AObjectAft).Code = '+inttostr(TDish(AObjectAft).Code));

if (Categ.IsChild(TDish(AObjectAft).RefItem)) then // checking category of dish

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(TDish(AObjectAft).Quantity)); // add bonus dish

end;

end;

finally

DishesCode.Free();

if CurItem <> Nil then CheckView.GotoItem(CurItem); 

end;

RKCheck.CurrentOrder.Recalc(); // focus is broken if you uncomment

end;

A script to add a bonus dish for each 4th unique dish from the category

...

Есть блюда категории «шот». Нужно при заказе четырёх одинаковых блюд из этой категории добавлять в заказ на выбор блюдо из категории «пицца». Пицца должна добавиться с нулевой ценой, либо со 100% скидкой.

...

There is a "Shot" category of dishes. When four identical dishes from this category are ordered, a choice of one dish from the "pizza" category should be provided. Pizza should be added with a zero price, or with a 100% discount.

Insert the script in the OnAfterCheckViewEdit event of the CheckView object on the check editing form. All dishes in the category are counted and a bonus dish is added to each nth dish.

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, j, CategCode, every, p1, p2: integer;

Categ: TClassificatorGroup;

it, it2, CurItem: TCheckItem;

DishCode, CntDish1, CntDish2, AddDish2: integer;

mem, mem2, str: string;

CheckView: TCheckView; 

DishesCode: TStringList;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

//********** Set parameters ***********//

CategCode := 27; // кодcategory категорииcode

DishCode := 45; // кодbonus бонусногоdish блюдаcode

every := 4;

//********** Set parameters ***********//

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode));//category code

CurItem := RKCheck.CurrentCheckItem;

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then //Check dish lines only 

if (Categ.IsChild(TDish(AObjectAft).RefItem)) then // checking category of dish

begin

CntDish2 := 0; // счётчикpromotional кол-ваdish акционногоnumber блюдаcounter

mem := '';

mem2 := '';

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

begin

if (Categ.IsChild(TDish(it).RefItem)) then // checking category of dish

begin

CntDish1 := 0; // счётчик кол-ва бонусного блюдаpromotional dish number counter  

if pos(';' + IntToStr(TDish(it).Sifr) + '=',mem)<=0 then

begin

mem := mem + ';' + IntToStr(TDish(it).Sifr) + '='+FloatToStr(TDish(it).Quantity);

for j := i to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it2 := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(TObject(it2), 'TDish') then

if (TDish(it2).code=TDish(it).code) then // checking category of dish

CntDish1 := CntDish1 + trunc(TDish(it2).Quantity);

end;

end;

if CntDish1>=every then

begin

mem2 := mem2 + ';' + IntToStr(TDish(it).code) + '='+FloatToStr(CntDish1);

end; 

end;


if (TDish(it).Code = DishCode) then

CntDish2 := CntDish2 + trunc(TDish(it).Quantity);

end;

end;

AddDish2 := 0;

while mem2<>'' do

begin

p1 := Pos(';', mem2);

if p1 > 0 then

begin

str := Copy(mem2, p1+1, 10000);

p2 := Pos(';', str);

if p2 = 0 then p2 := 10000;

str := Copy(mem2, p1+1, p2 - 1);

Delete(mem2, p1, p2);

CntDish1 := trunc(StrToFloat(Copy(str, Pos('=', str)+1, 10000))/every);

if CntDish1>0 then

AddDish2 := AddDish2 + CntDish1;

end;

end;


if (AddDish2 <> CntDish2) then

begin

if CntDish2 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode) then

RKCheck.DeleteCheckItem(it);

end;

end;

if CntDish1 > 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(AddDish2)); // add bonus dish

end;


end;

if CurItem <> Nil then CheckView.GotoItem(CurItem); 

end;

...

A script to cancel the discount when adding another discount

Code Block

language	delphi

procedure DiscountUsage1002304(UsageParameters: TDiscountUsageParameters);

var i,cntDiscount, DiscountCode1, DiscountCode2, DiscountCode3: integer;

it: TCheckItem;

begin

// if not RKCheck.Valid then exit; 

DiscountCode1 := 12; // кодdiscount скидки1code1

DiscountCode2 := 12; // кодdiscount скидки2code2

DiscountCode3 := 14; // кодdiscount скидки3code3

cntDiscount := 0; 

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then

if (it.code = DiscountCode1)or(it.code = DiscountCode2)or(it.code = DiscountCode3) then 

if TDiscountItem(it).SrcAmount<>0 then

begin 

cntDiscount := cntDiscount + 1;

break;

end;

end;

if cntDiscount>0 then

UsageParameters.UsageMode := umDeny

else

UsageParameters.UsageMode := umAllow;

end;

Скрипт для автоматической наценки в зависимости от места

Пример: на входе кассир открыл тарифицируемое место и отдал гостю карту, гость пошел в бар и бармен добавил ему блюда в заказ на карту.

...

A script for automatic markup depending on the location

Example: after logging in, the cashier opened the charged place and gave the guest a card, the guest went to the bar and the bartender added dishes to his order on the card.

You need to add a markup at the moment when the bartender opened the order for editing.

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var Categ: TClassificatorGroup;

it: TCheckItem;

i, CategCode, DiscCode, DiscCnt: Integer;

begin

CategCode := 8; // specify указатьthe кодcategory категорииcode

DiscCode := 5; // кодmarkup наценкиcode

DiscCnt := 0;

if AEditType = etInsert then

begin

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then //Check dish lines only

if (TDiscountItem(it).Code = DiscCode) then

DiscCnt := DiscCnt + 1;

end;


// add discount

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode));

if SYS.ObjectInheritsFrom(TDish(AObjectAft), 'TDish') then

if Categ.IsChild(TDish(AObjectAft).RefItem) then

if DiscCnt = 0 then

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(100)); // add discount with code 11

end; 

end;

Скрипт для добавления бесплатного блюда в определенный день недели, в определенное время, при пробитии определенного блюда

...

A script to adding a free dish on a specified day of the week, at a certain time, when a specified dish is ordered

On the edit form of the CheckView component, insert the script in the OnAfterCheckViewEdit event:

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, j: integer;

it: TCheckItem;

DiscCode, DishCode, CntDish1, CntDish2, AddDishCode: integer; 


disk : integer;

disksum: double;

CurrTime, Time1, Time2: TDateTime; 

begin

Time1 := EncodeTime(08,00,00,00); // началоspecial периодаoffer акцииstart

Time2 := EncodeTime(21,00,00,00); // конецspecial периодаoffer акцииend

DiscCode := 12; // кодdiscount скидкиcode

DishCode := 13; // кодbonus бонусногоdish блюдаcode

AddDishCode := 7; // кодpromotional акционногоdish блюдаcode


CntDish1 := 0;

CntDish2 := 0;

CurrTime := Time;  

//1 = воскресеньеSunday
 
//2 = понедельникMonday
 
//3 = вторникTuesday
 
//4 = средаWednesday
 
//5 = четвергThursday
 
//6 = пятницаFriday
 
//7 = субботаSaturday

if DayOfWeek(Now)=5 then // day of проверкаthe дняweek неделиcheck

if (Time1<=CurrTime) and(CurrTime<=Time2) then

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then //Check dish lines only

if (TDish(AObjectAft).Code = AddDishCode) then

begin


for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

begin

if (TDish(it).Code = AddDishCode) then

CntDish1 := CntDish1 + trunc(TDish(it).Quantity);

if (TDish(it).Code = DishCode) then

CntDish2 := CntDish2 + trunc(TDish(it).Quantity);

end; 

end; 


if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;


if (CntDish1 <> CntDish2) then

begin

if CntDish2 > 0 then

begin

if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TPrintCheckItem') then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then

if (TDish(it).Code = DishCode) then begin

if it.State = disOpened then begin

RK7.PerformOperation(rkoDeleteLine, 1); // удалениеdeletion

continue;

end else

RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity)); // списаниеwrite-off

end;

RK7.PerformOperation(rkoDown, 0);

end;

end;

if CntDish1 > 0 then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(CntDish1)); // adding добавлениеa блюдаdish

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), '0'); // добавлениеadding a скидкиdiscount

end;

end;

end;

end;

...

On the edit form of the CheckView component, insert the script in the OnBeforeCheckViewEdit event:

Code Block

language	delphi

procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, j: integer;

it: TCheckItem;

DiscCode, DishCode, CntDish1, CntDish2, AddDishCode: integer; 


disk : integer;

disksum: double;

CurrTime, Time1, Time2: TDateTime; 

begin

Time1 := EncodeTime(08,00,00,00); // началоspecial периодаoffer акцииstart

Time2 := EncodeTime(21,00,00,00); // конецspecial периодаoffer акцииend

DiscCode := 12; // кодdiscount скидкиcode

DishCode := 13; // кодbonus бонусногоdish блюдаcode

AddDishCode := 7; //promotional кодdish акционного блюдаcode


CntDish1 := 0;

CntDish2 := 0;

CurrTime := Time;  

//1 = воскресеньеSunday
 
//2 = понедельникMonday
 
//3 = вторникTuesday
 
//4 = средаWednesday
 
//5 = четвергThursday
 
//6 = пятницаFriday
 
//7 = субботаSaturday
  
if DayOfWeek(Now)=5 then // day проверкаof the дняweek неделиcheck

if (Time1<=CurrTime) and(CurrTime<=Time2) then

if SYS.ObjectInheritsFrom(AObjectBef, 'TDish') then //Check dish lines only

if (TDish(AObjectBef).Code = AddDishCode) then

if (AEditType = etRemove) then

begin

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

begin

if (TDish(it).Code = AddDishCode) then

CntDish1 := CntDish1 + trunc(TDish(it).Quantity);

if (TDish(it).Code = DishCode) then

CntDish2 := CntDish2 + trunc(TDish(it).Quantity);

end; 

end; 

CntDish1 := CntDish1 - trunc(TDish(AObjectBef).Quantity);


if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;


if (CntDish1 <> CntDish2) then

begin

if CntDish2 > 0 then

begin 

if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TPrintCheckItem') then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then

if (TDish(it).Code = DishCode) then begin

if it.State = disOpened then begin

RK7.PerformOperation(rkoDeleteLine, 1); // удалениеdeletion

continue;

end else

RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity)); // списаниеwrite-off

end;

RK7.PerformOperation(rkoDown, 0);

end; 

end;

if CntDish1 > 0 then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(CntDish1)); // добавлениеadding a блюдаdish

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), '0'); // adding добавлениеa скидкиdiscount

end;

end; 

end;

end;

Скрипт на добавление\удаление блюда при определенном пороге суммы заказа

Существует акционное блюдо с нулевой ценой. Клиент хочет, чтобы это блюдо автоматически добавлялось в заказ, если сумма заказа достигла 999 рублей и чтобы удалялось, если сумма заказа не достигла 999 рублей (не доверяют персоналу).

...

A script to add or to remove dishes at a specified order amount

There is a promotional dish with a zero price. A customer wants this dish to be automatically added to the order if the order amount has reached 999 rubles and to be deleted if the order amount is lower than 999 rubles (they do not trust the staff).

On the order editing form of the CheckView object, insert the script in the OnBeforeCheckViewEdit event:

Code Block

language	delphi

procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, j: integer;

it: TCheckItem;

limit, sum : double; 

DiscCode, DishCode, CntDish1: integer; 

begin

limit := 200; 

DishCode := 43; // special dish code

CntDish1 := 0;


// { блокировка добавления специального блюда при сумме меньше лимита.
blocking special dish addition of  if the amount is less specified.
if AEditType = etInsert then

if RKCheck.CurrentOrder.UnpaidSum < limit then

if (TDish(AObjectBef).Code = DishCode) then // dish code

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

begin 

AAllow := false;

AMessage := 'Блюдо нельзя добавить, т.к. заказ менее 200 р.The dish cannot be added because the order is less than 200 rubles';

end;

// }


if SYS.ObjectInheritsFrom(AObjectBef, 'TDish') then

if AEditType = TdiscountItem

e then

begin

sum := 0;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode) then

CntDish1 := CntDish1 + trunc(TDish(it).Quantity);

end; 

if (TDish(AObjectBef).Code = DishCode) then // dish code

CntDish1 := CntDish1 - trunc(TDish(AObjectBef).Quantity);


if AEditType = etRemove then

sum := RKCheck.CurrentOrder.UnpaidSum - (TDish(AObjectBef).PRListSum)

else

sum := RKCheck.CurrentOrder.UnpaidSum;


if sum < limit then // если сумма меньше лимита, то удалить специальное блюдо if the amount is less than the limit, then delete the special dish  

if CntDish1 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode) then

RKCheck.DeleteCheckItem(it);

end;

end; 


if RKCheck.CurrentOrder.UnpaidSum >= limit then // check limit exceed если сумма чека равна или больше лимита, то добавить спе.блюдо, if the check amount is equal to or exceeds the limit, add the special dish

if CntDish1 = 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), '1');

end;

end;

...

On the order editing form of the CheckView object, insert the script in the OnAfterCheckViewEdit event:

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, j: integer;

it: TCheckItem;

limit, sum, Price: double; 

DiscCode, DishCode, CntDish1: integer; 


begin

// if AEditType = etInsert then

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then


begin 

sum := 0;

limit := 200; 

DishCode := 43; // special dish code

CntDish1 := 0;


for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode) then

CntDish1 := CntDish1 + trunc(TDish(it).Quantity);

end; 


if (TDish(AObjectBef).Code = DishCode) then // dish code

CntDish1 := CntDish1 - trunc(TDish(AObjectBef).Quantity);


Price := (TDish(AObjectAft).PRListSum) - (TDish(AObjectBef).PRListSum);


sum := RKCheck.CurrentOrder.UnpaidSum + Price;

if sum < limit then 

if CntDish1 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode) then

RKCheck.DeleteCheckItem(it);

end;

end;


if sum >= limit then // check limit exceed если сумма равна или больше лимита, то добавить спец.блюдо, if the check amount is equal to or exceeds the limit, add the special dish  

if CntDish1 = 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), '1');


end; 

end;

Скрипт на автоматическое добавление блюда в заказ

При сумме заказа от 1000 р. в заказ добавляется определенное блюдо, а при сумме заказа от 2000 р. добавляется другое блюдо.

Также на чек автоматически делается скидка 20%, если добавить блюдо по цене 1000 (сумма заказа в таком случае составит 800).

...

A script to automatically add a dish to an order

If the order amount is more than 1000 rubles, a specified dish is added to the order, and if the order amount is more than 2000 rubles, another specified dish is added.

Also, a 20% discount is automatically applied if you add a dish at the price of 1000 rubles (the order amount will be 800 rubles in this case).

A free dish is added when the order is gradually formed. When the order amount is reduced, the dish is deleted. If the order exceeds the amount of 2000 rubles, a free dish with the condition order>2000 rubles is added, and a dish with the condition order>1000 rubles is removed. And if you reduce the order amount from 2000 to 1500, then the dish with the condition order>2000 rubles is removed, and the dish with the condition order>1000 rubles should be added.

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, j: integer;

it: TCheckItem;

limit1, limit2, sum, Price: double; 

DishCode1, DishCode2, CntDish1, CntDish2: integer;

go1: boolean;

begin

sum := 0;

limit1 := 1000;

limit2 := 2000;

DishCode1 := 45; // special dish code

DishCode2 := 46; // special dish code

CntDish1 := 0;

CntDish2 :=0;

Price := 0;

go1 := false;


if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

if (TDish(AObjectAft).code <> DishCode1) and (TDish(AObjectAft).code <> DishCode2) then

go1 := true;

if go1 or SYS.ObjectInheritsFrom(AObjectAft, 'TDiscountItem') then 

begin


for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

begin

if (TDish(it).Code = DishCode1) then

CntDish1 := CntDish1 + trunc(TDish(it).Quantity)

else 

if (TDish(it).Code = DishCode2) then

CntDish2 := CntDish2 + trunc(TDish(it).Quantity);

end;

end; 


if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

if ( (TDish(AObjectAft).code <> DishCode1) and (TDish(AObjectAft).code <> DishCode2) ) then

begin

if (TDish(AObjectBef).Code = DishCode1) then // dish code

CntDish1 := CntDish1 - trunc(TDish(AObjectBef).Quantity)

else

if (TDish(AObjectBef).Code = DishCode2) then // dish code

CntDish2 := CntDish2 - trunc(TDish(AObjectBef).Quantity);


// Price := (TDish(AObjectAft).PRListSum) - (TDish(AObjectBef).PRListSum);

Price := (TDish(AObjectAft).SumWithDiscounts) - (TDish(AObjectBef).SumWithDiscounts); // SumWithDiscounts

end;


sum := RKCheck.CurrentOrder.ToPaySum + Price+ RKCheck.CurrentOrder.DiscountSum;


// if SYS.ObjectInheritsFrom(AObjectAft, 'TDiscountItem') then 

// gui.showmessage('ToPaySum='+FloatToStr(RKCheck.CurrentOrder.ToPaySum)+' Price='+FloatToStr(Price)+' Discountsum='+FloatToStr(RKCheck.CurrentOrder.DiscountSum)+' CalcAmount='+FloatToStr(TDiscountItem(AObjectAft).CalcAmount));


if sum < limit2 then

if CntDish2 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode2) then

RKCheck.DeleteCheckItem(it);

end;

end;


if (sum < limit1) or (sum >=limit2) then

if CntDish1 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode1) then

RKCheck.DeleteCheckItem(it);

end;

end;


if sum >= limit2 then // check limit exceed ???? ????? ????? ??? ?????? ??????, ?? ???????? ????.?????

begin

if CntDish2 <= 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode2), '1');

end

else

if sum >= limit1 then // check limit exceed ???? ????? ????? ??? ?????? ??????, ?? ???????? ????.?????

if CntDish1 <= 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode1), '1');


end;

end;




procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, j: integer;

it: TCheckItem;

limit1, sum, limit2 : double;

DiscCode, DishCode1, CntDish1, DishCode2, CntDish2: integer;

begin

limit1 := 1000;

limit2 := 2000;

DishCode1 := 45; // special dish code

DishCode2 := 46; // special dish code

CntDish1 := 0;

CntDish2 :=0;


if SYS.ObjectInheritsFrom(AObjectBef, 'TDish') then

if AEditType = etRemove then

begin

sum := 0;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

begin

if (TDish(it).Code = DishCode1) then

CntDish1 := CntDish1 + trunc(TDish(it).Quantity)

else 

if (TDish(it).Code = DishCode2) then

CntDish2 := CntDish2 + trunc(TDish(it).Quantity);

end;

end;

if (TDish(AObjectBef).Code = DishCode1) then // dish code

CntDish1 := CntDish1 - trunc(TDish(AObjectBef).Quantity)

else

if (TDish(AObjectBef).Code = DishCode2) then // dish code

CntDish2 := CntDish2 - trunc(TDish(AObjectBef).Quantity); 


if AEditType = etRemove then

// sum := RKCheck.CurrentOrder.UnpaidSum - (TDish(AObjectBef).PRListSum)

sum := RKCheck.CurrentOrder.UnpaidSum - (TDish(AObjectBef).SumWithDiscounts)

else

sum := RKCheck.CurrentOrder.UnpaidSum;


if sum < limit2 then // ???? ????? ?????? ??????, ?? ??????? ??????????? ?????

if CntDish2 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode2) then

RKCheck.DeleteCheckItem(it);

end;

end; 


if (sum < limit1) or (sum >=limit2) then // ???? ????? ?????? ??????, ?? ??????? ??????????? ?????

if CntDish1 > 0 then

begin

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[j];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if (TDish(it).Code = DishCode1) then

RKCheck.DeleteCheckItem(it);

end;

end;


if sum >= limit2 then // check limit exceed ???? ????? ????? ??? ?????? ??????, ?? ???????? ????.?????

begin

if CntDish2 <= 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode2), '1');

end

else

if sum >= limit1 then // check limit exceed ???? ????? ????? ??? ?????? ??????, ?? ???????? ????.?????

if CntDish1 <= 0 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode1), '1');


end;

end;

...

A script to automatically add a free (starter) dish to an order when creating a new order

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var codedish1: integer;

begin

codedish1 := 23; // dish code for autoadding

if RKCheck.CurrentOrder.IsEmpty then

if AEditType = etInsert then

if SYS.ObjectInheritsFrom(TDish(AObjectAft), 'TDish') then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(codedish1), IntToStr(RKCheck.CurrentOrder.GuestsCount)); // add dish

end;

end;

Скрипт для накопление бонусов в зависимости от времени

...

A script to accumulate bonuses depending on the time

Bonuses are valid until 22:00.

...

A guest came at 21:50

...

and ordered juice for 100 rubles. At 22:20 they ordered a pie for 50 rubles. At 22:40 (

...

or at 01:00am), they asked for a bill and gave the card - bonuses should be credited for the juice, but not for the pie, despite the time of using the card.

A script for the OnAfterCheckViewEdit event in the CheckView object on the order editing form

...

:

Code Block

language	delphi

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var

i, cntDish, DishCode: integer;

it: TCheckItem;

a, Price: double;

CurrTime, Time1: TDateTime; 

begin

DishCode := 43; // code of кодdish блюдаwith сopen открытойprice ценой

Time1 := EncodeTime(18,05,00,00); // граничноеcritical времяtime

if (AEditType=etInsert)or(AEditType=etChange) then 

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then 

if (TDish(AObjectAft).Code <> DishCode) then

begin

a := 0;

cntDish := 0;

Price := 0;

CurrTime := Time;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then

if (TDish(it).Code = DishCode) then

cntDish := cntDish + 1

else

begin

if (StrToTime(TimeToStr(TDish(it).Session.StartService)) < Time1) then

a := a + TDish(it).PRListSum;

end;

end; 

if (a > 0.00001) then

begin

if (cntDish = 0) then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(1)) // ?????????? ? ????? ????? ? ????? 43

else

begin


if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TPrintCheckItem') then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then begin

if (TDish(it).Code = DishCode) then 

if a <> TDish(it).UserPrice then

if it.State = disOpened then begin

RK7.PerformOperation(rkoDeleteLine, 1);

continue;

end else

RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity));

end;

RK7.PerformOperation(rkoDown, 0);

end;

if CurrTime < Time1 then 

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(1)) 


end; 

if CurrTime < Time1 then 

if trk7menuItem(TDish(RKCheck.CurrentCheckItem).RefItem).OpenPrice then

begin

TDish(RKCheck.CurrentCheckItem).IsUserPrice := true;

TDish(RKCheck.CurrentCheckItem).UserPrice := a;

end;

end;

end;

end;

...

A script for the OnBeforeCheckViewEdit event in the CheckView object on the order editing form:

Code Block

language	delphi

procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var

i, j, cntDish, DishCode: integer;

it: TCheckItem;

a, Price: double;

CurrTime, Time1: TDateTime; 

begin

DishCode := 43; // code кодfor dish блюдаwith сopen открытойprice ценой

Time1 := EncodeTime(18,05,00,00); // граничноеcritical времяtime

if (AEditType=etRemove) then // etChange etRemove

if SYS.ObjectInheritsFrom(AObjectBef, 'TDish') then 

if (TDish(AObjectBef).Code <> DishCode) then

begin

a := 0;

cntDish := 0;

Price := 0;

CurrTime := Time;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then

if (TDish(it).Code = DishCode) then

cntDish := cntDish + 1

else

begin


if (StrToTime(TimeToStr(TDish(it).Session.StartService)) < Time1) then

a := a + TDish(it).PRListSum;

end;

end; 


// if (StrToTime(TimeToStr(TDish(AObjectBef).Session.StartService)) < Time1) then // учитывать сумму удаляемого блюда / раскоментировать когда будет исправлен багtake into account deleted dish cost / uncomment when the bug is fixed  

a := a - TDish(AObjectBef).PRListSum;


if (a > 0.00001) then

begin

if (cntDish = 0) then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), FloatToStr(1)) 

else

if CurrTime < Time1 then

begin


if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TPrintCheckItem') then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then begin

if (TDish(it).Code = DishCode) then 

if a <> TDish(it).UserPrice then

if it.State = disOpened then begin

if trk7menuItem(TDish(it).RefItem).OpenPrice then

begin

TDish(it).IsUserPrice := true;

TDish(it).UserPrice := a;

end; 

end else

RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity));

end;

RK7.PerformOperation(rkoDown, 0);

end;

end; 

end;

end;

end;

В скриптах задать соответствующие значения для DishCode и Time1.

...

In the scripts, set the appropriate values for DishCode and Time1.

A script to display a discount in the order when printing the bill

Code Block

language	delphi

procedure DiscountUsage1001731(UsageParameters: TDiscountUsageParameters);

var i: integer;

it: TCheckItem;

a: double; 

begin 

a := 0;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then

a := a + TDish(it).PRListSum

else if SYS.ObjectInheritsFrom(TObject(it), 'TChargeLine') then

a := a + TChargeLine(it).CalcAmount;

end;


if a >= 150 then

UsageParameters.UsageMode := umAuto

else UsageParameters.UsageMode := umDeny;

end;

Скрипт на добавлении скидки при заказе любых двух блюд с доставкой или самовыносом !!!!!!!!!!!!!!!!!!

Системы доставки нет. Вся доставка просто бьется на стол 80, а самовынос - на стол 70.

...

Child pages

Versions Compared

Old Version 1

New Version 2

Key

A script to add a bonus dish for each 4th unique dish from the category

A script to cancel the discount when adding another discount

Скрипт для автоматической наценки в зависимости от места

A script for automatic markup depending on the location

Скрипт для добавления бесплатного блюда в определенный день недели, в определенное время, при пробитии определенного блюда

A script to adding a free dish on a specified day of the week, at a certain time, when a specified dish is ordered

Скрипт на добавление\удаление блюда при определенном пороге суммы заказа

A script to add or to remove dishes at a specified order amount

Скрипт на автоматическое добавление блюда в заказ

A script to automatically add a dish to an order

A script to automatically add a free (starter) dish to an order when creating a new order

Скрипт для накопление бонусов в зависимости от времени

A script to accumulate bonuses depending on the time

A script to display a discount in the order when printing the bill

Скрипт на добавлении скидки при заказе любых двух блюд с доставкой или самовыносом !!!!!!!!!!!!!!!!!!