2012-11-28 17:38 UTC+0100 Viktor Szakats (harbour syenar.net)

* src/rtl/devoutp.prg
    + DEVOUTPICT() to support timestampe type

  * contrib/hbnf/tests/datecnfg.prg
    * timestamp type

harbour/ChangeLog.txt

@@ -10,6 +10,13 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2012-11-28 17:38 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * src/rtl/devoutp.prg
+    + DEVOUTPICT() to support timestampe type
+
+  * contrib/hbnf/tests/datecnfg.prg
+    * timestamp type
+
 2012-11-28 17:28 UTC+0100 Viktor Szakats (harbour syenar.net)
   + contrib/xhb/xhbmisc.prg
   * contrib/xhb/xhb.hbp

harbour/contrib/hbnf/tests/datecnfg.prg

@@ -156,7 +156,7 @@ STATIC FUNCTION FT_CAL( dGivenDate, nType )
    aTemp     := ft_DateCnfg()
    cFY_Start := aTemp[ 1 ]
 
-   IF dGivenDate == NIL .OR. !( ValType( dGivenDate ) $ "ND" )
+   IF dGivenDate == NIL .OR. !( ValType( dGivenDate ) $ "NDT" )
       dGivenDate := Date()
    ELSEIF HB_ISNUMERIC( dGivenDate )
       nType := dGivenDate

harbour/src/rtl/devoutp.prg

@@ -52,7 +52,7 @@
 
 PROCEDURE DevOutPict( xValue, cPicture, cColor )
 
-   IF ValType( xValue ) $ "CMNDL"
+   IF ValType( xValue ) $ "CMNDTL"
       DevOut( Transform( xValue, cPicture ), cColor )
    ENDIF