From 4078f151449a8ce182fca2009169f839cf9b2287 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 29 Jul 2008 16:48:23 +0000
Subject: [PATCH] Servidor: mejorada la forma de llamar al servicio de
 referencias.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@299 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Model/uBizAlbaranClienteServer.pas        | 30 +++++++++-------
 .../Model/uBizAlbaranProveedorServer.PAS      | 31 ++++++++--------
 .../Comisiones/Model/uBizComisionesServer.pas | 32 ++++++++---------
 .../Contactos/Model/uBizClientesServer.pas    | 26 +++-----------
 .../Contactos/Model/uBizContactosServer.pas   | 34 +++++++++++++++++-
 .../Contactos/Model/uBizProveedoresServer.pas | 24 ++-----------
 .../Model/uBizFacturasClienteServer.pas       | 30 +++++++++-------
 .../Model/uBizFacturasProveedorServer.pas     | 32 +++++++++--------
 .../Model/uBizPedidosProveedorServer.pas      | 33 +++++++++--------
 .../Model/uBizPresupuestosClienteServer.pas   | 35 +++++++++++--------
 .../Model/uBizRecibosClienteServer.pas        | 32 ++++++++---------
 .../Model/uBizRecibosProveedorServer.pas      | 32 ++++++++---------
 .../Model/uBizRemesasClienteServer.pas        | 33 +++++++++--------
 .../Model/uBizRemesasProveedorServer.pas      | 33 +++++++++--------
 14 files changed, 232 insertions(+), 205 deletions(-)

diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
index c4be2be8..ce9262bf 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas	
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas	
@@ -24,7 +24,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schAlbaranesClienteClient_Intf, srvReferencias_Impl;
+  schAlbaranesClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_ALBARANES_CLIENTE = 'REF_ALBARANES_CLIENTE';
@@ -74,6 +74,9 @@ end;
 
 function TBizAlbaranClienteServer.DarReferencia: String;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (IMPORTE_TOTAL < 0) then
@@ -81,17 +84,19 @@ begin
   else
     ACodigoReferencia := REF_ALBARANES_CLIENTE;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
 end;
 
 
 function TBizAlbaranClienteServer.IncrementarReferencia: Boolean;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (IMPORTE_TOTAL < 0) then
@@ -99,12 +104,11 @@ begin
   else
     ACodigoReferencia := REF_ALBARANES_CLIENTE;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 initialization
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
index f6891cb1..14254ca5 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS	
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS	
@@ -26,7 +26,7 @@ implementation
 uses
   Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses,
   schAlbaranesProveedorClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses,
-  srvReferencias_Impl;
+  FactuGES_Intf, uROServer;
 
 const
   REF_ALBARANES_PROVEEDOR = 'REF_ALBARANES_PROVEEDOR';
@@ -71,6 +71,9 @@ end;
 
 function TBizAlbaranProveedorServer.DarReferencia: String;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (IMPORTE_TOTAL < 0) then
@@ -78,16 +81,18 @@ begin
   else
     ACodigoReferencia := REF_ALBARANES_PROVEEDOR;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
 end;
 
 function TBizAlbaranProveedorServer.IncrementarReferencia: Boolean;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (IMPORTE_TOTAL < 0) then
@@ -95,13 +100,11 @@ begin
   else
     ACodigoReferencia := REF_ALBARANES_PROVEEDOR;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ACodigoReferencia,
-        Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 initialization
diff --git a/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas b/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
index 82b55828..8fc52fd7 100644
--- a/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
+++ b/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
@@ -25,7 +25,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schComisionesClient_Intf, srvReferencias_Impl;
+  schComisionesClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_COMISIONES = 'REF_COMISIONES';  
@@ -71,30 +71,28 @@ end;
 
 function TBizComisionesServer.DarReferencia: String;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  ATipo := REF_COMISIONES;
+  CreateGUID(AClientID);
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_COMISIONES, ID_EMPRESA, -1)
 end;
 
 function TBizComisionesServer.IncrementarReferencia: Boolean;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  ATipo := REF_COMISIONES;
+  CreateGUID(AClientID);
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_COMISIONES, Self.REFERENCIA, ID_EMPRESA, -1)
 end;
 
 
diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
index f4262c8d..8ea76adf 100644
--- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
@@ -28,7 +28,7 @@ implementation
 
 uses
   uDataModuleServer, uDAClasses, srvContabilidad_Impl,
-  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+  schContactosClient_Intf, uBusinessUtils;
 
 const
   REF_CLIENTE = 'REF_CLIENTE';
@@ -68,17 +68,8 @@ begin
 end;
 
 function TBizClienteServer.DarReferencia: String;
-var
-  ATipo : String;
 begin
-  ATipo := REF_CLIENTE;
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  Result := _DarReferenciaInterna(REF_CLIENTE);
 end;
 
 procedure TBizClienteServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@@ -88,7 +79,7 @@ var
   ACommand : IDASQLCommand;
 begin
   inherited;
-  
+
   ASchema := BusinessProcessor.Schema;
   ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
 
@@ -105,17 +96,8 @@ begin
 end;
 
 function TBizClienteServer.IncrementarReferencia: Boolean;
-var
-  ATipo : String;
 begin
-  ATipo := REF_CLIENTE;
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  Result := _IncrementarReferenciaInterna(REF_CLIENTE);
 end;
 
 procedure TBizClienteServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
diff --git a/Source/Modulos/Contactos/Model/uBizContactosServer.pas b/Source/Modulos/Contactos/Model/uBizContactosServer.pas
index 4b019ea4..1d96b5fd 100644
--- a/Source/Modulos/Contactos/Model/uBizContactosServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactosServer.pas
@@ -12,6 +12,9 @@ const
 type
   TBizContactosServer = class(TContactosBusinessProcessorRules)
   protected
+    function _DarReferenciaInterna(const ATipo: String) : String;
+    function _IncrementarReferenciaInterna(const ATipo: String) : Boolean;
+
     procedure Insert_Datos_Contacto(aChange: TDADeltaChange); virtual;
     procedure Update_Datos_Contacto(aChange: TDADeltaChange); virtual;
     procedure Delete_Datos_Contacto(aChange: TDADeltaChange); virtual;
@@ -35,7 +38,8 @@ implementation
 
 uses
   Dialogs, uDataModuleServer, uDAClasses, 
-  schContactosClient_Intf, uBusinessUtils;
+  schContactosClient_Intf, uBusinessUtils, 
+  FactuGES_Intf, uROServer;
 
 { TBizContactosServer }
 
@@ -226,6 +230,34 @@ begin
   end;
 end;
 
+function TBizContactosServer._DarReferenciaInterna(
+  const ATipo: String): String;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
+begin
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+end;
+
+function TBizContactosServer._IncrementarReferenciaInterna(
+  const ATipo: String): Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
+begin
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+end;
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_CONTACTO, TBizContactosServer);
 
diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
index 1e42ac66..75c13d90 100644
--- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
@@ -28,7 +28,7 @@ implementation
 
 uses
   uDataModuleServer, uDAClasses, srvContabilidad_Impl,
-  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+  schContactosClient_Intf, uBusinessUtils;
 
 const
   REF_PROVEEDOR = 'REF_PROVEEDOR';
@@ -68,17 +68,8 @@ begin
 end;
 
 function TBizProveedorServer.DarReferencia: String;
-var
-  ATipo : String;
 begin
-  ATipo := REF_PROVEEDOR;
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  Result := _DarReferenciaInterna(REF_PROVEEDOR);
 end;
 
 procedure TBizProveedorServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@@ -105,17 +96,8 @@ begin
 end;
 
 function TBizProveedorServer.IncrementarReferencia: Boolean;
-var
-  ATipo : String;
 begin
-  ATipo := REF_PROVEEDOR;
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  Result := _IncrementarReferenciaInterna(REF_PROVEEDOR);
 end;
 
 procedure TBizProveedorServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
index 43bc4f01..1401f301 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas	
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas	
@@ -28,7 +28,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schFacturasClienteClient_Intf, srvReferencias_Impl;
+  schFacturasClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
@@ -123,6 +123,9 @@ end;
 
 function TBizFacturasClienteServer.DarReferencia: String;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ATipo : String;
 begin
 //No se hace distinción en la referencia entre facturas y abonos
@@ -131,16 +134,18 @@ begin
 //  else
 //    ATipo := REF_ABONOS_CLIENTE;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
 end;
 
 function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ATipo : String;
 begin
 //  if TIPO = CTE_TIPO_FACTURA then
@@ -148,12 +153,11 @@ begin
 //  else
 //    ATipo := REF_ABONOS_CLIENTE;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 procedure TBizFacturasClienteServer.Insert_Asiento_Factura(aChange: TDADeltaChange);
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
index 82e2bac7..5965d5ee 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas	
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas	
@@ -28,7 +28,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schFacturasProveedorClient_Intf, srvReferencias_Impl;
+  schFacturasProveedorClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR';
@@ -89,19 +89,22 @@ end;
 
 function TBizFacturasProveedorServer.DarReferencia: String;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ATipo : String;
 begin
+//No se hace distinción en la referencia entre facturas y abonos
 //  if TIPO = CTE_TIPO_FACTURA then
     ATipo := REF_FACTURAS_PROVEEDOR;
 //  else
 //    ATipo := REF_ABONOS_PROVEEDOR;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
 end;
 
 procedure TBizFacturasProveedorServer.Delete_Asiento_Factura(aChange: TDADeltaChange);
@@ -141,6 +144,9 @@ end;
 
 function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ATipo : String;
 begin
 //  if TIPO = CTE_TIPO_FACTURA then
@@ -148,14 +154,12 @@ begin
 //  else
 //    ATipo := REF_ABONOS_PROVEEDOR;
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
-end;
+  CreateGUID(AClientID);
 
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+end;
 
 procedure TBizFacturasProveedorServer.Insert_Asiento_Factura(aChange: TDADeltaChange);
 var
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
index bf2d75f3..11dad84c 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas	
@@ -27,7 +27,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schPedidosProveedorClient_Intf, srvReferencias_Impl;
+  schPedidosProveedorClient_Intf,  FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_PEDIDOS_PROVEEDOR = 'REF_PEDIDOS_PROVEEDOR';
@@ -71,24 +71,29 @@ begin
 end;
 
 function TBizPedidosProveedorServer.DarReferencia: String;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA, ID_TIENDA)
 end;
 
 function TBizPedidosProveedorServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR,
-        Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 initialization
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
index 23d2c224..c38647cc 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas	
@@ -26,8 +26,9 @@ type
 implementation
 
 uses
-  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schPresupuestosClienteClient_Intf, srvReferencias_Impl;
+  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,
+  uDataModuleServer, schPresupuestosClienteClient_Intf,
+  FactuGES_Intf, uROServer, SysUtils;
   
 const
   REF_PRESUPUESTOS_CLIENTE = 'REF_PRESUPUESTOS_CLIENTE';
@@ -74,24 +75,30 @@ end;
 
 
 function TBizPresupuestosClienteServer.DarReferencia: String;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
 end;
 
 
 function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 initialization
diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas
index 6f007b1c..16785012 100644
--- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas	
+++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas	
@@ -24,7 +24,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schRecibosClienteClient_Intf, srvReferencias_Impl;
+  schRecibosClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_RECIBOS_CLIENTE = 'REF_RECIBOS_CLIENTE';
@@ -71,30 +71,28 @@ end;
 
 function TBizRecibosClienteServer.DarReferencia: String;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  ATipo := REF_RECIBOS_CLIENTE;
+  CreateGUID(AClientID);
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_RECIBOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
 end;
 
 function TBizRecibosClienteServer.IncrementarReferencia: Boolean;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  ATipo := REF_RECIBOS_CLIENTE;
+  CreateGUID(AClientID);
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_RECIBOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 initialization
diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas
index d1008abc..81dcef7b 100644
--- a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas	
+++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas	
@@ -24,7 +24,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schRecibosProveedorClient_Intf, srvReferencias_Impl;
+  schRecibosProveedorClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_RECIBOS_PROVEEDOR = 'REF_RECIBOS_PROVEEDOR';
@@ -71,30 +71,28 @@ end;
 
 function TBizRecibosProveedorServer.DarReferencia: String;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  ATipo := REF_RECIBOS_Proveedor;
+  CreateGUID(AClientID);
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_RECIBOS_PROVEEDOR, ID_EMPRESA, ID_TIENDA)
 end;
 
 function TBizRecibosProveedorServer.IncrementarReferencia: Boolean;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  ATipo := REF_RECIBOS_Proveedor;
+  CreateGUID(AClientID);
 
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_RECIBOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
 end;
 
 initialization
diff --git a/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas b/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas
index 23dd1c08..96eb1126 100644
--- a/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas	
+++ b/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas	
@@ -27,7 +27,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schRemesasClienteClient_Intf, srvReferencias_Impl;
+  schRemesasClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_REMESAS_CLIENTE = 'REF_REMESAS_CLIENTE';
@@ -71,24 +71,29 @@ begin
 end;
 
 function TBizRemesasClienteServer.DarReferencia: String;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(REF_REMESAS_CLIENTE, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_REMESAS_CLIENTE, ID_EMPRESA, -1)
 end;
 
 function TBizRemesasClienteServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(REF_REMESAS_CLIENTE,
-        Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_REMESAS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, -1)
 end;
 
 initialization
diff --git a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas
index b8f5868e..a31c2380 100644
--- a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas	
+++ b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas	
@@ -26,7 +26,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schRemesasProveedorClient_Intf, srvReferencias_Impl;
+  schRemesasProveedorClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_REMESAS_PROVEEDOR = 'REF_REMESAS_PROVEEDOR';
@@ -72,24 +72,29 @@ end;
 
 
 function TBizRemesasProveedorServer.DarReferencia: String;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(REF_REMESAS_PROVEEDOR, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.DarNuevaReferencia(REF_REMESAS_PROVEEDOR, ID_EMPRESA, -1)
 end;
 
 function TBizRemesasProveedorServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(REF_REMESAS_PROVEEDOR,
-        Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_REMESAS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, -1)
 end;
 
 initialization