how to pass 2 parameters from one form to other in oracle
applications?
Answer / fahad
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,100);
col2 := add_group_column('emp_rec','Ename',CHAR_COLUMN,300);
col3 := add_group_column('emp_rec','job',CHAR_COLUMN,300);
col4 := add_group_column('emp_rec','Mgr',CHAR_COLUMN,100);
col5 := add_group_column('emp_rec','Hiredate',DATE_COLUMN,100);
col6 := add_group_column('emp_rec','Sal',CHAR_COLUMN,100);
col7 := add_group_column('emp_rec','comm',CHAR_COLUMN,100);
col8 := add_group_column('emp_rec','Deptno',CHAR_COLUMN,100);
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;
| Is This Answer Correct ? | 5 Yes | 0 No |
Can you truncate a table in a procedure in Oracle Forms?
What are built-ins associated with timers?
What do you mean by a block in forms4.0?
why the Ctl file u put only in bin folder why not in other folder
what exactly u write in when_new_form_instance
What the PAUSE package procedure does ?
To execute row from being displayed that still use column in the row which property can be used?
How do u print the data horizantally by using XML report? EX:Suppose there is one table names as SAMPLE in that we have only two columns say empno,ename.I want the output like this,At run time user may enter 3 colums(i.e to data print horizantally). empno ename empno ename empno ename 100 aaa 101 bbb 102 ccc 103 ddd 104 eee 105 fff
Whar are the different default triggers created when Master Deletes Property is set to Cascade?
how do u call a report from form
Hi...... I created a report which is geneated in .txt format. What I do for this is 1.First I change the system parameter mode to character in the report. 2.Then I place a button in my form to call the report. code in the button is as follows.. DECLARE rePid REPORT_OBJECT; rep_hndl VARCHAR2(100); BEGIN rePid := Find_Report_Object('reptxt.rdf'); Set_Report_Object_Property(rePid,Report_deStype,FILE); Set_Report_Object_Property(rePid,Report_FileName,'d:\sasi\reports\reptxt.rdf'); Set_Report_Object_Property(rePid,Report_desName,'d:\sasi\output\repprint.txt'); rep_hndl := Run_Report_Object(rePid); END; and it is working.. Now the problam is that when I preview the report from the report builder, it is in the format I needed. But when I run the form and run the report,Its alligment is not correct. Regards abc
if some data is not transfered where it will get stored