Table of Content
HAL Forum
procedure StoreInBaseKey (
)
Description:
using together with SubsetKeyBegin2 when standard index (without subsets) must be created too
  RecordBegin(ExpVc,-,"exp1");
  RecordField(SerNr,M4Long,0,0);
  SerialNoBlock(ExpSerBlock);                        
  RecordField(PayVal,M4Val,0,0);
  RecordField(OKFlag,M4Mark,0,0);
  RecordField(Person,M4Code,10,UserVc);
  FieldIsUser(Person);
  RecordField(Name,M4Str,60,0);
  RecordField(Sign,M4Code,10,UserVc);
  RecordField(Math,M4Matrix,0,0);
  RecordField(TransDate,M4Date,0,0);
  FieldIsTransDate(TransDate);
  RecordField(OKSign,M4Code,10,UserVc);
  RecordField(CurncyCode,M4Code,5,CurncyCodeVc);
  RecordField(ToRateB1,M4Rate,0,0);
  RecordField(Comment,M4Str,60,0);
  RecordField(CalcVATVal,M4Val,0,0);
  RecordField(StatFlag,M4Int,0,0);
  RecordField(ExportedFlag,M4Int,0,0);
  RecordField(FrRate,M4Rate,0,0); 
  RecordField(ToRateB2,M4Rate,0,0); 
  RecordField(BaseRate1,M4Rate,0,0); 
  RecordField(BaseRate2,M4Rate,0,0); 
  RecordField(PPOKNr,M4Long,0,0);
  RecordField(Objects,M4UStr,60,ObjVc);
  RecordField(SalesGroup,M4Code,5,SalesGroupVc);
  FieldIsGroup(SalesGroup);
  RecordField(NrofRecs,M4UVal,0,0);
  RecordField(Invalid,M4Int,0,0);
  FieldIsInvalid(Invalid);
  RecordField(DocDate,M4Date,0,0);
  ArrayBegin(Math,-,1);
  ArrayField(stp,M4Int,0,0);
  ArrayField(ovst,M4Int,0,0);
  ArrayField(AccNumber,M4Code,10,AccVc);
  ArrayField(Objects,M4UStr,60,ObjVc);
  ArrayField(Comment,M4Str,60,0);
  ArrayField(Sum,M4Val,0,0);
  ArrayField(Item,M4Code,20,INVc);
  ArrayField(qty,M4UVal,0,0);
  ArrayField(PRCode,M4Code,20,PRVc);
  ArrayField(VATCode,M4Code,2,0);
  ArrayField(VATSum,M4Val,0,0);
  ArrayField(ExpDate,M4Date,0,0);
  ArrayField(DocNr,M4Str,20,0);
  ArrayField(VECode,M4Code,20,VEVc);
  ArrayField(WayList,M4Long,0,0);
  ArrayField(Identifier,M4Str,20,0);
  ArrayField(ACShort,M4Code,5,0);
  ArrayField(VEName,M4Str,60,0);
  ArrayField(LegalInvNr,M4Str,60,0);
  EndArray;
  MainKeyBegin(SerNr,1);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(SerNr);
  SubsetKeyBegin2(ExportedFlag);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(ExportedFlag);
  KeySegment(SerNr);
  SubsetKeyBegin2(TransDate);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(TransDate);
  KeySegment(SerNr);
  SubsetKeyBegin2(Person);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(Person);
  KeySegment(SerNr);
  SubsetKeyBegin2(OKFlag);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(OKFlag);
  KeySegment(SerNr);
  SubsetKeyBegin2(Name);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(Name);
  KeySegment(Person);
  KeySegment(SerNr);
  SubsetKeyBegin2(PPOKNr);
  StoreInBaseKey;
  AppendFieldToKeyName(Person);
  AppendFieldToKeyName(SalesGroup);
  KeySegment(PPOKNr);
  KeySegment(SerNr);
  SubsetKeyBegin2(DocNr);
  StoreInBaseKey;
  AppendMatrixFieldToKeyName(DocNr,0);
  KeySegment(SerNr);
  EndRecord;
Related topics:
««