| ( |
|
|
|||
| Import a field recovering info from a plain txt back up | |||
global
updating procedure EuroCardAccIn()
BEGIN
record EuroCardVc ECr;
string 255 ECacc,ACacc,comment;
if (NextImportLine(true)) then begin end;
while (TestEOF==false) begin
RecordNew(ECr);
ECacc = ImportField();
ACacc = ImportField();
comment = ImportField();
ECr.ECCode = ECacc;
ECr.ACCode = ACacc;
ECr.ECComment = comment;
if (RecordStore(ECr,false)) then begin end;
if (NextImportLine(true)) then begin end;
end;
RETURN;
END;
 |
|
| Related topics: | |