anchor.diff:  var
       LRpcFailed: Boolean;
   begin
  -    //       WorkFlow  
  -    //    inReturnCode, stErrorMessage
  +    // Некоторые редко используемые методы сервера приложений WorkFlow не принимают
  +    // два последних параметра inReturnCode, stErrorMessage
       if AName = 'SendDbList' then
           Exit(ConnectionWF.AppServer.SendDbList(OleVariant(AParams[0])));
       if AName = 'GetSPVersion' then
           Exit(ConnectionWF.AppServer.GetSPVersion);
   
  -    //      ,   
  -    //  .   ,    
  -    //       .
  -    //        
  -    // 
  +    // В случае ошибки при первом вызове, метод сервера приложений
  +    // вызывается повторно. Дело в том, что при аварийном завершении
  +    // серверного процесса соединение с сервером приложений теряется.
  +    // Поэтому мы пытаемся подключиться заново и восстановить состояние
  +    // соединения
       LRpcFailed := False;
       try
           Result := CallRunMethod(ConnectionWF, AName, AParams);
  
positive.code: uses
      SysUtils, Loodsman_TLB, Loodsman.Infrastructure.Types;
  
  /// <summary>    .</summary>
  procedure FreeConnections;
  
  /// <summary>     .</summary>
  /// <remarks>    .</remarks>
  function GetLoodsmanConnection: IRemoteConnection; overload;
  
  /// <summary>     .</summary>
  /// <param name="APluginCall">,   ,     .</param>
  function GetLoodsmanConnection(const APluginCall: IPluginCall): IRemoteConnection; overload;
  
  /// <summary>     .</summary>
  /// <remarks>    .
  ///     .</remarks>
  function GetLoodsmanConnectionEx: IRemoteConnection; overload;
  
  /// <summary>     .</summary>
  /// <param name="ABase">  .</param>
  /// <param name="AUserName">     SQL-.</param>
  /// <param name="APassword">    SQL-.</param>
  /// <remarks>    .
  ///         .</remarks>
  function GetLoodsmanConnectionEx(const ABase, AUserName, APassword: String): IRemoteConnection; overload;
  
  implementation
  
negative.code:         end;
      end;
  
      // Для того, чтобы методы сервера приложений Workflow могли получать
      // информация из БД Лоцмана (например, для объектов автоопераций),
      // необходимо подключить базу Workflow к базе Лоцмана
  
      LDatabaseAuth := amWindows;
      LNewPassword := False;
  