75 lines
3.3 KiB
Plaintext
75 lines
3.3 KiB
Plaintext
CREATE OR REPLACE PACKAGE BODY EFT_NOM.amut_adhoc IS
|
|
/**
|
|
#############################################################################
|
|
# #
|
|
# Package: geco_reporting #
|
|
# #
|
|
# Application System: General #
|
|
# #
|
|
# Creation Date: 29/08/2003 #
|
|
# #
|
|
# Author: Oracle Team, Advantica Ltd #
|
|
# #
|
|
# Purpose: A flexible reporting infrastructure providing output #
|
|
# in HTML #
|
|
# #
|
|
# Dependancies: Reporting Schema as defined in Designer #
|
|
# #
|
|
# Header Information: $Header: /Isle Of Grain/database/PLSQL/geco_reporting.pck 1 7/01/05 12:54 Gilberta $ #
|
|
# #
|
|
# Revision: $Revision: 1 $ #
|
|
# #
|
|
# ? Advantica Ltd, 2003 #
|
|
#############################################################################
|
|
*/
|
|
--
|
|
PROCEDURE reporting IS
|
|
--
|
|
l_url VARCHAR2(1000);
|
|
--
|
|
BEGIN
|
|
--
|
|
IF caco_security.security_check(g_package_name || '.reporting') THEN
|
|
--
|
|
wsgl.openpagehead('Reporting');
|
|
wsgl.metatag;
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><LINK REL=stylesheet HREF="caco_system.css?p_type=content" >');
|
|
wsgl.closepagehead;
|
|
wsgl.openpagebody(FALSE);
|
|
htp.p(caco_system.menu);
|
|
--
|
|
l_url := cout_system_configuration.get_configuration_item('G_ADHOC_URL');
|
|
--
|
|
IF LOWER(l_url) LIKE '%login.jsp' THEN
|
|
--
|
|
FOR i IN ( SELECT LOWER(SUBSTR(sypr.name,8,2)) AS rt
|
|
FROM system_profiles sypr
|
|
,user_profiles uspr
|
|
WHERE uspr.sypr_id = sypr.sypr_id
|
|
AND uspr.syus_id = caco_utilities.get_syus_id
|
|
AND LOWER(sypr.name) LIKE 'report-%'
|
|
ORDER BY SUBSTR(sypr.name,8,2) DESC ) LOOP
|
|
--
|
|
l_url := l_url || '?id=forecaster'||i.rt||'&passwd=qwe123'||i.rt||'&submit=Sign In';
|
|
EXIT;
|
|
--
|
|
END LOOP;
|
|
--
|
|
END IF;
|
|
--
|
|
htp.p('<IFRAME id="myiframe" SRC="'||l_url||'" TITLE="Reporting" WIDTH=100% HEIGHT=100% FRAMEBORDER=0></IFRAME>');
|
|
--
|
|
END IF;
|
|
--
|
|
END reporting;
|
|
--
|
|
BEGIN
|
|
--
|
|
-- Package Initialization
|
|
--
|
|
NULL;
|
|
--
|
|
END amut_adhoc;
|
|
/
|
|
|