diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas index 01ae5cd2..aba4bac3 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas +++ b/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 - 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) 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 - 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) end; + initialization RegisterBusinessProcessorRules(BIZ_SERVER_ALBARAN_CLIENTE, TBizAlbaranClienteServer); diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS index a62a7800..239f065f 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS +++ b/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 - 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) 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 - 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) end; + + initialization RegisterBusinessProcessorRules(BIZ_SERVER_ALBARAN_PROVEEDOR, TBizAlbaranProveedorServer); diff --git a/Source/Modulos/Articulos/Model/uBizArticulosServer.pas b/Source/Modulos/Articulos/Model/uBizArticulosServer.pas index e2e9329e..2180815b 100644 --- a/Source/Modulos/Articulos/Model/uBizArticulosServer.pas +++ b/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 - try - Result := DarNuevaReferencia(REF_ARTICULOS) - finally - Free; - end; + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.DarNuevaReferencia(REF_ARTICULOS, ID_EMPRESA) end; function TBizArticulosServer.IncrementarReferencia: Boolean; +var + AReferenciasService : IsrvReferencias; + Intf : IInterface; + AClientID : TGUID; begin - with TsrvReferencias.Create(NIL) do - try - Result := IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA) - finally - Free; - end; + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA) end; + initialization RegisterBusinessProcessorRules(BIZ_SERVER_ARTICULOS, TBizArticulosServer); diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index 6bb26001..33918be1 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/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 - try - Result := DarNuevaReferencia(REF_CLIENTES) - finally - Free; - end; + Result := _DarReferenciaInterna(REF_CLIENTES); end; procedure TBizClienteServer.Delete_Datos_Contacto(aChange: TDADeltaChange); @@ -67,12 +62,7 @@ end; function TBizClienteServer.IncrementarReferenciaContacto: Boolean; begin - with TsrvReferencias.Create(NIL) do - try - Result := IncrementarValorReferencia(REF_CLIENTES, Self.REFERENCIA) - finally - Free; - end; + Result := _IncrementarReferenciaInterna(REF_CLIENTES) 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 ad77d78d..ff9779ef 100644 --- a/Source/Modulos/Contactos/Model/uBizContactosServer.pas +++ b/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); diff --git a/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas b/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas index 5d65514a..75d95771 100644 --- a/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas +++ b/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 - try - Result := DarNuevaReferencia(REF_EMPLEADOS) - finally - Free; - end; + Result := _DarReferenciaInterna(REF_EMPLEADOS) end; procedure TBizEmpleadoServer.Delete_Datos_Contacto(aChange: TDADeltaChange); @@ -66,12 +61,7 @@ end; function TBizEmpleadoServer.IncrementarReferenciaContacto: Boolean; begin - with TsrvReferencias.Create(NIL) do - try - Result := IncrementarValorReferencia(REF_EMPLEADOS, Self.REFERENCIA) - finally - Free; - end; + Result := _IncrementarReferenciaInterna(REF_EMPLEADOS) end; procedure TBizEmpleadoServer.Insert_Datos_Contacto(aChange: TDADeltaChange); diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 0e461917..28924fcc 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/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 - try - Result := DarNuevaReferencia(REF_PROVEEDORES) - finally - Free; - end; + Result := _DarReferenciaInterna(REF_PROVEEDORES) end; procedure TBizProveedorServer.Delete_Datos_Contacto(aChange: TDADeltaChange); @@ -66,12 +61,7 @@ end; function TBizProveedorServer.IncrementarReferenciaContacto: Boolean; begin - with TsrvReferencias.Create(NIL) do - try - Result := IncrementarValorReferencia(REF_PROVEEDORES, Self.REFERENCIA) - finally - Free; - end; + Result := _IncrementarReferenciaInterna(REF_PROVEEDORES) 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 da7144ca..fe5293de 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas @@ -25,8 +25,8 @@ type implementation uses - Variants, uDAClasses, srvReferencias_Impl, uBusinessUtils, uROClasses, - uDataModuleServer, schFacturasClienteClient_Intf; + Variants, uDAClasses, uBusinessUtils, uROClasses, uROServer, SysUtils, + 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 - try - Result := DarNuevaReferencia(ATipo, ID_EMPRESA) - finally - Free; - end; + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.DarNuevaReferencia(REF_FACTURAS_CLIENTE, ID_EMPRESA) +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); diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas index c458cdac..60cb04b3 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas +++ b/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 - try - Result := DarNuevaReferencia(ATipo, ID_EMPRESA) - finally - Free; - end; + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.DarNuevaReferencia(REF_FACTURAS_PROVEEDOR, ID_EMPRESA) 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); diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas index 4b2af4a6..c640f8f1 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'; @@ -72,26 +72,32 @@ 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) 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) end; + initialization RegisterBusinessProcessorRules(BIZ_SERVER_PEDIDOS_PROVEEDOR, TBizPedidosProveedorServer); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas index 5acdef8e..17e5ff45 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas +++ b/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 - try - Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA) - finally - Free; - end; + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA) 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) - finally - Free; - end; + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA) end; initialization diff --git a/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas b/Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas index 4b43926b..989c00c9 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,26 +71,32 @@ 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) 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) end; + initialization RegisterBusinessProcessorRules(BIZ_SERVER_REMESAS_CLIENTE, TBizRemesasClienteServer); diff --git a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas index 8a6ff883..2ebfd21d 100644 --- a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas +++ b/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 - 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) 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) end; + initialization RegisterBusinessProcessorRules(BIZ_SERVER_REMESAS_Proveedor, TBizRemesasProveedorServer);