 |
| 0 |
0=supp register/1=first of all/3=lower priority |
|
RecordBegin(TestVc,-,"");
ImpExpLevel(0);
SerialNoBlock(TestSerBlock);//connecting to number series setting
RecordField(SerNr,M4Long,0,0);
RecordField(Comment0,M4Str,200,0);
RecordField(Comment1,M4Str,200,0);
RecordField(Comment2,M4Str,200,0);
RecordField(TransDate,M4Date,0,0);
RecordField(OKFlag,M4Int,0,0);
RecordField(Invalid,M4Int,0,0);
RecordField(Math,M4Matrix,0,0);
FieldIsInvalid(Invalid);
FieldIsTransDate(TransDate);
ArrayBegin(Math,-,1);
ArrayField(ArtCode,M4Code,20,INVc);
ArrayField(ArtName,M4Str,200,0);
ArrayField(Qty,M4Val,0,0);
ArrayField(Price,M4Val,0,0);
ArrayField(Sum,M4Val,0,0);
ArrayField(Sers,M4Long,0,0);
EndArray;
......
««