|
|
| Determines if HansaWorld is importing a text-backup at the time that this function is called. Returns TRUE if import is running. |
global
updating function LongInt IVCashVcRecordImportAfter(var record IVCashVc IVCashp,record IVCashVc IVCash2p,LongInt stat,LongInt long4)
BEGIN
LongInt res;
Integer err;
if (IVCashp.Invalid==0) then begin
if (IVCashp.OKFlag!=0) then begin
IVCashArtStats(IVCashp);
if (ImportingTextBackup==false and CanOKStockRecord(err)==true) then begin
IVCashUpdateItemHist(IVCashp);
IVCashUpdateStock(IVCashp);
IVCashUpdateSerialNr(IVCashp);
end;
end;
end;
IVCashVcRecordImportAfter = res;
RETURN;
END;
««
