O meu relatorio esta construido da seguinte forma:
SELECT DISTINCT U.UNID_NOME_FANTASIA, DRH.FUN_NOME, E.ESPE_NOME,
TO_CHAR(A.AGENDA_DATA, 'DD/MM/YYYY') data_agenda, (SUBSTR(A.AGENDA_HORA, 1, 2)||':'||SUBSTR(A.AGENDA_HORA, 3, 4)) agenda,
PAC.PACI_NOME, DR.DOEN_SIGLA,
A.ATAM_NUMERO_ATENDIMENTO_A||'/'||A.ATAM_ANO_ATENDIMENTO atendimento, DECODE(A.AGENDA_ATIVO, 'S', 'Ativa', 'N', 'Suspenso', 'E', 'Excluído') situacao
FROM AGENDA A, UNIDADES U, PACIENTES PAC, PROFISSIONAIS P, SISRH.FUNCIONARIO DRH, ESPECIALIDADES E, DOENCAS_REFERENCIADA DR
WHERE (A.PROF_CODIGO = TO_CHAR(:p_medic, '9999')
AND A.UNID_CODIGO = TO_CHAR(:p_unid '999999999999')
AND A.AGENDA_DATA = TO_DATE(:p_data ', 'dd/mm/yyyy'))
AND ((A.PACI_MATRICULA = PAC.PACI_MATRICULA(+))
AND (A.PROF_CODIGO = P.PROF_CODIGO)
AND (P.PROF_CNS = DRH.FUN_CNS_PROF)
AND (A.ESPE_CODIGO = E.ESPE_CODIGO)
AND (DR.DOEN_CODIGO = A.AGENDA_SIGLA)
AND (U.UNID_CODIGO = A.UNID_CODIGO))
Quando eu rodo ele dentro do report builder ele funciona normalmente chamando os parametros. Até ai tudo bem.
Depois dele pronto eu precisso passar o parametro para ele a partir do forms builder, é ai que esta o problema como eu faco isso, estou tentando fazer da seguinte forma.
Criei um Bloco de Dados chamado Bloco com 3 itens(txt_Unidade,txt_dtAgenda||,txt_medico) para passar o valor dos parametros.
No botao Imprimir eu coloco o seguinte codigo:
declare
report_id Report_Object;
ReportServerJob VARCHAR2(1000);
BEGIN
report_id:= find_report_object('REL_Agenda');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,'Server');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,printer);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'P_MEDIC='||:bloco.txt_dtAgenda||' paramform=yes');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'P_Unidade='||:bloco.txt_Unidade||' paramform=yes');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'P_Medic='||:bloco.txt_medico||' paramform=yes');
ReportServerJob:=run_report_object(report_id);
END;
E quando eu vou executar o relatorio ele trava parece que esta sem comunicaçao com os parametros do relatorio que esta no Forms Report
Como eu faço para passar parametros utilizando o Run_report_object?