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

Se arregla la función de comparar str de referencias para que no pete ante numeros mayores que integer

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@663 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-03 11:43:27 +00:00
parent 9b079a2b1e
commit d9ef45bec8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Base/Utiles/uReferenciasUtils.pas
View File

@ -19,9 +19,11 @@ var
Aux1, Aux2 : String; Aux1, Aux2 : String;
Rpl : Char; Rpl : Char;
begin begin
Rpl := '0'; Rpl := ' ';
Aux1 := StrReplaceButChars(ARef1, AnsiDecDigits, Rpl); Aux1 := StrReplaceButChars(ARef1, AnsiDecDigits, Rpl);
Aux1 := StrRemoveChars(Aux1, AnsiWhiteSpace);
Aux2 := StrReplaceButChars(ARef2, AnsiDecDigits, Rpl); Aux2 := StrReplaceButChars(ARef2, AnsiDecDigits, Rpl);
Aux2 := StrRemoveChars(Aux2, AnsiWhiteSpace);
if StrIsDigit(Aux1) and StrIsDigit(Aux2) then if StrIsDigit(Aux1) and StrIsDigit(Aux2) then
Result := VarCompare(StrToIntSafe(Aux1), StrToIntSafe(Aux2)) Result := VarCompare(StrToIntSafe(Aux1), StrToIntSafe(Aux2))