Oracle - Ejecutar un Reporte desde un Form

 
Vista:

Ejecutar un Reporte desde un Form

Publicado por Julio (1 intervención) el 02/03/2008 07:24:32
Hola

Tengo un Form que me pide un parametro y se llena el form con los datos que quiero mediante un select, quiero que ese resultado se en vie a un archivo de texto o de lo contrario ejecute un reporte donde salgan los mismos resultados

Muchas gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ejecutar un Reporte desde un Form

Publicado por Blanca Estela (3 intervenciones) el 12/06/2008 19:09:46
DECLARE
VALOR NUMBER;
pl_id ParamList;
condicion varchar2(1000):=NULL;
error number:=null;
BEGIN

error:=valida_valores;
if error=1 then
Set_Alert_Property('Valida_Datos',Alert_Message_text,'Para enviar por Número de biopsia, El tipo de fecha,El intervalo de fecha deben de ser nulos... ');
elsif error=2 then
Set_Alert_Property('Valida_Datos',Alert_Message_text,'La fecha inicial no puede ser mayor a la fecha final ...');
elsif error=3 then
Set_Alert_Property('Valida_Datos',Alert_Message_text,'Verifique que alguna fecha no sea mayor al dia de hoy ...');
elsif error=4 then
Set_Alert_Property('Valida_Datos',Alert_Message_text,'Necesita introducir el intervalo de fechas para emitir el diagnóstico ...');
end if;
if error !=0 then
valor:=Show_Alert('Valida_Datos');
RAISE FORM_TRIGGER_FAILURE;
end if;
if (:DIAGNOSTICO IS NOT NULL AND length(:diagnostico)<4) then
begin
Set_Alert_Property('Valida_Datos',Alert_Message_text,'El Diagnostico debe ser de cuatro dijitos para codificarse...');
valor:=Show_Alert('Valida_Datos');
RAISE FORM_TRIGGER_FAILURE;
end;
end if;

condicion:=PREPARA_CONDICION;
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('tmpdata');
Add_Parameter(pl_id,'PF_etiqueta',TEXT_PARAMETER,:etiqueta);
Add_Parameter(pl_id,'PF_etiqueta2',TEXT_PARAMETER,:etiqueta2);
Add_Parameter(pl_id,'PAR_CONDICION',TEXT_PARAMETER,condicion);
Run_Product(REPORTS, '\Hgmserv01dadsRuntimePatologiaBiopsiasReportesMultiReporte.REP',ASYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
DESTROY_PARAMETER_LIST(pl_id);
END;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar