See changelog 2002-07-31 11:20 UTC-0300

2002-08-31 14:29:27 +00:00
parent d88aec3415
commit b34c220cd5
2 changed files with 5 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
   2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2002-08-30 11:20 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+  * source/rtl/tget.prg
+    ! fix for DeleteAll() method when Variable is Date type Reported by Charles Kwon
+
 2002-08-30 18:05 UTC-0400 David G. Holm <dholm@jsd-llc.com>
  * source/rtl/dbdelim.prg
    ! Bug fix to pass cSeparator to appendtodb() instead of cDelimArg,
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -1269,6 +1269,7 @@ METHOD DeleteAll() CLASS Get
      ::minus  := .f.
   case ::type == "D"
      xValue := CToD( "" )
+      ::BadDate := .f. 
   case ::type == "L"
      xValue := .f.
   endcase