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