Это старая версия документа!

---

procedure DesignFormOnAfterOperation(Sender: TObject; Operation, Param: integer); var

i,j: integer;
it: tcheckitem;
CheckView: Tcheckview;

begin

if (operation = 1169) or (operation = 461) or (operation = 459) then          
begin
  CheckView := TCheckView(GUI.FindComponentByName('CheckView'));
  
  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
    
      CheckView.GotoItem(TObject(it));
      while  ( TDish(it).KdsState<>kdsReady) do
      begin
      rk7.performoperation(rkoDishControlDone, 0);
      end;

    end;
  end;
end;

end;