Table of Content
HAL Forum
procedure AppendListFieldToKeyName (
String FIELD)
Description:
Creates index with specified list of fields in mainkey.
Parameters:
FIELD Add a group fields to index


RecordBegin(DIVc,-,"");
  RecordField(Code,M4Code,10,0);
  RecordField(Name,M4Str,60,0);
  RecordField(DispGroups,M4UStr,200,DIVc);
  RecordField(CType,M4Code,10,0);
  RecordField(colnr,M4Set,46,0);
  MainKeyBegin(Code,0);
  KeySegment(Code);
  SynchronizationIndex;
  KeyBegin(Name);
  KeySegment(Name);
  KeySegment(Code);
  SubsetKeyBegin2(DICode);
  StoreInBaseKey;
  AppendListFieldToKeyName(DispGroups);
  KeySegment(Code);
  SubsetKeyBegin2(DIName);
  StoreInBaseKey;
  AppendListFieldToKeyName(DispGroups);
  KeySegment(Name);
  KeySegment(Code);
  KeyBegin(CType);
  KeySegment(CType);
  KeySegment(Code);
  EndRecord;
Related topics:
««