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