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