PDF reports and forms11g, Weblogic, call report from form, parameters

Question

Hi All.
I had difficulty to put to work reports 11g on pdf format. this is how I solve it.
I hope help any of you and also anyoe can correct me if Im wrong.
1. I have installed an configured the weblogic server 10.3.3, also Forms, Reports, Portal, Discoverer 11.1.1.3.0 and database 11.2
2. I re-compiled my forms and reports 10gR2 on 11g, also the pll libraries.
3. This is how I call the report from my form, I add parameters to a parameter list called PL then invoke the rp2rro prucedure that is located at rp2rrp.pl library:
PL := create_parameter_list(TDATA);
add_parameter(PL,'PARAMFORM',TEXT_PARAMETER,'NO');
add_parameter(PL,'ORIENTATION',TEXT_PARAMETER,'PORTRAIT');
add_parameter(PL,'EMPRESA',TEXT_PARAMETER,:GLOBAL.COMPANY);
add_parameter(PL,'NB_EMPRESA',TEXT_PARAMETER,:GLOBAL.COMPANYNAME);
add_parameter(PL,'DESFORMAT',TEXT_PARAMETER,:CG$CTRL.DESFORMAT);
rp2rro.SETREPORTSSERVER(:GLOBAL.REPORTSERVER);
add_parameter(PL,'SESION',TEXT_PARAMETER,TO_CHAR(SESION));
Add_Parameter(pl, 'DESTYPE', TEXT_PARAMETER, 'SCREEN');
rp2rro.rp2rro_run_product(REPORTS, :CG$CTRL.REPORT_TYPE, SYNCHRONOUS, RUNTIME, FILESYSTEM, PL, NULL);
destroy_parameter_list(PL);
4. when pr2rro gets the parameter list (PL) did not find the Desformat parameter that I sent from the form. so I edit the pr2rro.pll library. this is the zone of the code edited:
(just added the number var "Desfn" that the get_parameter_attr() will need above.
PACKAGE BODY rp2rro IS
     /* Package variables */
rp2rroDesformat varchar2(30);
     rp2rroDesname varchar2(200);
     rp2rroDestype varchar2(30);
     rp2rroReportOther varchar2(2000):='';
rp2rroComm_mode number := Synchronous;     
     rp2rroReportServer varchar2(100);
     rp2rroVirtualDir          varchar2(100);
rp2rroReportsInterface varchar2(30);
/* this line by ingenio*/
     Desfn                    number;     
5. a couple of lines above, you can find this:
(here I added get_parameter_attr(mparamlist_id,'DESFORMAT',Desfn,rp2rroDesformat); to asign the value of the parameter called Desformat to the rp2rroDesformat var)
PROCEDURE rp2rro_run_product(product NUMBER,reportFile VARCHAR2,commMode NUMBER,engine NUMBER,fileLocation NUMBER,mparamlist_id ParamList,display VARCHAR2) IS
BEGIN
     /* Handle only calls to Reports */
     /* this line by ingenio*/      
get_parameter_attr(mparamlist_id,'DESFORMAT',Desfn,rp2rroDesformat);           
          IF product = REPORTS THEN     
          Handle_rp2rro_run_product(product, reportFile,commMode,engine,fileLocation,mparamlist_id);
          END IF;
END;
Its now working fine with PDF, RTF, HTML, Delimited formats, Not with EXCEL(spreadsheet) Im working in that.
I accept any help.
Thanlks
Edited by: Ingenio on Nov 29, 2011 2:44 PM

Answer 1

I solved my problem editing the rp2rro.pll library,I debugged the library and I found the format sent by forms was missing, so I catch it and set it directly:
GET_PARAMETER_ATTR(mparamlist_id, 'DESFORMAT',vnumb,vvalue);
               setDesformat (vvalue);