مشكلة الربط بين Report وبين Form لل 10G

[hldv_210156]

v_REP_SERVER_NAME اكتب ايه
v_IP اكتب ايه

DECLARE
  PARAM_ID    PARAMLIST ;--to return the handle of parameter list
  PARAM_NAME  VARCHAR2(30) := 'REPORT_PARAMETER';--the name of parameter list
  repid REPORT_OBJECT; 	--to return id of report 
  v_rep VARCHAR2(100); 
  v_REP_SERVER_NAME    varchar2(200);
  V_IP    varchar2(200);
  v_measure_rate number(1);
Begin

begin 

  	PARAM_ID := GET_PARAMETER_LIST(PARAM_NAME);
  	IF NOT ID_NULL(PARAM_ID) THEN
         DESTROY_PARAMETER_LIST('REPORT_PARAMETER');
  	END IF;
     
  	v_REP_SERVER_NAME := 'amir-6c67e71024';                           	---your report server here -u can get it from \showenv
  	---------- TO BRING THE IP OF THE REPORT SERVER HOST -----------------
  	
  	---------------------------------------------------------------------
   
  	v_IP := 'amir-6c67e71024:8889';
  	PARAM_ID := CREATE_PARAMETER_LIST(PARAM_NAME);
  	ADD_PARAMETER(PARAM_ID,'PARAMFORM',TEXT_PARAMETER,'yes');
  	ADD_PARAMETER(PARAM_ID,'DESFORMAT',TEXT_PARAMETER,'PDF');
  	
 
       
     ADD_PARAMETER(PARAM_ID,'p_1',TEXT_PARAMETER,:dept_id);

     
     repid := find_report_object('report6');                 	----------report name
     SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,v_rep_server_name);  

     v_rep := RUN_REPORT_OBJECT(repid,PARAM_ID); 
  --WEB.SHOW_DOCUMENT('http://10.1.12.60:7778/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?server='||v_REP_SERVER_NAME,'_blank'); 
   WEB.SHOW_DOCUMENT('http://'||V_IP||'/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?server='||v_REP_SERVER_NAME,'_blank'); 





END ;
END;

--web.show_document('http://ctp1:8889/reports/rwservlet?report=d:\emp.rdf&DESTYPE=CACHE&userid=hr/hr@orcl&id='||:departments.department_id,'_blank');