diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 0ee4e0c7..d6d379d8 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -352,8 +352,8 @@
 </Interface>
 </Interfaces>
 </Service>
-<Service Name="srvReferencias" UID="{89B1A7B4-E6D5-4520-97BE-52CEA7C97110}" Private="1">
-<Documentation><![CDATA[Para uso interno del servidor.]]></Documentation><Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
+<Service Name="srvReferencias" UID="{89B1A7B4-E6D5-4520-97BE-52CEA7C97110}" Ancestor="DataAbstractService">
+<Documentation><![CDATA[Para uso interno del servidor. Para modulo de gestion de referencias del cliente]]></Documentation><Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
 <Interfaces>
 <Interface Name="Default" UID="{B957528D-3BE1-412D-A35E-801C97CCD252}">
 <Operations>
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index a16f8aac..aa06f252 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -572,8 +572,8 @@ type
   { IsrvReferencias }
 
   { Description:
-      Para uso interno del servidor. }
-  IsrvReferencias = interface
+      Para uso interno del servidor. Para modulo de gestion de referencias del cliente }
+  IsrvReferencias = interface(IDataAbstractService)
     ['{B957528D-3BE1-412D-A35E-801C97CCD252}']
     function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
     function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
@@ -585,7 +585,7 @@ type
   end;
 
   { TsrvReferencias_Proxy }
-  TsrvReferencias_Proxy = class(TROProxy, IsrvReferencias)
+  TsrvReferencias_Proxy = class(TDataAbstractService_Proxy, IsrvReferencias)
   protected
     function __GetInterfaceName:string; override;
 
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index a18050e1..e403e0ae 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -173,7 +173,7 @@ type
     procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
-  TsrvReferencias_Invoker = class(TROInvoker)
+  TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 6305b9a7..74f27a53 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 613b73b9..541914a7 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -71,7 +71,6 @@ uses
   schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
   schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
   uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
-  srvReferencias_Impl in 'srvReferencias_Impl.pas' {srvReferencias: TDataAbstractService},
   uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
   uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@@ -108,7 +107,8 @@ uses
   schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   uRptWordAlbaranCliente in '..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas' {RptWordAlbaranCliente: TDataModule},
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+  srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDataAbstractService};
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index aa96b99d..959346fe 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -45,9 +45,6 @@
       
       
       
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -181,6 +178,10 @@
       <Form>srvRecibosProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+      <Form>srvReferencias</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
     <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
     <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
@@ -230,10 +231,6 @@
       <Form>srvLogin</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-    <DCCReference Include="srvReferencias_Impl.pas">
-      <Form>srvReferencias</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
     <DCCReference Include="uAcercaDe.pas">
       <Form>fAcercaDe</Form>
     </DCCReference>