Servidor: mejorada la forma de llamar al servicio de referencias desde otros servicios.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@479 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas

@@ -30,7 +30,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schAlbaranesClienteClient_Intf, srvReferencias_Impl, JclStrings;
+  schAlbaranesClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils, JclStrings;
 
 const
   REF_ALBARANES_CLIENTE = 'REF_ALBARANES_CLIENTE';
@@ -77,6 +77,9 @@ end;
 
 function TBizAlbaranClienteServer.DarReferencia: String;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (TIPO = CTE_TIPO_ALBARAN_DEV) then
@@ -84,16 +87,18 @@ begin
   else
     ACodigoReferencia := REF_ALBARANES_CLIENTE;
 
-  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)
-    end;
 end;
 
 function TBizAlbaranClienteServer.IncrementarReferencia: Boolean;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (TIPO = CTE_TIPO_ALBARAN_DEV) then
@@ -101,15 +106,14 @@ begin
   else
     ACodigoReferencia := REF_ALBARANES_CLIENTE;
 
-  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)
-      Free;
-    end;
 end;
 
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_ALBARAN_CLIENTE, TBizAlbaranClienteServer);
 

Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS

@@ -31,7 +31,7 @@ implementation
 uses
   Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, 
   schAlbaranesProveedorClient_Intf, uBusinessUtils, uROClasses,
-  srvReferencias_Impl;
+  FactuGES_Intf, uROServer;
 
 const
   REF_ALBARANES_PROVEEDOR = 'REF_ALBARANES_PROVEEDOR';
@@ -75,8 +75,12 @@ begin
   end;
 end;
 
+
 function TBizAlbaranProveedorServer.DarReferencia: String;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (TIPO = CTE_TIPO_ALBARAN_DEV) then
@@ -84,16 +88,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)
-    end;
 end;
 
 function TBizAlbaranProveedorServer.IncrementarReferencia: Boolean;
 var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
   ACodigoReferencia : String;
 begin
   if (TIPO = CTE_TIPO_ALBARAN_DEV) then
@@ -101,15 +107,15 @@ 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)
-      Free;
-    end;
 end;
 
+
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_ALBARAN_PROVEEDOR, TBizAlbaranProveedorServer);
 

Source/Modulos/Articulos/Model/uBizArticulosServer.pas

@@ -24,7 +24,7 @@ type
 implementation
 
 uses
-  Variants, uDAClasses, srvReferencias_Impl, uBusinessUtils, uROClasses,
+  Variants, uDAClasses, FactuGES_Intf, uROServer, SysUtils, uBusinessUtils, uROClasses,
   uDataModuleServer, schArticulosClient_Intf;
 
 const
@@ -69,25 +69,32 @@ begin
 end;
 
 function TBizArticulosServer.DarReferencia: String;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(REF_ARTICULOS)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_ARTICULOS, ID_EMPRESA)
-    end;
 end;
 
 function TBizArticulosServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA)
-    end;
 end;
 
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_ARTICULOS, TBizArticulosServer);
 

Source/Modulos/Contactos/Model/uBizClientesServer.pas

@@ -24,7 +24,7 @@ implementation
 
 uses
   uDataModuleServer, uDAClasses,
-  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+  schContactosClient_Intf, uBusinessUtils;
 
 const
   REF_CLIENTES = 'REF_CLIENTES';
@@ -34,12 +34,7 @@ const
 
 function TBizClienteServer.DarReferenciaContacto: String;
 begin
-  with TsrvReferencias.Create(NIL) do
+  Result := _DarReferenciaInterna(REF_CLIENTES);
-    try
-      Result := DarNuevaReferencia(REF_CLIENTES)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizClienteServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@@ -67,12 +62,7 @@ end;
 
 function TBizClienteServer.IncrementarReferenciaContacto: Boolean;
 begin
-  with TsrvReferencias.Create(NIL) do
+  Result := _IncrementarReferenciaInterna(REF_CLIENTES)
-    try
-      Result := IncrementarValorReferencia(REF_CLIENTES, Self.REFERENCIA)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizClienteServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

Source/Modulos/Contactos/Model/uBizContactosServer.pas

@@ -14,6 +14,9 @@ type
   private
     FReferenciaAutomatica : Boolean;
   protected
+    function _DarReferenciaInterna(const ATipo: String) : String;
+    function _IncrementarReferenciaInterna(const ATipo: String) : Boolean;
+
     function DarReferenciaContacto : String; virtual; abstract;
     function IncrementarReferenciaContacto : Boolean; virtual; abstract;
 
@@ -42,7 +45,7 @@ implementation
 
 uses
   Dialogs, uDataModuleServer, uDAClasses, Variants,
-  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+  schContactosClient_Intf, uBusinessUtils, FactuGES_Intf, uROServer;
 
 { TBizContactosServer }
 
@@ -257,6 +260,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)
+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)
+end;
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_CONTACTO, TBizContactosServer);
 

Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas

@@ -24,7 +24,7 @@ implementation
 
 uses
   uDataModuleServer, uDAClasses, 
-  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+  schContactosClient_Intf, uBusinessUtils;
 
 const
   REF_EMPLEADOS = 'REF_EMPLEADOS';
@@ -33,12 +33,7 @@ const
 
 function TBizEmpleadoServer.DarReferenciaContacto: String;
 begin
-  with TsrvReferencias.Create(NIL) do
+  Result := _DarReferenciaInterna(REF_EMPLEADOS)
-    try
-      Result := DarNuevaReferencia(REF_EMPLEADOS)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizEmpleadoServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@@ -66,12 +61,7 @@ end;
 
 function TBizEmpleadoServer.IncrementarReferenciaContacto: Boolean;
 begin
-  with TsrvReferencias.Create(NIL) do
+  Result := _IncrementarReferenciaInterna(REF_EMPLEADOS)
-    try
-      Result := IncrementarValorReferencia(REF_EMPLEADOS, Self.REFERENCIA)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizEmpleadoServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

Source/Modulos/Contactos/Model/uBizProveedoresServer.pas

@@ -24,7 +24,7 @@ implementation
 
 uses
   uDataModuleServer, uDAClasses, 
-  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+  schContactosClient_Intf, uBusinessUtils;
 
 const
   REF_PROVEEDORES = 'REF_PROVEEDORES';
@@ -33,12 +33,7 @@ const
 
 function TBizProveedorServer.DarReferenciaContacto: String;
 begin
-  with TsrvReferencias.Create(NIL) do
+  Result := _DarReferenciaInterna(REF_PROVEEDORES)
-    try
-      Result := DarNuevaReferencia(REF_PROVEEDORES)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizProveedorServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@@ -66,12 +61,7 @@ end;
 
 function TBizProveedorServer.IncrementarReferenciaContacto: Boolean;
 begin
-  with TsrvReferencias.Create(NIL) do
+  Result := _IncrementarReferenciaInterna(REF_PROVEEDORES)
-    try
-      Result := IncrementarValorReferencia(REF_PROVEEDORES, Self.REFERENCIA)
-    finally
-      Free;
-    end;
 end;
 
 procedure TBizProveedorServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas

@@ -25,8 +25,8 @@ type
 implementation
 
 uses
-  Variants, uDAClasses, srvReferencias_Impl, uBusinessUtils, uROClasses,
+  Variants, uDAClasses, uBusinessUtils, uROClasses, uROServer, SysUtils,
-  uDataModuleServer, schFacturasClienteClient_Intf;
+  uDataModuleServer, schFacturasClienteClient_Intf, FactuGES_Intf;
 
 const
   REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
@@ -86,17 +86,32 @@ end;
 
 function TBizFacturasClienteServer.DarReferencia: String;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
   // Aunque sea un abono, la referencia es la misma que una factura
-  ATipo := REF_FACTURAS_CLIENTE;
 
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_FACTURAS_CLIENTE, ID_EMPRESA)
-    end;
+end;
+
+function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
+begin
+  // Aunque sea un abono, la referencia es la misma que una factura
+
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_FACTURAS_CLIENTE, Self.REFERENCIA, ID_EMPRESA)
 end;
 
 procedure TBizFacturasClienteServer.Delete_Asiento_Factura(aChange: TDADeltaChange);
@@ -121,22 +136,6 @@ begin
   end;
 end;
 
-function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
-var
-  ATipo : String;
-begin
-  // Aunque sea un abono, la referencia es la misma que una factura
-  ATipo := REF_FACTURAS_CLIENTE;
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo,
-        Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
-end;
-
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_CLIENTE, TBizFacturasClienteServer);
 

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas

@@ -29,7 +29,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';
@@ -88,19 +88,35 @@ end;
 
 function TBizFacturasProveedorServer.DarReferencia: String;
 var
-  ATipo : String;
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
 begin
   // Aunque sea un abono, la referencia es la misma que una factura
-  ATipo := REF_FACTURAS_PROVEEDOR;
 
-  with TsrvReferencias.Create(NIL) do
+  CreateGUID(AClientID);
-    try
+
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_FACTURAS_PROVEEDOR, ID_EMPRESA)
-    end;
 end;
 
+function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
+var
+  AReferenciasService : IsrvReferencias;
+  Intf : IInterface;
+  AClientID : TGUID;
+begin
+  // Aunque sea un abono, la referencia es la misma que una factura
+
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
+  AReferenciasService := Intf as IsrvReferencias;
+  Result := AReferenciasService.IncrementarValorReferencia(REF_FACTURAS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA)
+end;
+
+
 procedure TBizFacturasProveedorServer.Delete_Asiento_Factura(aChange: TDADeltaChange);
 var
   ASchema : TDASchema;
@@ -123,21 +139,6 @@ begin
   end;
 end;
 
-function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
-var
-  ATipo : String;
-begin
-  // Aunque sea un abono, la referencia es la misma que una factura
-  ATipo := REF_FACTURAS_PROVEEDOR;
-
-  with TsrvReferencias.Create(NIL) do
-    try
-      Result := IncrementarValorReferencia(ATipo,
-        Self.REFERENCIA, ID_EMPRESA)
-    finally
-      Free;
-    end;
-end;
 
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_PROVEEDOR, TBizFacturasProveedorServer);

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';
@@ -72,26 +72,32 @@ 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)
-    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)
-      Free;
-    end;
 end;
 
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_PEDIDOS_PROVEEDOR, TBizPedidosProveedorServer);
 

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

@@ -27,7 +27,7 @@ implementation
 
 uses
   Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses,  uDataModuleServer,
-  schPresupuestosClienteClient_Intf, srvReferencias_Impl;
+  schPresupuestosClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
 
 const
   REF_PRESUPUESTOS_CLIENTE = 'REF_PRESUPUESTOS_CLIENTE';
@@ -73,24 +73,29 @@ begin
 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)
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-    finally
+  AReferenciasService := Intf as IsrvReferencias;
-      Free;
+  Result := AReferenciasService.DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA)
-    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,
+  GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
-        Self.REFERENCIA, ID_EMPRESA)
+  AReferenciasService := Intf as IsrvReferencias;
-    finally
+  Result := AReferenciasService.IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA)
-      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,26 +71,32 @@ 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)
-    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)
-      Free;
-    end;
 end;
 
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_REMESAS_CLIENTE, TBizRemesasClienteServer);
 

Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas

@@ -28,7 +28,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,27 +72,34 @@ begin
   end;
 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)
-    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)
-      Free;
-    end;
 end;
 
+
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_REMESAS_Proveedor, TBizRemesasProveedorServer);