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

20000126-12:50 GMT+1 Ignacio Ortiz <ignacio@fivetech.com>

Browse Source
This commit is contained in:
Ignacio Ortiz de Zuniga
2000-01-26 11:54:10 +00:00
parent 19d4ba4d17
commit 2aad324ac3
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
20000126-12:50 GMT+1 Ignacio Ortiz <ignacio@fivetech.com>
* source/rtl/tget.prg
* Bug fixed on numeric gets with zero digits in his value
2000-01-25 16:20 GMT-5 David G. Holm <dholm@ sd-llc.com>
* source/rtl/itemapi.c

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

@@ -869,8 +869,8 @@ METHOD PutMask( xValue, lEdit ) CLASS TGet
cBuffer := SubStr( cBuffer, 1, nFor - 1 ) + cChar + SubStr( cBuffer, nFor + 1 )
endif
next
if ( nAt := At( " ", cBuffer ) ) > 0
cBuffer := StrTran( cBuffer, "0", " ", nAt )
if cBuffer == Space( len( cBuffer ) - 1 ) + "0"
cBuffer := Space( len( cBuffer ) )
endif
if ::lDecRev
cBuffer := StrTran( cBuffer, ",", Chr( 1 ) )