unit FactuGES_Intf;

{----------------------------------------------------------------------------}
{ 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, uROClient, uROTypes, uROClientIntf,
  {Used RODLs:} DataAbstract_Intf;

const
  { Library ID }
  LibraryUID = '{AF0811AD-706A-47DE-A1DA-2891A7C80E01}';

  { Service Interface ID's }
  IsrvContactos_IID : TGUID = '{2502C3BD-1DD5-435B-832A-208767D5D55A}';
  IsrvLogin_IID : TGUID = '{6B132AE4-D45F-4AE8-8215-E95789358329}';
  IsrvPresupuestos_IID : TGUID = '{B89887A1-264C-4BF9-8D0F-C20B4709F180}';
  IsrvPedidosProveedor_IID : TGUID = '{CCF8B5C3-4A8B-4CB4-B0FB-D95D3887C054}';
  IsrvAlbaranesCliente_IID : TGUID = '{2DFDD00B-79D5-47C3-AD92-5FD6E88DCE61}';
  IsrvFacturasCliente_IID : TGUID = '{9FD3194D-D8DE-4224-A209-13FC3FC6CD06}';
  IsrvAlmacenes_IID : TGUID = '{EC5C0006-F1E0-4181-8E87-AC3C639AF9E3}';
  IsrvArticulos_IID : TGUID = '{E6A99249-A392-4731-BC9B-9AD3A2FBDB16}';
  IsrvMontajes_IID : TGUID = '{5A4F12DF-5370-439D-B976-A7BA389B0E30}';
  IsrvFacturasProveedor_IID : TGUID = '{8610382E-FC02-47D6-9B1D-08DCB903B275}';
  IsrvPagos_IID : TGUID = '{A260D4E7-F965-4457-AD15-135C802519CB}';
  IsrvCuentas_IID : TGUID = '{E61A3B4E-AACE-4A1E-B798-968C90D61BBC}';
  IsrvComisiones_IID : TGUID = '{461DBBE7-293D-497A-8CD1-840401883BCE}';
  IsrvAsientos_IID : TGUID = '{1F0F3DFC-B6DD-430D-9D2D-758FEDE7F23B}';
  IsrvIntervalos_IID : TGUID = '{DFEDABB2-C0A6-4229-A753-F4DB93B8278B}';
  IsrvConfiguracion_IID : TGUID = '{38039721-5BEC-42A9-A057-78C47740F844}';
  IsrvCitas_IID : TGUID = '{E31D5D39-5609-4E64-809C-B576D6CE9D1D}';

  { Event ID's }

type
  { Forward declarations }
  IsrvContactos = interface;
  IsrvLogin = interface;
  IsrvPresupuestos = interface;
  IsrvPedidosProveedor = interface;
  IsrvAlbaranesCliente = interface;
  IsrvFacturasCliente = interface;
  IsrvAlmacenes = interface;
  IsrvArticulos = interface;
  IsrvMontajes = interface;
  IsrvFacturasProveedor = interface;
  IsrvPagos = interface;
  IsrvCuentas = interface;
  IsrvComisiones = interface;
  IsrvAsientos = interface;
  IsrvIntervalos = interface;
  IsrvConfiguracion = interface;
  IsrvCitas = interface;


  TLoginInfo = class;
  TstImportes = class;


  { TLoginInfo }
  TLoginInfo = class(TDALoginInfo)
  private
    fRoles: TDAStringArray;
    function GetRoles: TDAStringArray;
  public
    procedure Assign(iSource: TPersistent); override;
  published
    property Roles:TDAStringArray read GetRoles write fRoles;
  end;

  { TLoginInfoCollection }
  TLoginInfoCollection = class(TDALoginInfoCollection)
  protected
    constructor Create(aItemClass: TCollectionItemClass); overload;
    function GetItems(Index: integer): TLoginInfo;
    procedure SetItems(Index: integer; const Value: TLoginInfo);
  public
    constructor Create; overload;
    function Add: TLoginInfo; reintroduce;
    property Items[Index: integer]:TLoginInfo read GetItems write SetItems; default;
  end;

  { TstImportes }
  TstImportes = class(TROComplexType)
  private
    fBaseImponible: Currency;
    fImporteIVA: Currency;
    fImporteTotal: Currency;
  public
    procedure Assign(iSource: TPersistent); override;
  published
    property BaseImponible:Currency read fBaseImponible write fBaseImponible;
    property ImporteIVA:Currency read fImporteIVA write fImporteIVA;
    property ImporteTotal:Currency read fImporteTotal write fImporteTotal;
  end;

  { TstImportesCollection }
  TstImportesCollection = class(TROCollection)
  protected
    constructor Create(aItemClass: TCollectionItemClass); overload;
    function GetItems(Index: integer): TstImportes;
    procedure SetItems(Index: integer; const Value: TstImportes);
  public
    constructor Create; overload;
    function Add: TstImportes; reintroduce;
    property Items[Index: integer]:TstImportes read GetItems write SetItems; default;
  end;

  { IsrvContactos }
  IsrvContactos = interface(IDARemoteService)
    ['{2502C3BD-1DD5-435B-832A-208767D5D55A}']
    function GenerateReport: Binary;
    function GetNextAutoinc: Integer;
    function PuedoEliminarContacto(const CodigoContacto: Integer): Boolean;
  end;

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

  { TsrvContactos_Proxy }
  TsrvContactos_Proxy = class(TDARemoteService_Proxy, IsrvContactos)
  protected
    function __GetInterfaceName:string; override;

    function GenerateReport: Binary;
    function GetNextAutoinc: Integer;
    function PuedoEliminarContacto(const CodigoContacto: Integer): Boolean;
  end;

  { IsrvLogin }
  IsrvLogin = interface
    ['{6B132AE4-D45F-4AE8-8215-E95789358329}']
    function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean;
    procedure Logout;
    function Ping: Boolean;
    function SetUserPassword(const UserID: String; const NewPassword: String): Boolean;
    function UpdateUsers(const UsersDelta: Binary): Binary;
  end;

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

  { TsrvLogin_Proxy }
  TsrvLogin_Proxy = class(TROProxy, IsrvLogin)
  protected
    function __GetInterfaceName:string; override;

    function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean;
    procedure Logout;
    function Ping: Boolean;
    function SetUserPassword(const UserID: String; const NewPassword: String): Boolean;
    function UpdateUsers(const UsersDelta: Binary): Binary;
  end;

  { IsrvPresupuestos }
  IsrvPresupuestos = interface(IDARemoteService)
    ['{B89887A1-264C-4BF9-8D0F-C20B4709F180}']
    function GetNextAutoinc: Integer;
    function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
    function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
  end;

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

  { TsrvPresupuestos_Proxy }
  TsrvPresupuestos_Proxy = class(TDARemoteService_Proxy, IsrvPresupuestos)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc: Integer;
    function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
    function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
  end;

  { IsrvPedidosProveedor }
  IsrvPedidosProveedor = interface(IDARemoteService)
    ['{CCF8B5C3-4A8B-4CB4-B0FB-D95D3887C054}']
    function GetNextAutoinc: Integer;
    function DarNuevaReferencia: String;
    function GenerateReport(const Codigo: Integer): Binary;
    function PuedoEliminarPedido(const CodigoPedido: Integer): Boolean;
  end;

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

  { TsrvPedidosProveedor_Proxy }
  TsrvPedidosProveedor_Proxy = class(TDARemoteService_Proxy, IsrvPedidosProveedor)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc: Integer;
    function DarNuevaReferencia: String;
    function GenerateReport(const Codigo: Integer): Binary;
    function PuedoEliminarPedido(const CodigoPedido: Integer): Boolean;
  end;

  { IsrvAlbaranesCliente }
  IsrvAlbaranesCliente = interface(IDARemoteService)
    ['{2DFDD00B-79D5-47C3-AD92-5FD6E88DCE61}']
    function ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean;
    function DarNuevaReferencia: String;
    function GetNextAutoinc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
    function PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean;
    function DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes;
  end;

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

  { TsrvAlbaranesCliente_Proxy }
  TsrvAlbaranesCliente_Proxy = class(TDARemoteService_Proxy, IsrvAlbaranesCliente)
  protected
    function __GetInterfaceName:string; override;

    function ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean;
    function DarNuevaReferencia: String;
    function GetNextAutoinc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
    function PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean;
    function DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes;
  end;

  { IsrvFacturasCliente }
  IsrvFacturasCliente = interface(IDARemoteService)
    ['{9FD3194D-D8DE-4224-A209-13FC3FC6CD06}']
    function GetNextAutoinc: Integer;
    function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
    function ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean;
    function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
    function DarNuevaReferencia: String;
  end;

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

  { TsrvFacturasCliente_Proxy }
  TsrvFacturasCliente_Proxy = class(TDARemoteService_Proxy, IsrvFacturasCliente)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc: Integer;
    function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
    function ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean;
    function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
    function DarNuevaReferencia: String;
  end;

  { IsrvAlmacenes }
  IsrvAlmacenes = interface(IDARemoteService)
    ['{EC5C0006-F1E0-4181-8E87-AC3C639AF9E3}']
    function GenerateReport: Binary;
    function PuedoEliminarAlmacen(const Codigo: Integer): Boolean;
  end;

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

  { TsrvAlmacenes_Proxy }
  TsrvAlmacenes_Proxy = class(TDARemoteService_Proxy, IsrvAlmacenes)
  protected
    function __GetInterfaceName:string; override;

    function GenerateReport: Binary;
    function PuedoEliminarAlmacen(const Codigo: Integer): Boolean;
  end;

  { IsrvArticulos }
  IsrvArticulos = interface(IDARemoteService)
    ['{E6A99249-A392-4731-BC9B-9AD3A2FBDB16}']
    function GetNextAutoinc: Integer;
  end;

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

  { TsrvArticulos_Proxy }
  TsrvArticulos_Proxy = class(TDARemoteService_Proxy, IsrvArticulos)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc: Integer;
  end;

  { IsrvMontajes }
  IsrvMontajes = interface(IDARemoteService)
    ['{5A4F12DF-5370-439D-B976-A7BA389B0E30}']
    function GetNextAutoinc(const Generador: String): Integer;
    function PuedoEliminarMontaje(const Codigo: Integer): Boolean;
    function GenerateReportFicha(const Codigo: Integer): Binary;
    function GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary;
    function DarNuevaReferencia(const TipoMontaje: String): String;
  end;

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

  { TsrvMontajes_Proxy }
  TsrvMontajes_Proxy = class(TDARemoteService_Proxy, IsrvMontajes)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc(const Generador: String): Integer;
    function PuedoEliminarMontaje(const Codigo: Integer): Boolean;
    function GenerateReportFicha(const Codigo: Integer): Binary;
    function GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary;
    function DarNuevaReferencia(const TipoMontaje: String): String;
  end;

  { IsrvFacturasProveedor }
  IsrvFacturasProveedor = interface(IDARemoteService)
    ['{8610382E-FC02-47D6-9B1D-08DCB903B275}']
    function GetNextAutoinc: Integer;
    function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
  end;

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

  { TsrvFacturasProveedor_Proxy }
  TsrvFacturasProveedor_Proxy = class(TDARemoteService_Proxy, IsrvFacturasProveedor)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc: Integer;
    function PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
  end;

  { IsrvPagos }
  IsrvPagos = interface(IDARemoteService)
    ['{A260D4E7-F965-4457-AD15-135C802519CB}']
    function GetNextAutoinc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
  end;

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

  { TsrvPagos_Proxy }
  TsrvPagos_Proxy = class(TDARemoteService_Proxy, IsrvPagos)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoinc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
  end;

  { IsrvCuentas }
  IsrvCuentas = interface(IDARemoteService)
    ['{E61A3B4E-AACE-4A1E-B798-968C90D61BBC}']
    function GenerateReport: Binary;
    function PuedoEliminarCuenta(const Codigo: Integer): Boolean;
  end;

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

  { TsrvCuentas_Proxy }
  TsrvCuentas_Proxy = class(TDARemoteService_Proxy, IsrvCuentas)
  protected
    function __GetInterfaceName:string; override;

    function GenerateReport: Binary;
    function PuedoEliminarCuenta(const Codigo: Integer): Boolean;
  end;

  { IsrvComisiones }
  IsrvComisiones = interface(IDARemoteService)
    ['{461DBBE7-293D-497A-8CD1-840401883BCE}']
    function GetComision(const CodigoContacto: Integer): Double;
    procedure SetComision(const CodigoContacto: Integer; const Value: Double);
  end;

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

  { TsrvComisiones_Proxy }
  TsrvComisiones_Proxy = class(TDARemoteService_Proxy, IsrvComisiones)
  protected
    function __GetInterfaceName:string; override;

    function GetComision(const CodigoContacto: Integer): Double;
    procedure SetComision(const CodigoContacto: Integer; const Value: Double);
  end;

  { IsrvAsientos }
  IsrvAsientos = interface(IDARemoteService)
    ['{1F0F3DFC-B6DD-430D-9D2D-758FEDE7F23B}']
    function AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean;
    function darPenultimoCierre(const CodigoCuenta: Integer): DateTime;
    function darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency;
  end;

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

  { TsrvAsientos_Proxy }
  TsrvAsientos_Proxy = class(TDARemoteService_Proxy, IsrvAsientos)
  protected
    function __GetInterfaceName:string; override;

    function AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean;
    function darPenultimoCierre(const CodigoCuenta: Integer): DateTime;
    function darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency;
  end;

  { IsrvIntervalos }
  IsrvIntervalos = interface(IDARemoteService)
    ['{DFEDABB2-C0A6-4229-A753-F4DB93B8278B}']
  end;

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

  { TsrvIntervalos_Proxy }
  TsrvIntervalos_Proxy = class(TDARemoteService_Proxy, IsrvIntervalos)
  protected
    function __GetInterfaceName:string; override;

  end;

  { IsrvConfiguracion }
  IsrvConfiguracion = interface
    ['{38039721-5BEC-42A9-A057-78C47740F844}']
    function darRutaDocumentos: String;
  end;

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

  { TsrvConfiguracion_Proxy }
  TsrvConfiguracion_Proxy = class(TROProxy, IsrvConfiguracion)
  protected
    function __GetInterfaceName:string; override;

    function darRutaDocumentos: String;
  end;

  { IsrvCitas }
  IsrvCitas = interface(IDARemoteService)
    ['{E31D5D39-5609-4E64-809C-B576D6CE9D1D}']
    function getCodigo(const Generador: String): Integer;
  end;

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

  { TsrvCitas_Proxy }
  TsrvCitas_Proxy = class(TDARemoteService_Proxy, IsrvCitas)
  protected
    function __GetInterfaceName:string; override;

    function getCodigo(const Generador: String): Integer;
  end;

implementation

uses
  {vcl:} SysUtils,
  {RemObjects:} uROEventRepository, uRORes;

{ TLoginInfo }

procedure TLoginInfo.Assign(iSource: TPersistent); 
var lSource:TLoginInfo;
begin
  inherited Assign(iSource);
  if (iSource is TLoginInfo) then begin
    lSource := TLoginInfo(iSource);
    Roles.Assign(lSource.Roles);
  end;
end;

function TLoginInfo.GetRoles: TDAStringArray;
begin
  if (fRoles = nil) then fRoles := TDAStringArray.Create();
  result := fRoles;
end;

{ TLoginInfoCollection }
constructor TLoginInfoCollection.Create;
begin
  inherited Create(TLoginInfo);
end;

constructor TLoginInfoCollection.Create(aItemClass: TCollectionItemClass);
begin
  inherited Create(aItemClass);
end;

function TLoginInfoCollection.Add: TLoginInfo;
begin
  result := TLoginInfo(inherited Add);
end;

function TLoginInfoCollection.GetItems(Index: integer): TLoginInfo;
begin
  result := TLoginInfo(inherited Items[Index]);
end;

procedure TLoginInfoCollection.SetItems(Index: integer; const Value: TLoginInfo);
begin
  TLoginInfo(inherited Items[Index]).Assign(Value);
end;

{ TstImportes }

procedure TstImportes.Assign(iSource: TPersistent); 
var lSource:TstImportes;
begin
  inherited Assign(iSource);
  if (iSource is TstImportes) then begin
    lSource := TstImportes(iSource);
    BaseImponible := lSource.BaseImponible;
    ImporteIVA := lSource.ImporteIVA;
    ImporteTotal := lSource.ImporteTotal;
  end;
end;

{ TstImportesCollection }
constructor TstImportesCollection.Create;
begin
  inherited Create(TstImportes);
end;

constructor TstImportesCollection.Create(aItemClass: TCollectionItemClass);
begin
  inherited Create(aItemClass);
end;

function TstImportesCollection.Add: TstImportes;
begin
  result := TstImportes(inherited Add);
end;

function TstImportesCollection.GetItems(Index: integer): TstImportes;
begin
  result := TstImportes(inherited Items[Index]);
end;

procedure TstImportesCollection.SetItems(Index: integer; const Value: TstImportes);
begin
  TstImportes(inherited Items[Index]).Assign(Value);
end;

{ CosrvContactos }

class function CosrvContactos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContactos;
begin
  result := TsrvContactos_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvContactos_Proxy }

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

function TsrvContactos_Proxy.GenerateReport: Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvContactos_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvContactos_Proxy.PuedoEliminarContacto(const CodigoContacto: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvLogin }

class function CosrvLogin.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin;
begin
  result := TsrvLogin_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvLogin_Proxy }

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

function TsrvLogin_Proxy.Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean;
var
  __request, __response : TMemoryStream;
begin
  LoginInfo := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
     __Message.Read('LoginInfo', TypeInfo(FactuGES_Intf.TLoginInfo), LoginInfo, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

procedure TsrvLogin_Proxy.Logout;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvLogin_Proxy.Ping: Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvLogin_Proxy.SetUserPassword(const UserID: String; const NewPassword: String): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvLogin_Proxy.UpdateUsers(const UsersDelta: Binary): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvPresupuestos }

class function CosrvPresupuestos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestos;
begin
  result := TsrvPresupuestos_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvPresupuestos_Proxy }

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

function TsrvPresupuestos_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvPresupuestos_Proxy.GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvPresupuestos_Proxy.PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvPedidosProveedor }

class function CosrvPedidosProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosProveedor;
begin
  result := TsrvPedidosProveedor_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvPedidosProveedor_Proxy }

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

function TsrvPedidosProveedor_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvPedidosProveedor_Proxy.DarNuevaReferencia: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(String), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvPedidosProveedor_Proxy.GenerateReport(const Codigo: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvPedidosProveedor_Proxy.PuedoEliminarPedido(const CodigoPedido: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvAlbaranesCliente }

class function CosrvAlbaranesCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente;
begin
  result := TsrvAlbaranesCliente_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvAlbaranesCliente_Proxy }

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

function TsrvAlbaranesCliente_Proxy.ExisteAlbaranDePresupuesto(const CodigoPresupuesto: Integer; out CodigoAlbaran: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
     __Message.Read('CodigoAlbaran', TypeInfo(Integer), CodigoAlbaran, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAlbaranesCliente_Proxy.DarNuevaReferencia: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(String), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAlbaranesCliente_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAlbaranesCliente_Proxy.GenerateReport(const Codigo: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAlbaranesCliente_Proxy.PuedoEliminarAlbaran(const CodigoAlbaran: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAlbaranesCliente_Proxy.DarSumaImportes(const FechaIni: DateTime; const FechaFin: DateTime): TstImportes;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'DarSumaImportes');
     __Message.Write('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
     __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(FactuGES_Intf.TstImportes), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvFacturasCliente }

class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
begin
  result := TsrvFacturasCliente_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvFacturasCliente_Proxy }

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

function TsrvFacturasCliente_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvFacturasCliente_Proxy.PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvFacturasCliente_Proxy.ExisteFacturaDeAlbaran(const CodigoAlbaran: Integer; out CodigoFactura: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
     __Message.Read('CodigoFactura', TypeInfo(Integer), CodigoFactura, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvFacturasCliente_Proxy.GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvFacturasCliente_Proxy.DarNuevaReferencia: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(String), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvAlmacenes }

class function CosrvAlmacenes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes;
begin
  result := TsrvAlmacenes_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvAlmacenes_Proxy }

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

function TsrvAlmacenes_Proxy.GenerateReport: Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAlmacenes_Proxy.PuedoEliminarAlmacen(const Codigo: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvArticulos }

class function CosrvArticulos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvArticulos;
begin
  result := TsrvArticulos_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvArticulos_Proxy }

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

function TsrvArticulos_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvMontajes }

class function CosrvMontajes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvMontajes;
begin
  result := TsrvMontajes_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvMontajes_Proxy }

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

function TsrvMontajes_Proxy.GetNextAutoinc(const Generador: String): Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoinc');
     __Message.Write('Generador', TypeInfo(String), Generador, []);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvMontajes_Proxy.PuedoEliminarMontaje(const Codigo: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvMontajes_Proxy.GenerateReportFicha(const Codigo: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvMontajes_Proxy.GenerateReportEtiquetas(const Codigo: Integer; const NumEtiquetas: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvMontajes_Proxy.DarNuevaReferencia(const TipoMontaje: String): String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(String), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvFacturasProveedor }

class function CosrvFacturasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor;
begin
  result := TsrvFacturasProveedor_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvFacturasProveedor_Proxy }

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

function TsrvFacturasProveedor_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvFacturasProveedor_Proxy.PuedoEliminarFactura(const CodigoFactura: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvPagos }

class function CosrvPagos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPagos;
begin
  result := TsrvPagos_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvPagos_Proxy }

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

function TsrvPagos_Proxy.GetNextAutoinc: Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvPagos_Proxy.GenerateReport(const Codigo: Integer): Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvCuentas }

class function CosrvCuentas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentas;
begin
  result := TsrvCuentas_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvCuentas_Proxy }

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

function TsrvCuentas_Proxy.GenerateReport: Binary;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Binary), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvCuentas_Proxy.PuedoEliminarCuenta(const Codigo: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvComisiones }

class function CosrvComisiones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
begin
  result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvComisiones_Proxy }

function TsrvComisiones_Proxy.__GetInterfaceName:string;
begin
  result := 'srvComisiones';
end;

function TsrvComisiones_Proxy.GetComision(const CodigoContacto: Integer): Double;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Double), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

procedure TsrvComisiones_Proxy.SetComision(const CodigoContacto: Integer; const Value: Double);
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'SetComision');
     __Message.Write('CodigoContacto', TypeInfo(Integer), CodigoContacto, []);
     __Message.Write('Value', TypeInfo(Double), Value, []);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvAsientos }

class function CosrvAsientos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAsientos;
begin
  result := TsrvAsientos_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvAsientos_Proxy }

function TsrvAsientos_Proxy.__GetInterfaceName:string;
begin
  result := 'srvAsientos';
end;

function TsrvAsientos_Proxy.AsignarPunteo(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime; const ValorPunteado: Integer): Boolean;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'AsignarPunteo');
     __Message.Write('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
     __Message.Write('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
     __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
     __Message.Write('ValorPunteado', TypeInfo(Integer), ValorPunteado, []);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Boolean), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAsientos_Proxy.darPenultimoCierre(const CodigoCuenta: Integer): DateTime;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darPenultimoCierre');
     __Message.Write('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
  finally
    __request.Free;
    __response.Free;
  end
end;

function TsrvAsientos_Proxy.darSumaAcumulada(const CodigoCuenta: Integer; const FechaIni: DateTime; const FechaFin: DateTime): Currency;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darSumaAcumulada');
     __Message.Write('CodigoCuenta', TypeInfo(Integer), CodigoCuenta, []);
     __Message.Write('FechaIni', TypeInfo(DateTime), FechaIni, [paIsDateTime]);
     __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Currency), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvIntervalos }

class function CosrvIntervalos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvIntervalos;
begin
  result := TsrvIntervalos_Proxy.Create(aMessage, aTransportChannel);
end;

function TsrvIntervalos_Proxy.__GetInterfaceName:string;
begin
  result := 'srvIntervalos';
end;

{ CosrvConfiguracion }

class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion;
begin
  result := TsrvConfiguracion_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvConfiguracion_Proxy }

function TsrvConfiguracion_Proxy.__GetInterfaceName:string;
begin
  result := 'srvConfiguracion';
end;

function TsrvConfiguracion_Proxy.darRutaDocumentos: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(String), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

{ CosrvCitas }

class function CosrvCitas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCitas;
begin
  result := TsrvCitas_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvCitas_Proxy }

function TsrvCitas_Proxy.__GetInterfaceName:string;
begin
  result := 'srvCitas';
end;

function TsrvCitas_Proxy.getCodigo(const Generador: String): Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'getCodigo');
     __Message.Write('Generador', TypeInfo(String), Generador, []);
     __Message.Finalize;

     __Message.WriteToStream(__request);
     __TransportChannel.Dispatch(__request, __response);
     __Message.ReadFromStream(__response);

     __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __request.Free;
    __response.Free;
  end
end;

initialization
  RegisterROClass(TLoginInfo);
  RegisterROClass(TstImportes);
  RegisterProxyClass(IsrvContactos_IID, TsrvContactos_Proxy);
  RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy);
  RegisterProxyClass(IsrvPresupuestos_IID, TsrvPresupuestos_Proxy);
  RegisterProxyClass(IsrvPedidosProveedor_IID, TsrvPedidosProveedor_Proxy);
  RegisterProxyClass(IsrvAlbaranesCliente_IID, TsrvAlbaranesCliente_Proxy);
  RegisterProxyClass(IsrvFacturasCliente_IID, TsrvFacturasCliente_Proxy);
  RegisterProxyClass(IsrvAlmacenes_IID, TsrvAlmacenes_Proxy);
  RegisterProxyClass(IsrvArticulos_IID, TsrvArticulos_Proxy);
  RegisterProxyClass(IsrvMontajes_IID, TsrvMontajes_Proxy);
  RegisterProxyClass(IsrvFacturasProveedor_IID, TsrvFacturasProveedor_Proxy);
  RegisterProxyClass(IsrvPagos_IID, TsrvPagos_Proxy);
  RegisterProxyClass(IsrvCuentas_IID, TsrvCuentas_Proxy);
  RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
  RegisterProxyClass(IsrvAsientos_IID, TsrvAsientos_Proxy);
  RegisterProxyClass(IsrvIntervalos_IID, TsrvIntervalos_Proxy);
  RegisterProxyClass(IsrvConfiguracion_IID, TsrvConfiguracion_Proxy);
  RegisterProxyClass(IsrvCitas_IID, TsrvCitas_Proxy);


finalization
  UnregisterROClass(TLoginInfo);
  UnregisterROClass(TstImportes);
  UnregisterProxyClass(IsrvContactos_IID);
  UnregisterProxyClass(IsrvLogin_IID);
  UnregisterProxyClass(IsrvPresupuestos_IID);
  UnregisterProxyClass(IsrvPedidosProveedor_IID);
  UnregisterProxyClass(IsrvAlbaranesCliente_IID);
  UnregisterProxyClass(IsrvFacturasCliente_IID);
  UnregisterProxyClass(IsrvAlmacenes_IID);
  UnregisterProxyClass(IsrvArticulos_IID);
  UnregisterProxyClass(IsrvMontajes_IID);
  UnregisterProxyClass(IsrvFacturasProveedor_IID);
  UnregisterProxyClass(IsrvPagos_IID);
  UnregisterProxyClass(IsrvCuentas_IID);
  UnregisterProxyClass(IsrvComisiones_IID);
  UnregisterProxyClass(IsrvAsientos_IID);
  UnregisterProxyClass(IsrvIntervalos_IID);
  UnregisterProxyClass(IsrvConfiguracion_IID);
  UnregisterProxyClass(IsrvCitas_IID);

end.