السلام عليكم و رحمة الله و بركاته

بداية اود ان اشكر جميع اعضاء هذا المنتدى الرائع و المشرفين عليه لأنني استفدت منه كثيييييييييييييييييييييييييرا .

أرجو ان تساعدوني في حل هذه المشكلة:

في هذه الفورمة عملت زر اسمه : Drawing عند الضغط عليه يقوم باستخراج ملف pdf من فولدر من جهازي و يعرضه .هذا الملف يكون رسم توضيحي لآلة معينة.
استخدمت ها الكود :

WHEN-BUTTON-PRESSED

DECLARE

X VARCHAR2(5 );

BEGIN

SELECT LPAD(:ASSETS_BLOCK.ID,4,'0')||'A' INTO X FROM DUAL ;

webutil_host.nonblocking('cmd /c start D:\MCS_PIC\'||X||'.pdf');

END;

الكود الحمدلله يعمل اذا كان للآلة ملف . المشكلة هو انه اذا لم يكن للآلة ملف فان البرنامج كله يقفل و يعطيني رسالة خطأ.

أريد ان اعرف هل توجد طريقة للتأكد ما اذا كان لآلة معينة ملف pdf في الفولدر او لأ ؟؟؟

تم تعديل 23 يناير 200818 سنة بواسطة koc_programmer

تستطيع استخدام File_Exists وهى من وظائف الـ webutil للتأكد من وجود الملف قبل قراءته حتى نتغلب على المشكة

شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا جزيلا لك يا اخي اشتغلن الفورم بعد كتابتي لهذا الكود :

DECLARE
X VARCHAR2(5 );
F_EXISTS BOOLEAN;
BEGIN
SELECT LPAD(:ASSETS_BLOCK.ID,4,'0')||'A' INTO X FROM DUAL ;
F_EXISTS := webutil_file.file_exists(X);

IF F_EXISTS THEN webutil_host.nonblocking('cmd /c start D:\MCS_PIC\'||X||'.pdf');
ELSE
MESSAGE(' NO DRAWING AVAILABLE ');
END IF;

END;