Can you open a report in Excel/Word desktop instead of the web pugin?

Question

using run_report_object( and web.show_document,
how or can you get a report to open in the desktop/full version of MS Excel/Word instead of the web plugin versions?
I can get the browser to open a report in pdf with my desktop adobe reader, but not with an rtf or xml/delimited desformat.
Currently I don't pass a mimetype when opening as a pdf, but I do pass one in the url when i am destypes of xml, delimited and rtf,
as this is the only way i have found out how to open the reports in word/excel.
I'm in the process of upgrading from forms 6 client/server to 10g developer suite, so this is my try with a web based system.
Does anyone have any suggestions, or where I should look.
Below I listed my code from a procedure.
the first part of the procedure is alot of converting, but if you skip down to the part between the 2 sets of double lines this fairly standard.
PACKAGE BODY pmc_lib IS
-- Procedure to run the report.
procedure run_reports(v_report_name in varchar2, -- Report Name with or w/o a path.
v_commode in number default synchronous, -- commode
v_execmode in number default runtime, -- execute mode
v_file_sys in number default filesystem, -- dummy
v_param_list in paramlist, -- parameter list
v_show_modes in varchar2 default null) is -- used for testing,
-- if set to anthing but null, the report properties will display
-- on the screen through an alert prior to printing.
v_errorcode number;
v_errortext varchar2(600);
v_initialized boolean := false;
v_prop_reportserver varchar2(200);
v_report_path varchar2(200);
v_user varchar2(100);
v_user_sessionid number;
v_forms_version varchar2(100);
v_default_report_server varchar2(200);
v_default_server_domain_path varchar2(200);
v_connect_string varchar2(3) := get_application_property(connect_string);
v_user_name varchar2(35) := get_application_property(username);
report_id report_object;
reportserverjob varchar2(100);
v_jobid varchar2(100);
rep_status varchar2(100);
v_url varchar2(500);
v_url2 varchar2(500);
v_parameter_value varchar2(100);
v_destype_param_value varchar2(100) := null;
v_desformat_param_value varchar2(100) := null;
v_desname_param_value varchar2(100) := null;
v_value_n number := 0;
v_param_type number := text_parameter;
v_prop_execmode number;
v_prop_commode number;
v_prop_destype number;
v_prop_filename varchar2(200);
v_prop_source_block varchar2(200) := null;
v_prop_query_name varchar2(200) := null;
v_prop_desname varchar2(200) := null;
v_prop_desformat varchar2(200) := null;
v_prop_reportserver varchar2(200) := null;
v_prop_other varchar2(200) := null;
v_mimetype varchar2(200) := null;
v_selected_mimetype varchar2(200) := null;
report_not_generated exception;
report_id_not_found exception;
BEGIN
v_forms_version := get_application_property(version);
v_prop_reportserver := get_report_object_property('report1', report_server);
v_report_path := null;
v_user := v_user_name || '/' ||
get_application_property(password) || '@' ||
v_connect_string;
if v_connect_string = 'NNN' then
v_default_server_domain_path := 'pmcoracapp01.aapmc.com/reports/rwservlet';
v_default_report_server := 'rep_pmcoracapp01_frhome1';
else
v_default_server_domain_path := 'oradevsrv.aapmc.com/reports/rwservlet';
v_default_report_server := 'rep_oradevsrv_frhome1';
end if;
v_initialized := true;
-- Check to see what version of forms is running.
if substr(v_forms_version, 1, 1) <> '6' then
-- Check to see if WEB version is running
-- This may be an unnecessary check.
if (get_application_property(user_interface) = 'WEB') then
report_id := find_report_object('report1');
-- id_null won't work on a report_id in Version 6, may put back in 10g once version 6 is gone completly
-- if id_null(report_id) then
-- raise report_id_not_found;
-- end if;
-- Because of Convertions from old system the following are needed.
-- 1) If 'execmode' is runtime, then change it to batch.
if v_execmode = runtime then
     v_prop_execmode := batch;
else
     v_prop_execmode := v_execmode;
end if;
-- 2) If Report name has an attached path, then remove it.
v_value_n := instr(lower(v_report_name), 'k:\pmc\new\');
if v_value_n = 0 then
     v_prop_filename := v_report_name;
else
     v_prop_filename := substr(v_report_name, v_value_n + 11);
end if;
-- From looking at the FORMS, 'destype' parameter is always passed in from the FORM.
-- It is either 'preview' or 'file'.
-- This is here for the converstion from Forms 6 to 10g.
-- If for some reason destype has not been passed in as a parameter, you will get a FORM error,
-- saying the parameter does not exists.
begin
-- 3) If 'destype' is one of the following, then change it to cache.
get_parameter_attr(v_param_list, 'destype', v_param_type, v_destype_param_value);
if lower(nvl(v_destype_param_value, 'null')) in ('preview', 'file', 'null') then
v_prop_destype := cache;
-- 3a) If 'destype' was = 'file' then check the 'desformat' and 'desname'.
if lower(nvl(v_destype_param_value, 'null')) = 'file' then
-- 3b) Get 'desformat' value
get_parameter_attr(v_param_list, 'desformat', v_param_type, v_desformat_param_value);
-- 'delimited' was not working, so change all 'delimited' to 'delimiteddata'.
if lower(nvl(v_desformat_param_value, 'null')) = 'delimited' then
     v_desformat_param_value := 'delimiteddata';
end if;
-- 3c) If 'desformat' is NOT one of the following, then change it to pdf.
if lower(nvl(v_desformat_param_value, 'null')) not in ('pdf', 'xml', 'rtf', 'delimiteddata') then
v_prop_desformat := 'pdf';
else
v_prop_desformat := lower(v_desformat_param_value);
end if;
-- 4) Get 'desname' property.
get_parameter_attr(v_param_list, 'desname', v_param_type, v_desname_param_value);
v_prop_desname := lower(v_desname_param_value);
end if;
else
v_prop_destype := lower(v_destype_param_value);
end if;
exception
when others then
null;
end;
-- If a desformat is rtf, xml, or delimited then get a mimetype to pass to the url
if lower(v_prop_desformat) = 'rtf' then
v_mimetype := '&mimetype=application/msword';
elsif lower(v_prop_desformat) = 'xml' then
v_mimetype := '&mimetype=application/vnd.ms-excel';
elsif lower(v_prop_desformat) = 'delimiteddata' then
v_mimetype := '&mimetype=application/vnd.ms-excel';
end if;
-- 6) If the Following are not set within the Report Object then
-- set them to the following defaults.
-- These are al required to be set for the Report Object to Function.
-- These are the defaults for AAPMC.
v_prop_execmode := nvl(v_prop_execmode, batch);
v_prop_commode := nvl(v_prop_commode, synchronous);
v_prop_destype := nvl(v_prop_destype, cache);
v_prop_desformat := nvl(v_prop_desformat, 'pdf');
v_prop_reportserver := nvl(v_prop_reportserver, v_default_report_server);
-- Set All Report_Object Properties
set_report_object_property(report_id, report_execution_mode, v_prop_execmode);
set_report_object_property(report_id, report_comm_mode, v_commode);
set_report_object_property(report_id, report_destype, v_prop_destype);
set_report_object_property(report_id, report_filename, v_prop_filename);
set_report_object_property(report_id, report_source_block, v_prop_source_block);
set_report_object_property(report_id, report_query_name, v_prop_query_name);
set_report_object_property(report_id, report_desname, v_prop_desname);
set_report_object_property(report_id, report_desformat, v_prop_desformat);
set_report_object_property(report_id, report_server, v_prop_reportserver);
set_report_object_property(report_id, report_other, v_prop_other);
-- Run Report_Object
reportserverjob := run_report_object(report_id, v_param_list);
v_jobid := substr(reportserverjob, length(v_prop_reportserver) + 2, length(reportserverjob));
-- If Report Status is not 'FINISHED', then loop till it is.
if reportserverjob is not null then
rep_status := report_object_status(reportserverjob);
while rep_status in ('RUNNING', 'OPENING_REPORT', 'ENQUEUED') loop
rep_status := report_object_status(reportserverjob);
end loop;
if rep_status <> 'FINISHED' then
raise report_not_generated;
end if;
-- Create 1st part of url.
v_url := 'http://' || v_default_server_domain_path || '/getjobid' || v_jobid || '?server=' || v_prop_reportserver;
-- Check for mimetype.
if v_mimetype is not null then
v_url := v_url || v_mimetype;
end if;
-- Final part of url.
v_url2 := 'javascript:window.open("' || v_url || '", "", "fullscreen=no, titlebar=no, location=no, toolbar=no, menubar=no, status=no, resizable=yes"); self.close()';
-- This is the built-in that calls a new browser window
web.show_document(v_url2,'_blank');
else
raise report_not_generated;
end if;
end if;
-- Destroy the parameter list.
destroy_parameter_list(v_param_list);
else
-- This section if for Client Server, Version 6 of forms.
-- It will do the same as before the conversion.
-- It is only used before the complete conversion.
if v_report_name is null then
return;
end if;
v_value_n := instr(v_report_name, 'k:\pmc\new\');
if v_value_n = 0 then
     v_prop_filename := 'k:\pmc\new\' || v_report_name;
else
v_prop_filename := v_report_name;
end if;
run_product(reports,
v_prop_filename,
v_commode,
v_execmode,
filesystem,
v_param_list,
null);
end if;      
-- create history record of the report being run
insert into pmc_report_history values(
s_pmc_report_history.nextval,
v_prop_filename,
v_user_name,
sysdate,
v_forms_version,
v_jobid,
v_destype_param_value,
v_desformat_param_value,
v_desname_param_value,
v_prop_destype,
v_prop_desformat,
v_prop_desname,
v_mimetype,
v_window_open_params);
commit;
exception
when report_id_not_found then
show_user_alert('ERROR: Cannot Find Report Object!', null);
when report_not_generated then
show_user_alert('ERROR: Report Not Generated!', null);
when others then
v_errorcode := SQLCODE;
v_errortext := SQLERRM;
show_user_alert('ERROR : ' || v_errorcode || ' = ' || v_errortext, null);
end;
end;

Answer 1

What you could try is downloading the report to the client pc using WEBUTIL_FILETRANSFER.URL_TO_CLIENT, then open the locally save file using something like:
CLIENT_HOST('cmd /c rundll32.exe url.dll,FileProtocolHandler "localfilename"');