ProGestion/Servidor/FactuGES_Intf.pas

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}';
  IsrvObras_IID : TGUID = '{B89887A1-264C-4BF9-8D0F-C20B4709F180}';
  IsrvConfiguracion_IID : TGUID = '{F3739ECF-58ED-416F-A4E8-261510BC5E89}';
  IsrvFacturasCliente_IID : TGUID = '{C899FB1A-F05C-48F0-B26D-C162DBF8BD6A}';
  IsrvRecibosCliente_IID : TGUID = '{0FF891DD-F2B8-435C-B494-BD0FA1207ECD}';
  IsrvCitas_IID : TGUID = '{E31D5D39-5609-4E64-809C-B576D6CE9D1D}';

  { Event ID's }

type
  { Forward declarations }
  IsrvContactos = interface;
  IsrvLogin = interface;
  IsrvObras = interface;
  IsrvConfiguracion = interface;
  IsrvFacturasCliente = interface;
  IsrvRecibosCliente = interface;
  IsrvCitas = interface;




  { IsrvContactos }
  IsrvContactos = interface(IDARemoteService)
    ['{2502C3BD-1DD5-435B-832A-208767D5D55A}']
    function GenerateReport: Binary;
    function getCodigo(const GeneratorName: String): Integer;
  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 getCodigo(const GeneratorName: String): Integer;
  end;

  { IsrvLogin }
  IsrvLogin = interface(IDALoginService)
    ['{6B132AE4-D45F-4AE8-8215-E95789358329}']
    function Ping: Boolean;
  end;

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

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

    function Ping: Boolean;
  end;

  { IsrvObras }
  IsrvObras = interface(IDARemoteService)
    ['{B89887A1-264C-4BF9-8D0F-C20B4709F180}']
    function getCodigo(const GeneratorName: String): Integer;
  end;

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

  { TsrvObras_Proxy }
  TsrvObras_Proxy = class(TDARemoteService_Proxy, IsrvObras)
  protected
    function __GetInterfaceName:string; override;

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

  { IsrvConfiguracion }
  IsrvConfiguracion = interface(IDARemoteService)
    ['{F3739ECF-58ED-416F-A4E8-261510BC5E89}']
    function darRutaProyectos: String;
    function darRutaNormativas: String;
    function darEstructuraDirProyectos: TDAStringArray;
    function darEstructuraDirNormativas: TDAStringArray;
  end;

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

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

    function darRutaProyectos: String;
    function darRutaNormativas: String;
    function darEstructuraDirProyectos: TDAStringArray;
    function darEstructuraDirNormativas: TDAStringArray;
  end;

  { IsrvFacturasCliente }
  IsrvFacturasCliente = interface(IDARemoteService)
    ['{C899FB1A-F05C-48F0-B26D-C162DBF8BD6A}']
    function GetNextAutoInc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
    function darNuevaReferenciaFactura: String;
    function darNuevaReferenciaFacturaPro: 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 GenerateReport(const Codigo: Integer): Binary;
    function darNuevaReferenciaFactura: String;
    function darNuevaReferenciaFacturaPro: String;
  end;

  { IsrvRecibosCliente }
  IsrvRecibosCliente = interface(IDARemoteService)
    ['{0FF891DD-F2B8-435C-B494-BD0FA1207ECD}']
    function GetNextAutoInc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
  end;

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

  { TsrvRecibosCliente_Proxy }
  TsrvRecibosCliente_Proxy = class(TDARemoteService_Proxy, IsrvRecibosCliente)
  protected
    function __GetInterfaceName:string; override;

    function GetNextAutoInc: Integer;
    function GenerateReport(const Codigo: Integer): Binary;
  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;

{ 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.getCodigo(const GeneratorName: String): Integer;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'getCodigo');
     __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
     __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;

{ 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.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;

{ CosrvObras }

class function CosrvObras.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvObras;
begin
  result := TsrvObras_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvObras_Proxy }

function TsrvObras_Proxy.__GetInterfaceName:string;
begin
  result := 'srvObras';
end;

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

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'getCodigo');
     __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
     __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;

{ 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.darRutaProyectos: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaProyectos');
     __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 TsrvConfiguracion_Proxy.darRutaNormativas: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaNormativas');
     __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 TsrvConfiguracion_Proxy.darEstructuraDirProyectos: TDAStringArray;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

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

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

function TsrvConfiguracion_Proxy.darEstructuraDirNormativas: TDAStringArray;
var
  __request, __response : TMemoryStream;
begin
  result := nil;
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

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

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

     __Message.Read('Result', TypeInfo(DataAbstract_Intf.TDAStringArray), 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.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 TsrvFacturasCliente_Proxy.darNuevaReferenciaFactura: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darNuevaReferenciaFactura');
     __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 TsrvFacturasCliente_Proxy.darNuevaReferenciaFacturaPro: String;
var
  __request, __response : TMemoryStream;
begin
  __request := TMemoryStream.Create;
  __response := TMemoryStream.Create;

  try
     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darNuevaReferenciaFacturaPro');
     __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;

{ CosrvRecibosCliente }

class function CosrvRecibosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecibosCliente;
begin
  result := TsrvRecibosCliente_Proxy.Create(aMessage, aTransportChannel);
end;

{ TsrvRecibosCliente_Proxy }

function TsrvRecibosCliente_Proxy.__GetInterfaceName:string;
begin
  result := 'srvRecibosCliente';
end;

function TsrvRecibosCliente_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 TsrvRecibosCliente_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;

{ 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
  RegisterProxyClass(IsrvContactos_IID, TsrvContactos_Proxy);
  RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy);
  RegisterProxyClass(IsrvObras_IID, TsrvObras_Proxy);
  RegisterProxyClass(IsrvConfiguracion_IID, TsrvConfiguracion_Proxy);
  RegisterProxyClass(IsrvFacturasCliente_IID, TsrvFacturasCliente_Proxy);
  RegisterProxyClass(IsrvRecibosCliente_IID, TsrvRecibosCliente_Proxy);
  RegisterProxyClass(IsrvCitas_IID, TsrvCitas_Proxy);


finalization
  UnregisterProxyClass(IsrvContactos_IID);
  UnregisterProxyClass(IsrvLogin_IID);
  UnregisterProxyClass(IsrvObras_IID);
  UnregisterProxyClass(IsrvConfiguracion_IID);
  UnregisterProxyClass(IsrvFacturasCliente_IID);
  UnregisterProxyClass(IsrvRecibosCliente_IID);
  UnregisterProxyClass(IsrvCitas_IID);

end.