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

minor fix

Browse Source
This commit is contained in:
Antonio Linares
2003-05-15 10:41:23 +00:00
parent 08aa0a55bd
commit 5637128445
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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