fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* source/rtl/tget.prg

Browse Source 
! Fix bug in picture "999,999.99" and "999.999,99".
     ! Fix bug in picture with initial spaces.
This commit is contained in:
Walter Negro
2002-03-25 15:31:30 +00:00
parent 8f57012e65
commit acd9311599
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/source/rtl/tget.prg
View File

@@ -223,7 +223,7 @@ METHOD ParsePict( cPicture ) CLASS Get
::cPicMask := ""
else
::cPicFunc := SubStr( cPicture, 1, nAt - 1 )
::cPicMask := SubStr( cPicture, nAt + 1 )
::cPicMask := Trim( SubStr( cPicture, nAt + 1 ) )
endif
if ( nAt := At( "S", ::cPicFunc ) ) > 0
@@ -245,7 +245,7 @@ METHOD ParsePict( cPicture ) CLASS Get
endif
else
::cPicFunc := ""
::cPicMask := cPicture
::cPicMask := LTrim( cPicture )
endif
// Comprobar si tiene la , y el . cambiado (Solo en Xbase++)
@@ -501,15 +501,16 @@ METHOD Untransform( cBuffer ) CLASS Get
xValue := cBuffer
case ::type == "N"
if "E" $ ::cPicFunc .or. ::lDecRev
cBuffer := StrTran( cBuffer, ".", "" )
cBuffer := StrTran( cBuffer, ".", " " )
cBuffer := StrTran( cBuffer, ",", "." )
else
cBuffer := StrTran( cBuffer, ",", "" )
cBuffer := StrTran( cBuffer, ",", " " )
endif
for nFor := 1 to ::nMaxLen
if !::IsEditable( nFor )
if !::IsEditable( nFor ) .and. SubStr( cBuffer, nFor, 1 ) != "."
cBuffer = Left( cBuffer, nFor-1 ) + " " + SubStr( cBuffer, nFor+1 )
endif
next