From 5f315855552d1a9122cc6d70429a9f80df730b00 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 7 Feb 2008 10:33:19 +0000
Subject: [PATCH] Ultimo cambio para la gestion de referencias

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@259 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Servicios/FactuGES.RODL        |   4 ++--
 Source/Servicios/FactuGES_Intf.pas    |   6 +++---
 Source/Servicios/FactuGES_Invk.pas    |   2 +-
 Source/Servicios/RODLFILE.res         | Bin 24070 -> 24139 bytes
 Source/Servidor/FactuGES_Server.dpr   |   4 ++--
 Source/Servidor/FactuGES_Server.dproj |  11 ++++-------
 6 files changed, 12 insertions(+), 15 deletions(-)

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 6305b9a7935c408995e4cf64a44e38d0f5e39378..74f27a538093a75ccc39a914ed2ee321494e3e4e 100644
GIT binary patch
delta 82
zcmZqM!+3fR;{*l9-y0Q|dQM)Vpfvd#qxj@Eo^nPC0f|M43c2|yr8)TuDX9wSsl_Fk
j`FS8_QEFOhQEFatW@0gro1>7NlbM=VlDe78>yI!1L$x2j

delta 38
ucmX@Thp}xB;{*l9Z5tJrdU6F6WtJtDq}nPOPX5R!Gx@)#+-85TKf(Yk6%Sni

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>