База знаний techline

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

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;

procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean); var i:integer; it:TOrderSession; CheckView:TCheckView; begin if not RKCheck.Valid then exit; CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if (AVerifyType=vtPrintReceipt) and (RKCheck.CurrentOrder.IntentReceipts=true) then При печати чека приступить к готовке; false - при печати ЧН; true - при подтверждении ЧН. for i := 0 to RKCheck.CurrentOrder.Sessions.Count - 1 do begin it:=TOrderSession(RKCheck.CheckItemByNumber(RKCheck.CurrentOrder.Sessions,i)); if it.PrintFlag=pfLater then Только пакеты с отложенной печатью

     begin       
     CheckView.GotoItem(it); //Прыгнуть на нужный пакет
     RK7.PerformOperation(rkoLeft,0); //Без этого не сработает. Для перерисовки интерфейса или для замедления?
     RK7.PerformOperation(rkoStartCooking, 0); //Приступить к готовке выделенного пакета                    
     end;       
  end;

end;