ارجو المساعدة on line ولكم الاجر والثواب

صراحة لاني وصلت لدرجة اعجز في هذا التقرير

ما هي المشكلة ؟؟

اخي الكريم شكراً لك اولاً

عندي تقرير واريد التعديل على محتواها وتغير بعض القيم ولاستعلامات

انا بانتظارك اخي الكريم

تم تعديل 20 أبريل 201016 سنة بواسطة giham

اين الخطا في هذا الكود
وشرح ما تحتته خط وهل له علاقة با القيمة المدخلة

DECLARE
       repid                                                 REPORT_OBJECT ;
       v_rep                                                 varchar2(100);
       rep_status                                 varchar2(20);
       P                                  PARAMLIST ;

BEGIN repid := find_report_object('REPORT34'); 
       p:=get_parameter_list('paraformlist');
       if not id_null(p) then
               destroy_parameter_list(p);
               end if;

       -- Adjust form report obeject
       SET_REPORT_OBJECT_PROPERTY (repid,report_execution_mode,batch);
       SET_REPORT_OBJECT_PROPERTY (repid,report_comm_mode,synchronous);
       SET_REPORT_OBJECT_PROPERTY (repid,report_destype,cache);
       SET_REPORT_OBJECT_PROPERTY (repid,report_desformat,'htmlcss');
       SET_REPORT_OBJECT_PROPERTY (repid,report_server,'rep_eyad'); 
       p:=create_parameter_list('paraformlist');
       add_parameter(p,'paramform',text_parameter,'yes');
       
add_parameter(p,'P_STATE',text_parameter,:STATE);
add_parameter(p,'P_CENTER',text_parameter,:CENTER);
add_parameter(p,'P_NAME',text_parameter,:NAME);
add_parameter(p,'P_SURNAME',text_parameter,:SURNAME);
add_parameter(p,'P_FATHERNAME',text_parameter,:FATHERNAME);
 
 SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
 ----
       v_rep := RUN_REPORT_OBJECT(repid,p);
       rep_status := REPORT_OBJECT_STATUS(v_rep);
       WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
               rep_status := report_object_status(v_rep);
       END LOOP;
       IF rep_status = 'FINISHED' THEN
               /*Display report in the browser*/
               WEB.SHOW_DOCUMENT('http://localhost:8889/reports/[u]rwservlet/getjobid'|| substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=rep_eyad', '_blank');[/u]        ELSE
               message(' Error when running report ');
               message(' Error when running report ');
       END IF;

 ----change cursor
 SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');
 ----

END;

تم تعديل 22 أبريل 201016 سنة بواسطة giham