* source/rtl/tget.prg

! Fix bug in DeleteAll method. Change DTOC() for CTOD(). * Bug fixed, reported by Lorenzo Fiorini.
2002-04-17 14:54:45 +00:00
parent 5c828a3ff4
commit 0c82e16f4a
1 changed files with 1 additions and 1 deletions
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -1079,7 +1079,7 @@ METHOD DeleteAll() CLASS Get
   case ::type == "N"
      xValue := 0
   case ::type == "D"
-      xValue := DToC( "" )
+      xValue := CToD( "" )
   case ::type == "L"
      xValue := .f.
   endcase