| ( |
|
|
|||
| Returns true if reached end of import 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: | |