anchor.diff:   Self.fstaveni.TimeOut := Now + EncodeTime(0, 0, _JC_TIMEOUT_SEC, 0);
   
    if (Self.fstaveni.prjWasClosed) then
  -   Self.Krok := _JC_KROK_ZAVRIT_PREJEZDY
  +   Self.Krok := _JC_KROK_FINALNI_ZAVER
    else
  -   Self.Krok := _JC_KROK_FINALNI_ZAVER;
  +   Self.Krok := _JC_KROK_ZAVRIT_PREJEZDY;
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:          end;
         end;
  
        Self.Krok := _JC_KROK_ZAVRIT_PREJEZDY;
       end;//case 1
  
  
  
negative.code:  Result := true;
  end;
  
  // DN provede zbytek staveni JC (prejezdy, finalizace)
  // tato procedura predpoklada, ze podminky pro DN jsou splneny
  procedure TJC.DN();
  begin
  