From 6e94dc6e4d720879747f483c19da4182a4399cf7 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 31 Jul 2008 08:34:29 +0000 Subject: [PATCH] =?UTF-8?q?Corregido=20error=20con=20referencias.=20Contac?= =?UTF-8?q?tos=20y=20art=C3=ADculos=20son=20comunes=20para=20todas=20las?= =?UTF-8?q?=20empresas.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@481 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Modulos/Articulos/Model/uBizArticulosServer.pas | 4 ++-- Source/Modulos/Contactos/Model/uBizContactosServer.pas | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Articulos/Model/uBizArticulosServer.pas b/Source/Modulos/Articulos/Model/uBizArticulosServer.pas index 2180815b..a07bbf1b 100644 --- a/Source/Modulos/Articulos/Model/uBizArticulosServer.pas +++ b/Source/Modulos/Articulos/Model/uBizArticulosServer.pas @@ -78,7 +78,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.DarNuevaReferencia(REF_ARTICULOS, ID_EMPRESA) + Result := AReferenciasService.DarNuevaReferencia(REF_ARTICULOS, -1) end; function TBizArticulosServer.IncrementarReferencia: Boolean; @@ -91,7 +91,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA) + Result := AReferenciasService.IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, -1) end; diff --git a/Source/Modulos/Contactos/Model/uBizContactosServer.pas b/Source/Modulos/Contactos/Model/uBizContactosServer.pas index ff9779ef..4489aa3a 100644 --- a/Source/Modulos/Contactos/Model/uBizContactosServer.pas +++ b/Source/Modulos/Contactos/Model/uBizContactosServer.pas @@ -271,7 +271,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA) + Result := AReferenciasService.DarNuevaReferencia(ATipo, -1) end; function TBizContactosServer._IncrementarReferenciaInterna( @@ -285,7 +285,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA) + Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, -1) end; initialization