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

Corregido error con referencias. Contactos y artículos son comunes para todas las empresas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@481 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-07-31 08:34:29 +00:00
parent 78ff3e18a1
commit 6e94dc6e4d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,7 +78,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(REF_ARTICULOS, ID_EMPRESA) Result := AReferenciasService.DarNuevaReferencia(REF_ARTICULOS, -1)
end; end;
function TBizArticulosServer.IncrementarReferencia: Boolean; function TBizArticulosServer.IncrementarReferencia: Boolean;
@ -91,7 +91,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA) Result := AReferenciasService.IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, -1)
end; end;

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

@ -271,7 +271,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA) Result := AReferenciasService.DarNuevaReferencia(ATipo, -1)
end; end;
function TBizContactosServer._IncrementarReferenciaInterna( function TBizContactosServer._IncrementarReferenciaInterna(
@ -285,7 +285,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA) Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, -1)
end; end;
initialization initialization