كيف يمكن تشغيل ريبورت من فورم 6i عن طريق الويب

يا أخي الكريم
أولا قم بوضع كبسة على الفورم لعملية إظهار التقرير
ثانيا قم بكتابة الكود التالي داخل التريجر when_button_pressed

DECLARE
P_LIST PARAMLIST;
BEGIN
P_LIST := CREATE_PARAMETER_LIST('I');
ADD_PARAMETER('I','PER_NAME',TEXT_PARAMETER,:B7.PAY_DATE);
ADD_PARAMETER('I','P_DEPARTMENT',TEXT_PARAMETER,:B7.DEPT_ID);
ADD_PARAMETER('I','P_SOURCE',TEXT_PARAMETER,:B7.GROUP_ID);
ADD_PARAMETER('I','PARAMFORM',TEXT_PARAMETER,'NO');
RUN_PRODUCT(REPORTS,'C:\PAYSLIP\REPORT\XXPAY005.RDF',ASYNCHRONOUS,RUNTIME,FILESYSTEM,'I');
DESTROY_PARAMETER_LIST('I');
END;

*************************************************************************
PER_NAME :-عبارة عن باراميتر موجود في التقرير
:B7.PAY_DATE :-عبارة عن فيلد موجود على الفورم لتمرير القيمة إلى الباراميتر الموجود في التقرير
P_DEPARTMENT: -عبارة عن باراميتر موجود في التقرير
P_SOURCE :- عبارة عن باراميتر موجود في التقرير

السلام عليكم
طيب ممتاز .........
الكود السابق حولت اضيفة له جملة if ولكن لم يقبل !!!!!!!!!

هل ممكن تعلمني كيف اسويها؟
اي جملة if مو شرط شي معين.

السلام عليكم ورحمة الله وبركاته.
أخ سلطان إذا كنت تبي تضعها في if statment
لنطبق المثال التالي:-
أفرض انه لديك برنامج (مثلا برنامج حسابات)وتريد أن تبطع فاتورة معينة لذلك لا بد ان تتأكد انه (رقم الفاتورة الموجود على الشاشة إنه يكون حتوي على رقم الفاتورة).اما إذا لم يكن يحتوي على رقم بمعنى أنه كان خالي((يعني ان text_item فاضي ما فيه شئ)) تظهر رسالة للمستخدم انه لابد من تحديد رقم الفاتورة.. ولعمل ذلك أخي لابد من جملة if ولعملها أتبع التالي:-
لنفرض أن رقم الفاتورة الموجود على الشاشة قمت بتسميته fanum
وعندك button أسمه طباعة.تختار الحدث when button trigger وتكتب فيه التالي
declare
P_LIST PARAMLIST;
begin
if fanum is null then
message("pleas select write the number");
message("pleas select write the number");
go_item('fanum');
else

P_LIST := CREATE_PARAMETER_LIST('I');
ADD_PARAMETER('I','PER_NAME',TEXT_PARAMETER,:B7.PAY_DATE);
ADD_PARAMETER('I','P_DEPARTMENT',TEXT_PARAMETER,:B7.DEPT_ID);
ADD_PARAMETER('I','P_SOURCE',TEXT_PARAMETER,:B7.GROUP_ID);
ADD_PARAMETER('I','PARAMFORM',TEXT_PARAMETER,'NO');
RUN_PRODUCT(REPORTS,'C:\PAYSLIP\REPORT\XXPAY005.RDF',ASYNCHRONOUS,RUNTIME,FILESYSTEM,'I');
DESTROY_PARAMETER_LIST('I');
END if;
end;