This discussion is archived
2 Replies Latest reply: Aug 29, 2013 11:33 AM by InoL RSS

Please Help!!! Why does this code work in 6i forms and doesnt work in 11g forms

davalutchi Explorer
Currently Being Moderated

I have been trying to fix this thing for weeks and for some reason I cant figure out how to get it to work.

 

This is the error codes that I am getting:

FRM-41219: Cannot find report: Invalid ID (this pop on the screen I then click ok button the next one show at the bottom of the screen)

FRM-40738: Argument 1 to builtin RUN_REPORT_OBJECT cannot be null

 

Basically this code is suppose to call a report that makes another screen pop up and show the report.

 

Here is the code behind the button on the form "Print Record".

:GLOBAL.THE_NUMBER:=:REQUEST_SEQUENCE;

IF  :REQUEST_AMOUNT<100000 THEN :TEXT_ITEM83:=:request_amount;

ELSIF :REQUEST_AMOUNT>1000000 THEN  :TEXT_ITEM83:=1;   /* I think the ELSIF should be changed to ELSE IF not sure */

END IF;

:TEXT_ITEM74:=:GLOBAL.THE_NUMBER;

THE_REP;

 

Here is the code that is behind the quere box.

 

begin

:global.qry_rep_val:=:quy_rep;

:display_item78:=:global.qry_rep_val;

if :global.qry_rep_val='3' then null;

elsif :global.qry_rep_val=1 then

run_vba_rep1;

elsif :global.qry_rep_val=2 then

run_report_for_last_query;

elsif :global.qry_rep_val =4 then   /* Yes there is a extra space inbetween the "val" and "=". Should I delete it*/

Call form('/export/home/oracle/Middleware/Oracle_FRHome1/forms/vba_tda_qry', HIDE, NO_REPLACE, QUERY_ONLY);

end if;

:qry_rep:=3;

end;

Legend

  • Correct Answers - 10 points
  • Helpful Answers - 5 points