> -----Original Message-----
> From: vszak...@users.sourceforge.net
> [mailto:vszak...@users.sourceforge.net]
> Sent: Monday, May 24, 2010 7:54 PM
> To: harbour@harbour-project.org
> Subject: [Harbour] SF.net SVN: harbour-project:[14569] trunk/harbour
> 
> Revision: 14569
>           http://harbour-project.svn.sourceforge.net/harbour-
> project/?rev=14569&view=rev
> Author:   vszakats
> Date:     2010-05-24 17:53:40 +0000 (Mon, 24 May 2010)
> 
> Log Message:
> -----------
> 2010-05-24 19:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
>   * contrib/sddoci/sddoci.c
>     ! Attempting to fix wrong numeric size for plain 'NUMERIC'
>       (without size) type. I'm guessing so I'd appreciate if
>       someone could dive into this more deeply.


Still wrong in expressions. I see :

  7.OB_PRZYPIS N :  12 ->            0.00
  8.OB_WPLATY  N :  22 ->                    153


But without zeros after the decimal point.
Try :

CREATE TABLE test_dec
(
PI       NUMBER
)

insert into test_dec (pi) values (3.1415926536)

commit

select * from test_dec

and from app in Harbour :

// 1. ODBC
if ( connect := RDDINFO( 1001, { "ODBC", "~~~~~~" }, 'SQLMIX' )) != 0
DBUSEAREA( .T., 'SQLMIX', "select pi from test_dec", "test_dec")
? pi //  3 via ODBC always wrong


// 2. OCILIB
if ( connect := RDDINFO( 1001, { "OCILIB", "---", "---" }, 'SQLMIX' )) != 0
DBUSEAREA( .T., 'SQLMIX', "select pi from test_dec", "test_dec")
? pi //  3.1415926536 , hurra

Test_dec->( dbCloseArea())
DBUSEAREA( .T., 'SQLMIX', "select pi+0 pi from test_dec", "test_dec1")
? pi //  3 :(


But :
select pi+0 pi from test_dec

in another tools correctly shows the result.

Regards,
Marek Horodyski

_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to