...
| Code Block |
|---|
procedure ProcessOperation1001537(Parameter: integer);
var i: integer;
Limit: double;
CardCode: string;
McrPay: TMcrPay;
begin
if TObject(RKCheck.CurrentOrder) = Nil then Exit;
// Limit calculation
Limit := 0;
CardCode := '';
for i := 0 to RKCheck.CurrentOrder.Sessions.McrPays.ItemCount - 1 do begin
McrPay := TMcrPay(RKCheck.CurrentOrder.Sessions.McrPays.Items[i]);
Limit := Limit + McrPay.MaxAmount;
CardCode := McrPay.CardNum;
end;
if CardCode = '' then Exit
else
gui.Showmessage('Card '+CardCode+' balance '+FloatToStr(Limit)+' р.');
end; |
Limiting the 100% Category Discount
Mission: The 100% discount should apply only to one dish item belonging to the category.
Solution:
| Code Block |
|---|
procedure ProcessOperation1001621(Parameter: integer); |
...
var i, j, numcateg: integer; |
...
DiscCode: integer; |
...
it, CurItem: TCheckItem; |
...
SL: TStringList; |
...
a, q, Price: double; |
...
d: TDish; |
...
CheckView: TCheckView; |
...
Categ: TClassificatorGroup; |
...
skip: boolean; |
...
begin |
...
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; |
...
DiscCode := 11; |
...
numcateg := 8; //5 - category code |
...
for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do |
...
begin |
...
it := RKCheck.CurrentOrder.Sessions.Lines[i]; |
...
Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', numcateg)); //5 - category code |
...
if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then //Check dish lines only |
...
if Categ.IsChild(it.RefItem) then //Check category of the dish |
...
// if (it.RefItem.MainParent.code =11 ) then // if dish from category of menu and have same code |
...
if ((it.State = disOpened) or (it.State = disPrinted)) then |
...
begin |
...
skip := false; |
...
for j:=0 to SL.Count - 1 do |
...
begin |
...
d:= TDish(SL.Objects[j]); |
...
if d.code=it.code then |
...
Skip := True; |
...
end; |
...
if not(skip) then |
...
begin |
...
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; |
...
end; |
...
//Magic |
...
q:=0; |
...
for i:= 0 to SL.Count - 1 do |
...
begin |
...
a:= 0; |
...
d:= TDish(SL.Objects[i]); |
...
q:= d.Quantity; |
...
if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price |
...
else Price := d.PRListSum/d.Quantity; |
...
a:= a + Price; |
...
// Delete discount if the 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; |
Opening the Browser
...
Window for Displaying
...
Cash Operation Reports
Mission: It is required to Task: To create a function button in the main POS menu that when pressed cash menu, pressing which will execute the command: fsWeb.exe "https://172.22.4.57:8088/csthtm/overall1.html", where 172.22.4.57 is the value of an extended restaurant property
Solution:
| Code Block |
|---|
procedure ProcessOperation1001763(Parameter: integer); |
...
var s: string; |
...
begin |
...
// TRK7Restaurant(RK7.CashGroup.MainParent).genMessage_Addon_49='1' |
...
s := TRK7Restaurant(RK7.CashGroup.MainParent).genTEL; |
...
GUI.CmdExec('fsWeb.exe "https://'+s+':8088/csthtm/overall1.html"'); |
...
end; |
Assign the script to the user operation that, in its turn, should be assigned to a function button.
Adding a Dish to the Order
MissionTask: After swiping a discount card, a discount , and a gift (— a dish having with a certain specified code ) — should be awarded to the customer card.
The process is should be as follows:
- Creating a button in the interface
- Once this button is pressed, a customer enters a promo code
- This promo code is read as the card code, there is a corresponding MCR algorithm written for it.
- FarCards is called, a discount and a free dish are received. It can be inicated indicated in some field.
- This dish is added to a table and the discount is applied to it.
Solution:
1) create
Create the script:
Code Block
...
procedure ProcessOperation1001765(Parameter:
...
integer);
...
var ed: TObject;
DeviceID : integer;
begin
if not RKCheck.Valid then
exit //important checking
else
begin
DeviceID := 0; // PDS interface identifier
ed := TObject(gui.
...
var ed: TObject; DeviceID : integer; begin if not RKCheck.Valid then exit //important checking else begin DeviceID := 0; // PDS interface ID ed := TObject(gui.FindComponentByName('Editor')); if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then if (Pos('1001',TNumEditor(ed).Text)>0) or (Pos('1002',TNumEditor(ed).Text)>0) then gui.showmessage('nevernii promokod!!!') else RK7.PerformMCRAlgorith('8989='+TNumEditor(ed).Text, DeviceID); //RK7.PerformOperation(rkoCreateDish, StrToInt(TNumEditor(ed).Text)); end; end;In the input field of the cash terminal, a promotional code is entered. In our example, it is 1001 or 1002. If the entered promotional code matches the one stored in the script, the MCR script is called.
The MCR script needs to be created with the following properties:
Main > Area: Discount
Main > Object: Discount Used
General > Device Types > Script: enabled.
Code Block function MCR1001146(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean; var RestCode: integer; begin Result := False; if pos('8989=', Parameter) = 1 then begin RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(43), '1'); // adding the dish with code 43 to the order Result := True; end; end;
Checking the number of dishes from a certain category
Task: to create a script to check the number of dishes from a certain category.
Solution:
| Code Block |
|---|
procedure ProcessOperation1001742(Parameter: integer);
var i, CategCode: integer;
it: TCheckItem;
iQnt : double;
Categ: TClassificatorGroup;
CurSession: TOrderSession;
begin
if (not RKCheck.Valid) then
exit;
else begin
CategCode := 8; //category code
iQnt := 0;
Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode));//category code
if SYS.ObjectInheritsFrom(TObject(RKCheck.CurrentCheckItem), 'TDish') then
CurSession := TDish(RKCheck.CurrentCheckItem).Session;
for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do
begin
it := RKCheck.CurrentOrder.Sessions.Lines[i];
if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then
begin
if CurSession = TDish(it).Session then
if (Categ.IsChild(it.RefItem)) then
iQnt := iQnt + Trunc(TDish(it).Quantity);
end;
end;
//RKCheck.CurrentOrder.Visit.GuestCnt
if (iQnt < 4) then
begin
GUI.Showmessage('Chua du? diê`u kiê?n a´p du?ng: ' + FloatToStr(iQnt));
Exit;
end;
end;
end; |
Creating Additional Reports When Closing a Shift
Task: to create a script to automatically generate additional reports when a shift is closed.
Solution:
| Code Block |
|---|
procedure ProcessOperation1001784(Parameter: integer);
begin
RK7.PerformRefObject( RK7.FindItemByCode(rkrefMaketSchemeDetails, 184) ); // document view code in the printing schemes
RK7.PerformOperation(rkoMMCloseCommonShift, 0); // common shift closing
end; |
Forbidding to Cancel the Bill in One Order More Than X Times
Task: It is necessary to forbid canceling the guest bill in one order more than X times, specified in the parameter.
-1 (default) — allowed to cancel unlimited number of times
0 — it is forbidden to cancel the guest bill at all
1...999 — indicates how many times you can cancel the guest bill in an order/visit
Order >> print pre-check >> cancel pre-check >> print pre-check again >> can not cancel pre-check (system warning and must not allow).
The superuser can always cancel receipts without paying attention to this parameter.
Solution:
- Create the MaxDelBillCnt extended property of the integer type and assign it to the restaurant
- In the properties of the restaurant, specify a value for this property
- Create a script:
| Code Block |
|---|
procedure ProcessOperation1002346(Parameter: integer);
var i, CntDelBill, MaxDelBillCnt: integer;
it: TCheckItem;
begin
CntDelBill := 0;
MaxDelBillCnt := -1;
// if ( TRK7Restaurant(RK7.CashGroup.MainParent).genMaxDelBillCnt=1) then
MaxDelBillCnt := TRK7Restaurant(RK7.CashGroup.MainParent).genMaxDelBillCnt;
if MaxDelBillCnt = -1 then
RK7.PerformOperation(RkoUnlockBill,0);
if MaxDelBillCnt = 0 then
begin
gui.showmessage('Cancel bill forbidden!');
Exit;
end;
if MaxDelBillCnt > 0 then
begin
for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin
it := RKCheck.CurrentOrder.Sessions.Lines[i];
if SYS.ObjectInheritsFrom(TObject(it), 'tPrintCheckItem') then
if tPrintCheckItem(it).IsBill then
if tPrintCheckItem(it).Deleted then
CntDelBill := CntDelBill + 1;
end;
if CntDelBill >= MaxDelBillCnt then
begin
if RK7.PerformOperation(rkoUser15, 0)=1 then
RK7.PerformOperation(RkoUnlockBill,0)
else
gui.showmessage('Cancel bill forbidden!');
end
else
RK7.PerformOperation(RkoUnlockBill,0);
end;
dbg.dbgprint('CntDelBill = ' + IntToStr(CntDelBill));
dbg.dbgprint('MaxDelBillCnt = ' + IntToStr(MaxDelBillCnt));
end; |
Assign an empty script to user operation 15:
| Code Block |
|---|
procedure ProcessOperation1001624(Parameter: integer);
begin
end; |
Enable the access control for this operation. Give the superuser the right for the operation.
Using Different Price Types
Task: when selling dishes at the cash register to a regular customer, not authorized at the cash register with a card, the price should be Price Type No. 1. When selling dishes to a restaurant customer, authorized with a card at the cash register, the price should be Price Type No. 2.
Solution:
| Code Block |
|---|
procedure ProcessOperation1001986(Parameter: integer);
var Props: TVisitOrderInfo;
begin
Props := TVisitOrderInfo.Create();
try
Props.OrderCategoryID := 10033; // specify the order category ID
RKCheck.UpdateOrderProps(Props);
finally
Props.Free;
end;
end; |
| Note |
|---|
For version r_keeper 7.5.4.x, enable the Change order category after creation option. |
Changing the Main Waiter
Task: to create a script to change the main waiter.
Solution:
| Code Block |
|---|
procedure ProcessOperation1000813(Parameter: integer);
var Props: TVisitOrderInfo;
begin
Props := TVisitOrderInfo.Create;
try
Props.MainWaiterID := RK7.FindItemByCode(rkrefEmployees, 21).Ident;
RKCheck.UpdateOrderProps(Props);
finally
Props.Free;
end;
end; |
Changing the Price Type by Setting the Order of Serving Dishes
Task: to create a script that sets serving order No. 1 for dishes of a specified category, and serving order No. 2 for all other dishes.
Solution:
| Code Block |
|---|
procedure ProcessOperation1002417(Parameter: integer);
var CategCode, course1, course2: integer;
Categ: TClassificatorGroup;
it: TCheckItem;
begin
if not RKCheck.Valid then
exit //important checking
else
begin
CategCodeList := TStringList.Create;
//********** Set parameters ***********//
CategCode := 27; // code of category 1
course1 := 1002378; // serving order 1 ID
course2 := 1002379; // serving order 2 ID
//********** Set parameters ***********//
Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode));//category code
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 (Categ.IsChild(TDish(it).RefItem)) then // checking category of dish
// if TRK7MenuItem(RK7.FindItemBySifr(rkrefMenuItems, TDish(it).Sifr)).genAstor_code = '1' then // check ext property
RK7.PerformOperation(rkoMoveCurrentDishToSes, course1); // ident of course
else
RK7.PerformOperation(rkoMoveCurrentDishToSes, course2); // ident of course;
RK7.PerformOperation(rkoDown, 0);
end;
end;
end; |
Changing the Amount Discount
Task: The discount is tied to the card and works for orders with delivery. Every tenth order should receive a discount of 500 rubles, provided that the average receipt for these 10 orders was at least 500 rubles.
Solution:
| Code Block |
|---|
procedure ProcessOperation1001902(Parameter: integer);
var ed: TObject;
it: TCheckItem;
begin
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), 'TDiscountItem') then
if TDiscountItem(it).Code = 14 then // specify the discount code
if (it.State = disOpened) then // checking the unsaved status of the discount
begin
ed := TObject(gui.FindComponentByName('Editor'));
if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then
begin
TNumEditor(ed).Text := IntToStr(trunc(100));
RK7.PerformOperation(rkoEditOpenPrice, 0);
end;
TNumEditor(ed).Text := '';
end;
RK7.PerformOperation(rkoDown, 0);
end;
end; |
Change the Combo or Dish Size When Pressing a Button
Task: To write a script and make buttons, when pressing which the dish size will change.
Solution:
A script for enlarging the size:
| Code Block |
|---|
procedure ProcessOperation1002094(Parameter: integer);
var NextCateg,Categ1,Categ2, Classif1,Classif2: TClassificatorGroup;
it, CurItem: TCheckItem;
cv: TObject;
mi_d,mi_s: trk7menuitem;
ex,i,j,MinSize,MaxSize,ClassifCode1,ClassifCode2,CurSize,NextSize,NextCategCode: integer;
begin
if not RKCheck.Valid then
exit //important checking
else
begin
MinSize := 1;
MaxSize := 3;
CurItem := RKCheck.CurrentCheckItem;
ClassifCode1 := 16; // code classificator of dish type
ClassifCode2 := 9; // code classificator of dish size
if SYS.ObjectInheritsFrom(TObject(CurItem), 'TDish') then // if current item is dish
if not TDish(CurItem).IsComboComp then // comment this line if need allow change size for combo-components
begin
// dbg.dbgprint('dish type');
Classif1 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode1));
// dbg.dbgprint(inttoStr(Classif1.ChildCount));
for i := 0 to Classif1.ChildCount - 1 do begin
Categ1 := TClassificatorGroup(Classif1.ChildItem(i));
if Categ1.IsChild(CurItem.RefItem) then begin
// dbg.dbgprint('Classif1.code='+IntToStr(Classif1.code)+' Categ1.code='+IntToStr(Categ1.code));
break;
end;
end;
// dbg.dbgprint('dish size');
Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));
// dbg.dbgprint(inttoStr(Classif2.ChildCount));
for i := 0 to Classif2.ChildCount - 1 do begin
Categ2 := TClassificatorGroup(Classif2.ChildItem(i));
if Categ2.IsChild(CurItem.RefItem) then begin
CurSize := Categ2.SortOrder;
// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));
break;
end;
end;
NextSize := CurSize + 1;
if NextSize > MaxSize then
begin
//************for recursy change size **************/
// NextSize := MinSize; // uncomment this recursion to resize
//************for recursy change size **************/
gui.showmessage('reached a maximum size dishes!'); // comment out this recursion to resize
exit; // comment out this recursion to resize
end;
// dbg.dbgprint('serch dish size');
Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));
// dbg.dbgprint(inttoStr(Classif2.ChildCount));
for i := 0 to Classif2.ChildCount - 1 do begin
Categ2 := TClassificatorGroup(Classif2.ChildItem(i));
if Categ2.SortOrder=NextSize then begin
NextCategCode := Categ2.Code;
NextCateg := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', NextCategCode));
// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));
break;
end;
end;
// dbg.dbgprint('serch dish type size');
ex := 0;
for i := 0 to Categ1.ChildCount - 1 do begin
mi_d := trk7menuitem(Categ1.ChildItem(i));
// dbg.dbgprint(inttostr(mi_d.code)+' '+mi_d.RightLangName+' '+inttostr(mi_d.extcode)+' '+inttostr(Categ1.SortOrder)+' '+(mi_d.name)+' ');
for j := 0 to Categ2.ChildCount - 1 do begin
mi_s := trk7menuitem(NextCateg.ChildItem(j));
if mi_d.code = mi_s.code then
begin
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(mi_s.code), FloatToStr(TDish(CurItem).Quantity));
if CurItem <> Nil then
begin
cv := TObject(gui.FindComponentByName('CheckView'));
if SYS.ObjectInheritsFrom(TObject(cv), 'TCheckView') then
TCheckView(cv).GotoItem(CurItem);
end;
// dbg.dbgprint('BINGO '+inttostr(mi_s.ident)+inttostr(mi_s.code)+' '+mi_s.RightLangName+' '+inttostr(mi_s.extcode)+' '+inttostr(NextCateg.SortOrder)+' '+(mi_s.name)+' ');
ex := 1;
break;
end;
end;
if ex > 0 then break;
end;
end;
end;
end; |
A script for reducing the size:
| Code Block |
|---|
procedure ProcessOperation1002112(Parameter: integer);
var NextCateg,Categ1,Categ2, Classif1,Classif2: TClassificatorGroup;
it, CurItem: TCheckItem;
cv: TObject;
mi_d,mi_s: trk7menuitem;
ex,i,j,MinSize,MaxSize,ClassifCode1,ClassifCode2,CurSize,PrevSize,NextCategCode: integer;
begin
if not RKCheck.Valid then
exit //important checking
else
begin
MinSize := 1;
MaxSize := 3;
CurItem := RKCheck.CurrentCheckItem;
ClassifCode1 := 16; // code classificator of dish type
ClassifCode2 := 9; // code classificator of dish size
if SYS.ObjectInheritsFrom(TObject(CurItem), 'TDish') then // if current item is dish
if not TDish(CurItem).IsComboComp then // comment this line if need allow change size for combo-components
begin
// dbg.dbgprint('dish type');
Classif1 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode1));
// dbg.dbgprint(inttoStr(Classif1.ChildCount));
for i := 0 to Classif1.ChildCount - 1 do begin
Categ1 := TClassificatorGroup(Classif1.ChildItem(i));
if Categ1.IsChild(CurItem.RefItem) then begin
// dbg.dbgprint('Classif1.code='+IntToStr(Classif1.code)+' Categ1.code='+IntToStr(Categ1.code));
break;
end;
end;
// dbg.dbgprint('dish size');
Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));
// dbg.dbgprint(inttoStr(Classif2.ChildCount));
for i := 0 to Classif2.ChildCount - 1 do begin
Categ2 := TClassificatorGroup(Classif2.ChildItem(i));
if Categ2.IsChild(CurItem.RefItem) then begin
CurSize := Categ2.SortOrder;
// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));
break;
end;
end;
PrevSize := CurSize - 1;
if PrevSize < MinSize then
begin
//************for recursy change size **************/
// PrevSize := MaxSize; // uncomment this recursion to resize
//************for recursy change size **************/
gui.showmessage('reached a minimum size dishes!'); // comment out this recursion to resize
exit; // comment out this recursion to resize
end;
// dbg.dbgprint('serch dish size');
Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));
// dbg.dbgprint(inttoStr(Classif2.ChildCount));
for i := 0 to Classif2.ChildCount - 1 do begin
Categ2 := TClassificatorGroup(Classif2.ChildItem(i));
if Categ2.SortOrder=PrevSize then begin
NextCategCode := Categ2.Code;
NextCateg := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', NextCategCode));
// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));
break;
end;
end;
// dbg.dbgprint('serch dish type size');
ex := 0;
for i := 0 to Categ1.ChildCount - 1 do begin
mi_d := trk7menuitem(Categ1.ChildItem(i));
// dbg.dbgprint(inttostr(mi_d.code)+' '+mi_d.RightLangName+' '+inttostr(mi_d.extcode)+' '+inttostr(Categ1.SortOrder)+' '+(mi_d.name)+' ');
for j := 0 to Categ2.ChildCount - 1 do begin
mi_s := trk7menuitem(NextCateg.ChildItem(j));
if mi_d.code = mi_s.code then
begin
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(mi_s.code), FloatToStr(TDish(CurItem).Quantity));
if CurItem <> Nil then
begin
cv := TObject(gui.FindComponentByName('CheckView'));
if SYS.ObjectInheritsFrom(TObject(cv), 'TCheckView') then
TCheckView(cv).GotoItem(CurItem);
end;
// dbg.dbgprint('BINGO '+inttostr(mi_s.ident)+inttostr(mi_s.code)+' '+mi_s.RightLangName+' '+inttostr(mi_s.extcode)+' '+inttostr(NextCateg.SortOrder)+' '+(mi_s.name)+' ');
ex := 1;
break;
end;
end;
if ex > 0 then break;
end;
end;
end;
end; |