anchor.diff:        function GetSoupravaIndex(nav:TBlk = nil; usek:TBlk = nil):Integer;       // vraci cislo soupravy na useku pred navestidlem
   
         function GetAB():boolean;
  +      function PorusenaKritickaPodminka():boolean;
   
      public
   
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
negative.code: 
        // Kontrola kritickych podminek.
        // (behem staveni mohla nastat zmena)
        if (Self.PorusenaKritickaPodminka()) then
         begin
          if ((Navestidlo as TBlkSCom).Navest <> TBlkSCom._NAV_STUJ) then
            (Navestidlo as TBlkSCom).Navest := TBlkSCom._NAV_STUJ;
          if (Self.fstaveni.SenderPnl <> nil) and (Self.fstaveni.SenderOR <> nil) then
            ORTCPServer.BottomError(Self.fstaveni.SenderPnl, 'Podmnky pro JC nesplnny!',
              (Self.fstaveni.SenderOR as TOR).ShortName, 'TECHNOLOGIE');
          writelog('Krok 16 : Podmnky pro JC nesplnny!', WR_VC);
          Exit();
         end;
  
        // trat
        // zruseni redukce posledniho bloku jizdni cesty je navazano na zruseni zaveru trati
  