Dynamic attach RTF in AfterReport Trigger

Question

Hi all,
I have a concurrent program where i want in runtime to attach RTF template based on some logic. I placed my code in After Report Trigger but i receive error when submitting the concurrent request:
REP-1401: 'afterreport': Fatal PL/SQL error occurred.
ORA-06503: PL/SQL: Function returned without valueI checked the code and i see no reason of getting this error.
The executable of my Report is "Oracle Reports" and the output format is XML.
Here is the code of the trigger:
function AfterReport return boolean is
v_set_layout_option boolean;
v_conc_request_id number;
v_printer_name varchar2(100);
v_printer boolean;
v_template_name varchar2(100);
v_invoice_type ra_cust_trx_types_all.type%type;
v_batch_source_name varchar2(100);
begin
     dbms_application_info.set_client_info(:P_ORG_ID);
     select
               type, rbsa.name
     into
               v_invoice_type, v_batch_source_name
      from
            ra_customer_trx_all ra_ctp
           ,ra_cust_trx_types_all ra_cty
           ,ra_batch_sources_all rbsa
      where ra_ctp.customer_trx_id = :p_customer_trx_id
           and ra_ctp.cust_trx_type_id = ra_cty.cust_trx_type_id
           and ra_ctp.org_id = ra_cty.org_id
           and  rbsa.BATCH_SOURCE_ID = ra_ctp.BATCH_SOURCE_ID
           and ra_ctp.org_id = rbsa.org_id
v_template_name :=
        case
            when v_invoice_type = 'INV'         then 'XX_AR_INVOICE_CURR'
            when v_invoice_type = 'CM'          then 'XX_AR_INVOICE_CURR_CR'
            when v_invoice_type = 'DM'          then 'XX_AR_INVOICE_CURR_DEBIT'
            when v_invoice_type = 'PROFORMA'    then 'XX_AR_INVOICE_CURR_PROFORMA'
            when v_invoice_type = 'INVALIDATE'  then 'XX_AR_INVOICE_CURR_INVAL'
            when v_invoice_type = 'MONTHLY'     then 'XX_AR_INVOICE_CURR_MONTHLY'
                    end;
v_set_layout_option := apps.fnd_request.add_layout(      template_appl_name => 'AR' --application
                                             ,template_code => v_template_name
                                             ,template_language => 'en'
                                             ,template_territory => 'US'
                                             ,output_format => 'PDF');
     begin
     select printer_name
          into v_printer_name
     from fnd_concurrent_programs
          where CONCURRENT_PROGRAM_NAME = 'XX_AR_INVOICE_CURR';
     exception
          when others then
     null;
     end;
     if v_printer_name is not null then
          v_printer := fnd_request.set_print_options(v_printer_name,
                                             null,
                                             1, -- no of copies
                                             TRUE,
                                             'N');
     end if;
exception when others then return (false);
  return (TRUE);
end;Version:Report Builder 10.1.2.2.0
Oracle Database 11g Enterprise Edition Release 11.1.0.7.0 - Production
PL/SQL Release 11.1.0.7.0 - Production
"CORE     11.1.0.7.0     Production"
TNS for Linux: Version 11.1.0.7.0 - Production
NLSRTL Version 11.1.0.7.0 - ProductionAny ideas?
Thanks in advance,
Bahchevanov.
Edited by: bahchevanov on Dec 27, 2011 7:27 AM
Edited by: bahchevanov on Dec 27, 2011 7:28 AM

Answer 1

Solved! It seems that is impossible to attache template runtime via Report Builder(or it is...). So i made a new concurrent program with executable - PL/SQL Stored Procedure where i submit the request i want and attach an appropriate RTF file. Here is my procedure:
procedure submit_XX_AR_INVOICE_CURR(ERRBUF OUT varchar2, RETCODE OUT number, p_customer_trx_id number ) as
    v_rid number;
    v_org_id number;
    call_status          BOOLEAN;
    request_phase     VARCHAR2(30);
    request_status     VARCHAR2(30);
    dev_request_status     VARCHAR2(30);
    dev_request_phase     VARCHAR2(30);
    request_status_mesg     VARCHAR2(255);
    v_invoice_type ra_cust_trx_types_all.type%type;
    v_report_short_name varchar2(100);
    v_batch_source_name varchar2(100);
    check_status boolean;
    v_set_layout_option boolean;
    lv_document_type varchar2(10 char);
    lv_org_id varchar2(10 char);
    lv_tax_code varchar2(10 char);
    v_template_name varchar2(50 char);
  begin
    select type, rbsa.name
      into v_invoice_type, v_batch_source_name
      from ra_customer_trx_all ra_ctp
      join ra_cust_trx_types_all ra_cty on ra_ctp.cust_trx_type_id = ra_cty.cust_trx_type_id and ra_ctp.org_id = ra_cty.org_id
      join ra_batch_sources_all rbsa on rbsa.BATCH_SOURCE_ID = ra_ctp.BATCH_SOURCE_ID and ra_ctp.org_id = rbsa.org_id
     where ra_ctp.customer_trx_id = p_customer_trx_id
    SELECT FND_PROFILE.VALUE('ORG_ID') INTO lv_org_id FROM dual;
v_template_name :=
        CASE
            WHEN v_invoice_type = 'INV'         THEN 'XX_AR_INVOICE_CURR'
            WHEN v_invoice_type = 'CM'          THEN 'XX_AR_INVOICE_CURR_CR'
            WHEN v_invoice_type = 'DM'          THEN 'XX_AR_INVOICE_CURR_DEBIT'
            WHEN v_invoice_type = 'PROFORMA'    THEN 'XX_AR_INVOICE_CURR_PROF'
            WHEN v_invoice_type = 'INVALIDATE'  THEN 'XX_AR_INVOICE_CURR_INVAL'
            WHEN v_invoice_type = 'MONTHLY'     THEN 'XX_AR_INVOICE_CURR_MONTH'
        END;
v_report_short_name := 'XX_AR_INVOICE_CURR';
    v_set_layout_option := apps.fnd_request.add_layout(template_appl_name => 'AR' --application
                                                      ,template_code => v_template_name -- template_name from XML_Publisher
                                                      ,template_language => 'en' -- ISO format
                                                      ,template_territory => 'US' -- ISO format
                                                      ,output_format => 'PDF'); -- PDF, EXCEL, RTF
    v_rid := fnd_request.submit_request('AR' -- application
                                       ,v_report_short_name -- program name ( GL interface)
                                       ,'Печат' -- description
                                       ,sysdate -- start time
                                       ,FALSE -- sub request
                                       ,p_customer_trx_id
                                       ,lv_org_id
                                       ,chr(0)
    if nvl(v_rid,0) = 0 then
      errbuf := sqlerrm;
      RETCODE := 2;
    end if;
    commit;
    check_status := FND_CONCURRENT.WAIT_FOR_REQUEST(v_rid
                                                   ,2
                                                   ,0
                                                   ,request_phase
                                                   ,request_status
                                                   ,dev_request_phase
                                                   ,dev_request_status
                                                   ,request_status_mesg);
    if (dev_request_phase != 'COMPLETE' or dev_request_status != 'NORMAL') then
      dbms_output.put_line(dev_request_phase || ' -- ' || dev_request_status);
      errbuf := sqlerrm;
      RETCODE := 2;
    end if;
    dbms_output.put_line('v_rid :' || v_rid);
end submit_XX_AR_INVOICE_CURR;Best Regards,
Bahchevanov.