Home » Developer & Programmer » Forms » Run Report with parameters when select Radio Button (developer 6i database 10g window 2003 server )
Run Report with parameters when select Radio Button [message #407039] |
Mon, 08 June 2009 04:21  |
shahzaib_4vip@hotmail.com
Messages: 410 Registered: December 2008 Location: karachi
|
Senior Member |
|
|
Hellow Guys
I Run my report through form with report parameter now i want when i select one radio button and then check if my one list value= 1 then run report A if my one list value = 2 then run report B
Both Report A and B contain same parameter
What can i do ?
i write this trigger on Push button
DECLARE
al_button NUMBER;
pl_id PARAMLIST;
pl_id2 PARAMLIST;
BEGIN
IF :type = 'A' THEN
IF :RepType = '1' THEN
pl_id := Get_parameter_list('repPara'); --create a parameter list
IF NOT Id_null(pl_id) THEN
Destroy_parameter_list(pl_id);
END IF;
pl_id := Create_parameter_list('repPara');
Add_parameter(pl_id,'PARAMFORM',text_parameter,'NO');
Add_parameter(pl_id,'style_from',text_parameter,:style_from); --passing style noas parameter
Add_parameter(pl_id,'style_to',text_parameter,:style_to); --passing style no as parameter
Add_parameter(pl_id,'date_from',text_parameter,:date_from); --passing date from as parameter
Add_parameter(pl_id,'date_to',text_parameter,:date_to); --passing date to as parameter
Add_parameter(pl_id,'catagory',text_parameter,:catagory); --passing catagory to as parameter
Run_product(reports,'E:\inventory\Dispatch\d_style_wise_dispatch_Stitching_report.rdf',
asynchronous,runtime,filesystem,pl_id,NULL);
ELSIF :Reptype = '2' THEN
pl_id2 := Create_parameter_list('repPara2');
Add_parameter(pl_id2,'PARAMFORM',text_parameter,'NO');
Add_parameter(pl_id2,'style_from',text_parameter,:style_from); --passing style no as parameter
Add_parameter(pl_id2,'style_to',text_parameter,:style_to); --passing style no as parameter
Add_parameter(pl_id2,'date_from',text_parameter,:date_from); --passing date from as parameter
Add_parameter(pl_id2,'date_to',text_parameter,:date_to); --passing date to as parameter
Add_parameter(pl_id2,'catagory',text_parameter,:catagory); --passing catagory to as parameter
Run_product(reports,'E:\inventory\Dispatch\d_style_wise_dispatch_Delivery_report.rdf',
asynchronous,runtime,filesystem,pl_id,NULL);
END IF;
END IF;
END;
Need Help
Regards
shahzaib ismail
|
|
|
Re: Run Report with parameters when select Radio Button [message #407045 is a reply to message #407039] |
Mon, 08 June 2009 04:36   |
shahzaib_4vip@hotmail.com
Messages: 410 Registered: December 2008 Location: karachi
|
Senior Member |
|
|
I Used this for check box
for example to check 1 box then run 1st report for check 2 box to run 2nd report and its working fine but why this is not working for Radio button
DECLARE
al_button NUMBER;
pl_id PARAMLIST;
BEGIN
IF :type = 'A' THEN
IF :RepType = '1' THEN
pl_id := Get_parameter_list('repPara'); --create a parameter list
IF NOT Id_null(pl_id) THEN
Destroy_parameter_list(pl_id);
END IF;
pl_id := Create_parameter_list('repPara');
Add_parameter(pl_id,'PARAMFORM',text_parameter,'NO');
Add_parameter(pl_id,'style_from',text_parameter,:style_from); --passing job name as parameter
Add_parameter(pl_id,'style_to',text_parameter,:style_to); --passing style no as parameter
Add_parameter(pl_id,'date_from',text_parameter,:date_from); --passing date from as parameter
Add_parameter(pl_id,'date_to',text_parameter,:date_to); --passing date to as parameter
Add_parameter(pl_id,'catagory',text_parameter,:catagory); --passing date to as parameter
Run_product(reports,'E:\inventory\Dispatch\d_style_wise_dispatch_Stitching_report.rdf',
asynchronous,runtime,filesystem,pl_id,NULL);
ELSIF :Reptype = '2' THEN
pl_id := Create_parameter_list('repPara2');
Add_parameter(pl_id,'PARAMFORM',text_parameter,'NO');
Add_parameter(pl_id,'style_from',text_parameter,:style_from); --passing job name as parameter
Add_parameter(pl_id,'style_to',text_parameter,:style_to); --passing style no as parameter
Add_parameter(pl_id,'date_from',text_parameter,:date_from); --passing date from as parameter
Add_parameter(pl_id,'date_to',text_parameter,:date_to); --passing date to as parameter
Add_parameter(pl_id,'catagory',text_parameter,:catagory); --passing date to as parameter
Run_product(reports,'E:\inventory\Dispatch\d_style_wise_dispatch_Delivery_report.rdf',
asynchronous,runtime,filesystem,pl_id,NULL);
END IF;
END IF;
END;
Regards
Shahzaib Ismail
|
|
|
|
Goto Forum:
Current Time: Sun Sep 21 11:17:10 CDT 2025
|