Index problem with ver 7.05

[James Bott]

I am getting an undefined function error when the function is in an index definition. Here is the index definition:

ref + strzero( recno(), 7)

"ref" is a fieldname.

When using TDatabase's addIndex() method I get this error:

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Program Files\TP7a\tp7.exe (32 bits)
   Size: 4,122,112 bytes
   Time from start: 0 hours 0 mins 9 secs
   Error occurred at: 05/24/2007, 10:10:03
   Error description: Error BASE/1001  Undefined function: RECNO

Stack Calls
===========
   Called from:  => RECNO(0)
   Called from:  => ORDLISTADD(0)
   Called from: DATABASE.PRG => (b)TDATABASE:TDATABASE(0)

This index was working in previous versions without problems.

Here is the sample test program I am using:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function main()
   local words

   use words new shared
   database words
   words:addIndex("words")  // crashes here

   msgInfo( "OK" )

return nil

I am using FWH and xHarbour with the Borland compiler and NTX indexes. I don't know if this is a FWH or a xHarbour issue.

Anyone else having a similar problem?

James

[Antonio Linares]

James,

Please download xharbour again as it had an important error that has been fixed two days ago:

www.fivetechsoft.com/files/xharbour.exe

[James Bott]

Antonio,

>Please download xharbour again as it had an important error that has been fixed two days ago:

You are a lifesaver! This was giving me fits, and I am on a tight deadline. That fixed the problem.

Thanks so much,
James