Calling report from form and after parameter form trigger

Question

Hi, I've also posted to this to the reports forum but because it works from Reports Builder it may be a forms issue which is why I'm x-posting. Apologies.
I have a report that creates a file, desname is set in the after parameter form trigger (it uses one of the parameter values).
The problem is file is not created using the path and filename set in the trigger, the file is created in the bin folder with the name account_by_service_type.txt (account_by_service_type.rdf is the report definition).
If the desname is set in the before parameter form AND a field with the source=desname is added to the parameter form then the file will be created with the correct path and name however it won't have the relevant parameter incorporated into the file name obviously.
I've noticed in other reports that where the desname is being set in the after parameter form that I've had to pass the desname from the form but obviously I cannot do that here either.
Am I missing something obvious?
Regards
Sean

Answer 1

Hi Frank,
It's WebForms. Below is the code:
-- call from menu item
run_report_object_proc(TRUE,'accounts_by_service_type.RDF',null,FILE,'delimited','paramform=yes');
-- run_report_0bject procedure
PROCEDURE run_report_object_proc (p_screen IN BOOLEAN,
                    p_report_filename IN VARCHAR2,
                    p_desname IN VARCHAR2,
                    p_destype IN NUMBER,
                    p_desformat IN VARCHAR2,
                    p_paramform IN VARCHAR2)IS
v_report_id     report_object;
v_report     varchar2(100);
v_job_id     varchar2(100);
v_url          varchar2(1000);
rep_status     varchar2(20);
hidden_action     VARCHAR2(2000)     :='';
BEGIN
v_report_id := find_report_object( 'report2');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_FILENAME,p_report_filename);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESNAME,p_desname);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,p_destype);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,p_desformat);
hidden_action := hidden_action||'&report='||GET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_FILENAME);
hidden_action := hidden_action||'&destype='||GET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_DESTYPE);
hidden_action := hidden_action||'&desformat='||GET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_DESFORMAT);
hidden_action := hidden_action||'&userid='||GET_APPLICATION_PROPERTY(username)||'/'||GET_APPLICATION_PROPERTY(password)||'@'||GET_APPLICATION_PROPERTY(connect_string);
if p_desname is not null then
hidden_action := hidden_action||'&'||p_paramform||'&desname='||p_desname;
else
hidden_action := hidden_action||'&'||p_paramform;
end if;
hidden_action := '/reports/rwservlet?_hidden_server=rserv1'||hidden_action;
SET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_OTHER, 'pfaction='||hidden_action||' '||p_paramform);
-- SET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_OTHER, 'paramform=no');
v_report := run_report_object( v_report_id);
IF p_screen THEN
     v_job_id := substr(v_report,instr(v_report,'_',-1)+1);
rep_status:=report_object_status(v_report);
while rep_status in ('RUNNING', 'OPENING_REPORT', 'ENQUEUED')
loop
     rep_status:=report_object_status(v_report);
end loop;
if rep_status='FINISHED' THEN
     v_url := '/reports/rwservlet/getjobid'||v_job_id||'?server=rserv1';
          web.show_document(v_url,'_blank');
else
     message(rep_status||' error running report');
end if;     
end if;
END;
-- report after parameter form trigger
function AfterPForm return boolean is
begin
:desname := 'c:\service_type_'||:p_service_type||'_'||to_char(sysdate,'DDMMYYYY')||'.xls';
return (TRUE);
end;