database class version 9.02 differences

[Otto]

For James and Antonio,

Database class

I am using TDATA now with the new database class fom version 9.02.

Testing the length of a buffered field ( N,3.0) now returns 10 but the field is only 3.

If I link in the old database.prg the values are correct.

Regards,
Otto

[Antonio Linares]

Otto,

This example is working fine with FWH 9.02:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDbf

   DbCreate( "test", { { "age", "N", 3, 0 } } )

   USE test

   DATABASE oDbf

   MsgInfo( Len( Str( oDbf:age ) ) )

return nil
 

[Otto]

Hello Antonio,
yes you are right.
But inside my program the values are different.
There must be something in between.
I will try to make a small example.

Best regards,
Otto

[Otto]

Hello Antonio,

please test with this code.
The problem must be the append-method.
This code reports 10 instead of 3.
Best regards,
Otto

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

  local oDbf
 

   DbCreate( "test", { { "age", "N", 3, 0 } } )

   USE test

   DATABASE oDbf
oDbf:blank()
   MsgInfo( "database object" + STR( Len( Str( oDbf:age ) ) ))



return nil
 
 function dbpack
 return nil
 function dbzap
 return nil

[Detlef Hoefner]

Otto,

the length of str() without parameters is always 10.

Regards,
Detlef

[Otto]

Hello Detlef,

thank you.
But the lenght should be 3 like it was with version 8.12, etc.

If you look into the append method in database.prg from the old and the new versions there have been changes.

Code: Select all  Expand view

VERSION 8
   METHOD Blank( nRecNo )     INLINE ( ::nArea )->( nRecNo := RecNo(),;
                                                    DBGoBottom(), ;
                                                    DBSkip( 1 ), ;
                                                    ::Load(),;
                                                    DBGoTo( nRecNo ) )

VERSION 9
METHOD Blank() CLASS TDataBase

   if ::lBuffer
      AEval( ::aBuffer, { |u,i| ::aBuffer[ i ] := uValBlank( u ) } )
   endif

return .f.

//----------------------------------------------------------------------------//

Regards,
Otto

[Antonio Linares]

We should modify uValBlank() to keep the original numeric length.

This is the code:

Code: Select all  Expand view

      case cType == "N"
       uResult =  uValue - uValue
 

How to modify it to keep the original length ?

[Otto]

Hello Antonio,

>How to modify it to keep the original length ?

I am sure 9.03 will give the answer.

Thanks in advance
Otto

[Antonio Linares]

This simple example changes the value length!

Code: Select all  Expand view

function Test( n )

return n - n
 

and this code, keeps the length:

Code: Select all  Expand view

function Test( n )

return n
 

Is it a Harbour/xHarbour bug ?

[Antonio Linares]

Otto,

Enrico gave me the solution. We have to modify function uValBlank() this way:

Code: Select all  Expand view

      case cType == "N"
           uResult = Val( Str( uValue - uValue, Len( Str( uValue ) ) ) )
 

Now it seems to works ok. I appreciate your feedback

[Otto]

Antonio,

thank you. Now I get the right values.
Regards,
Otto

[norberto]

Antonio, i change this in tdatabase class? thanks

[Otto]

Norberto,
you have to change C:\Fwh\source\function\valblank.prg and then link in this changed function.
Regards,
Otto

[norberto]

Otto, very thanks i will make this now.