View Source

A script to open a custom selector when adding a specified dish to an order

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

var

Categ: TClassificatorGroup;

begin 

if TRK7Restaurant(RK7.CashGroup.MainParent).Code = 6 then

if (AEditType = etInsert) and SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then begin

Categ := TClassificatorGroup(RK7.FindItemByCode(rkrefClassificatorGroups, 145)); // oeacaou eia eeanneoeeaoee

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

RK7.PostOperation(rkoPrepaySelector, 145);

end;

end;

A script to offer a dessert to a guest

The script should add the "Desserts" menu group when adding the "Beverages" menu group and if the guest gives agrees.

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

var MenuCode, GroupMenu: integer;


begin 

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

MenuCode := 11; // code of the "Desserts" menu to be added

GroupMenu := 8; // "beverages" group menu

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

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

begin

if (TMenuGroupLine(AObjectAft).Code = GroupMenu) then 

begin 

RK7.PerformRefObject(RK7.FindItemByCode(rkrefCategList, MenuCode )); //Code open menu

end

end

end;

A script to automatically turn on charging by time

The two restaurants have a common room and separate booths. There is a 10% extra charge for service both in the common room and booths. Besides, in the booths there is an additional minute-by-minute charging. Thus, an hour in the cabin costs 40 somoni, and a minute costs about 66 dirams. It’s necessary to make the system automatically turn on per-minute charging when opening an order in the booths, put it on pause when printing the bill and show the charging amount in the bill. Mobile Waiter is used in one of the restaurants, and a regular POS-terminal — in the second one.

On the receipt editing form of the object, insert the script in the event:

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

var i, CntDish: integer;

it: TCheckItem;

begin

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

begin

CntDish := 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 

CntDish := CntDish + 1;

end;

if CntDish = 1 then

RK7.PostOperation(rkoAddTariff, 0);

end;

end;  Instead of the bill selector, create your own variant and assign it a custom operation with the following script:   

procedure ProcessOperation1001625(Parameter: integer);

begin

RK7.PostOperation(rkoCloseTariff, 0);

end;

A script to change the weight of a dish with modifiers

When adding modifiers with the codes specified in the script, their weight specified in the extended property will be removed from the dish served by weight:

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

var j,ModifCode1,ModifCode2,ModifCode3: integer;

ed: TObject;

weight:double;

it: TCheckItem;

begin

ModifCode1 := 98;

ModifCode2 := 98;

ModifCode3 := 100;


weight:=0;


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

if (TModiItem(AObjectAft).code = ModifCode1)

or(TModiItem(AObjectAft).code = ModifCode2)

or(TModiItem(AObjectAft).code = ModifCode3) then

begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then Exit;

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

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

begin

weight:= TDish(it).Quantity; 

ed := TObject(gui.FindComponentByName('Editor'));

if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then

begin

weight:=StrToFloat(TModifier(TModiItem(AObjectAft).RefItem).genWeight0419);

TNumEditor(ed).Text := floatToStr(TDish(it).Quantity+(weight/1000)); // + if the modifier has a negative weight, and - if the modifier has a positive weight.

RK7.PerformOperation(rkoEditPortionWeight, 0);

TNumEditor(ed).Text := '';

end;

end; 

end; 

end;

A promotion script: order 2 dishes — get the cheapest 3d one for free

Respectively, two cheapest dishes are for free if 6 dishes are ordered.

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

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

begin

AddEveryOtherDiscount(11{DiscCode}); // 11 opened fixed amount discount on a dish

end;

Before the abovementioned script, add the following one:


Corrected version:


procedure AddEveryOtherDiscount(DiscCode: integer);

var i, j, k, evr, qntdsc, CategCode: integer;

it, CurItem: TCheckItem;

SL: TStringList;

a, q, Price: double;

d: TDish;

CheckView: TCheckView;

categ: TClassificatorGroup;

begin

evr := 3; // make discount every this count

qntdsc := 0;

CategCode := 5; //5 - paste your category code

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

if CheckView = Nil then Exit;

CurItem := RKCheck.CurrentCheckItem;

SL := TStringList.Create;

try

// Create list of the dishes, sorted by price 

SL.Sorted := True;

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

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

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

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

if Categ.IsChild(it.RefItem) then //Check category of the dish 

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

if not(TDish(it).IsComboComp) then

if ((it.State = disOpened) or (it.State = disPrinted)) then begin

// gui.showmessage(TDish(it).name);

if (TDish(it).Quantity = 0) or (TDish(it).PRListSum = 0) then Price := TDish(it).Price

else Price := TDish(it).PRListSum/TDish(it).Quantity;

SL.AddObject(FormatFloat('00000000.00', Price) + IntToStr(TDish(it).UNI), TObject(it));

end;

end;


if evr > 0 then

qntdsc := SL.Count div evr;


if SL.Count >= evr then 

for i := 0 to SL.Count - 1 do begin

d := TDish(SL.Objects[i]); 

a := 0;

q := d.Quantity;

if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price

else Price := d.PRListSum/d.Quantity;

while q + 0.0001 > 1 do begin 

//if (i+1) mod evr = 0 then

if ((i+1)<=qntdsc)and(qntdsc>0) then

a := a + Price;

q := q - 1;

end;


// Delete discount, if a sum changed

for j := RKCheck.CheckItemCount(TObject(d.Discounts)) - 1 downto 0 do begin

it := RKCheck.CheckItemByNumber(TObject(d.Discounts), j);

if (it.Code = DiscCode) then begin

if abs(TDiscountItem(it).SrcAmount) = a then

a := 0 

else RKCheck.DeleteCheckItem(it);

break;

end;

end;


// Create discount to a dish

if a > 0 then begin

CheckView.GotoItem(TObject(d));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));

end;

end;

finally

SL.Free();

if CurItem <> Nil then

CheckView.GotoItem(CurItem);

end;

RKCheck.CurrentOrder.Recalc();

end;

A script to automatically add a bonus dish if a specified dish is ordered

The script adds a bonus dish when adding a promotional dish from a specified category.

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% скидкой.

Скрипт на событие OnAfterCheckViewEdit объекта CheckView, расположенного на форме редактирования чека. Считаются все блюда в категории и на каждое n-ое добавляется бонусное блюдо.

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; // код категории

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

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; // счётчик кол-ва акционного блюда

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; // счётчик кол-ва бонусного блюда

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;

Скрипт на обнуление скидки при добавлении другой скидки

procedure DiscountUsage1002304(UsageParameters: TDiscountUsageParameters);

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

it: TCheckItem;

begin

// if not RKCheck.Valid then exit; 

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

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

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

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;

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

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

Необходимо добавить наценку в тот момент, когда бармен открыл его заказ на редактирование.

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

var Categ: TClassificatorGroup;

it: TCheckItem;

i, CategCode, DiscCode, DiscCnt: Integer;

begin

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

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

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;

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

В форме редактирования у компонента CheckView в событии OnAfterCheckViewEdit записать скрипт:

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); // начало периода акции

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

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

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

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


CntDish1 := 0;

CntDish2 := 0;

CurrTime := Time;

//1 = воскресенье

//2 = понедельник

//3 = вторник

//4 = среда

//5 = четверг

//6 = пятница

//7 = суббота

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

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); // удаление

continue;

end else

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

end;

RK7.PerformOperation(rkoDown, 0);

end;

end;

if CntDish1 > 0 then

begin

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

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

end;

end;

end;

end;

В форме редактирования у компонента CheckView в событии OnBeforeCheckViewEdit записать скрипт:

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); // начало периода акции

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

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

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

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


CntDish1 := 0;

CntDish2 := 0;

CurrTime := Time;

//1 = воскресенье

//2 = понедельник

//3 = вторник

//4 = среда

//5 = четверг

//6 = пятница

//7 = суббота

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

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); // удаление

continue;

end else

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

end;

RK7.PerformOperation(rkoDown, 0);

end; 

end;

if CntDish1 > 0 then

begin

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

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

end;

end; 

end;

end;

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

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

В форме редактирования заказа у объекта CheckView в событии OnBeforeCheckViewEdit указать скрипт:

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;


// { блокировка добавления специального блюда при сумме меньше лимита.

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 р.';

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 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 CntDish1 = 0 then

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

end;

end;

В форме редактирования заказа у объекта CheckView в событии OnAfterCheckViewEdit указать скрипт:

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 CntDish1 = 0 then

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


end; 

end;

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

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

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

Бесплатное блюдо добавляется при постепенном формировании заказа. При уменьшение суммы заказа блюдо удаляется. Если заказ превышает сумму в 2000 р., бесплатное блюдо с условием заказ>2000р. добавляется, а блюдо с условием заказ>1000 р. удаляется. А если уменьшить сумму заказа с 2000 до 1500, то блюдо с условием заказ>2000 р. убирается, а блюдо с условием заказ>1000р. должно добавляться.

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;

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

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;

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

Бонусы действуют до 22:00. Гость пришел в 21:50, заказал сок за 100р. В 22:20 заказал пирожок за 50р. В 22:40 (или в час ночи) попросил счёт и дал карту - бонусы должны начислиться на сок, но не на пирожок, несмотря на время проведения картой.

Скрипт для события OnAfterCheckViewEdit у объекта CheckView на форме редактирования заказа:

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; // код блюда с открытой ценой

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

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;

Скрипт для события OnBeforeCheckViewEdit у объекта CheckView на форме редактирования заказа:

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; // код блюда с открытой ценой

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

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 // учитывать сумму удаляемого блюда / раскоментировать когда будет исправлен баг

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.

Скрипт, оставляющий скидку в заказе при печати пречека

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.

Скрипт для объекта CheckView в событии OnBeforeCheckViewEdit

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

var ToPaySum, sumDiscount : double;

i, CntDicount, DiscCode, sumActtion: integer;

it: TCheckItem;

begin

CntDicount := 0;

DiscCode := 18; // код суммовой скидки добавляемой по акции

sumActtion := 700; // сумма чека для активации акции

sumDiscount := 70; // сумма используемой скидки (подставить сумму из настроек суммовой скидки)

ToPaySum := RKCheck.CurrentOrder.ToPaySum;

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(TObject(it), 'TDiscountItem') then

if (it.Code = DiscCode) then

CntDicount := CntDicount + 1;

end;


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

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

if CntDicount > 0 then

ToPaySum := ToPaySum + sumDiscount;

if ToPaySum >= sumActtion+sumDiscount then

begin

if CntDicount = 0 then

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(0));

end

else

if CntDicount > 0 then

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 = DiscCode) then begin

RKCheck.DeleteCheckItem(it);

CntDicount := 0;

end;

end; 

end; 

end;

Для объект CheckView в событии OnAfterCheckViewEdit

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

var ToPaySum, sumDiscount, sumActtion: double;

i, CntDicount, DiscCode: integer;

it: TCheckItem;

begin

CntDicount := 0;

DiscCode := 18; // код суммовой скидки добавляемой по акции

sumActtion := 700; // сумма чека для активации акции

sumDiscount := 70; // сумма используемой скидки (подставить сумму из настроек суммовой скидки)

if not(AEditType = etRemove) then

begin

ToPaySum := RKCheck.CurrentOrder.ToPaySum;

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 = DiscCode) then

CntDicount := CntDicount + 1;

end;


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

begin 

if AEditType = etInsert then

ToPaySum := ToPaySum + TDish(AObjectAft).PRListSum

else if AEditType = etChange then

ToPaySum := ToPaySum + TDish(AObjectAft).PRListSum - TDish(AObjectBef).PaySum; 

end;


if ToPaySum >= sumActtion+sumDiscount then

begin

if CntDicount = 0 then

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(0));

end

else

if CntDicount > 0 then

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 = DiscCode) then begin

RKCheck.DeleteCheckItem(it);

CntDicount := 0;

end;

end; 

end;

end;

Скрипт на перенос блюда со 100% скидкой в отдельный пакет

Если 100% скидка применяется на блюдо, у которого цена в момент добавления скидки больше 0, то тогда такое блюдо перемещается в новый пакет с нулевой ценой.

При переносе блюда — название скидки сохраняется под этим блюдом. И потом можно посмотреть отчет по этим скидкам

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

begin

if AEditType = etInsert then

begin

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

if (TDiscountItem(AObjectAft).Code = 1000105) then // discount code

begin

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

begin

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

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

end;

RK7.PerformOperation(rkoMoveCurrentDishToSes, 1000155) // ident of course

if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TDish') then

if RKCheck.CurrentCheckItem.Session.iKurs <> 1000155 then

RKCheck.DeleteCheckItem(TDiscountItem(AObjectAft)); 

end;

end; 

end;

Проверка статуса блюда.

procedure ProcessOperation1001712(Parameter: integer);

var

it: TCheckItem;

i, code: integer;

qntnew, qntold, pricenew: double;

CurItem: TCheckItem;

ed: TObject;

begin

qntnew := 0;

pricenew := 100;

if not RKCheck.Valid then

exit //important checking

else

begin

CurItem := RKCheck.CurrentCheckItem;

if not(TDish(CurItem).State = disOpened) then

begin

gui.showmessage('You can''t move saved dish!!!');

exit;

end; 

ed := TObject(gui.FindComponentByName('Editor'));

if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then

if (length(TNumEditor(ed).Text)>0) then

qntnew := StrToFloat(TNumEditor(ed).Text)

else

qntnew := 1;

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

if (TDish(CurItem).quantity > qntnew) and (qntnew > 0) then

begin

TNumEditor(ed).Text := FloatToStr(TDish(CurItem).quantity-qntnew);

RK7.PerformOperation(rkoEditAmount, 0);

code := CurItem.code; 

RK7.PerformOperation(rkoDown, 0);

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(code), IntToStr(Trunc(qntnew))); // add dish

end;

end;

TNumEditor(ed).Text := FloatToStr(qntnew);

// RK7.PerformOperation(rkoMoveCurrentDishToSes, 1000155) // ident of course 

RK7.PerformOperation(rkoMoveCurrentDishToSes, 1) // ident of course 

TNumEditor(ed).Text := '';

RK7.PostOperation(rkoDiscountSelector, 0); 

end;

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

Необходимо, чтобы при пробитии комбо-блюд, относящихся к классификации «49 рублей» на экране выходило информационное окно с текстом «предложи добавку за 49 рублей»

1) Назначить скрипт на событие OnAfterCheckViewEdit объекта CheckView в форме редактирования заказа:

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

var

Categ: TClassificatorGroup;

begin 

if AEditType = etInsert then

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

if TDish(AObjectAft).IsCombo then

begin

Categ := TClassificatorGroup(RK7.FindItemByCode(rkrefClassificatorGroups, 8)); // указать код классификации

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

gui.ShowMessage('предложи добавку на 49 рублей');

end; 

end;

2) Добавить расширенное свойство в ресторане

Message_Addon_49

3) Назначить скрипт на форму быстрого чека

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

var

Categ: TClassificatorGroup;

begin

if ( TRK7Restaurant(RK7.CashGroup.MainParent).genMessage_Addon_49='1') then

if AEditType = etInsert then

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

if TDish(AObjectAft).IsCombo then

begin

Categ := TClassificatorGroup(RK7.FindItemByCode(rkrefClassificatorGroups, 144)); // указать код классификации

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

gui.ShowMessage('Предложи Гостю добавку к комбо за 49 руб');

end;

end;

Для того ,чтобы в ресторане начали показывать сообщение, нужно указать «1» в расширенном свойстве Message_Addon_49

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

На форме редактирования чека у объекта CheckView в событии OnAfterCheckViewEdit указать скрипт открывающий выбор консуманта при добавлении определённого блюда:

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

var

i, DishCode: integer;

it: TCheckItem; 

begin

DishCode := 13; // код контролируемого блюда

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

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

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

begin

RK7.PerformOperation(rkoConsumatorSelector, 1);

end;

end;

На форме редактирования чека у объекта CheckView в событии OnOrderVerify указать скрипт запрещающий продолжать работу при печати чека или пречека в случае отсутствия консуманта у контролируемого блюда:

procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);

var

i, DishCode: integer;

it: TCheckItem; 

begin

DishCode := 13; // код контролируемого блюда

if (AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then // срабатывать при печати чека и пречека

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

begin

// checking by Consumators

if TDish(it).Consumators.Count = 0 then

begin 

gui.ShowMessage('Операция запрещена, т.к. не выбран консумант!');

AContinue := false;

end;

end;

end; 

end;

Чтобы запретить выход из чека, если у блюда нет косуманта, то необходимо заменить устовие в строке:

 if (AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then // срабатывать при печати чека и пречека

на

if (AVerifyType = vtBeforeSave)or(AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then // срабатывать при сохранении заказа, печати чека и пречека

Скрипт на автоматическое изменение цены

Необходимо при продаже кофе вместе с любым блюдом из классификации (не категории) «Food» менять цену кофе

procedure ChangePrice;

var i, CategCode1, CategCode2, Categ2DishCnt, course1, course2: integer; 

Categ1, Categ2: TClassificatorGroup;

it, CurItem: TCheckItem;

CheckView: TCheckView;

begin

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

course1 := 1002378; // ident of course 1 // указать идентификатор порядка подачи к которому привязан тип цены для блюда категории 1 при наличии в заказе блюд из категории 2

course2 := 1002379; // ident of course 2 // указать идентификатор порядка подачи к которому привязан тип цены для блюда категории 1 при отсутсвии в заказе блюд из категории 2

CategCode1 := 8; // code of category for cofe // код категории 1

CategCode2 := 27; // code of category FOOD // код категории 2

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

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

if CheckView = Nil then Exit;

Categ2DishCnt := 0;

Categ1 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode1));//category code

Categ2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode2));//category code

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

begin

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

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

if Categ2.IsChild(TDish(it).RefItem) then

if TDish(it).Quantity > 0 then

Categ2DishCnt := Categ2DishCnt + 1;

end;

CurItem := RKCheck.CurrentCheckItem;

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 (Categ1.IsChild(TDish(it).RefItem)) then // checking category of dish

if Categ2DishCnt > 0 then

begin 

if TRk7MenuItem(it.RefItem).Kurs <> course1 then

RK7.PerformOperation(rkoMoveCurrentDishToSes, course1) // change course

end

else

begin 

if TRk7MenuItem(it.RefItem).Kurs <> course2 then

RK7.PerformOperation(rkoMoveCurrentDishToSes, course2); // change course;

end;

RK7.PerformOperation(rkoDown, 0);

end; 

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

end;


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

begin

ChangePrice;

end;


procedure CheckViewCurItemChangedScript(Sender: TObject);

begin

ChangePrice;

end;