ayuda con reports 10

angelus80
16 de Diciembre del 2005
hola, he creado un informe y me gustaria lanzarlo desde forms, por ahora estoy haciendo pruebas y no hay manera de sacarlo por pantalla, ni de imprimirlo, aunque si puedo crear un fichero pdf. os pongo lo que he echo.
he creado un servidor con
rwserver - install informes autostart yes
con lo que ya me aparece el rwserver funcionando
he creado el report,
he añadido el report prueba.rdf al arbol del forms con el nombre de prueba.
y en el boton lanzar he añadido el siguiente codigo:
DECLARE
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status Varchar2(20);
BEGIN
repid := find_report_object('PRUEBA');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,BATCH);
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_SERVER,'informes');
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('/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=rwserver','_blank');
end if;
end;



alguien puede ayudarme