Page History

...

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;

...

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

...

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.

Linking operations to buttons

Assign operations to the functional function keys.

Go to Settings > User Interface > Function Keys
Go to Settings > User Interface > Selectors and choose the Order > Bill: main selector > Custom
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 Favoritesselector and assign the Call favourites
favorites operation in the properties thereof.
Image Added
Navigate to Settings > Graphic interface > Selectors usage.
From the upper left dropdown menu, choose Bill: main selector.
Drag the edited custom selectorfrom the left field to the right.
Image Added
Navigate to Selectors > Operations selector > Quick bill: operations selector.
Create a copy of the Quick bill: operations
Edit the selector pages by placing there the previously created functional keys.
As an example, we have created a separate page for the Favorites configurationselector, where relevant keys for writing, reading and clearing favorites are available.
Image Added
The link to the created page has been placed on the page
Image Added
The Favoritesfunctional key, that directly calls favorites, has been placed on the Operations selectorpage, so that it would be available at the startup.
Navigate to Settings > Graphic interface > Selectors usage.
From the left dropdown menu, choose Quick bill: operations selector.
Drag the newly created selector from the right field to the left.
Image Added
Save your changes.

...

Child pages

Versions Compared

Old Version 1

New Version 2

Key

Delete favorites

Operations configuration

Linking operations to buttons