From 2aad324ac354427318365ce37fc4eb6a14833dfb Mon Sep 17 00:00:00 2001 From: Ignacio Ortiz de Zuniga Date: Wed, 26 Jan 2000 11:54:10 +0000 Subject: [PATCH] 20000126-12:50 GMT+1 Ignacio Ortiz --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/tget.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 99ad5c07de..68c6740653 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +20000126-12:50 GMT+1 Ignacio Ortiz + * 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 * source/rtl/itemapi.c diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 25c087c887..a894cd4084 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -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 ) )