From d9ef45bec85c5766ed0e4cb9fb5c3963a8ca7c02 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 3 Oct 2008 11:43:27 +0000 Subject: [PATCH] =?UTF-8?q?Se=20arregla=20la=20funci=C3=B3n=20de=20compara?= =?UTF-8?q?r=20str=20de=20referencias=20para=20que=20no=20pete=20ante=20nu?= =?UTF-8?q?meros=20mayores=20que=20integer?= 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@663 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Utiles/uReferenciasUtils.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Source/Base/Utiles/uReferenciasUtils.pas b/Source/Base/Utiles/uReferenciasUtils.pas index 19a04ff5..b5d41354 100644 --- a/Source/Base/Utiles/uReferenciasUtils.pas +++ b/Source/Base/Utiles/uReferenciasUtils.pas @@ -19,9 +19,11 @@ var Aux1, Aux2 : String; Rpl : Char; begin - Rpl := '0'; + Rpl := ' '; Aux1 := StrReplaceButChars(ARef1, AnsiDecDigits, Rpl); + Aux1 := StrRemoveChars(Aux1, AnsiWhiteSpace); Aux2 := StrReplaceButChars(ARef2, AnsiDecDigits, Rpl); + Aux2 := StrRemoveChars(Aux2, AnsiWhiteSpace); if StrIsDigit(Aux1) and StrIsDigit(Aux2) then Result := VarCompare(StrToIntSafe(Aux1), StrToIntSafe(Aux2))