CDX ordKey question

[Otto]

I can’t find out the function which returns the value “how many ordkey’s” a cdx file has.
Test.dbf
index on field->datum tag u_datum
index on dtos(field->datum)+str(field->renr) tag u_datrg
index on dtos(field->datum) + Upper(field->artnum) tag u_datart

The function should return for this example 3.

Thanks in advance
Otto

[fraxzi]

Sir,

<cAlias>->( OrdKeyCount() ) will do.


Regards,

[Otto]

Hello fraxzi,

OrdKeyCount() I think gives back the items within an key.
I need the number of key which are compound in on index file.

For example:
Test.dbf
Test.cdx has following tags:
tag u_datum
tag u_datrg
tag u_datart

I would need as anwer 3 in this example.
ordKeyCount() gives me back 2945, which are the records matching tag u_datum.

As a workaround I do:

for Itest := 1 to 20
if len(Alltrim(ordkey()))=0
msginfo(Itest)
endif
next

Do you know if there exists a function for that.

Thanks in advance
Otto

[StefanHaupt]

Otto,

OrdKeyCount() returns the number of matching records in an order.

In xharbour there is the function OrdCount(cBag) to get the no. of indexes in an order.

[Otto]

Hello Stefan,

Thank you. This function is what I was looking for.
If I remember well you are a CAD expert.
Some years ago I saw and tested an AUTOCAD clone written in FIVEWIN.
Do you know if this program is still available?

I would need a CAD program like “AutoCAD lite” for my personal use.

Best regards,
Otto

[StefanHaupt]

Hello Otto,

this AutoCAD clone had been written by Arturo Tamayo Daza, on his website http://www.quark-costos.com/index.php you can get more informations.

For personal use there is open source project called CADEMIA, that offers a free CAD software. Look at http://www.cademia.org

If you need more informations about CAD please contact me directly: sthaupt@uni-kassel.de. I can give you some advices.

[kok joek hoa]

Dear Otto,

Try this :
aindex:=getordnames()
msginfo(len(aindex))


regards,

Kok Joek Hoa