como ejecuto un reporte en acrobat desde forms 9i, gracias de antemano por su ayuda

art-duro
13 de Septiembre del 2005
Hola a todos!!

Necesito un poco de su valiosa ayuda, estoy tratando de emitir un reporte en acrobat desde forms 9i, si alguien me puede ayudar se lo agradeceria muchisimo

Atentamente
Arturo R.

daniel
13 de Septiembre del 2005
Hola, acá te envío algo que estoy usando:
Tienes que incorporar en el Form, en Paquetes Incorporados, el paquete Web que no se de donde sale porque ya lo tenía armado así.

PROCEDURE p_imp_rep_generico (p_nom_report in varchar2,
p_lista in VARCHAR2 default null,
p_reportserver in varchar2 default null,
p_local in locales.codigo%type,
p_des_type in varchar2 default null,
p_mime in varchar2 default null)IS

v_report_message VARCHAR2(100);
v_rep_status VARCHAR2(100);
v_report_id REPORT_OBJECT;
vp_repn_url VARCHAR2(500):= k_param.f_param(\'REPN_URL\');
vp_repn_desname VARCHAR2(500):= k_param.f_param(\'REPN_DESNAME\');
-- vp_rep_server VARCHAR2(500):= k_param.f_param(\'REPSER_NAME\',p_local);
v_nom_arch varchar2(40);
BEGIN

select k_f.v_empresa||userenv(\'SESSIONID\')||to_char(sysdate, \'yyyymmddhh24miss\')||nvl(p_mime,\'.pdf\'),
replace(vp_repn_url, \'&&\', :global.app_server)
into v_nom_arch, vp_repn_url
from dual;

vp_repn_url := vp_repn_url || v_nom_arch;

v_report_id := find_report_object(\'R_F_GENERICO\');

SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_FILENAME ,p_nom_report);
-- SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_EXECUTION_MODE,BATCH);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE,SYNCHRONOUS);

IF GET_APPLICATION_PROPERTY(USER_INTERFACE) = \'WEB\' THEN
SET_REPORT_OBJECT_PROPERTY(v_report_id,report_destype,FILE);
if p_des_type is not null then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,p_des_type);
end if;
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER,:global.repser_name);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESNAME,vp_repn_desname||v_nom_arch);
ELSE
if p_des_type = \'SCREEN\' then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,SCREEN);
elsif p_des_type = \'PREVIEW\' then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,PREVIEW);
elsif p_des_type = \'MAIL\' then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,MAIL);
elsif p_des_type = \'FILE\' then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,FILE);
elsif p_des_type = \'CACHE\' then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,CACHE);
else
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,PRINTER);
end if;
END IF;

IF p_lista is not null then
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_OTHER,p_lista);
END IF;
v_report_message:= run_report_object(v_report_id);
IF v_report_message is not null then
v_rep_status := report_object_status(v_report_message);
WHILE v_rep_status in (\'RUNNING\',\'OPENING_REPORT\',\'ENQUEUED\')LOOP
v_rep_status := report_object_status(v_report_message);
END LOOP;
IF upper(v_rep_status)=\'FINISHED\' then
v_report_message := substr(v_report_message,instr(v_report_message,\'_\',1)+1);
web.show_document(vp_repn_url,\'_blank\');
-- web.show_document(\'http://neverland/dev60cgi/rwcgi60.exe/getjobid=\'||v_report_message||\'?server=\'||p_reportserver,\'_blank\');
ELSE
message (v_rep_status||\'- Report output aborted \'||sqlerrm);
pause;
END IF;
END IF;
END;

espero que te de una idea

suerte

art- duro
13 de Septiembre del 2005
muchas gracias por la ayuda, me queda una duda al respecto, el reporte que se ejecuta esta en rdf o com debe de estar guardado para poder pasarlo a pdf?

de antemano muchas gracias por la ayuda, me va a servir muchisimo