From 0b0aa49524226d1853da2f1a73ecc39b53a563be Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Mon, 20 May 2002 10:50:08 +0000
Subject: [PATCH] 2002-05-20 14:55 UTC+0300 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog              | 5 +++++
 harbour/contrib/rdd_ads/ads1.c | 5 ++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9fc81757ab..ef2521e10b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-05-20 14:55 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * contrib/rdd_ads/ads1.c
+    ! Bug fixed in adsSysName() for that case when file isn't opened yet in
+      workarea
+
 2002-05-18 10:20 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
   * makefile.bc
     makefile.vc
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index c7e971fecd..f7375fe404 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -1664,7 +1664,10 @@ static ERRCODE adsSysName( ADSAREAP pArea, BYTE * pBuffer )
 
    HB_TRACE(HB_TR_DEBUG, ("adsSysName(%p, %p)", pArea, pBuffer));
 
-   AdsGetTableType( pArea->hTable, &usTableType );
+   if( pArea->hTable )
+      AdsGetTableType( pArea->hTable, &usTableType );
+   else
+      usTableType = (UNSIGNED16)adsFileType;
    switch( usTableType )
    {
       case ADS_NTX: