Status of Dataport Import

Reply

michaele Posted: 08-28-2008 14:42

rated by 0 users

I use a Dataport to Import from a txtfile to a table.

In "Dataport - OnPostDataport()" I remove the file I have Imported, like this :

IF EXISTS(CurrFile.NAME) THEN BEGIN
  FileName := CurrFile.NAME;
  CurrFile.CLOSE;
  ERASE(FileName);
END;

FileName is a Global Variable of Text - 255

I only wish to remove the file if the Import have been successfull, that is all data is imported to the table.
Is there a property on the Dataport to see if the Import was successfull ?

Reply

Viktoras replied on 08-28-2008 16:09

rated by 0 users

Ussually you should get error message if import is not successful. After error you will not get to OnPostDataport, so file will not be deleted.

Reply

anfinnur replied on 08-28-2008 17:10

rated by 0 users

Before calling ERASE I would do like this (in OnPostDataport):

IF NOT RENAME(CurrentFilePathName, NewFilePathName) THEN 
  ERROR('SomeErrorMessage');

COMMIT;  //if this one fails, the file only have been moved, not erased
ERASE(NewLocation);  //syntax may be "IF NOT ERASE(..."

Reply

michaele replied on 08-29-2008 7:25

rated by 0 users

Thankyou for your time to answer my question.

 Unfortunately the code in OnPostDataport is performed even if I recieve an error message.
So the file gets deleted even if an error occur.

Reply

michaele replied on 08-29-2008 7:31

rated by 0 users

anfinnur:

Before calling ERASE I would do like this (in OnPostDataport):

IF NOT RENAME(CurrentFilePathName, NewFilePathName) THEN 
  ERROR('SomeErrorMessage');

COMMIT;  //if this one fails, the file only have been moved, not erased
ERASE(NewLocation);  //syntax may be "IF NOT ERASE(..."

Thankyou for spending time answering my question. 

Yes, this code is much better.
I agree it would be wiser to rename the file and not delete it, so recovery of the file is possible.

Still I would like to be able to abort the file rename operation if the transaction have failed.
Is there a way to detect weather the transaction was successfull ?

Reply

michaele replied on 08-29-2008 10:03

rated by 0 users

I found a solution :-)
If I perform a COMMIT before doing the ERASE, then the Error appear before I do the file operation.

The Code in Dataport - OnPostDataport() Trigger will the look like this:

IF EXISTS(CurrFile.NAME) THEN BEGIN
  FileName := CurrFile.NAME;
  CurrFile.CLOSE;
  COMMIT();  //Any Error appear here, before File operation is performed
  IF NOT ERASE(FileName + '.bak') THEN BEGIN
    //Unable to delete .bak file is not critical
  END;
  IF NOT RENAME(FileName, FileName + '.bak') THEN
    ERROR(Unable to rename : ' + FileName);
END;