Table of Content
HAL Forum
procedure FieldIsInvalid (
string fieldname)
Description:
Defines a field wich indicates an invalid record
Parameters:
fieldname Field 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;
Related topics:
««