PROCEDURE CALL_REPORT(REP_NAME IN VARCHAR2) IS
Report_Id report_object;
REP varchar2(255);
V_DT_INI VARCHAR2(8);
V_DT_FIM VARCHAR2(8);
begin
SELECT TO_CHAR(LAST_DAY(MAX(DT_INI_VIG)), 'DDMMYYYY'), TO_CHAR(LAST_DAY(MAX(DT_INI_VIG)), 'DDMMYYYY')
INTO V_DT_INI , V_DT_FIM
FROM VALORES_DIVERSOS
WHERE TVD_COD = 25;
report_id:= FIND_REPORT_OBJECT(REP_NAME);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE, SYNCHRONOUS );
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE ,runtime );
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE ,file );
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT ,'pdf' );
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESNAME ,'L:\ADRH\FORMS_DESENVOLVIDOS\TESTE\FORM_REP\'||REP_NAME||'.PDF');
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_SERVER ,'rep_recw2k31');
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_otheR ,
'EMP_INI=' || 1 || ' EMP_FIM=' || 1 ||
' FIL_INI=' || 1 || ' FIL_FIM=' || 99999 ||
' CHAPA_INI=' || 1 || ' CHAPA_FIM=' || 9999999999 ||
' DT_INI=' || V_DT_INI || ' DT_FIM=' || V_DT_FIM ||
' CCUSTO_INI=' || 1 || ' CCUSTO_FIM='|| 9999999999 ||
' UNEG_INI=' || '01' || ' UNEG_FIM=' || '99' ||
' REG_INI=' || 1 || ' REG_FIM=' || 99 ||
' CJCA_INI=' || 1 || ' CJCA_FIM=' || 99999 ||
' PENS_INI=' || 1 || ' PENS_FIM=' || 9999999 ||
' CHAPA_S_N=' || 'SIM' ||
' CJCA_S_N=' || 'não' ||
' CATSALARIAL=' || 'TO' ||
' AFASTAMENTO=' || 'NA' ||
' SITUACAO=' || 'NA' ||
' DEMITIDO=' || 'não IMPORTA' ||
' TOTAL=' || 'não' ||
' CAL_VAR=' || 'MC' ||
' CHAPA_NOME=' || 'MATRICULA' ||
' CCUSTO_S_N=' || 'não' ||
' UNID_NEG_S_N='|| 'não' ||
' IMPR_REG=' || 'não' ||
' PENS_S_N=' || 'SIM' ||
' PARAFORM=NO' );
REP := RUN_REPORT_OBJECT(report_id);
END;
Criei um objeto no Navigator especificando o caminho e o nome do relatório e no
WHEN-BUTTON-PRESSED
chamei esta procedure passando o nome do objeto que criei no Navigator...Quando vou executar o form na aplicação ocorre o erro:
FRM-41214: UNABLE TO RUN REPORT