|
Creates a index with a specified matrix field in main key |
|
Field |
Add a array field to index |
|
RecordBegin(ConfVc,ConfView,"ConfVc4");
RegisterForAllCompanies(false);
RecordField(SerNr,M4Long,0,0);
RecordField(AddrName,M4Str,30,0);
RecordField(AddrCode,M4Code,10,0);
RecordField(MotherConf,M4Long,0,0);
RecordField(Class,M4Set,35,0);
RecordField(MaxMail,M4Long,0,0);
RecordField(MaxReadDays,M4Long,0,0);
RecordField(MaxUnreadDays,M4Long,0,0);
RecordField(Math,M4Matrix,0,0);
RecordField(Comment,M4Str,60,0);
RecordField(HtmForm,M4Str,20,0);
RecordField(Closed,M4Int,0,0);
RecordField(UserType,M4Int,0,0);
RecordField(Identifier,M4Str,200,0);
RecordField(Sortorder,M4Str,20,0);
ArrayBegin(Math,-,1);
ArrayField(Group,M4Code,5,0);
EndArray;
MainKeyBegin(SerNr,0);
KeySegment(SerNr);
KeyBegin(AddrName);
KeySegment(AddrName);
KeySegment(SerNr);
KeyBegin(AddrCode);
KeySegment(AddrCode);
KeySegment(SerNr);
SubsetKeyBegin2(SubConfAddrName);
AppendFieldToKeyName(MotherConf);
KeySegment(AddrName);
KeySegment(SerNr);
SubsetKeyBegin2(SubConfSortorder);
AppendFieldToKeyName(MotherConf);
KeySegment(Sortorder);
KeySegment(AddrName);
KeySegment(SerNr);
KeyBegin(ActAddrName);
KeySegment(AddrName);
KeySegment(SerNr);
KeySegment(Closed);
KeyBegin(UserType);
KeySegment(UserType);
KeySegment(SerNr);
KeyBegin(Identifier);
KeySegment(Identifier);
KeySegment(SerNr);
SubsetKeyBegin2(Group);
StoreInBaseKey;
AppendMatrixFieldToKeyName(Group);
KeySegment(Class);
KeySegment(SerNr);
EndRecord;
|
««