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

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
-    end;
 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
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    end;
 end;
 
 initialization

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
-    end;
 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
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(ACodigoReferencia,
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-        Self.REFERENCIA, ID_EMPRESA)
+  AReferenciasService := Intf as IsrvReferencias;
-    finally
+  Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-      Free;
-    end;
 end;
 
 initialization

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
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    try
+  AReferenciasService := Intf as IsrvReferencias;
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
+  Result := AReferenciasService.DarNuevaReferencia(REF_COMISIONES, ID_EMPRESA, -1)
-    finally
-      Free;
-    end;
 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
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    try
+  AReferenciasService := Intf as IsrvReferencias;
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA)
+  Result := AReferenciasService.IncrementarValorReferencia(REF_COMISIONES, Self.REFERENCIA, ID_EMPRESA, -1)
-    finally
-      Free;
-    end;
 end;
 
 

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;
+  Result := _DarReferenciaInterna(REF_CLIENTE);
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 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;
+  Result := _IncrementarReferenciaInterna(REF_CLIENTE);
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizClienteServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

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);
 

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;
+  Result := _DarReferenciaInterna(REF_PROVEEDOR);
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 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;
+  Result := _IncrementarReferenciaInterna(REF_PROVEEDOR);
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizProveedorServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    end;
 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
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    end;
 end;
 
 procedure TBizFacturasClienteServer.Insert_Asiento_Factura(aChange: TDADeltaChange);

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
-    end;
 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
+  CreateGUID(AClientID);
-    try
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
-end;
 
+  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

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA, ID_TIENDA)
-    end;
 end;
 
 function TBizPedidosProveedorServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR,
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-        Self.REFERENCIA, ID_EMPRESA)
+  AReferenciasService := Intf as IsrvReferencias;
-    finally
+  Result := AReferenciasService.IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-      Free;
-    end;
 end;
 
 initialization

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas

@@ -26,8 +26,9 @@ type
 implementation
 
 uses
-  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
+  Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,
-  schPresupuestosClienteClient_Intf, srvReferencias_Impl;
+  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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
-    end;
 end;
 
 
 function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    end;
 end;
 
 initialization

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
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    try
+  AReferenciasService := Intf as IsrvReferencias;
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+  Result := AReferenciasService.DarNuevaReferencia(REF_RECIBOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 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
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    try
+  AReferenciasService := Intf as IsrvReferencias;
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+  Result := AReferenciasService.IncrementarValorReferencia(REF_RECIBOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 end;
 
 initialization

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
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    try
+  AReferenciasService := Intf as IsrvReferencias;
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+  Result := AReferenciasService.DarNuevaReferencia(REF_RECIBOS_PROVEEDOR, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 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
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    try
+  AReferenciasService := Intf as IsrvReferencias;
-      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+  Result := AReferenciasService.IncrementarValorReferencia(REF_RECIBOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-    finally
-      Free;
-    end;
 end;
 
 initialization

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(REF_REMESAS_CLIENTE, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_REMESAS_CLIENTE, ID_EMPRESA, -1)
-    end;
 end;
 
 function TBizRemesasClienteServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(REF_REMESAS_CLIENTE,
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-        Self.REFERENCIA, ID_EMPRESA)
+  AReferenciasService := Intf as IsrvReferencias;
-    finally
+  Result := AReferenciasService.IncrementarValorReferencia(REF_REMESAS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, -1)
-      Free;
-    end;
 end;
 
 initialization

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
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(REF_REMESAS_PROVEEDOR, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_REMESAS_PROVEEDOR, ID_EMPRESA, -1)
-    end;
 end;
 
 function TBizRemesasProveedorServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(REF_REMESAS_PROVEEDOR,
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-        Self.REFERENCIA, ID_EMPRESA)
+  AReferenciasService := Intf as IsrvReferencias;
-    finally
+  Result := AReferenciasService.IncrementarValorReferencia(REF_REMESAS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, -1)
-      Free;
-    end;
 end;
 
 initialization