1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
PROCEDURE Run_Etat (Nom_Etat VarChar2) IS
Mess Varchar2(50);
Wannee Number ;
Wan_cour Number ;
listid paramlist;
RepObjID REPORT_OBJECT;
l_Job VARCHAR2(300);
rep_status varchar2(40) ;
ipadress varchar2(15) default '';
the_Server_Url varchar2(200) default '';
BEGIN
select SYS_CONTEXT('USERENV','IP_ADDRESS') into ipadress from dual;
the_Server_Url := 'http://' || ipadress || ':8888/reports/rwservlet/getjobid';
Set_Application_Property(Cursor_Style, 'BUSY');
-- Determination de l etat à executer : nom etat = nom bouton
-- Construction de la liste des params
ListId := Get_Parameter_List('tempdata');
IF NOT Id_Null(ListId) THEN
Destroy_Parameter_List(ListId);
END IF;
listid := Create_Parameter_List('tempdata');
-- Add_Parameter(listid, 'paramform', TEXT_PARAMETER, 'no');
Add_Parameter(listid, 'p_cpte', TEXT_PARAMETER,:abonne_sms.code_compte);
RepObjID := FIND_REPORT_Object(Nom_etat);
l_Job := RUN_REPORT_OBJECT(RepObjID,ListID);
rep_status := REPORT_OBJECT_STATUS(l_Job) ;
the_Server_Url := the_Server_Url ||substr(l_Job,instr(l_Job,'_',-1)+1)||'?'||'server=repbiatnet';
If rep_status = 'FINISHED' then
the_Server_Url := the_Server_Url ||substr(l_Job,instr(l_Job,'_',-1)+1)||'?'||'server=repbiatnet';
WEB.SHOW_DOCUMENT(the_Server_Url ,'_blank');
else
message('Error when running report.');
end if;
Destroy_Parameter_List(listid);
Set_Application_Property(Cursor_Style, 'DEFAULT') ;
END; |
Partager