From b34c220cd5ec261b19ec4d675fdaa3d5a44c8832 Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Sat, 31 Aug 2002 14:29:27 +0000
Subject: [PATCH] See changelog 2002-07-31 11:20 UTC-0300

---
 harbour/ChangeLog           | 4 ++++
 harbour/source/rtl/tget.prg | 1 +
 2 files changed, 5 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7e4a3cf774..81816560b6 100644
--- 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,
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 37e2e9edf8..d3900c8286 100644
--- 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