From 5637128445b11908ff8a895d9e9b9ea16c75d940 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Thu, 15 May 2003 10:41:23 +0000 Subject: [PATCH] minor fix --- harbour/source/rtl/tget.prg | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 320756dfaa..6cc7f7971f 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -669,7 +669,9 @@ METHOD Untransform( cBuffer ) CLASS Get if "E" $ ::cPicFunc cBuffer := SubStr( cBuffer, 4, 3 ) + SubStr( cBuffer, 1, 3 ) + SubStr( cBuffer, 7 ) endif - xValue := CToD( cBuffer ) + if cBuffer != nil + xValue := CToD( cBuffer ) + endif endcase @@ -1591,7 +1593,7 @@ STATIC FUNCTION IsBadDate( cBuffer, cPicFunc ) cBuffer := SubStr( cBuffer, 4, 3 ) + SubStr( cBuffer, 1, 3 ) + SubStr( cBuffer, 7 ) endif - If !Empty( Ctod( cBuffer ) ) + If cBuffer == nil .or. ! Empty( Ctod( cBuffer ) ) return .f. Endif