[Harbour] BMDBFCDX

[Przemyslaw Czerpak]

On Wed, 03 Dec 2008, Abeb wrote:

Hi,

> sample code i tried, and getting that error. I also tried setting a to an
> index order.
> -------------------
> USE ITEMS   VIA "BMDBFCDX" NEW
> set optimize on
> DbSetFilter( {|| .f. } ) //tried .t. as well
> BM_DBSETFILTERARRAY( {10,20,30} )
> go top // <- error
> browse()
> -------------------------

This is not self contain example.
It cannot be linked and it does not have ITEMS table.
When user does not give self contain example which can be easy compiled
he forces that such example will be created by developer and it does
not eliminate possible user typos so very often is waste of time checking
them. Please rember about it in the future. It will help users because
can receive answer faster and developers because they can invest more
time in other modifications then creating real self contain examples
which can be compiled and tested until they will not find the one
which exploits the problem or they will be informed that user located
the problem in his source code.
In this case the problem is cause by this code in bmdbfcdx.c[6817]

      pArea->dbfi.itmCobExpr = hb_itemPutC( NULL, NULL );

It cannot work. I do not know why Miguel added it so I cannot help you
directly. It looks like some unfinished modifications but maybe I'm wrong.
You will have to wait for Miguel response.

best regards,
Przemek


request BMDBFCDX
proc main()
   field F
   dbcreate( "items", {{"F", "C", 10, 0}},, .T. )
   while lastrec() < 50
      dbappend()
      replace F with "rec:" + str( recno(), 3 )
   enddo
   CLOSE
   USE items  VIA "BMDBFCDX" NEW
   set optimize on
   DbSetFilter( {|| .f. } ) //tried .t. as well
   BM_DBSETFILTERARRAY( {10,20,30} )
   go top // <- error
   browse()
return