From 81218a84ef3fe27faf4174af0e24882ea55408c7 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 28 Nov 2012 16:39:29 +0000 Subject: [PATCH] 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 | 7 +++++++ harbour/contrib/hbnf/tests/datecnfg.prg | 2 +- harbour/src/rtl/devoutp.prg | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog.txt b/harbour/ChangeLog.txt index 965589c44a..1a1af750ef 100644 --- a/harbour/ChangeLog.txt +++ b/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 diff --git a/harbour/contrib/hbnf/tests/datecnfg.prg b/harbour/contrib/hbnf/tests/datecnfg.prg index bb9b6b4e02..47772cc7df 100644 --- a/harbour/contrib/hbnf/tests/datecnfg.prg +++ b/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 diff --git a/harbour/src/rtl/devoutp.prg b/harbour/src/rtl/devoutp.prg index 57e4164dc4..1f09eb5750 100644 --- a/harbour/src/rtl/devoutp.prg +++ b/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