OraFAQ Forum: Forms » FRM-41211

Home » Developer & Programmer » Forms » FRM-41211 (Database 9i, Developer Suit 10g on Microsoft Windows XP Professional version 2002 with Service Pack-3)

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

FRM-41211 [message #492403]

Mon, 31 January 2011 00:14

irfanshamim
Messages: 4
Registered: January 2011
Location: Karachi

Junior Member

I have to call a report from form, but I am still having error as FRM-41211 Integration Error:SSL failure running anoher product.

Here is my Code written on "When Button Pressed"

declare
connection_id EXEC_SQL.CONNTYPE;
cursorID EXEC_SQL.CURSTYPE;
sqlstr VARCHAR2(1000);
nIgn PLS_INTEGER;
a number;

report_id REPORT_OBJECT;
v_report_other VARCHAR2(4000);
rep_status VARCHAR2(20);
rep_serv varchar2(200);

begin
report_id := FIND_REPORT_OBJECT('km_report');

if :DEPTNO is null then
message('First fill all the parameters then click run report');
else

connection_id := EXEC_SQL.DEFAULT_CONNECTION;
cursorID := EXEC_SQL.OPEN_CURSOR(connection_id);

v_report_other := 'paramform=no DEPTNO=' || :DEPTNO;

run_report_object_proc(report_id,rep_serv,'html',cache,'DEPART.rdf',v_report_other,'/reports/rwservlet');

end if;

exception when others then RETURN;
end;

and also a procedure which is as:

PROCEDURE run_report_object_proc(report_id REPORT_OBJECT,
report_server_name varchar2,
report_format varchar2,
report_destype_name number,
report_file_name varchar2,
report_otherparam varchar2,
reports_servlet varchar2
) IS

report_message VARCHAR2(100) :='';
rep_status VARCHAR2(100) :='';
vjob_id VARCHAR2(4000) :='';
hidden_action VARCHAR2(2000) :='';
v_report_other VARCHAR2(4000) :='';
i number (5);
c char;
c_old char;
c_new char;
sso_user VARCHAR2(100);

BEGIN

-- setting Reports runtime parameters
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,report_file_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,report_server_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,report_destype_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,report_format);
-- creating string for pfaction parameter
hidden_action := hidden_action ||'&report=' ||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME);
hidden_action := hidden_action ||'&destype='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE);
hidden_action := hidden_action ||'&desformat='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT);

sso_user := get_application_property(sso_userid);
IF (length(sso_user) > 0) THEN
-- sso is used
hidden_action := hidden_action||'&ssoconn='||'';
ELSE
-- no sso
hidden_action := hidden_action ||'&userid='||get_application_property(username)||'/'||get_application_property(password)||'@' ||get_application_property(connect_string);
END IF;
-- c_old is initialized with a dummy value
c_old :='@';

FOR i IN 1..LENGTH(report_otherparam) LOOP
c_new:= substr(report_otherparam,i,1);
IF (c_new =' ') THEN
c:='&';
ELSE
c:= c_new;
END IF;
-- eliminate multiple blanks
IF (c_old =' ' and c_new = ' ') THEN
null;
ELSE
v_report_other := v_report_other||c;
END IF;
-- save current value as old value
c_old := c_new;
END LOOP;

hidden_action := hidden_action ||'&'||v_report_other;

hidden_action := reports_servlet||'?_hidden_server='||report_server_name||encode(hidden_action);
-- Set pfaction to the report

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'pfaction='||hidden_action ||' '||report_otherparam);

report_message:= run_report_object(report_id);
rep_status := report_object_status(report_message);

IF rep_status='FINISHED' THEN
vjob_id := substr(report_message,length(report_server_name)+2,length(report_message));
WEB.SHOW_DOCUMENT(reports_servlet||'/getjobid'||vjob_id);
ELSE
--handle errors
message ('Error');
END IF;

END;

can any one guide in this regard,

Thanks in advance.

Report message to a moderator