Call Oreacle report from Oracle form

Question

Hi,
I need call a Oracle report from Oracle Form and found the the following procedure from this forum. I have 2 parameters 'start_date' and 'end_date' passing to called report. The following example just have onle parameter
'departmentno' passing. Is that mean I need to call add_parameter twice like the following?
add_parameter(plid, ''start_date' , TEXT_PARAMETER,:control.start_date);
add_parameter(plid, ''end_date' , TEXT_PARAMETER,:control.end_date);
In the following example:
add_parameter(plid, 'departmentno', TEXT_PARAMETER,to_char(:dept.deptno));
Thanks for clarification!!
Michael
PROCEDURE pass_parameter
IS
plid paramlist;
the_param varchar2(15) := 'tmpdata';
BEGIN
plid := get_parameter_list(the_param);
/* check if 'tmpdata' exists */
IF NOT id_null(plid) THEN
destroy_parameter_list(plid);
END IF;
/* if it does destroy it */
plid := create_parameter_list(the_param);
/* create it afresh */
add_parameter(plid, 'departmentno', TEXT_PARAMETER,to_char(:dept.deptno));
/* associate the param in the form with the param in the report */
add_Parameter(plid, 'PARAMFORM', TEXT_PARAMETER, 'NO');
/* to suppress the parameter form displaying */
run_product(REPORTS, /* product name */
'formrep.rdf', /* Oracle Reports module */
SYNCHRONOUS, /* communication mode */
RUNTIME, /* execution mode */
FILESYSTEM, /* location of the Reports module */
plid, /* handle to the parameter list */
null
END;

Answer 1

this my code on when_button_press
declare
rec_grp recordgroup;
col1 groupcolumn;
col2                    groupcolumn;
col3                    groupcolumn;
col4                    groupcolumn;
col5                    groupcolumn;
col6                    groupcolumn;
col7                    groupcolumn;
col8                    groupcolumn;
pl_id paramlist;
i number :=1;
begin
rec_grp := find_group('emp_rec');
if not id_null(rec_grp) then
delete_group(rec_grp);
end if;
rec_grp := create_group('emp_rec');
col1 := add_group_column('emp_rec','Empno',CHAR_COLUMN,8);
col2 := add_group_column('emp_rec','Ename',CHAR_COLUMN,30);
col3 := add_group_column('emp_rec','job',CHAR_COLUMN,15);
col4 := add_group_column('emp_rec','Mgr',CHAR_COLUMN,8);
col5 := add_group_column('emp_rec','Hiredate',DATE_COLUMN,10);
col6 := add_group_column('emp_rec','Sal',CHAR_COLUMN,10);
col7 := add_group_column('emp_rec','comm',CHAR_COLUMN,10);
col8 := add_group_column('emp_rec','Deptno',CHAR_COLUMN,4);
loop
go_block('emp_r');
go_record(i);
add_group_row(rec_grp,i);
set_group_char_cell('emp_rec.empno',i,:emp_r.empno);
set_group_char_cell('emp_rec.ename',i,:emp_r.ename);
set_group_char_cell('emp_rec.job',i,:emp_r.job);
set_group_char_cell('emp_rec.mgr',i,:emp_r.mgr);
set_group_date_cell('emp_rec.Hiredate',i,:emp_r.Hiredate);
set_group_char_cell('emp_rec.sal',i,:emp_r.sal);
set_group_char_cell('emp_rec.comm',i,:emp_r.comm);
set_group_char_cell('emp_rec.deptno',i,:emp_r.deptno);
i := i + 1;
     exit when :system.last_record='TRUE';
end loop;
pl_id := get_parameter_list('para1');
if not id_null(pl_id) then
destroy_parameter_list(pl_id);
end if;
pl_id := create_parameter_list('para1');
add_parameter(pl_id,'Q_EMP',DATA_PARAMETER,'emp_rec');
add_parameter(pl_id,'paramform',text_parameter,'no');
run_product(REPORTS,'D:\ora\daily.RDF',synchronous,runtime,filesystem,pl_id,NULL);
end;
---------and this is my reprot query----------
select Empno,Ename,Job,Mgr,Hiredate,Sal,Comm,Deptno
from emp
where empno=:emp_rec
order by empno;
but it show error at run time
Rep-1340
plzz solve this problem to me
fahad