Table of Content
HAL Forum
procedure AppendMatrixFieldToKeyName (
String Field)
Description:
Creates a index with a specified matrix field in main key
Parameters:
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;
Related topics:
««