Help with adding an additional index

[Steve_A]

Would someone please help me with adding an index to an existing file using the DataDictionary components. I have no problem adding data fields and restructuring the file, but have not been able to get the index add function to work.

My problem is this:
The file I am trying to update is called 'InvRcvd'. It already has two indicies in addition to Seq. Access. I want to check to see if an index called 'RcptID' is present and if not I want to add it. The index consists of a single string field 'ReceiptID'.

Any help would be much appreciated.

Steve_A wrote:

Hi Steve,

I guess you are using the restructuring code that is posted somewhere
on the Nexus website.
Use the following as step 1 to determine if the index needs to be added:

AddIndex := Dict.IndicesDescriptor.GetIndexFromName('MyIndex') = -1;

Step 2, when NewDict has been created:

with NewDict.EnsureIndicesDescriptor do
with AddIndex('MyIndex', 0, idAll), KeyDescriptor as
TnxCompKeyDescriptor do
with Add(NewDict.FieldsDescriptor.GetFieldFromName('MyF ield'),
TnxTextKeyFieldDescriptor) as TnxTextKeyFieldDescriptor do
IgnoreCase := True;

Bert

[Steve_A]

Thank you very much. It worked perfectly.

Steve