anchor.diff:           end;
          end;
   
  -      Self.Krok := _JC_KROK_ZAVRIT_PREJEZDY;
  +      if (navestidlo.ZAM) then
  +        Self.Krok := _JC_KROK_FINALNI_ZAVER
  +      else
  +        Self.Krok := _JC_KROK_ZAVRIT_PREJEZDY;
        end;//case 1
   
   
  
positive.code:  Result := true;
  end;
  
  // DN nastavi zavery vsech bloku na validni a rozsviti navestidlo
  // tato procedura predpoklada, ze podminky pro DN jsou splneny
  procedure TJC.DN();
  begin
  
negative.code:  Self.fstaveni.TimeOut := Now + EncodeTime(0, 0, _JC_TIMEOUT_SEC, 0);
  
   if (Self.fstaveni.prjWasClosed) then
     Self.Krok := _JC_KROK_FINALNI_ZAVER
   else
     Self.Krok := _JC_KROK_ZAVRIT_PREJEZDY;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  