مشكلة فى تقرير Pdf اريد زيادة معامل اخر

كود به خطأ اريد تصليحة
الكود بمعامل واحد وشغال تمام التمام هو

DECLARE
v_rep_id REPORT_OBJECT;
v_repjob VARCHAR2(100);
v_job_id VARCHAR2(100);
v_rep_status VARCHAR2(100);
v_reportsrvr VARCHAR2(50) := 'toto';
v_runformat vARCHAR2(50) := 'PDF';--HTML HTMLCSS PDF

BEGIN
IF : P_ID IS NULL THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;

v_rep_id := FIND_REPORT_OBJECT('RO2');
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESTYPE, CACHE);

--SET_REPORT_OBJECT_PROPERTY(V_rep_id, REPORT_DESTYPE, PRINTER);
--SET_REPORT_OBJECT_PROPERTY(v_rep_id,REPORT_DESNAME,'ID_CARD');

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_SERVER, v_reportsrvr);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESFORMAT, v_runformat);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'p1=' || : P_ID||' paramform=no');

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'E:\FORMS\report\MOD.rdf');

v_repjob := RUN_REPORT_OBJECT(v_rep_id);
v_job_id := SUBSTR(v_repjob, LENGTH(v_reportsrvr) + 2, LENGTH(v_repjob) );
v_rep_status := REPORT_OBJECT_STATUS(v_repjob);

IF v_rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid' || v_job_id ||'?server=' || v_reportsrvr || '', '_blank');
ELSE
message('Report failed with error message ');

END IF;

CLEAR_FORM;


END;


عايز ازود متغير اخر اسمة :NATIONAL_ID
لان التقرير فيه 2 معامل p_ID AND NATIONAL_ID

عملت الكودالجديد بالشكل دة وبيطلع التقرير فاضى معنى ذلك انه فيه معامل مش عارف يعرفه وهو NATIONAL_ID
ارجوكم الحل
DECLARE
v_rep_id REPORT_OBJECT;
v_repjob VARCHAR2(100);
v_job_id VARCHAR2(100);
v_rep_status VARCHAR2(100);
v_reportsrvr VARCHAR2(50) := 'toto';
v_runformat vARCHAR2(50) := 'PDF';--HTML HTMLCSS PDF

BEGIN
IF : P_ID IS NULL THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;

v_rep_id := FIND_REPORT_OBJECT('RO2');
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESTYPE, CACHE);

--SET_REPORT_OBJECT_PROPERTY(V_rep_id, REPORT_DESTYPE, PRINTER);
--SET_REPORT_OBJECT_PROPERTY(v_rep_id,REPORT_DESNAME,'ID_CARD');

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_SERVER, v_reportsrvr);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESFORMAT, v_runformat);

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P1=' || : P_id || ' P2=' || :NATIONAL_ID || ' paramform=no');

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'E:\FORMS\report\MOD.rdf');

v_repjob := RUN_REPORT_OBJECT(v_rep_id);
v_job_id := SUBSTR(v_repjob, LENGTH(v_reportsrvr) + 2, LENGTH(v_repjob) );
v_rep_status := REPORT_OBJECT_STATUS(v_repjob);

IF v_rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid' || v_job_id ||'?server=' || v_reportsrvr || '', '_blank');
ELSE
message('Report failed with error message ');

END IF;

CLEAR_FORM;


END;

وبردو مشتغلش

تم تعديل 16 ديسمبر 201510 سنة بواسطة scdc2003