Page History

...

Go to Service > Scripts.
Select the Operations group and create the required scripts.
Create a script with the name Empty and fill it with the following text:
Code Block
begin end;
Select the Operations group and create 3 scripts; find the relevant texts below.
Do not forget to specify the Favorites category code in the scripts instead of 4097, and Classifications code instead of 4096.
Save the changes.

Load

...

Favorites

Before inserting a script, specify the «Favorites» category code.

Code Block

procedure ProcessOperation1007303(Parameter: integer);
var
zapros,resp, idents:string; 
dishes:TStringList;
dishstart,dishend:boolean;
i,k, step:integer;
it:tcheckitem;
begin
     if httppost('https://'+TRK7Restaurant(RK7.CashGroup.MainParent).genxmladress,'saasd',resp)<>0 then
       begin      
         gui.showmessage('References server at the following address: '+'https://'+TRK7Restaurant(RK7.CashGroup.MainParent).genxmladress+' does not respond.');
         exit;
       end;
     k:=gui.MessageDlgEx('To clear the current order and to load «Favorites» ?', mtInformation, mbYes+mbNo, 'Yes;No');
     if k=6 then
       begin
         rk7.performoperation(rkoDishSelector,0);
         RK7.PerformOperation(rkoHome, 0);
         while step<= RKCheck.CurrentOrder.Sessions.LinesCount 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     
               RK7.PerformOperation(rkoDeleteLine, 0);                                         
               continue;     
               RK7.PerformOperation(rkoHome, 0);
             end;
           step := step + 1;
           RK7.PerformOperation(rkoDown, 0);
       end;
dishes:=TStringList.Create;   
zapros:='<RK7Query><RK7CMD CMD="GetRefData" RefName="ClassificatorGroups" PropMask="RIChildItems.(code)" WithChildItems="2" RefItemIdent=" 4097 4097"></RK7CMD></RK7Query>';   // instead of 4097, specify the code of your «Favorites» category   
dishes.Add(zapros);
dishes.SaveToFile('.\test.xml');
dishes.free;
GUI.CmdExecWithFlags('.\runxml.bat', SW_HIDE, false);
dishes:=TStringList.Create;
dishes.LoadFromFile('.\Restest.xml');
for i:= 0 to dishes.Count - 1 do
    begin
      if pos('</RIChildItems>', dishes.strings[i])<>0 then dishend:=true;
      if (dishstart=true) and (dishend<>true) then
        begin
          idents:=copy(dishes.strings[i],26, length(dishes.strings[i])-28);
          RKCheck.CreateCheckItem(rkrefMenuItems, idents, '1');          
        end;
        if pos('<RIChildItems>', dishes.strings[i])<>0 then dishstart:=true;
    end;
dishes.free;
gui.showmessage('"Favorites" loaded to the current order.');
end;
end;

Record

...

Favorites

Code Block

procedure ProcessOperation1007306(Parameter: integer);
var
dishes:TStringList;
idents,cats, cats1,zapros, resp:string;
i,k:integer;
dishstart,dishend:boolean;
it:tcheckitem;
begin
if httppost('https://'+TRK7Restaurant(RK7.CashGroup.MainParent).genxmladress,'saasd',resp)<>0 then
       begin     
         gui.showmessage('References server at the following address: '+'https://'+TRK7Restaurant(RK7.CashGroup.MainParent).genxmladress+' does not respond.');
         exit;
    end;
if RKCheck.CurrentOrder.ToPaySum=0 then
k:=gui.MessageDlgEx('The current order is empty, load "Favorites"?', mtInformation, mbYes+mbNo, 'Yes;No');
if RKCheck.CurrentOrder.ToPaySum<>0 then k:=gui.MessageDlgEx('To record the dishes from the current order into «Favorites»?', mtInformation, mbYes+mbNo, 'Yes;No');
if k=6 then
begin
dishes:=TStringList.Create;
zapros:='<RK7Query><RK7CMD CMD="GetRefData" RefName="ClassificatorGroups" PropMask="RIChildItems.(ident)" WithChildItems="2" RefItemIdent="4097"></RK7CMD></RK7Query>';   // instead of 4097, specify the code of your "Favorites" category   dishes.Add(zapros);
dishes.SaveToFile('.\test.xml');
dishes.clear;
dishes.free;
GUI.CmdExecWithFlags('.\runxml.bat', SW_HIDE, false);
dishes:=TStringList.Create;
dishes.LoadFromFile('.\Restest.xml');
for i:= 0 to dishes.Count - 1 do
    begin
      if pos('</RIChildItems>', dishes.strings[i])<>0 then dishend:=true;
      if (dishstart=true) and (dishend<>true) then
        begin
          idents:=copy(dishes.strings[i],27, length(dishes.strings[i])-29);
          cats:=cats+'<Item Ident="'+idents+'" CLASSIFICATORGROUPS-4096="0"></Item>';  // instead of 4096, specify the code of your "Favorites" classification           end;
        if pos('<RIChildItems>', dishes.strings[i])<>0 then dishstart:=true;
    end;
dishes.clear;  
cats1:='<?xml version="1.0" encoding="utf-8"?><RK7Query><RK7Command CMD="SetRefData" RefName="MENUITEMS"><Items>'+cats+'</Items></RK7Command></RK7Query>';
dishes.Add(cats1);
dishes.SaveToFile('.\test1.xml');
dishes.free;
GUI.CmdExecWithFlags('.\runxmldel.bat', SW_HIDE, false);
dishes.clear;  
dishes.free;
dishes:=TStringList.Create;
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).quantity>0 then
      begin
      idents:=inttostr(TRk7MenuItem(getitemBycodeNum('MenuItems',TDish(it).Code)).ident);
      cats:=cats+'<Item Ident="'+idents+'" CLASSIFICATORGROUPS-4096="4097"></Item>';   // instead of 4096, specify the "Favorites" classification code; instead of 4097, specify the "Favorites" category code   
      end;
end;
cats1:='<?xml version="1.0" encoding="utf-8"?><RK7Query><RK7Command CMD="SetRefData" RefName="MENUITEMS"><Items>'+cats+'</Items></RK7Command></RK7Query>';
dbg.dbgprint('!!-!! '+cats1);
dishes.Add(cats1);
dishes.SaveToFile('.\test.xml');
dishes.free;
GUI.CmdExecWithFlags('.\runxml.bat', SW_HIDE, false);
gui.showmessage('The dishes from the current order have been saved as «Favorites».');
end;
end;

...

Delete Favorites

Code Block

procedure ProcessOperation1007309(Parameter: integer);
var
dishes:TStringList;
idents,cats, cats1,zapros,resp:string;
i:integer;
dishstart,dishend:boolean;
it:tcheckitem;
VoidCode, step: integer;
begin
if httppost('https://'+TRK7Restaurant(RK7.CashGroup.MainParent).genxmladress,'saasd',resp)<>0 then
       begin     
         gui.showmessage('The References server at the following address: '+'https://'+TRK7Restaurant(RK7.CashGroup.MainParent).genxmladress+' does not respond.');
         exit;
       end;
if gui.MessageDlgEx('Clear "Favorites"?', mtInformation, mbYes+mbNo, 'Yes;No')=6 then
begin
dishes:=TStringList.Create;
zapros:='<RK7Query><RK7CMD CMD="GetRefData" RefName="ClassificatorGroups" PropMask="RIChildItems.(ident)" WithChildItems="2" RefItemIdent="4097"></RK7CMD></RK7Query>';  // instead of 4097, specify the code of your «Favorites» categorydishes.Add(zapros);
dishes.SaveToFile('.\test.xml');
dishes.clear;
dishes.free;
GUI.CmdExecWithFlags('.\runxml.bat', SW_HIDE, false);
dishes:=TStringList.Create;
dishes.LoadFromFile('.\Restest.xml');
for i:= 0 to dishes.Count - 1 do
    begin
      if pos('</RIChildItems>', dishes.strings[i])<>0 then dishend:=true;
      if (dishstart=true) and (dishend<>true) then
        begin
          idents:=copy(dishes.strings[i],27, length(dishes.strings[i])-29);
          cats:=cats+'<Item Ident="'+idents+'" CLASSIFICATORGROUPS-4096="0"></Item>';   // instead of 4096, specify the code of your «Favorites» classification           
        end;
        if pos('<RIChildItems>', dishes.strings[i])<>0 then dishstart:=true;
    end;
dishes.clear;  
cats1:='<?xml version="1.0" encoding="utf-8"?><RK7Query><RK7Command CMD="SetRefData" RefName="MENUITEMS"><Items>'+cats+'</Items></RK7Command></RK7Query>';
dishes.Add(cats1);
dishes.SaveToFile('.\test.xml');
dishes.free;
GUI.CmdExecWithFlags('.\runxml.bat', SW_HIDE, false);
dishes.free;
RK7.PerformOperation(rkoHome, 0);
  while step<= RKCheck.CurrentOrder.Sessions.LinesCount 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 it.State = disOpened then begin
        RK7.PerformOperation(rkoDeleteLine, 0);
        continue;
      end else
      begin
        RKCheck.CreateCheckItem(rkrefOrderVoids, IntToStr(VoidCode), FloatToStr(TDish(it).Quantity));
      end;
      RK7.PerformOperation(rkoHome, 0);
    end;
    step := step + 1;
    RK7.PerformOperation(rkoDown, 0);
  end;
gui.showmessage('«Favorites» cleareddeleted.');
end;
end;

Operations configuration

Linking

...

Scripts to

...

Operations

After the scripts are created, they should be linked to user operations. Assign the name of Call favorites to the operation with an empty script.

Go to Service > Operations.
Select the User Operations.
Select 4 vacant operations and assign previously created scripts to them. For convenience, name the operations similar to the scripts.
Image Added
Assign the name of Call favorites to the operation, where the empty script will be linked to, and do not forget to check the Change page box.
Select 4 vacant operations and assign previously created scripts to them. For convenience, name the operations similar to the scripts.
Save the changes.

...

.
Save the changes.

Linking Operations to Buttons

Assign operations to the functional function keys.

Go to Settings > User Interface > Function Keys
Create function keys to be linked to the previously created scripts.
Image Added
Go to Settings > User Interface > Selectors and choose the Order > BillReceipt: main selector Main Selector > CustomUser
Create a selector page with the name of Favorites.
Add the Favorites category from the favorites classification to the selector.
Image Added
Return to the Favorites selector and assign the Call favourites
Favorites operation in the properties thereof.
Image Added
Go to Navigate to Settings > Graphic User interface > Usage of Selectors usage.
From In the upper left dropdown menu, choose Bill: main selectorchoose Receipt: Main Selector.
Drag the edited custom User selectorfrom the left field to the right.
Image Added
Go to Navigate to Selectors > Operations selector > Quick billcheck: operations Operation selector.
Create a copy of the Quick billcheck: operations
Edit the selector pages by placing there the previously created functional function keys.
As an example, we have created a separate page for the Favorites configurationConfiguration selector, where relevant keys for writingfor favorites loading, recording, reading and clearing favorites deleting are available..
Image Added
The link to the created page has been is placed on the Extra page
Image Added
The Favorites functional function key, that which directly calls favorites, has been calls Favorites, is placed on the the Operations selectorSelector page , so that it would be available at the startup.
Navigate to Go to Settings > Graphic interface User Interface > Usage of Selectors usage.
From In the left dropdown menu, choose choose Quick billcheck: operations Operation selector.
Drag the newly created selector from the right field to the left.
Image Added
Save your the changes.

Cash station setup

Download the archive attached to the article.
In In the bat file, change the IP address and port to the current IP address and port of the directories references server XML interface. In our case, it is is 583.
Move the files bat and xmltest.exe exe files to the folder, from which the cash desk register is launched.
Now, the configuration is finished. You can launch the cash station and use the functionality.

...

Child pages

Versions Compared

Old Version 1

New Version Current

Key

Load

Favorites

Record

Favorites

Delete Favorites

Operations configuration

Linking

Scripts to

Operations

Linking Operations to Buttons

Cash station setup