AlonsoYSal_FactuGES/Servidor/FactuGES_Async.pas

unit FactuGES_Async;

{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading  }
{ the RODL file associated with this project .                               }
{                                                                            }
{ Do not modify this unit manually, or your changes will be lost when this   }
{ unit is regenerated the next time you compile the project.                 }
{----------------------------------------------------------------------------}

interface

uses
  {vcl:} Classes, TypInfo,
  {RemObjects:} uROClasses, uROTypes, uROClientIntf, uROAsync,
  {Used RODLs:} DataAbstract_Intf, DataAbstract_Async,
  {Project:} FactuGES_Intf;

type
  { IsrvContactos_Async }
  IsrvContactos_Async = interface(IDARemoteService_Async)
    ['{DB46D9A9-FEA2-41C6-8470-86874F1D31D9}']
    procedure Invoke_GenerateReport;
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarContacto(const CodigoContacto: Integer);
    function Retrieve_GenerateReport: Binary;
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarContacto: Boolean;
  end;

  { CosrvContactos_Async }
  CosrvContactos_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContactos_Async;
  end;

  { TsrvContactos_AsyncProxy }
  TsrvContactos_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvContactos_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GenerateReport;
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarContacto(const CodigoContacto: Integer);
    function Retrieve_GenerateReport: Binary;
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarContacto: Boolean;
  end;

type
  { IsrvLogin_Async }
  IsrvLogin_Async = interface(IROAsyncInterface)
    ['{B73CBA6A-CB82-492E-AC25-DEF339592683}']
    procedure Invoke_Login(const UserID: String; const Password: String);
    procedure Invoke_Logout;
    procedure Invoke_UpdateUsers(const UsersDelta: Binary);
    procedure Invoke_SetUserPassword(const UserID: String; const NewPassword: String);
    procedure Invoke_Ping;
    function Retrieve_Login(out LoginInfo: TLoginInfo): Boolean;
    function Retrieve_UpdateUsers: Binary;
    function Retrieve_SetUserPassword: Boolean;
    function Retrieve_Ping: Boolean;
  end;

  { CosrvLogin_Async }
  CosrvLogin_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin_Async;
  end;

  { TsrvLogin_AsyncProxy }
  TsrvLogin_AsyncProxy = class(TROAsyncProxy, IsrvLogin_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_Login(const UserID: String; const Password: String);
    procedure Invoke_Logout;
    procedure Invoke_UpdateUsers(const UsersDelta: Binary);
    procedure Invoke_SetUserPassword(const UserID: String; const NewPassword: String);
    procedure Invoke_Ping;
    function Retrieve_Login(out LoginInfo: TLoginInfo): Boolean;
    function Retrieve_UpdateUsers: Binary;
    function Retrieve_SetUserPassword: Boolean;
    function Retrieve_Ping: Boolean;
  end;

type
  { IsrvPresupuestos_Async }
  IsrvPresupuestos_Async = interface(IDARemoteService_Async)
    ['{A1F81289-E3AF-469D-AEC8-C111FF1B13CB}']
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_DarNuevaReferencia(const TipoPresupuesto: String);
    procedure Invoke_PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_DarNuevaReferencia: String;
    function Retrieve_PuedoEliminarPresupuesto: Boolean;
  end;

  { CosrvPresupuestos_Async }
  CosrvPresupuestos_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestos_Async;
  end;

  { TsrvPresupuestos_AsyncProxy }
  TsrvPresupuestos_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvPresupuestos_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_DarNuevaReferencia(const TipoPresupuesto: String);
    procedure Invoke_PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_DarNuevaReferencia: String;
    function Retrieve_PuedoEliminarPresupuesto: Boolean;
  end;

type
  { IsrvPedidosProveedor_Async }
  IsrvPedidosProveedor_Async = interface(IDARemoteService_Async)
    ['{0DB4DD45-3291-4D78-91EE-313A6CC6750F}']
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_DarNuevaReferencia;
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_PuedoEliminarPedido(const CodigoPedido: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_DarNuevaReferencia: String;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarPedido: Boolean;
  end;

  { CosrvPedidosProveedor_Async }
  CosrvPedidosProveedor_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosProveedor_Async;
  end;

  { TsrvPedidosProveedor_AsyncProxy }
  TsrvPedidosProveedor_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvPedidosProveedor_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    procedure Invoke_DarNuevaReferencia;
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_PuedoEliminarPedido(const CodigoPedido: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_DarNuevaReferencia: String;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarPedido: Boolean;
  end;

type
  { IsrvAlbaranesCliente_Async }
  IsrvAlbaranesCliente_Async = interface(IDARemoteService_Async)
    ['{CB28804E-2105-4803-992B-A250D523C499}']
    procedure Invoke_ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer);
    procedure Invoke_DarNuevaReferencia;
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_PuedoEliminarAlbaran(const CodigoAlbaran: Integer);
    function Retrieve_ExisteAlbaranDePresupuesto(out CodigoAlbaran: Integer): Boolean;
    function Retrieve_DarNuevaReferencia: String;
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarAlbaran: Boolean;
  end;

  { CosrvAlbaranesCliente_Async }
  CosrvAlbaranesCliente_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente_Async;
  end;

  { TsrvAlbaranesCliente_AsyncProxy }
  TsrvAlbaranesCliente_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvAlbaranesCliente_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer);
    procedure Invoke_DarNuevaReferencia;
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_PuedoEliminarAlbaran(const CodigoAlbaran: Integer);
    function Retrieve_ExisteAlbaranDePresupuesto(out CodigoAlbaran: Integer): Boolean;
    function Retrieve_DarNuevaReferencia: String;
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarAlbaran: Boolean;
  end;

type
  { IsrvFacturasCliente_Async }
  IsrvFacturasCliente_Async = interface(IDARemoteService_Async)
    ['{59BC0F5E-2E2F-4139-8616-6C7AA6B435C0}']
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarFactura(const CodigoFactura: Integer);
    procedure Invoke_ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer);
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_DarNuevaReferencia;
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarFactura: Boolean;
    function Retrieve_ExisteFacturaDeAlbaran(out CodigoFactura: Integer): Boolean;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_DarNuevaReferencia: String;
  end;

  { CosrvFacturasCliente_Async }
  CosrvFacturasCliente_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente_Async;
  end;

  { TsrvFacturasCliente_AsyncProxy }
  TsrvFacturasCliente_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvFacturasCliente_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarFactura(const CodigoFactura: Integer);
    procedure Invoke_ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer);
    procedure Invoke_GenerateReport(const Codigo: Integer);
    procedure Invoke_DarNuevaReferencia;
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarFactura: Boolean;
    function Retrieve_ExisteFacturaDeAlbaran(out CodigoFactura: Integer): Boolean;
    function Retrieve_GenerateReport: Binary;
    function Retrieve_DarNuevaReferencia: String;
  end;

type
  { IsrvAlmacenes_Async }
  IsrvAlmacenes_Async = interface(IDARemoteService_Async)
    ['{DFF6047B-9CFD-497D-8D15-FE7F8308ACDB}']
    procedure Invoke_GenerateReport;
    procedure Invoke_PuedoEliminarAlmacen(const Codigo: Integer);
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarAlmacen: Boolean;
  end;

  { CosrvAlmacenes_Async }
  CosrvAlmacenes_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes_Async;
  end;

  { TsrvAlmacenes_AsyncProxy }
  TsrvAlmacenes_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvAlmacenes_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GenerateReport;
    procedure Invoke_PuedoEliminarAlmacen(const Codigo: Integer);
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarAlmacen: Boolean;
  end;

type
  { IsrvArticulos_Async }
  IsrvArticulos_Async = interface(IDARemoteService_Async)
    ['{330D86CE-7B7D-40FB-9791-D12F9331A950}']
    procedure Invoke_GetNextAutoinc;
    function Retrieve_GetNextAutoinc: Integer;
  end;

  { CosrvArticulos_Async }
  CosrvArticulos_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvArticulos_Async;
  end;

  { TsrvArticulos_AsyncProxy }
  TsrvArticulos_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvArticulos_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    function Retrieve_GetNextAutoinc: Integer;
  end;

type
  { IsrvMontajes_Async }
  IsrvMontajes_Async = interface(IDARemoteService_Async)
    ['{3E2BB30E-8A2C-4262-8C49-F0478D74EA12}']
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarMontaje(const Codigo: Integer);
    procedure Invoke_AnadirFichaBeneficios(const CodigoMontaje: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarMontaje: Boolean;
    function Retrieve_AnadirFichaBeneficios: Boolean;
  end;

  { CosrvMontajes_Async }
  CosrvMontajes_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvMontajes_Async;
  end;

  { TsrvMontajes_AsyncProxy }
  TsrvMontajes_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvMontajes_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarMontaje(const Codigo: Integer);
    procedure Invoke_AnadirFichaBeneficios(const CodigoMontaje: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarMontaje: Boolean;
    function Retrieve_AnadirFichaBeneficios: Boolean;
  end;

type
  { IsrvFacturasProveedor_Async }
  IsrvFacturasProveedor_Async = interface(IDARemoteService_Async)
    ['{75F266A8-471B-47AC-99E5-B202A309E131}']
    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarFactura(const CodigoFactura: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarFactura: Boolean;
  end;

  { CosrvFacturasProveedor_Async }
  CosrvFacturasProveedor_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor_Async;
  end;

  { TsrvFacturasProveedor_AsyncProxy }
  TsrvFacturasProveedor_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvFacturasProveedor_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    procedure Invoke_PuedoEliminarFactura(const CodigoFactura: Integer);
    function Retrieve_GetNextAutoinc: Integer;
    function Retrieve_PuedoEliminarFactura: Boolean;
  end;

type
  { IsrvPagos_Async }
  IsrvPagos_Async = interface(IDARemoteService_Async)
    ['{A777BD27-C3FE-4F4C-9129-4F407906FCB3}']
    procedure Invoke_GetNextAutoinc;
    function Retrieve_GetNextAutoinc: Integer;
  end;

  { CosrvPagos_Async }
  CosrvPagos_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPagos_Async;
  end;

  { TsrvPagos_AsyncProxy }
  TsrvPagos_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvPagos_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetNextAutoinc;
    function Retrieve_GetNextAutoinc: Integer;
  end;

type
  { IsrvCuentas_Async }
  IsrvCuentas_Async = interface(IDARemoteService_Async)
    ['{03FCD6F2-7705-491C-A300-09CA398CDCF3}']
    procedure Invoke_GenerateReport;
    procedure Invoke_PuedoEliminarCuenta(const Codigo: Integer);
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarCuenta: Boolean;
  end;

  { CosrvCuentas_Async }
  CosrvCuentas_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentas_Async;
  end;

  { TsrvCuentas_AsyncProxy }
  TsrvCuentas_AsyncProxy = class(TDARemoteService_AsyncProxy, IsrvCuentas_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GenerateReport;
    procedure Invoke_PuedoEliminarCuenta(const Codigo: Integer);
    function Retrieve_GenerateReport: Binary;
    function Retrieve_PuedoEliminarCuenta: Boolean;
  end;

implementation

uses
  {vcl:} SysUtils;

{ CosrvContactos }

class function CosrvContactos_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContactos_Async;
begin
  result := TsrvContactos_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvContactos_AsyncProxy }

function TsrvContactos_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvContactos';
end;

procedure TsrvContactos_AsyncProxy.Invoke_GenerateReport;
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvContactos_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvContactos_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvContactos_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvContactos_AsyncProxy.Invoke_PuedoEliminarContacto(const CodigoContacto: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarContacto');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarContacto');
  __Message.Write('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarContacto',__request);
end;

function TsrvContactos_AsyncProxy.Retrieve_PuedoEliminarContacto: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarContacto');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvLogin }

class function CosrvLogin_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin_Async;
begin
  result := TsrvLogin_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvLogin_AsyncProxy }

function TsrvLogin_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvLogin';
end;

procedure TsrvLogin_AsyncProxy.Invoke_Login(const UserID: String; const Password: String);
var __request:TStream;
begin
  __AssertProxyNotBusy('Login');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'Login');
  __Message.Write('UserID', TypeInfo(String), UserID, []);
  __Message.Write('Password', TypeInfo(String), Password, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('Login',__request);
end;

function TsrvLogin_AsyncProxy.Retrieve_Login(out LoginInfo: TLoginInfo): Boolean;
var __response:TStream;
begin
  LoginInfo := nil;
  __response := __RetrieveAsyncResponse('Login');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);
  __Message.Read('LoginInfo', TypeInfo(TLoginInfo), LoginInfo, []);

  __response.Free();
end;

procedure TsrvLogin_AsyncProxy.Invoke_Logout;
var __request:TStream;
begin
  __AssertProxyNotBusy('Logout');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'Logout');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('Logout',__request, false);
end;

procedure TsrvLogin_AsyncProxy.Invoke_UpdateUsers(const UsersDelta: Binary);
var __request:TStream;
begin
  __AssertProxyNotBusy('UpdateUsers');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'UpdateUsers');
  __Message.Write('UsersDelta', TypeInfo(Binary), UsersDelta, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('UpdateUsers',__request);
end;

function TsrvLogin_AsyncProxy.Retrieve_UpdateUsers: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('UpdateUsers');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvLogin_AsyncProxy.Invoke_SetUserPassword(const UserID: String; const NewPassword: String);
var __request:TStream;
begin
  __AssertProxyNotBusy('SetUserPassword');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'SetUserPassword');
  __Message.Write('UserID', TypeInfo(String), UserID, []);
  __Message.Write('NewPassword', TypeInfo(String), NewPassword, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('SetUserPassword',__request);
end;

function TsrvLogin_AsyncProxy.Retrieve_SetUserPassword: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('SetUserPassword');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;

procedure TsrvLogin_AsyncProxy.Invoke_Ping;
var __request:TStream;
begin
  __AssertProxyNotBusy('Ping');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'Ping');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('Ping',__request);
end;

function TsrvLogin_AsyncProxy.Retrieve_Ping: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('Ping');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvPresupuestos }

class function CosrvPresupuestos_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestos_Async;
begin
  result := TsrvPresupuestos_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvPresupuestos_AsyncProxy }

function TsrvPresupuestos_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvPresupuestos';
end;

procedure TsrvPresupuestos_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvPresupuestos_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvPresupuestos_AsyncProxy.Invoke_GenerateReport(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvPresupuestos_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvPresupuestos_AsyncProxy.Invoke_DarNuevaReferencia(const TipoPresupuesto: String);
var __request:TStream;
begin
  __AssertProxyNotBusy('DarNuevaReferencia');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
  __Message.Write('TipoPresupuesto', TypeInfo(String), TipoPresupuesto, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('DarNuevaReferencia',__request);
end;

function TsrvPresupuestos_AsyncProxy.Retrieve_DarNuevaReferencia: String;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('DarNuevaReferencia');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(String), Result, []);

  __response.Free();
end;

procedure TsrvPresupuestos_AsyncProxy.Invoke_PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarPresupuesto');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarPresupuesto');
  __Message.Write('CodigoPresupuesto', TypeInfo(Integer), CodigoPresupuesto, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarPresupuesto',__request);
end;

function TsrvPresupuestos_AsyncProxy.Retrieve_PuedoEliminarPresupuesto: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarPresupuesto');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvPedidosProveedor }

class function CosrvPedidosProveedor_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosProveedor_Async;
begin
  result := TsrvPedidosProveedor_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvPedidosProveedor_AsyncProxy }

function TsrvPedidosProveedor_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvPedidosProveedor';
end;

procedure TsrvPedidosProveedor_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvPedidosProveedor_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvPedidosProveedor_AsyncProxy.Invoke_DarNuevaReferencia;
var __request:TStream;
begin
  __AssertProxyNotBusy('DarNuevaReferencia');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('DarNuevaReferencia',__request);
end;

function TsrvPedidosProveedor_AsyncProxy.Retrieve_DarNuevaReferencia: String;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('DarNuevaReferencia');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(String), Result, []);

  __response.Free();
end;

procedure TsrvPedidosProveedor_AsyncProxy.Invoke_GenerateReport(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvPedidosProveedor_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvPedidosProveedor_AsyncProxy.Invoke_PuedoEliminarPedido(const CodigoPedido: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarPedido');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarPedido');
  __Message.Write('CodigoPedido', TypeInfo(Integer), CodigoPedido, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarPedido',__request);
end;

function TsrvPedidosProveedor_AsyncProxy.Retrieve_PuedoEliminarPedido: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarPedido');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvAlbaranesCliente }

class function CosrvAlbaranesCliente_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente_Async;
begin
  result := TsrvAlbaranesCliente_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvAlbaranesCliente_AsyncProxy }

function TsrvAlbaranesCliente_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvAlbaranesCliente';
end;

procedure TsrvAlbaranesCliente_AsyncProxy.Invoke_ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('ExisteAlbaranDePresupuesto');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'ExisteAlbaranDePresupuesto');
  __Message.Write('CodigoPresupuesto', TypeInfo(Integer), CodigoPresupuesto, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('ExisteAlbaranDePresupuesto',__request);
end;

function TsrvAlbaranesCliente_AsyncProxy.Retrieve_ExisteAlbaranDePresupuesto(out CodigoAlbaran: Integer): Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('ExisteAlbaranDePresupuesto');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);
  __Message.Read('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);

  __response.Free();
end;

procedure TsrvAlbaranesCliente_AsyncProxy.Invoke_DarNuevaReferencia;
var __request:TStream;
begin
  __AssertProxyNotBusy('DarNuevaReferencia');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('DarNuevaReferencia',__request);
end;

function TsrvAlbaranesCliente_AsyncProxy.Retrieve_DarNuevaReferencia: String;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('DarNuevaReferencia');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(String), Result, []);

  __response.Free();
end;

procedure TsrvAlbaranesCliente_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvAlbaranesCliente_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvAlbaranesCliente_AsyncProxy.Invoke_GenerateReport(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvAlbaranesCliente_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvAlbaranesCliente_AsyncProxy.Invoke_PuedoEliminarAlbaran(const CodigoAlbaran: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarAlbaran');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarAlbaran');
  __Message.Write('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarAlbaran',__request);
end;

function TsrvAlbaranesCliente_AsyncProxy.Retrieve_PuedoEliminarAlbaran: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarAlbaran');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvFacturasCliente }

class function CosrvFacturasCliente_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente_Async;
begin
  result := TsrvFacturasCliente_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvFacturasCliente_AsyncProxy }

function TsrvFacturasCliente_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvFacturasCliente';
end;

procedure TsrvFacturasCliente_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvFacturasCliente_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvFacturasCliente_AsyncProxy.Invoke_PuedoEliminarFactura(const CodigoFactura: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarFactura');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarFactura');
  __Message.Write('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarFactura',__request);
end;

function TsrvFacturasCliente_AsyncProxy.Retrieve_PuedoEliminarFactura: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarFactura');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;

procedure TsrvFacturasCliente_AsyncProxy.Invoke_ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('ExisteFacturaDeAlbaran');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'ExisteFacturaDeAlbaran');
  __Message.Write('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('ExisteFacturaDeAlbaran',__request);
end;

function TsrvFacturasCliente_AsyncProxy.Retrieve_ExisteFacturaDeAlbaran(out CodigoFactura: Integer): Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('ExisteFacturaDeAlbaran');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);
  __Message.Read('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);

  __response.Free();
end;

procedure TsrvFacturasCliente_AsyncProxy.Invoke_GenerateReport(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvFacturasCliente_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvFacturasCliente_AsyncProxy.Invoke_DarNuevaReferencia;
var __request:TStream;
begin
  __AssertProxyNotBusy('DarNuevaReferencia');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('DarNuevaReferencia',__request);
end;

function TsrvFacturasCliente_AsyncProxy.Retrieve_DarNuevaReferencia: String;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('DarNuevaReferencia');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(String), Result, []);

  __response.Free();
end;


{ CosrvAlmacenes }

class function CosrvAlmacenes_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes_Async;
begin
  result := TsrvAlmacenes_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvAlmacenes_AsyncProxy }

function TsrvAlmacenes_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvAlmacenes';
end;

procedure TsrvAlmacenes_AsyncProxy.Invoke_GenerateReport;
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvAlmacenes_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvAlmacenes_AsyncProxy.Invoke_PuedoEliminarAlmacen(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarAlmacen');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarAlmacen');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarAlmacen',__request);
end;

function TsrvAlmacenes_AsyncProxy.Retrieve_PuedoEliminarAlmacen: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarAlmacen');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvArticulos }

class function CosrvArticulos_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvArticulos_Async;
begin
  result := TsrvArticulos_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvArticulos_AsyncProxy }

function TsrvArticulos_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvArticulos';
end;

procedure TsrvArticulos_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvArticulos_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;


{ CosrvMontajes }

class function CosrvMontajes_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvMontajes_Async;
begin
  result := TsrvMontajes_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvMontajes_AsyncProxy }

function TsrvMontajes_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvMontajes';
end;

procedure TsrvMontajes_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvMontajes_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvMontajes_AsyncProxy.Invoke_PuedoEliminarMontaje(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarMontaje');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarMontaje');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarMontaje',__request);
end;

function TsrvMontajes_AsyncProxy.Retrieve_PuedoEliminarMontaje: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarMontaje');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;

procedure TsrvMontajes_AsyncProxy.Invoke_AnadirFichaBeneficios(const CodigoMontaje: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('AnadirFichaBeneficios');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'AnadirFichaBeneficios');
  __Message.Write('CodigoMontaje', TypeInfo(Integer), CodigoMontaje, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('AnadirFichaBeneficios',__request);
end;

function TsrvMontajes_AsyncProxy.Retrieve_AnadirFichaBeneficios: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('AnadirFichaBeneficios');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvFacturasProveedor }

class function CosrvFacturasProveedor_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor_Async;
begin
  result := TsrvFacturasProveedor_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvFacturasProveedor_AsyncProxy }

function TsrvFacturasProveedor_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvFacturasProveedor';
end;

procedure TsrvFacturasProveedor_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvFacturasProveedor_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TsrvFacturasProveedor_AsyncProxy.Invoke_PuedoEliminarFactura(const CodigoFactura: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarFactura');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarFactura');
  __Message.Write('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarFactura',__request);
end;

function TsrvFacturasProveedor_AsyncProxy.Retrieve_PuedoEliminarFactura: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarFactura');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


{ CosrvPagos }

class function CosrvPagos_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPagos_Async;
begin
  result := TsrvPagos_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvPagos_AsyncProxy }

function TsrvPagos_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvPagos';
end;

procedure TsrvPagos_AsyncProxy.Invoke_GetNextAutoinc;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetNextAutoinc');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetNextAutoinc',__request);
end;

function TsrvPagos_AsyncProxy.Retrieve_GetNextAutoinc: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetNextAutoinc');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;


{ CosrvCuentas }

class function CosrvCuentas_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentas_Async;
begin
  result := TsrvCuentas_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TsrvCuentas_AsyncProxy }

function TsrvCuentas_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'srvCuentas';
end;

procedure TsrvCuentas_AsyncProxy.Invoke_GenerateReport;
var __request:TStream;
begin
  __AssertProxyNotBusy('GenerateReport');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GenerateReport',__request);
end;

function TsrvCuentas_AsyncProxy.Retrieve_GenerateReport: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GenerateReport');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TsrvCuentas_AsyncProxy.Invoke_PuedoEliminarCuenta(const Codigo: Integer);
var __request:TStream;
begin
  __AssertProxyNotBusy('PuedoEliminarCuenta');
  __request := TMemoryStream.Create;

  __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'PuedoEliminarCuenta');
  __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('PuedoEliminarCuenta',__request);
end;

function TsrvCuentas_AsyncProxy.Retrieve_PuedoEliminarCuenta: Boolean;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('PuedoEliminarCuenta');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);

  __response.Free();
end;


initialization
end.