anchor.diff:   end;
   end;
   
  +function TBlkUsek.CanBeKC(vbs: TList<TObject>; start: TBlk):boolean;
  +begin
  + Result := ((JCDb.FindJC(start as TBlkNav, vbs, Self) <> nil) or
  +            (MultiJCDb.FindMJC(start as TBlkNav, vbs, Self) <> nil));
  +end;
  +
   ////////////////////////////////////////////////////////////////////////////////
   
   end.//unit
  
positive.code:  Blk := Blky.GeTBlkNavZacatekVolba((SenderOR as TOR).id);
   if (Blk <> nil) then
    begin
     Result := Result + '-,KC,';
     if (Self.CanBeNextVB((SenderOR as TOR).vb, blk)) then
      Result := Result + 'VB,';
    end;
  
   // pokud mame knihovnu simulator, muzeme ridit stav useku
  
negative.code:     function RealZesZkrat():TBoosterSignal;
      function CanStandSouprava():boolean;
      function CanBeNextVB(vbs: TList<TObject>; start: TBlk):boolean;
      function CanBeKC(vbs: TList<TObject>; start: TBlk):boolean;
  
    protected
     UsekSettings:TBlkUsekSettings;
  