|
|
| Checks whether the import is running. |
global
updating procedure ReadImportTagOrders()
begin
integer cnt;
record ORVc ORr;
record ORVc OR2r;
cnt = 0;
while (NextImportLine(false)) begin
CheckFlush(cnt, 10);
ReadImportTagOrdersRecord(ORr);
OR2r.SerNr = ORr.SerNr;
if (ReadFirstMain(OR2r, 1, true)) then begin
// if (RecordUpdate(OR2r, ORr, false) == 0) then begin end;
end else begin
if (blank(ORr.Sum4)) then begin
ORSumup(ORr);
end;
SetORFlags(ORr);
if (Importing == false) then begin
TestORArts(ORr);
end;
if (RecordImportStore(ORr, false)) then begin end;
end;
end;
return;
end;
««
