Parameter Where - report 10g

Question

Hi
I have a variable vsWhere.
vsWhere := 'WHERE TABLE.COLUNM1 = 1 AND TABLE.COLUMN2 = 3'
I have too the parameter :P_WHERE in the report
I tried to past the variable to parameter in report, but is not ok. The report show just the word "WHERE", why?
ex: vsOther_parameter := 'PARAMFORM=NO BLANKPAGES=NO P_WHERE='vsWhere;
forms and reports 10g
att,
Marcos

Answer 1

Ok
vsOther_parametro := 'PARAMFORM=NO BLANKPAGES=NO MAXIMIZE=YES'
vsOther_parametro := vsOther_parametro || ' P_WHERE=WHERE VI_MOVIMENTO_ESTOQUE.TIPO = 1 AND VI_MOVIMENTO_ESTOQUE.STATUS = 2';
P_WHERE is parameter of report.
report_id:=FIND_REPORT_OBJECT('AEF2001');
----- call the procedure
RUN_REPORT_OBJECT_PROC(report_id,                                   vsReport_servname,                              vsReport_desformat,
CACHE
               vsReport_filename,
     vsReport_desname,
vsOther_parametro,                         vsReport_servlet);
----- end call the procedure
--- procedure that call report
     PROCEDURE RUN_REPORT_OBJECT_PROC(
                                                                                report_id REPORT_OBJECT,
                                                                                report_server_name VARCHAR2,
                                                                                report_format VARCHAR2,
                                                                                report_destype_name NUMBER,
                                                                                report_file_name VARCHAR2,
                                                                                report_desname VARCHAR2,
                                                                                report_otherparam VARCHAR2,
                                                                                reports_servlet VARCHAR2) IS
     report_message VARCHAR2(100) :='';
     rep_status VARCHAR2(100) :='';
     vjob_id VARCHAR2(4000) :='';
     hidden_action VARCHAR2(2000) :='';
     v_report_other VARCHAR2(4000) :='';
     i number (5);
     c char;
     c_old char;
     c_new char;
BEGIN
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE,BATCH);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,report_file_name);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,report_server_name);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,report_destype_name);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,report_format);
     hidden_action := hidden_action ||'&report='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME);
     hidden_action := hidden_action||'&destype='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE);
     hidden_action := hidden_action||'&desformat='||GET_REPORT_OBJECT_PROPERTY (report_id,REPORT_DESFORMAT);
     hidden_action := hidden_action ||'&userid='||get_application_property(username)||'/'||get_application_property(password)||'@'||get_application_property(connect_string);
     c_old :='@';
     FOR i IN 1..LENGTH(report_otherparam) LOOP
          c_new:= substr(report_otherparam,i,1);
          IF (c_new =' ') THEN
               c:='&';
          ELSE
               c:= c_new;
          END IF;
          -- eliminate multiple blanks
          IF (c_old =' ' and c_new = ' ') THEN
               null;
          ELSE
               v_report_other := v_report_other||c;
          END IF;
     c_old := c_new;
     END LOOP;
     hidden_action := hidden_action ||'&'|| v_report_other;
     hidden_action := reports_servlet||'?_hidden_server='||report_server_name || encode(hidden_action);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'pfaction='||hidden_action||' '||report_otherparam);
     report_message := run_report_object(report_id);
     rep_status := report_object_status(report_message);     
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
     rep_status := report_object_status(report_message);     
--rep_status := report_object_status(report_job_id);
END LOOP;
     IF rep_status='FINISHED' THEN
          vjob_id :=substr(report_message,length(report_server_name)+2,length(report_message));
          WEB.SHOW_DOCUMENT(reports_servlet||'/getjobid'||vjob_id||'?server='||report_server_name,' _blank');
     ELSE
          null;
     END IF;
END;
--- end procedure that call report
--- procedure encode
FUNCTION ENCODE(URL_PARAMS_IN Varchar2)
                                        RETURN VARCHAR2 IS
     v_url VARCHAR2(2000) := URL_PARAMS_IN; -- Url string
     v_url_temp VARCHAR2(4000) :=''; -- Temp URL string
     v_a VARCHAR2(10); -- conversion variable
     v_b VARCHAR2(10); -- conversion variable
     c CHAR;
     i NUMBER(10);
BEGIN
FOR i IN 1..LENGTH(v_url) LOOP
     c:= substr(v_url,i,1);
     IF c in (';', '/','?',':','@','+','$',',',' ') THEN
          v_a := ltrim(to_char(trunc(ascii(substr(v_url,i,1))/16)));
          IF v_a = '10' THEN
               v_a := 'A';
          ELSIF v_a = '11' THEN
               v_a := 'B';
          ELSIF v_a = '12' THEN
               v_a := 'C';
          ELSIF v_a = '13' THEN
               v_a := 'D';
          ELSIF v_a = '14' THEN
               v_a := 'E';
          ELSIF v_a = '15' THEN
               v_a := 'F';
          END IF;
          v_b := ltrim(to_char(mod(ascii(substr(v_url,i,1)),16)));
          IF v_b = '10' THEN
               v_b := 'A';
          ELSIF v_b = '11' THEN
               v_b := 'B';
          ELSIF v_b = '12' THEN
               v_b := 'C';
          ELSIF v_b = '13' THEN
               v_b := 'D';
          ELSIF v_b = '14' THEN
               v_b := 'E';
          ELSIF v_b = '15' THEN
               v_b := 'F';
          END IF;
          v_url_temp := v_url_temp||'%'||v_a||v_b;
     ELSE
          v_url_temp :=v_url_temp||c;
     END IF;
END LOOP;
return v_url_temp;
END;
--- end procedure encode
att,
Marcos