|
|
| 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;
 |
««