From de5fba60fdac636601832d04e18a5091089de080 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sun, 9 Aug 2009 16:26:37 +0000
Subject: [PATCH] 2009-08-09 18:26 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * contrib/hbxbp/tests/demoxbp.prg   *
 contrib/gtwvg/tests/demowvg.prg   * contrib/hbtip/tests/dbtohtml.prg     !
 Fix to test.dbf path. hb_DirBase() was missing.     * Changed date format to
 ANSI.

---
 harbour/ChangeLog                        | 7 +++++++
 harbour/contrib/gtwvg/tests/demowvg.prg  | 6 +++---
 harbour/contrib/hbtip/tests/dbtohtml.prg | 2 +-
 harbour/contrib/hbxbp/tests/demoxbp.prg  | 4 ++--
 4 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b89bdcafb6..e93ca16150 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,13 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-08-09 18:26 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbxbp/tests/demoxbp.prg
+  * contrib/gtwvg/tests/demowvg.prg
+  * contrib/hbtip/tests/dbtohtml.prg
+    ! Fix to test.dbf path. hb_DirBase() was missing.
+    * Changed date format to ANSI.
+
 2009-08-09 17:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbtpathy/telepath.ch
   * contrib/hbtpathy/tests/testtp.prg
diff --git a/harbour/contrib/gtwvg/tests/demowvg.prg b/harbour/contrib/gtwvg/tests/demowvg.prg
index c33b652350..62ee83798d 100644
--- a/harbour/contrib/gtwvg/tests/demowvg.prg
+++ b/harbour/contrib/gtwvg/tests/demowvg.prg
@@ -802,7 +802,7 @@ FUNCTION WvtMyBrowse_X( oCrt )
    s_pGT_[ 2 ] := hb_gtSelect()
 
    cRDD       := "DBFCDX"
-   cFileDbf   := ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() + "test.dbf"
+   cFileDbf   := hb_DirBase() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() + "test.dbf"
    cFileIndex := "test.z01"
 
    USE ( cFileDbf ) NEW SHARED VIA ( cRDD )
@@ -1770,7 +1770,7 @@ STATIC FUNCTION MyDialogOne_X( oCrt )
 
    lOpen := .f.
    cUseAlias := "TEST"
-   USE ( ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() + "test.dbf" ) NEW ALIAS ( cUseAlias ) SHARED
+   USE ( hb_DirBase() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() + "test.dbf" ) NEW ALIAS ( cUseAlias ) SHARED
    if !NetErr()
       lOpen := .t.
       oWvtBrw := CfgMyBrowse( { 1,7,9,10,8 }, cUseAlias, { 6,67,36,120 }, "test.dbf - 1,7,9,10,8", oDlg, "N/W*,N/GR*",1001 )
@@ -1779,7 +1779,7 @@ STATIC FUNCTION MyDialogOne_X( oCrt )
 
    lOpen1 := .f.
    cUseAlias1 := "TEST1"
-   USE ( ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() + "test.dbf" ) NEW ALIAS ( cUseAlias1 ) SHARED
+   USE ( hb_DirBase() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() + "test.dbf" ) NEW ALIAS ( cUseAlias1 ) SHARED
    if !NetErr()
       lOpen1 := .t.
       oWvtBrw1 := CfgMyBrowse( { 1,2,3,4,5,6 }, cUseAlias1, { 43,4,51,120 }, "test.dbf - 1,2,3,4,5,6",oDlg, "N/BG*,N/W*",1002 )
diff --git a/harbour/contrib/hbtip/tests/dbtohtml.prg b/harbour/contrib/hbtip/tests/dbtohtml.prg
index 958b91423d..c6bcfb4929 100644
--- a/harbour/contrib/hbtip/tests/dbtohtml.prg
+++ b/harbour/contrib/hbtip/tests/dbtohtml.prg
@@ -11,7 +11,7 @@ PROCEDURE Main
    CLS
 
    BEGIN SEQUENCE
-      USE ( ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() +;
+      USE ( hb_DirBase() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() +;
             "test.dbf" )
    RECOVER
       ? "Error: Database not found test.dbf"
diff --git a/harbour/contrib/hbxbp/tests/demoxbp.prg b/harbour/contrib/hbxbp/tests/demoxbp.prg
index ef3143bdb6..7a7eff1033 100644
--- a/harbour/contrib/hbxbp/tests/demoxbp.prg
+++ b/harbour/contrib/hbxbp/tests/demoxbp.prg
@@ -1467,9 +1467,9 @@ STATIC FUNCTION RtfApplyFont( oRTF )
 FUNCTION Build_Browse( oWnd )
    LOCAL aPresParam, oXbpBrowse, oXbpColumn
 
-   Set( _SET_DATEFORMAT, "MM/DD/YYYY" )
+   Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) /* ANSI */
 
-   USE ( ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() +;
+   USE ( hb_DirBase() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + ".." + hb_osPathSeparator() + "tests" + hb_osPathSeparator() +;
          "test.dbf" ) NEW SHARED VIA 'DBFCDX'
    DbGotop()