Calling Reports from Forms, and creating Reports objects

Hello I'm trying to create a Form which lists and launches all of our Reports. In our Client/Server set up we just have a Form which is based on a lookup table of Reports. When the user selects a report on the Form RUN_PRODUCT is used to call the report.
In Forms 9, do I have to create a Report object in the Form for every Report in our system and do I really have to modify the Form every time a new Report is created to add the new Report in?

Hello,
No, one single report object could fit for any report, if you modify its properties at runtime. 
For information, I have written a Forms 9i module able to run any report with 0 up to 10 parameters
Hope this helps
Francois

Similar Messages

Calling JSP from Forms and going back from JSP to Forms

Hi,
We are calling JSP from Forms 6i using show_document
I'd like to go back to tha calling Form from the JSP.
How can I construct the URL that would lead me back to the same Form and Forms session where the JSP was called from?
Thanks,
Arpad

Thanks Shay,
works for me too...
Now:
when I use the "Back" button of my IE to go back from JSP to the Forms session, it works for Jinitiator 1.1.8.19, but if I use Jinitiator 1.3 I got hung...
Any ideas how could I make it work from Jinit 1.3?
Thanks again/
Regards,
Arpad

Calling report from form and after parameter form trigger

Hi, I've also posted to this to the reports forum but because it works from Reports Builder it may be a forms issue which is why I'm x-posting. Apologies.
I have a report that creates a file, desname is set in the after parameter form trigger (it uses one of the parameter values).
The problem is file is not created using the path and filename set in the trigger, the file is created in the bin folder with the name account_by_service_type.txt (account_by_service_type.rdf is the report definition).
If the desname is set in the before parameter form AND a field with the source=desname is added to the parameter form then the file will be created with the correct path and name however it won't have the relevant parameter incorporated into the file name obviously.
I've noticed in other reports that where the desname is being set in the after parameter form that I've had to pass the desname from the form but obviously I cannot do that here either.
Am I missing something obvious?
Regards
Sean

Hi Frank,
It's WebForms. Below is the code:
-- call from menu item
run_report_object_proc(TRUE,'accounts_by_service_type.RDF',null,FILE,'delimited','paramform=yes');
-- run_report_0bject procedure
PROCEDURE run_report_object_proc (p_screen IN BOOLEAN,
                    p_report_filename IN VARCHAR2,
                    p_desname IN VARCHAR2,
                    p_destype IN NUMBER,
                    p_desformat IN VARCHAR2,
                    p_paramform IN VARCHAR2)IS
v_report_id     report_object;
v_report     varchar2(100);
v_job_id     varchar2(100);
v_url          varchar2(1000);
rep_status     varchar2(20);
hidden_action     VARCHAR2(2000)     :='';
BEGIN
v_report_id := find_report_object( 'report2');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_FILENAME,p_report_filename);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESNAME,p_desname);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,p_destype);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,p_desformat);
hidden_action := hidden_action||'&report='||GET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_FILENAME);
hidden_action := hidden_action||'&destype='||GET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_DESTYPE);
hidden_action := hidden_action||'&desformat='||GET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_DESFORMAT);
hidden_action := hidden_action||'&userid='||GET_APPLICATION_PROPERTY(username)||'/'||GET_APPLICATION_PROPERTY(password)||'@'||GET_APPLICATION_PROPERTY(connect_string);
if p_desname is not null then
hidden_action := hidden_action||'&'||p_paramform||'&desname='||p_desname;
else
hidden_action := hidden_action||'&'||p_paramform;
end if;
hidden_action := '/reports/rwservlet?_hidden_server=rserv1'||hidden_action;
SET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_OTHER, 'pfaction='||hidden_action||' '||p_paramform);
-- SET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_OTHER, 'paramform=no');
v_report := run_report_object( v_report_id);
IF p_screen THEN
     v_job_id := substr(v_report,instr(v_report,'_',-1)+1);
rep_status:=report_object_status(v_report);
while rep_status in ('RUNNING', 'OPENING_REPORT', 'ENQUEUED')
loop
     rep_status:=report_object_status(v_report);
end loop;
if rep_status='FINISHED' THEN
     v_url := '/reports/rwservlet/getjobid'||v_job_id||'?server=rserv1';
          web.show_document(v_url,'_blank');
else
     message(rep_status||' error running report');
end if;
end if;
END;
-- report after parameter form trigger
function AfterPForm return boolean is
begin
:desname := 'c:\service_type_'||:p_service_type||'_'||to_char(sysdate,'DDMMYYYY')||'.xls';
return (TRUE);
end;

Calling a report from forms with a paramter form

Hello,
How do you call a report from forms and get it to display the parameter form. Where you can then call the report using this parameter form. I have been using paramform=yes. but it simply runs the form.
I saw on a a thread ages ago that this was a sample of this available for download. Is this true?
thanks

Here is my code sorry about posting twice. Please note that the parameter list has been created as described.
report_id := find_report_object('MENU_REPORT_NODE');
Tool_Env.Getvar('ReportsServer', reports_server);
Tool_Env.Getvar('ReportsFolder', reports_folder);
dest_file := reports_folder || :global.username || '\' || rep_name || '.pdf';
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_FILENAME, rep_name);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_SERVER, reports_server);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_COMM_MODE, SYNCHRONOUS); -- wait for the report to finish
-- SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_DESNAME, dest_file);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_DESTYPE, cache);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_DESFORMAT, 'PDF');
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_OTHER, 'paramform=yes' || ' ' || 'mode=bitmap');
report_job := run_report_object(report_id);

Run Report from Forms

I need help!!!Can anyone tell me...
1)how to start a report from Forms?
---The report is already attached to Object Navigator
---I made a WHEN_PRESSED_BUTTON
and the Trigger for this button like this.....
DECLARE
rep_id REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
rep_id := find_report_object('StatusReport');
SET_REPORT_OBJECT_PROPERTY(rep_id,report_desformat,'PDF');
SET_REPORT_OBJECT_PROPERTY(rep_id,report_execution_mode,runtime);
SET_REPORT_OBJECT_PROPERTY(rep_id,report_comm_mode,synchronous);
SET_REPORT_OBJECT_PROPERTY(rep_id,report_destype,screen);
v_rep := RUN_REPORT_OBJECT(rep_id);
rep_status := REPORT_OBJECT_STATUS(v_rep);
if rep_status = 'FINISHED'
then message('Report executed');
else message('Error! The Report can not be executed');
end if;
END;
Wenn I push the button I get....
<<<<Cannot find report: invalid ID>>>>>>
2)How to make a list as result of a select(for example
the result of-> select s_v_insert_date from status_values)In this list I have to use WHEN-MOUSE-DOUBLECLICK for defining a bindvariable before the report starts?
3) How to start from forms an sql script?
4) Is there a Forms Documentation?
many thanks,nona

This forum is meant for discussions about OTN content/site and services.
Questions about Oracle products and technologies will NOT be answered in this forum. Please post your product or technology related questions in the appropriate product or technology forums, which are monitored by Oracle product managers.
Product forums:
http://forums.oracle.com/forums/index.jsp?cat=9
Technology forums:
http://forums.oracle.com/forums/index.jsp?cat=10

Printing a report from forms

I would like to print a report from forms without opening reports first. Is this possible and if so how?

From a command-line or .BAT file (assuming Windows and Developer6i) run the following (on a single line). It will go to your default printer.
<ORA_HOME>\bin\rwrun60 <report>.rdf userid=<user>/<pw>@<hoststring> destype=printer batch=yes
null

I want to run report from FORM

I want to run report from FORM. The report will save in PDF format then OPEN automatically in PDF
Every PDF file should have a unique file name.
I am using Form 6i and Reports 6i

DECLARE
vParamList PARAMLIST;
BEGIN
vParamList:=GET_PARAMETER_LIST('MyRep');
IF NOT ID_NULL(vParamList) THEN
DESTROY_PARAMETER_LIST(vParamList);
END IF;
vParamList:=CREATE_PARAMETER_LIST('MyRep');
SET_REPORT_OBJECT_PROPERTY('report_path\emp_rep_def',REPORT_DESFORMAT,'PDF');
RUN_PRODUCT(REPORTS,'report_path\emp_rep_def',ASYNCHRONOUS,RUNTIME,FILESYSTEM,vParamList,NULL);
END;

FRM - 41219 CANNOT FIND REPORT INVALID ID - CALLING REPORT FROM FORM

I am using Developer Suite 10g (forms 9i, reports 9i) . windows XP.
I am using the following code in WHEN-BUTTON-PRESSED-PRESSED trigger in form to call report.
DECLARE
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status varchar2(20);
BEGIN
repid := find_report_object('C:\EMP.RDF');
v_rep := RUN_REPORT_OBJECT(repid);
END;
as as result It is displaying FRM - 41219 CANNOT FIND REPORT INVALID ID.
I have used the EMP.JSP also in find_report_object built-in. But there is no difference.
what could be the reason - plz give the solution.
with thanks
by GMS

Unless you made a mistake and overlooked it, what I suggested should work. Having said that, you did not mention the exact Forms version you are using. There may have been a problem in the version you are using which was corrected in a later release. I tested the example I offered using Forms 10.1.2.3 and it works correctly. Carefully review what you did. Verify that the file actually exists in the file system. Also, I would recommend renaming the file with all lower case letters and referencing it in the form with all lower case letters. Here is the complete code of the form I tested. I will also include the property values from the Report object.
Report1 settings:
Name - REPORT1
Subclass Information -
Comments -
Filename - dummy.rdf
Execution Mode - Batch
Communication Mode - Synchronous
Data Source Data Block - <Null>
Query Name -
Report Destination Type - File
Report Destination Name -
Report Destination Format -
Report Server -
Other Reports Parameters - On the form create the following items in BLOCK1:
Text fields:
<li>SERVERNAME
<li>REPNAME
<li>OTHERPARAMS
Button:
<li>CALL_REP
In the WHEN-BUTTON-PRESSED trigger add this code:
Declare
repid REPORT_OBJECT;
v_rep varchar2(256);
rep_status varchar2(256);
Begin
 repid := find_report_object('REPORT1');
-- Set Report Object properties
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESTYPE, CACHE);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESFORMAT, 'HTML');
-- Comm mode 1 = SYNCHRONOUS
-- Comm mode 2 = ASYNCHRONOUS
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_COMM_MODE, 1);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_SERVER, :block1.SERVERNAME);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_FILENAME, :block1.REPNAME);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,:block1.otherparams);
SYNCHRONIZE;
-- Run report and get status
v_rep := RUN_REPORT_OBJECT(repid);
rep_status := report_object_status(v_rep);
SYNCHRONIZE;
-- Wait for Reports to generate results
 WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
 LOOP
 rep_status := report_object_status(v_rep);
 END LOOP;
 SYNCHRONIZE;
-- If DESTYPE is appropriate for displaying to user, execute WEB.SHOW ;
 IF rep_status = 'FINISHED' THEN
 WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server='||:block1.SERVERNAME,'_blank');
 ELSE
 message(rep_status);
 END IF;
END; When you run the form, enter the Report Server name and the Report filename (include the path if you have not configured REPORTS_PATH). Then click on the button. Note that the substr logic may need to be altered slightly if you are using an old version of Forms/Reports.
.

Call reports from forms applet

Hi!
I was redirected from Reports forum section to here.
Im a new Forms developer, and working with Reports for the first time. My question is very simple: how can i call my reports (made in Reports) from my applets (made in Forms)?
The specific task would be, when i click on a button, it should pop up the report file to print somehow (either to open / direct printing).
Thank for ur help!
Szilárd

hi
what is u r form version?
u have to start u r report server first and for report create a when-button-pressed trigger with the following code.
DECLARE
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
repid := FIND_REPORT_OBJECT('REPORT6');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,cache);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER, 'paramform=no p_parameter' || to_char(:block.item) );
v_rep := RUN_REPORT_OBJECT(repid);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
if
rep_status = 'FINISHED'
then
WEB.SHOW_DOCUMENT('http://Sarah:8889/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1) ||
'?server=repserver' );
else
message ( 'error while running reports-object ' || error_text );
message ( ' ' );
clear_message;
end if;
end;

Calling a report from Form 6i

Hi,
I want to call a report from Form 6i at run time. And I write the following code in When Buttton Press trigger . when I press the button it will gives no response.
declare
     x report_object;
     y varchar2(100);
begin
     x:=find_report_object('billform');
     y:=run_report_object(x);
end;
for more information , path of my report is: C:\REP\billform.rdf
please send me the solution of this problem
E_mail: [email protected]
Shahzad

hi,
now i am using the following code in when button press trigger. if u give me ur e_mail address i will send u FMB and RDF files used for Scott/tiger EMP table for the sample.
declare
repo_Para     ParamList;
BEGIN
repo_Para:=Get_Parameter_List('Report_para');
IF not Id_null(repo_Para) THEN
     destroy_parameter_list(repo_para);
end if;
repo_Para:=Create_Parameter_List('Report_para');
Add_Parameter(Repo_para,'PARAMFORM',TEXT_PARAMETER,'No');
Add_Parameter(Repo_para,'MAXIMIZE',TEXT_PARAMETER,'Yes');
     Add_Parameter(Repo_para,'BDATE',TEXT_PARAMETER,:BLOCK3.a_dptno);
     Add_Parameter(Repo_para,'EDATE',TEXT_PARAMETER,:BLOCK3.b_dptno);
     RUN_PRODUCT(REPORTS,'c:\apu\DDATE.rep', SYNCHRONOUS,
          runtime, FILESYSTEM,Repo_para,NULL);
end;
BDATE & EDATE are two user parameters created in report.
when i press the button in form pass parameters the report will be called but no data will be display but when i directly run reprot from report buider and pass same values of BDATE & EDATE it will show data.
please give me ur e mail address or help me for this problem
best regards,
shahzad

Calling Report From Form To Many Destinations

Hi
I am calling reports from forms using SET_REPORT_OBJECT_PROPERTY and then run_report_object.
I dont know the destination until runtime of the report which is ok as I can pass this in via my procedure, but if that destination is many ie mail and file what is the best way to distribute the report?
I could call my procedure for each destination but that seems a bit unefficient since the report would be created many times, is there another way?

what about adding a drop-down-list near your report-button where you can choose the destination?
when you click the report-button you simply read the value selected in the drop-down-list and send it to your reports-server too.

Calling Report from Form Error ORA-06508

Dear all,
I want migrate from Fom6i to Oracle Developer Suite 10g (10.1).
Folder Form = C:\APLIORA\IRS\FORM
Folder Report = C:\APLIORA\IRS\REPORT
I have modified file DEFAULT.ENV
FORMS_PATH=C:\APLIORA\IRS\FORM;C:\APLIORA\IRS\REPORT
i do not have problem call a form from form.
but when i call report from form show error ORA-06508 : PL/SQL : could not find program unit being called ; -6508
my procedure is
PROCEDURE Call_Report IS
     list_id ParamList;
BEGIN
list_id := Get_Parameter_List('input_params');
IF NOT Id_Null(list_id) THEN
Destroy_Parameter_List(list_id);
END IF;
list_id := Create_Parameter_List('input_params');
Add_Parameter(list_id,'MAXIMIZE',TEXT_PARAMETER,'YES');
Add_Parameter(list_id,'ORACLE_SHUTDOWN',TEXT_PARAMETER,'YES');
RP2RRO.RP2RRO_RUN_PRODUCT(REPORTS,'TESTREPORT.REP',SYNCHRONOUS,RUNTIME,FILESYSTEM,list_id,null);
END ;
Do I miss something ?
Can any one help ?
Thanks

Hi,
Thank you for your replay.
The problem have solved.
This my step :
1. Install Windows XP SP2 and Form 10.1.2.0.2 on new pc.
2. Install Jinit version 1.3.1.28.
3. Create report server
3. Compile form, report and pll
4. call report from from with this procedure :
PROCEDURE Call_Report (vFILENAME varchar2) IS
report_id                Report_Object;
ReportServerJob VARCHAR2(100);
vc_rep_status      VARCHAR2(100);
repsvr                          varchar2(21) := 'myserv';
userid                         VARCHAR2(100);
pass                          VARCHAR2(100);
Host                    VARCHAR2(100);
BEGIN
userid          := Get_Application_Property(USERNAME) ;
pass          := Get_Application_Property(PASSWORD) ;
Host          := Get_Application_Property(CONNECT_STRING) ;
report_id:= find_report_object('REPORT');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,vFILENAME||'.jsp');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,repsvr);
ReportServerJob:=run_report_object(report_id);
vc_rep_status := REPORT_OBJECT_STATUS(ReportServerJob);
WHILE vc_rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED', null)
LOOP
vc_rep_status:=REPORT_OBJECT_STATUS(ReportServerJob);
END LOOP;
IF vc_rep_status='FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet?report='||vFILENAME||'.jsp'||'&userid='||userid||'/'||pass||'@'||Host||'&destype=CACHE&desformat=PDF&paramform=yes','_blank');
ELSE
message ('Report failed with error message '|| vc_rep_status);
END IF;
END;
Ok, but i have another strange error. I will post new thread.
Thank you and regards
Teguh S

CALLING A REPORT FROM FORMS (PROBLEM)

MY PROBLEM IS THE NEXT:
I CREATED A MASTER-DETAIL REPORT CALLING 'ASUNTOS'WITH THE NEXT QUERY:
SELECT ABOGADOS.APELLIDO_P,ABOGADOS.APELLIDO_M,ABOGADOS.NOMBRES,
ASUNTOS.EXP_INT,ASUNTOS.MATERIA,ASUNTOS.GERENCIA,
ASUNTOS.EMPRESA,ASUNTOS.RECLAMA,ASUNTOS.PESOS,
ASUNTOS.DOLARES
FROM ABOGADOS,ASUNTOS
WHERE ABOGADOS.FICHA = ASUNTOS.F_ABOG
AND ASUNTOS.F_ABOG = :ABOGADO ;
-- ABOGADO = PARAMETER.
THIS REPORT WORKS FINE THE PROBLEM IS WHEN I TRY CALL THIS REPORT FROM FORM I'VE USE A BUTTON(WHEN_BUTTON_PRESSED) WITH THE NEXT CODE:
DECLARE
LISTA PARAMLIST := GET_PARAMETER_LIST('ABOG');
BEGIN
IF ID_NULL(LISTA) THEN
LISTA := CREATE_PARAMETER_LIST('ABOG');
ADD_PARAMETER(LISTA,'DESTYPE',TEXT_PARAMETER,'PRINTER');
ADD_PARAMETER(LISTA,'DESNAME',TEXT_PARAMETER,'LPT2');
ADD_PARAMETER(LISTA,'ABOGADO',TEXT_PARAMETER,TO_CHAR(:ASUNTOS.F_ABOG));
-- ADD_PARAMETER(LISTA,'PARAMFORM',TEXT_PARAMETER,'YES');
END IF;
RUN_PRODUCT(REPORTS,'ASUNTOS',SYNCHRONOUS,RUNTIME,FILESYSTEM,LISTA,NULL);
END;
BUT THE REPORT NOTHING DISPLAY.
THERE ARE SOMETHING WRONG WITH THE CODE IN THE BUTTON

Roberto,
Does your report work when it is not called from Forms?
try the following:
[TOOLS_HOME]\BIN\RWRUN60 module=ASUNTOS destype=screen userid=<username>/<password>@<tns> ABOGADO=<some_valid_code>
where TOOLS_HOME is the directory where Reports is installed.
I can see nothing wrong with your code.
Maybe some error in the query?
Also, I would check for the existence of multiple ASUNTOS report definitions. Maybe Forms is calling an older one.
Hope this helps,
Pedro das Neves
([email protected])

FRM-41219 - Cannot able to call reports from form generated in Designer

Hi
I'm trying to call a report from form whit a button generated in Designer 10.1.2.0.2
But I'm getting error : FRM-41219 Invalid report id
I'm tying with a menu but I'm getting the same error.
Please help me

Note 1056653.6
FRM-41219 Cannot Find Report: Invalid ID
Problem Description:
You are getting error: FRM-41219 Cannot Find Report: Invalid ID
Problem Explanation:
The code is using find_report_object and passing a report name to the function.
The statements are as follows:
DECLARE
repid REPORT_OBJECT;
BEGIN
repid := FIND_REPORT_OBJECT('report1');
END;
Solution Explanation:
The error message frm-41219 is a new error code which corresponds to the
Oracle Developer forms/report integration.
This message essentially means that the report cannot be found. Specifying the
correct name of a report object found in the forms object navigator (not the
actual name of the rdf file) usually resolves the problem.

Calling report from form. Need PDF output

I am calling a report from a form using RUN_PRODUCT. I need to display the form in PDF format. When the user clicks the button in the form to run the report, acrobat reader should open up and the report displayed there. Please help.
Thanks

Thanks for the response. The first part worked. I am able to get the output in PDF format. In the 2nd part where I want to open acrobat and display the output, I am having some trouble with the code. When I compile, it says
win_api_environment.read_registry must be declared. Is there some package I need to attach?
Also, in the After reports trigger, how do I pass vFile (I am assuming this is the PDF file name)?
Thanks
The first thing you'll want to do is pass parameters to the report IE DESTYPE, DESNAME and DESFORMAT where these could be FILE, 'c:\temp\report' and PDF.
Then, you can try this piece of code I wrote (with some help from other people at Metalink and here) sometime back. Now, I call it from forms, but in your case, you'd have to run it in the after report trigger. Since with RUN_PRODUCT you don't know when the report is finished, if you did it from the form, it wouldn't work correctly.
PROCEDURE OPEN_PDF(vFile IN VARCHAR2)
IS
vcServerApp varchar2(40);
vcServerTag varchar2(600);
vcCommand varchar2(2000);
iArgPos pls_integer;
dummy NUMBER;
BEGIN
-- 1 get the Server App for .PDF files
vcServerApp := win_api_environment.read_registry('HKEY_LOCAL_MACHINE\SOFTWARE\CLASSES\.PDF','',true);
-- 2 get the executable
vcServerTag := 'HKEY_LOCAL_MACHINE\SOFTWARE\CLASSES\'||
vcServerApp||'\SHELL\OPEN\COMMAND';
vcCommand:= win_api_environment.read_registry(vcServerTag,'',true);
-- 3 Sort out how to specify the Filename
iArgPos:= instr(vcCommand,'%1');
if iArgPos = 0 then --no substitution Var on the command line
vcCommand := vcCommand||' '||vFile;
else
vcCommand := substr(vcCommand,1,(iArgPos-1))||
vFile||substr(vcCommand,(iArgPos+2));
end if;
-- 4 Run using Winexec (or Host if preferred).
win_api_shell.winexec(vcCommand);
EXCEPTION
when no_data_found then
abortt('Acrobat Reader was not found! Please consult with your help desk to install it and try again.','N');
END;
Chad
I am calling a report from a form using RUN_PRODUCT. I need to display the form in PDF format. When the user clicks the button in the form to run the report, acrobat reader should open up and the report displayed there. Please help.
Thanks

Calling Reports from Forms, and creating Reports objects

Similar Messages

Maybe you are looking for