Различия

Показаны различия между двумя версиями страницы.

--- systems:rk7:scripts:change-dish-status-script [2026/06/22 15:39] – admin
+++ systems:rk7:scripts:change-dish-status-script [2026/06/29 09:58] (текущий) – удалено admin
@@ Строка 1: / Строка 1: @@
-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;