llamar un reporte desde un boton de un form

hola.
estoy usando form y report 6i y oracle 10g xe.

mi primera pregunta e sla siguiente, tengo un reporte sencillo de una tabla sin parametros ni nada.
cuando le doy ejecutar solo se me ejecut en esta ventana
[url=http://img225.imageshack.us/i/32146857.png/]http://img225.imageshack.us/i/32146857.png/[/url]
y la verdad no se si es la forma correcta, el me muestra todos los datos y eso
alguien porfa me diga si esta bien.

mi segunda pregunta es como agrego ese reporte a un form para llamarlo desde un boton.
he buscado en internet y encontre este codigo. mi reporte se llama ‘MODULE1’

[b]repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status Varchar2(20);
–parametros Paramlist;
–elemento Item;
BEGIN
repid := find_report_object(‘REPORTE_EMPLEADOS’);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,’paramform=yes’);
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,’html’);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,’rep_rrhh’);
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://rrhh.dri.eeasa.com:8889/reports/rwservlet/getjobid’||substr(v_rep,instr(v_rep,’_’,-1)+1)||’?’||’server=rep_rrhh’,’_blank’);
Else
message(‘error en la ejecución’);
end if;
END;[/b]

pero la verdad no entiendo mucho, no se cual es el nombre de mi server ni tampoco se que hay que poner en web.show.

Para que sepan mi form no se ejecutan en ningun browser , se ejecutan ahi mismo en el form builder.

Muchas gracias por su atencion

Re: llamar un reporte desde un boton de un form -hernandoabril
  message('Procesando…',ACKNOWLEDGE);
    synchronize;
    pl_id := Get_Parameter_List('parametros');
    IF NOT Id_Null(pl_id) THEN
        Destroy_Parameter_List( pl_id );
    END IF;
    pl_id := Create_Parameter_List('parametros');
    Add_Parameter(pl_id, 'PARAMFORM',            TEXT_PARAMETER, 'NO');
    Add_Parameter(pl_id, 'P_USUARIO',            TEXT_PARAMETER, USER);
    Add_Parameter(pl_id, 'desformat',            TEXT_PARAMETER, 'wide180');
    Add_Parameter(pl_id, 'destype',              TEXT_PARAMETER, 'Screen');
—    Add_Parameter(pl_id, 'P_EMP_ENTREGA',           
–TEXT_PARAMETER, :empleado.emp_nombre);
    /*Add_Parameter(pl_id, 'mode',                      TEXT_PARAMETER, 'Character');
    Add_Parameter(pl_id, 'pagesize',                  TEXT_PARAMETER, '132 x 512');
    */
–Esta es la linea de codigo que llama al reporte
    RUN_PRODUCT (REPORTS, 'NOMBRE_DEL_REPORTE', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);
    –synchronize;

Leave a Reply