anchor.diff:    _JCB_ODVRAT_KONC_POLOHA      : Result[1] := GetUPOLine('Není koncová poloha');
   
     _JCB_TRAT_ZAVER              : Result[1] := GetUPOLine('Závěr');
  -  _JCB_TRAT_OBSAZENO           : Result[1] := GetUPOLine('Obsazena');
     _JCB_TRAT_ZADOST             : Result[1] := GetUPOLine('Probíhá žádost');
     _JCB_TRAT_NESOUHLAS          : Result[1] := GetUPOLine('Nesouhlas');
  +  _JCB_TRAT_NEPRIPRAVENA       : Result[1] := GetUPOLine('Nepovoluje odjezd');
  +  _JCB_TRAT_OBSAZENO : begin
  +    Result[0] := GetUPOLine('NEBUDE POVOLUJÍCÍ NÁVĚST', taCenter, clBlack, clYellow);
  +    Result[1] := GetUPOLine('Trať obsazena');
  +    Result[2] := GetUPOLine(Bariera.blok.name);
  +  end;
   
     _JCB_ZAMEK_NEUZAMCEN         : Result[1] := GetUPOLine('Neuzamčen');
     _JCB_ZAMEK_NOUZ_ZAVER        : Result[1] := GetUPOLine('Není nouzový závěr');
  
positive.code:   Self.fstaveni.nc := nc;
    Self.fstaveni.ab := (abAfter) and (Self.fproperties.TypCesty = TJCType.vlak);
    Self.fstaveni.prjWasClosed := false;
    Self.fstaveni.lastUsekObsaz := false;
  
    writelog('JC '+Self.Nazev+' - požadavek na stavění, kontroluji podmínky', WR_VC);
  
  
negative.code:     if (Self.fproperties.TypCesty = TJCType.vlak) then
       begin
        Blky.GetBlkByID(Self.fproperties.Useky[Self.fproperties.Useky.Count-1], Blk);
        if (TBlkTU(blk).sectObsazeno = TUsekStav.obsazeno) then
         begin
          Blky.GetBlkByID(Self.fproperties.Trat, Blk);
          bariery.Add(Self.JCBariera(_JCB_TRAT_OBSAZENO, blk, Self.fproperties.Trat));
         end else if (not TBlkTU(blk).sectReady) then begin
          Blky.GetBlkByID(Self.fproperties.Trat, Blk);
          bariery.Add(Self.JCBariera(_JCB_TRAT_NEPRIPRAVENA, blk, Self.fproperties.Trat));
         end;
       end;
  
  