git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493

This commit is contained in:
andrew.gilmore
2012-03-19 11:57:19 +00:00
parent 2a0f4900c3
commit 0e9ca75d77
1587 changed files with 500863 additions and 0 deletions

View File

@@ -0,0 +1,74 @@
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;
/