I want to skip this error message or show blank picture if the picture doesn't exit but I don't know how to do it.

Business Central/NAV Developers Forum
1

Now I found out how to show the image in RTC

But about my new problem. If in my computer doesn’t have a picture following the Item “No.” then it will show out the dialog box Error message that

‘Exception from HRESULT: 0x800A0035 (CTL_E_FILENOTFOUND) Page View - Item Card - picture02 . D:\picture\picture02.bmp must close’

If I want to skip this error message or show blank picture if the picture doesn’t exit how to solve this problem.

Thank you for your help

2

Here these is my code that to create the page.

File1.CREATETEMPFILE;

File1.CREATEINSTREAM(Instreampic);

DOWNLOADFROMSTREAM(Instreampic,’’,’’,’’,MagicPath);

File1.CLOSE;

FOR x := STRLEN(MagicPath) DOWNTO 1 DO

BEGIN

IF MagicPath[x] = ‘’ THEN

BEGIN

MagicPath := COPYSTR(MagicPath,1,x);

x := 1;

END;

END;

Description := ‘D:\Cartoons’ + “No.” + ‘.BMP’;

Upname := ‘01.BMP’;

IF ISCLEAR(FileSystemObject) THEN

CREATE(FileSystemObject,TRUE,TRUE);

FileSystemObject.CopyFile(Description,MagicPath + ‘\01.BMP’);

Picture.CREATEOUTSTREAM(Outstreampic);

UPLOADINTOSTREAM(‘Import’,’’,‘All Files (.)|.’,Upname,Instreampic);

COPYSTREAM(Outstreampic,Instreampic);

3

Use the Exists function to determine if the pic exists in the location you are looking at.

if it does then execute the rest of your code…

we use it like this:

IF EXISTS (InvtSetup.“Item Jpeg Path”+Item.“No.”+’.JPG’) THEN BEGIN
Item.Picture2.IMPORT(InvtSetup.“Item Jpeg Path”+Item.“No.”+’.JPG’,FALSE);
Item.MODIFY;
END;

More info here:
http://msdn.microsoft.com/en-us/library/dd338845.aspx

4

Thank you for your help Mr.Savatage [:)]