AlonsoYSal_FactuGES/Servidor/FactuGES_Invk.pas

unit FactuGES_Invk;

{----------------------------------------------------------------------------}
{ 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,
  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
  {Used RODL Intf's:} DataAbstract_Intf,
  {Used RODL Invk's:} DataAbstract_Invk,
  {Generated:} FactuGES_Intf;

type
  TsrvContactos_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarContacto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvLogin_Invoker = class(TROInvoker)
  private
  protected
  published
    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_Ping(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_SetUserPassword(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_UpdateUsers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvPresupuestos_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarPresupuesto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvPedidosProveedor_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarPedido(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvAlbaranesCliente_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_ExisteAlbaranDePresupuesto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarAlbaran(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_DarSumaImportes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvFacturasCliente_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarFactura(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_ExisteFacturaDeAlbaran(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvAlmacenes_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarAlmacen(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvArticulos_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvMontajes_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarMontaje(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReportFicha(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReportEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvFacturasProveedor_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarFactura(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvPagos_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvCuentas_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_PuedoEliminarCuenta(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvComisiones_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_GetComision(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_SetComision(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvAsientos_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_AsignarPunteo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_darPenultimoCierre(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_darSumaAcumulada(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvIntervalos_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
  end;

  TsrvConfiguracion_Invoker = class(TROInvoker)
  private
  protected
  published
    procedure Invoke_darRutaDocumentos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TsrvCitas_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  published
    procedure Invoke_getCodigo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

implementation

uses
  {RemObjects:} uRORes, uROClient;

{ TsrvContactos_Invoker }

procedure TsrvContactos_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport: Binary; }
var
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    lResult := (__Instance as IsrvContactos).GenerateReport;

    __Message.Initialize(__Transport, 'FactuGES', 'srvContactos', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvContactos_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvContactos).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvContactos', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvContactos_Invoker.Invoke_PuedoEliminarContacto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarContacto(const CodigoContacto: Integer): Boolean; }
var
  CodigoContacto: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);

    lResult := (__Instance as IsrvContactos).PuedoEliminarContacto(CodigoContacto);

    __Message.Initialize(__Transport, 'FactuGES', 'srvContactos', 'PuedoEliminarContactoResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvLogin_Invoker }

procedure TsrvLogin_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean; }
var
  UserID: String;
  Password: String;
  LoginInfo: FactuGES_Intf.TLoginInfo;
  lResult: Boolean;
  __lObjectDisposer: TROObjectDisposer;
begin
  LoginInfo := nil;
  try
    __Message.Read('UserID', TypeInfo(String), UserID, []);
    __Message.Read('Password', TypeInfo(String), Password, []);

    lResult := (__Instance as IsrvLogin).Login(UserID, Password, LoginInfo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvLogin', 'LoginResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Write('LoginInfo', TypeInfo(FactuGES_Intf.TLoginInfo), LoginInfo, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(LoginInfo);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvLogin_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure Logout; }
begin
  try
    (__Instance as IsrvLogin).Logout;

    __Message.Initialize(__Transport, 'FactuGES', 'srvLogin', 'LogoutResponse');
    __Message.Finalize;

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TsrvLogin_Invoker.Invoke_Ping(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function Ping: Boolean; }
var
  lResult: Boolean;
begin
  try
    lResult := (__Instance as IsrvLogin).Ping;

    __Message.Initialize(__Transport, 'FactuGES', 'srvLogin', 'PingResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvLogin_Invoker.Invoke_SetUserPassword(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function SetUserPassword(const UserID: String; const NewPassword: String): Boolean; }
var
  UserID: String;
  NewPassword: String;
  lResult: Boolean;
begin
  try
    __Message.Read('UserID', TypeInfo(String), UserID, []);
    __Message.Read('NewPassword', TypeInfo(String), NewPassword, []);

    lResult := (__Instance as IsrvLogin).SetUserPassword(UserID, NewPassword);

    __Message.Initialize(__Transport, 'FactuGES', 'srvLogin', 'SetUserPasswordResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvLogin_Invoker.Invoke_UpdateUsers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function UpdateUsers(const UsersDelta: Binary): Binary; }
var
  UsersDelta: Binary;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  UsersDelta := nil;
  lResult := nil;
  try
    __Message.Read('UsersDelta', TypeInfo(Binary), UsersDelta, []);

    lResult := (__Instance as IsrvLogin).UpdateUsers(UsersDelta);

    __Message.Initialize(__Transport, 'FactuGES', 'srvLogin', 'UpdateUsersResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(UsersDelta);
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

{ TsrvPresupuestos_Invoker }

procedure TsrvPresupuestos_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvPresupuestos).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvPresupuestos', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvPresupuestos_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; }
var
  Codigo: Integer;
  TamLetra: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);
    __Message.Read('TamLetra', TypeInfo(Integer), TamLetra, []);

    lResult := (__Instance as IsrvPresupuestos).GenerateReport(Codigo, TamLetra);

    __Message.Initialize(__Transport, 'FactuGES', 'srvPresupuestos', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvPresupuestos_Invoker.Invoke_PuedoEliminarPresupuesto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean; }
var
  CodigoPresupuesto: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoPresupuesto', TypeInfo(Integer), CodigoPresupuesto, []);

    lResult := (__Instance as IsrvPresupuestos).PuedoEliminarPresupuesto(CodigoPresupuesto);

    __Message.Initialize(__Transport, 'FactuGES', 'srvPresupuestos', 'PuedoEliminarPresupuestoResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvPedidosProveedor_Invoker }

procedure TsrvPedidosProveedor_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvPedidosProveedor).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvPedidosProveedor_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia: String; }
var
  lResult: String;
begin
  try
    lResult := (__Instance as IsrvPedidosProveedor).DarNuevaReferencia;

    __Message.Initialize(__Transport, 'FactuGES', 'srvPedidosProveedor', 'DarNuevaReferenciaResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvPedidosProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const Codigo: Integer): Binary; }
var
  Codigo: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvPedidosProveedor).GenerateReport(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvPedidosProveedor_Invoker.Invoke_PuedoEliminarPedido(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarPedido(const CodigoPedido: Integer): Boolean; }
var
  CodigoPedido: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoPedido', TypeInfo(Integer), CodigoPedido, []);

    lResult := (__Instance as IsrvPedidosProveedor).PuedoEliminarPedido(CodigoPedido);

    __Message.Initialize(__Transport, 'FactuGES', 'srvPedidosProveedor', 'PuedoEliminarPedidoResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvAlbaranesCliente_Invoker }

procedure TsrvAlbaranesCliente_Invoker.Invoke_ExisteAlbaranDePresupuesto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean; }
var
  CodigoPresupuesto: Integer;
  CodigoAlbaran: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoPresupuesto', TypeInfo(Integer), CodigoPresupuesto, []);

    lResult := (__Instance as IsrvAlbaranesCliente).ExisteAlbaranDePresupuesto(CodigoPresupuesto, CodigoAlbaran);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'ExisteAlbaranDePresupuestoResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Write('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvAlbaranesCliente_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia: String; }
var
  lResult: String;
begin
  try
    lResult := (__Instance as IsrvAlbaranesCliente).DarNuevaReferencia;

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'DarNuevaReferenciaResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvAlbaranesCliente_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvAlbaranesCliente).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const Codigo: Integer): Binary; }
var
  Codigo: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvAlbaranesCliente).GenerateReport(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvAlbaranesCliente_Invoker.Invoke_PuedoEliminarAlbaran(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean; }
var
  CodigoAlbaran: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);

    lResult := (__Instance as IsrvAlbaranesCliente).PuedoEliminarAlbaran(CodigoAlbaran);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'PuedoEliminarAlbaranResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvAlbaranesCliente_Invoker.Invoke_DarSumaImportes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes; }
var
  FechaIni: DateTime;
  FechaFin: DateTime;
  lResult: FactuGES_Intf.TstImportes;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
    __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);

    lResult := (__Instance as IsrvAlbaranesCliente).DarSumaImportes(FechaIni, FechaFin);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'DarSumaImportesResponse');
    __Message.Write('Result', TypeInfo(FactuGES_Intf.TstImportes), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

{ TsrvFacturasCliente_Invoker }

procedure TsrvFacturasCliente_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvFacturasCliente).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvFacturasCliente_Invoker.Invoke_PuedoEliminarFactura(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean; }
var
  CodigoFactura: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);

    lResult := (__Instance as IsrvFacturasCliente).PuedoEliminarFactura(CodigoFactura);

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'PuedoEliminarFacturaResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvFacturasCliente_Invoker.Invoke_ExisteFacturaDeAlbaran(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean; }
var
  CodigoAlbaran: Integer;
  CodigoFactura: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);

    lResult := (__Instance as IsrvFacturasCliente).ExisteFacturaDeAlbaran(CodigoAlbaran, CodigoFactura);

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'ExisteFacturaDeAlbaranResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Write('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; }
var
  Codigo: Integer;
  TamLetra: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);
    __Message.Read('TamLetra', TypeInfo(Integer), TamLetra, []);

    lResult := (__Instance as IsrvFacturasCliente).GenerateReport(Codigo, TamLetra);

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvFacturasCliente_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia: String; }
var
  lResult: String;
begin
  try
    lResult := (__Instance as IsrvFacturasCliente).DarNuevaReferencia;

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'DarNuevaReferenciaResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvAlmacenes_Invoker }

procedure TsrvAlmacenes_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport: Binary; }
var
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    lResult := (__Instance as IsrvAlmacenes).GenerateReport;

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlmacenes', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvAlmacenes_Invoker.Invoke_PuedoEliminarAlmacen(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarAlmacen(const Codigo: Integer): Boolean; }
var
  Codigo: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvAlmacenes).PuedoEliminarAlmacen(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAlmacenes', 'PuedoEliminarAlmacenResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvArticulos_Invoker }

procedure TsrvArticulos_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvArticulos).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvArticulos', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvMontajes_Invoker }

procedure TsrvMontajes_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc(const Generador: String): Integer; }
var
  Generador: String;
  lResult: Integer;
begin
  try
    __Message.Read('Generador', TypeInfo(String), Generador, []);

    lResult := (__Instance as IsrvMontajes).GetNextAutoinc(Generador);

    __Message.Initialize(__Transport, 'FactuGES', 'srvMontajes', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvMontajes_Invoker.Invoke_PuedoEliminarMontaje(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarMontaje(const Codigo: Integer): Boolean; }
var
  Codigo: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvMontajes).PuedoEliminarMontaje(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvMontajes', 'PuedoEliminarMontajeResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvMontajes_Invoker.Invoke_GenerateReportFicha(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReportFicha(const Codigo: Integer): Binary; }
var
  Codigo: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvMontajes).GenerateReportFicha(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvMontajes', 'GenerateReportFichaResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvMontajes_Invoker.Invoke_GenerateReportEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary; }
var
  Codigo: Integer;
  NumEtiquetas: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);
    __Message.Read('NumEtiquetas', TypeInfo(Integer), NumEtiquetas, []);

    lResult := (__Instance as IsrvMontajes).GenerateReportEtiquetas(Codigo, NumEtiquetas);

    __Message.Initialize(__Transport, 'FactuGES', 'srvMontajes', 'GenerateReportEtiquetasResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvMontajes_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia(const TipoMontaje: String): String; }
var
  TipoMontaje: String;
  lResult: String;
begin
  try
    __Message.Read('TipoMontaje', TypeInfo(String), TipoMontaje, []);

    lResult := (__Instance as IsrvMontajes).DarNuevaReferencia(TipoMontaje);

    __Message.Initialize(__Transport, 'FactuGES', 'srvMontajes', 'DarNuevaReferenciaResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvFacturasProveedor_Invoker }

procedure TsrvFacturasProveedor_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvFacturasProveedor).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvFacturasProveedor_Invoker.Invoke_PuedoEliminarFactura(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean; }
var
  CodigoFactura: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);

    lResult := (__Instance as IsrvFacturasProveedor).PuedoEliminarFactura(CodigoFactura);

    __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasProveedor', 'PuedoEliminarFacturaResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvPagos_Invoker }

procedure TsrvPagos_Invoker.Invoke_GetNextAutoinc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetNextAutoinc: Integer; }
var
  lResult: Integer;
begin
  try
    lResult := (__Instance as IsrvPagos).GetNextAutoinc;

    __Message.Initialize(__Transport, 'FactuGES', 'srvPagos', 'GetNextAutoincResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvPagos_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const Codigo: Integer): Binary; }
var
  Codigo: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvPagos).GenerateReport(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvPagos', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

{ TsrvCuentas_Invoker }

procedure TsrvCuentas_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport: Binary; }
var
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    lResult := (__Instance as IsrvCuentas).GenerateReport;

    __Message.Initialize(__Transport, 'FactuGES', 'srvCuentas', 'GenerateReportResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TsrvCuentas_Invoker.Invoke_PuedoEliminarCuenta(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function PuedoEliminarCuenta(const Codigo: Integer): Boolean; }
var
  Codigo: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);

    lResult := (__Instance as IsrvCuentas).PuedoEliminarCuenta(Codigo);

    __Message.Initialize(__Transport, 'FactuGES', 'srvCuentas', 'PuedoEliminarCuentaResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvComisiones_Invoker }

procedure TsrvComisiones_Invoker.Invoke_GetComision(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetComision(const CodigoContacto: Integer): Double; }
var
  CodigoContacto: Integer;
  lResult: Double;
begin
  try
    __Message.Read('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);

    lResult := (__Instance as IsrvComisiones).GetComision(CodigoContacto);

    __Message.Initialize(__Transport, 'FactuGES', 'srvComisiones', 'GetComisionResponse');
    __Message.Write('Result', TypeInfo(Double), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvComisiones_Invoker.Invoke_SetComision(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure SetComision(const CodigoContacto: Integer; const Value: Double); }
var
  CodigoContacto: Integer;
  Value: Double;
begin
  try
    __Message.Read('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);
    __Message.Read('Value', TypeInfo(Double), Value, []);

    (__Instance as IsrvComisiones).SetComision(CodigoContacto, Value);

    __Message.Initialize(__Transport, 'FactuGES', 'srvComisiones', 'SetComisionResponse');
    __Message.Finalize;

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

{ TsrvAsientos_Invoker }

procedure TsrvAsientos_Invoker.Invoke_AsignarPunteo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean; }
var
  CodigoCuenta: Integer;
  FechaIni: DateTime;
  FechaFin: DateTime;
  ValorPunteado: Integer;
  lResult: Boolean;
begin
  try
    __Message.Read('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
    __Message.Read('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
    __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
    __Message.Read('ValorPunteado', TypeInfo(Integer), ValorPunteado, []);

    lResult := (__Instance as IsrvAsientos).AsignarPunteo(CodigoCuenta, FechaIni, FechaFin, ValorPunteado);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAsientos', 'AsignarPunteoResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvAsientos_Invoker.Invoke_darPenultimoCierre(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function darPenultimoCierre(const CodigoCuenta: Integer): DateTime; }
var
  CodigoCuenta: Integer;
  lResult: DateTime;
begin
  try
    __Message.Read('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);

    lResult := (__Instance as IsrvAsientos).darPenultimoCierre(CodigoCuenta);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAsientos', 'darPenultimoCierreResponse');
    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
    __Message.Finalize;

  finally
  end;
end;

procedure TsrvAsientos_Invoker.Invoke_darSumaAcumulada(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency; }
var
  CodigoCuenta: Integer;
  FechaIni: DateTime;
  FechaFin: DateTime;
  lResult: Currency;
begin
  try
    __Message.Read('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
    __Message.Read('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
    __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);

    lResult := (__Instance as IsrvAsientos).darSumaAcumulada(CodigoCuenta, FechaIni, FechaFin);

    __Message.Initialize(__Transport, 'FactuGES', 'srvAsientos', 'darSumaAcumuladaResponse');
    __Message.Write('Result', TypeInfo(Currency), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvConfiguracion_Invoker }

procedure TsrvConfiguracion_Invoker.Invoke_darRutaDocumentos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function darRutaDocumentos: String; }
var
  lResult: String;
begin
  try
    lResult := (__Instance as IsrvConfiguracion).darRutaDocumentos;

    __Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaDocumentosResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

{ TsrvCitas_Invoker }

procedure TsrvCitas_Invoker.Invoke_getCodigo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function getCodigo(const Generador: String): Integer; }
var
  Generador: String;
  lResult: Integer;
begin
  try
    __Message.Read('Generador', TypeInfo(String), Generador, []);

    lResult := (__Instance as IsrvCitas).getCodigo(Generador);

    __Message.Initialize(__Transport, 'FactuGES', 'srvCitas', 'getCodigoResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

end.