From acd93115997129f91bebaccdc680ac5a8cfeab9d Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Mon, 25 Mar 2002 15:31:30 +0000
Subject: [PATCH]    * source/rtl/tget.prg      ! Fix bug in picture
 "999,999.99" and "999.999,99".      ! Fix bug in picture with initial spaces.

---
 harbour/source/rtl/tget.prg | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index fa816ce84d..be2a43e8ab 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -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