Различия

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

Ссылка на это сравнение

Следующая версия		Предыдущая версия
systems:rk7:scripts:change-dish-status-script [2026/06/22 15:35] – создано adminsystems: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;