anchor.diff:  begin
    Self.m_settings := data;
    Self.Change();
  -end;
  -
  -////////////////////////////////////////////////////////////////////////////////
  -
  -procedure TBlkAC.Update();
  -begin
  - inherited Update();
  -end;
  -
  -// change je volan z vyhybky pri zmene zaveru
  -procedure TBlkAC.Change(now:boolean = false);
  -begin
  - inherited Change(now);
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:    TBlkACException.Create('Nelze spustit bc AC!');
   if (Self.m_state.client = nil) then
     TBlkACException.Create('AC nelze spustit bez pipojenho klienta!');
  
   try
     PtServer.AccessTokenAdd(Self.PtUsername(), Self.m_settings.accessToken);
  
negative.code: 
  uses GetSystems, TechnologieRCS, TBloky, Graphics, Prevody, Diagnostics,
      TJCDatabase, fMain, TCPServerOR, SprDb, THVDatabase, TBlokVyhybka,
      TCPServerPT, ownStrUtils;
  
  constructor TBlkAC.Create(index:Integer);
  begin
  