Table of Content
HAL Forum
function Boolean NextImportLine (
boolean InType)
Description:
Moves to next line of the active import file. Depending on the given parameter returns false when reached eof file and/or an empty line.
Parameters:
InType False if blank lines should be treated as end of file.
global
updating procedure EuroCardAccIn()
BEGIN
  record EuroCardVc ECr;
  string 255 ECacc,ACacc,comment;

  while (TestEOF==false) begin
    RecordNew(ECr);
    ECr.ECCode = ImportField;
    ECr.ACCode = ImportField;
    ECr.ECComment = ImportField;
    if (RecordStore(ECr,false)) then begin end;
    if (NextImportLine(true)) then begin end;
  end;

  RETURN;
END;

Related topics:
««