anchor.diff:           bariery.Add(Self.JCBariera(_JCB_HV_NOT_ALL_RUC));
            break;
           end;
  +
  +   // kontrola smeru soupravy
  +   if (Self.fproperties.TypCesty = TJCType.vlak) then
  +    begin
  +     if (((TBlkScom(Blk2).Smer = THVStanoviste.lichy) and (not Soupravy.soupravy[TBlkUsek(Blk).Souprava].sdata.smer_L)) or
  +         ((TBlkScom(Blk2).Smer = THVStanoviste.sudy) and (not Soupravy.soupravy[TBlkUsek(Blk).Souprava].sdata.smer_S))) then
  +       bariery.Add(Self.JCBariera(_JCB_SPR_SMER, nil, TBlkUsek(Blk).Souprava));
  +    end;
   
     end;
   end;//procedure
  
positive.code:     _JCB_HV_RUC                  = 100;
      _JCB_HV_NOT_ALL_RUC          = 101;
  
  
     private const
      _def_jc_staveni : TJCStaveni = (
  
negative.code: 
  implementation
  
  uses GetSystems, TechnologieMTB, fSettings, THnaciVozidlo,
       TBlokSCom, TBlokUsek, TOblsRizeni,
       TBlokPrejezd, TJCDatabase, Logging, TCPServerOR, SprDb,
       THVDatabase, Zasobnik, TBlokUvazka, TBlokZamek, TBlokTratUsek;
  