anchor.diff:         begin
           Blky.GetBlkByID(Self.fproperties.Trat, Blk);
           Blky.GetBlkByID(Self.fproperties.Useky[Self.fproperties.Useky.Count-1], Blk2);
  -
  -        if (TBlkTrat(Blk).Zadost) then
  -         begin
  -          if (Self.fstaveni.SenderPnl <> nil) and (Self.fstaveni.SenderOR <> nil) then
  -            ORTCPServer.BottomError(Self.fstaveni.SenderPnl, 'Probh dost '+Blk.name,
  -              (Self.fstaveni.SenderOR as TOR).ShortName, 'TECHNOLOGIE');
  -          writelog('Krok 14 : Trat '+Blk.name+' : probiha zadost !', WR_VC);
  -          Exit;
  -         end;
  -
  -        // tahleta situace opravdu muze nastat:
  -        if (( ((Blk as TBlkTrat).Smer <> Self.fproperties.TratSmer) and (((Blk as TBlkTrat).nouzZaver) or
  -             ((((Blk as TBlkTrat).GetSettings().zabzar = TTratZZ.souhlas) or
  -             ((Blk as TBlkTrat).GetSettings().zabzar = TTratZZ.nabidka)) and (not TBlkTrat(Blk).SameUserControlsBothUvazka())) or
  -             (((Blk as TBlkTrat).GetSettings().zabzar = TTratZZ.bezsouhas) and ((Blk as TBlkTrat).Smer <> TTratSmer.zadny))) )
  -          or ((not TBlkTU(blk2).sectReady) and (Self.fproperties.TypCesty = TJCType.vlak)) or (((Blk as TBlkTrat).ZAK) and (Self.fproperties.TypCesty <> TJCType.posun)) ) then
  -         begin
  -          if (Self.fstaveni.SenderPnl <> nil) and (Self.fstaveni.SenderOR <> nil) then
  -            ORTCPServer.BottomError(Self.fstaveni.SenderPnl, 'Chyba trati '+Blk.name,
  -              (Self.fstaveni.SenderOR as TOR).ShortName, 'TECHNOLOGIE');
  -          writelog('Krok 14 : Trat '+Blk.name+' nesplnuje podminky pro postaveni JC !', WR_VC);
  -          Exit;
  -         end;
   
           if (Self.fproperties.TypCesty = TJCType.vlak) then (Blk as TBlkTrat).Zaver := true;
   
  
positive.code:       bariery.Add(Self.JCBariera(_JCB_TRAT_ZAVER, blk, Self.fproperties.Trat));
      if ((blk as TBlkTrat).Zadost) then
        bariery.Add(Self.JCBariera(_JCB_TRAT_ZADOST, blk, Self.fproperties.Trat));
  
      if ((not TBlkTrat(blk).SameUserControlsBothUvazka()) or ((blk as TBlkTrat).nouzZaver)) then
        if ((((blk as TBlkTrat).GetSettings().zabzar = TTratZZ.souhlas) or ((blk as TBlkTrat).GetSettings().zabzar = TTratZZ.nabidka) or
  
negative.code:     npCall:^TNPCallerData;
      spri:Integer;
      stavim:Cardinal;
      bariery:TList<TJCBariera>;
      bariera:TJCBariera;
   begin
    if (not Self.Staveni) then Exit;
  
  