Not new report from form

Question

Hi, I am very new in oracle devloper track. I have a report 'smsc' and i have a form. I want to call that report from my from by pressing a button. Please send me the codes.
thx

Answer 1

Hi,
Here is some example code that I use.
The first part is designed for web environment the second part for client/server.
First you create a parameter list to pass parameters to the report. You can change or leave the parameters that you dont't use.
You should also change the variables that are defined on the operating system or hard code them in your code
-- Delete parameterlist if exists
pl_id := Get_Parameter_List('PARAM_CARDHOLDER_INFO');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
-- Create parameterlist
pl_id := Create_Parameter_List('PARAM_CARDHOLDER_INFO');
-- Add parameters          
Add_Parameter(pl_id,'PARAMETER_NAME',TEXT_PARAMETER, value);
Add_Parameter(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');
Add_Parameter(pl_id,'ORACLE_SHUTDOWN',TEXT_PARAMETER,'Yes');
-- Get some variables defined on the Server Operating System
l_os := Get_Application_Property(Operating_System);
IF l_os = 'UNIX' THEN
Tool_env.getvar('HOST',l_hostname); --host
Tool_env.getvar('DOMAIN',l_domain); --domain
Tool_env.getvar('REPORTS60_SERVER',l_rep_server); -- servername
ELSE
Tool_env.getvar('COMPUTERNAME',l_hostname);
END IF;
IF LENGTH(l_domain) > 0 THEN
l_domain := '.'||l_domain;
END IF;
-- This will be executed in a 3 tier model only
IF Get_Application_Property(User_Interface)='WEB' THEN
repid := Find_Report_Object(l_rep_name);
Set_Report_Object_Property(repid,REPORT_SERVER,l_rep_server);
l_rep_job_id := Run_Report_Object(repid, pl_id);
l_rep_status := Report_Object_Status(l_rep_job_id);
WHILE l_rep_status IN ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
l_rep_status := Report_Object_Status(l_rep_job_id);
END LOOP;
IF l_rep_status = 'FINISHED' THEN
l_rep_job_id2 := REPLACE(l_rep_job_id,l_rep_server||'_','');
WEB.SHOW_DOCUMENT('http://'||l_hostname||l_domain||'/dev60cgi/rwcgi60/getjobid'||l_rep_job_id2||'?server='||l_rep_server);
ELSE
Message('Report failed with error message '||l_rep_status);
END IF;
ELSE -- This will be executed in a client/server situation only
RUN_PRODUCT(REPORTS,l_rep_name,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
END IF;
Regards