ماهو الغرض من الدالهFORM_SUCCESS ومتى يكون الفورم NOT SUCCESS
مثلا فى هذا الكود:
begin
if :cust.cusno is not null and :cust.name is not null then
go_block('customer');
clear_block(do_commit);
if form_success then
message('Customer Saved Successfully');
go_block('cusqry');
execute_query(no_commit);
else
message('A problem happend during save process, iformation was not saved..');
end if;
else
message('You have one or more field may be Empty..');
go_item('cust.cusno');
end if;
end;
ولكم الشكر.............................

الاخ الفاضل / mohamed mustafa
السلام عليكم ورحمة الله وبركاته

تستخدم Form_Success للتاكد من ان احد الخطوات (الاوامر) داخل الكود قد تم بالفعل كما هو مخطط لها.

مثال :
اذا اردت ان تتنقل الى عنصر معين (ليكن department_id) فانك تستخدم الامر go_item وبعد ان تتنقل الى هذا العنصر تقوم مثلاً باظهار LOV مرتبطة بهذا العنصر وذلك باستخدام الامر List_values

الى هذا الحد يكون الكود

go_item('department-Id');
List_values;

بفرض انه اثناء العمل كان هناك trigger فى مكان ما على النموذج يعمل على جعل العنصر department_id غير متاح disable

فعند تنفيذ هذا الكود بالصورة المبينة فان الانتقال الى العنصر department_id لا يتم وبالتالى فان الامر التالى له سينفذ ويظهر الـ LOV بالعنصر الذى تقف عليه (طبعاً اذا كان هناك LOV مرتبطة به)

لضمان ان الامر List_values لا ينفذ الا اذا تم الانتقال بالفعل الى العنصر departemnt_id
فاننا نستخدم form_success

فيصبح الكود

go_item ('department_id');
if Form_success then
list_values;
end if;

ومرفق اخى الكريم ملف به هذه النقطة من كتب اوركل

ويمكن الرجوع الى

Oracle9i Forms Developer: Build Internet Applications Vol. 2, Chapter 16, p. 125- 126

مع تحياتى

اسامه سليمان
القاهرة

Form_success.doc

تم تعديل 13 يناير 200620 سنة بواسطة Osama Soliman

الاخ اسامه سليمان مشكور جدا وماقصرت الله يجعله فى ميزان حسناتك وشكرا

شكرآ على الشرح الرائع
ايهاب وجدى