Delete Pic After Import

Savatage

After Importing an Items' Picture. I would like it to ask if I want to delete file file off the drive.

OnPush()
PictureExists := Picture.HASVALUE;
IF Picture.IMPORT('*.BMP',TRUE) = '' THEN
   EXIT;
IF PictureExists THEN
  IF NOT CONFIRM(Text001,FALSE,TABLECAPTION,"No.") THEN
   EXIT;
CurrForm.SAVERECORD;

But unlike a dataport where I can
Put the following Code in the OnPost Dataport Trigger

CurrFile.CLOSE; 
IF Confirm(Text000, true) then 
ERASE(CurrDataport.FILENAME); 

Where Text000 = 'Would you like to delete the file?'

I can't seem to get it to work on the Item->Pic->import

I'm sure it's right in front of my face

Marije_Brummel

Hi Harry

The Picture.IMPORT returns the filename

If you save this in a variable you can use the ERASE fucntion to delete the file after it is stored in the database

FileName := PICTURE.IMPORT(...)
IF FileName = '' then
  exit

...

ERASE(FILENAME);

Savatage

PictureExists := Picture.HASVALUE;
IF Picture.IMPORT('*.BMP',TRUE) = '' THEN
      EXIT;
IF PictureExists THEN
  IF NOT CONFIRM(Text001,FALSE,TABLECAPTION,"No.") THEN
   EXIT;
CurrForm.SAVERECORD;

ImportedPicture := ('S:\'+"No."+'.BMP');
IF CONFIRM(Text003,TRUE,ImportedPicture) THEN
ERASE(ImportedPicture);

Name ConstValue
Text003 Do you want to delete the file %1 from Drive

Savatage

:-k

Marije_Brummel

Harry

What part of my example do you not understand?????

The Picture.IMPORT returns the selected file including the location!!!

Let me know if you need any help.

Savatage

I understand what you said but I kept on getting an error on the filename when I tried to pass it to the variable.

Marije_Brummel

What error?

Marije_Brummel

This code works like a charm

PictureExists := Picture.HASVALUE;
FileName := Picture.IMPORT('*.BMP',TRUE);
IF FileName = '' THEN
  EXIT;
IF PictureExists THEN
  IF NOT CONFIRM(Text001,FALSE,TABLECAPTION,"No.") THEN
    EXIT;
CurrForm.SAVERECORD;

IF EXISTS(FileName) THEN
  ERASE(FileName);

Savatage

You are correct - My code had a typo error & I bailed too quickly on it.

PictureExists := Picture.HASVALUE;
ImportedPicture := Picture.IMPORT('*.BMP',TRUE);
IF ImportedPicture = '' THEN
      EXIT;
IF PictureExists THEN
  IF NOT CONFIRM(Text001,FALSE,TABLECAPTION,"No.") THEN
   EXIT;
CurrForm.SAVERECORD;

IF EXISTS(ImportedPicture) THEN
IF CONFIRM(Text003,TRUE,ImportedPicture) THEN
ERASE(ImportedPicture);

Marije_Brummel

OK

Thought I went crazy :shock:

Glad it works now.

Savatage

Talk about tweaking.

Very Customized Database - Upgrading is not an option anymore