|
|
| Assign a number series block for a specific register |
 |
| BlockName |
Number series block name |
|
RecordBegin(CashVc,-,"");
RecordField(SerNr,M4Long,0,0);
SerialNoBlock(CashSerBlock);
RecordField(TransDate,M4Date,0,0);
FieldIsTransDate(TransDate);
RecordField(TransTime,M4Time,0,0);
RecordField(Drawer,M4Code,5,0);
RecordField(MachineName,M4Code,5,0);
RecordField(Comment,M4Str,200,0);
RecordField(Total,M4Val,0,0);
RecordField(Event,M4Int,0,0);
RecordField(Invalid,M4Int,0,0);
FieldIsInvalid(Invalid);
MainKeyBegin(SerNr,0);
KeySegment(SerNr);
EndRecord;
««