Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Servidor: mejorada la forma de llamar al servicio de referencias.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@299 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-29 16:48:23 +00:00
parent bc9ba0bcf4
commit 4078f15144
14 changed files with 232 additions and 205 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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

32
Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
View File

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

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

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

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

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

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

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

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

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

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

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

33
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';
@ -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

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

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

32
Source/Modulos/Recibos de cliente/Model/uBizRecibosClienteServer.pas
View File

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

32
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedorServer.pas
View File

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

33
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,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

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

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