Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@479 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-07-30 17:07:49 +00:00
parent 62c4041a5a
commit 35ab07cdf0
13 changed files with 229 additions and 187 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
View File

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

34
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
View File

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

33
Source/Modulos/Articulos/Model/uBizArticulosServer.pas
View File

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

16
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

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

33
Source/Modulos/Contactos/Model/uBizContactosServer.pas
View File

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

16
Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas
View File

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

16
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

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

51
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

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

49
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

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

34
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
View File

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

33
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
View File

@ -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

34
Source/Modulos/Remesas de cliente/Model/uBizRemesasClienteServer.pas
View File

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

35
Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas
View File

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