45 lines
1.6 KiB
Plaintext
45 lines
1.6 KiB
Plaintext
create or replace package body efnow190$js$cnrl is
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Name: efnow190$js$cnrl.CreateListJavaScript
|
|
--
|
|
-- Description:
|
|
--
|
|
-- Parameters:
|
|
--
|
|
--------------------------------------------------------------------------------
|
|
procedure CreateListJavaScript (
|
|
RL_BODY_ATTRIBUTES in varchar2)
|
|
is
|
|
begin
|
|
if not caco_security.security_check('efnow190$cnrl') then
|
|
return;
|
|
end if;
|
|
|
|
htp.p(WSGJSL.OpenScript);
|
|
htp.p('var FormType = "List";');
|
|
|
|
if to_char(efnow190$cort.CURR_VAL.CNRT_ID) is not null then
|
|
htp.p( 'var P_CNRT_ID = new Array();' );
|
|
htp.p( 'P_CNRT_ID[0] = "' || WSGL.EscapeURLParam(to_char(efnow190$cort.CURR_VAL.CNRT_ID)) || '";' );
|
|
end if;
|
|
htp.p( 'var P_8 = new Array();' );
|
|
htp.p( 'P_8[0] = "' || WSGL.EscapeURLParam(nvl(to_char(efnow190$cort.CURR_VAL.CNRT_ID), '')) || '";' );
|
|
if (to_char(efnow190$cort.CURR_VAL.CNRT_ID) is not null ) then
|
|
htp.p( 'var CNRL_CHK_VALUE = new Array();' );
|
|
htp.p( 'CNRL_CHK_VALUE[0] = ' || to_char(WSGL.Checksum(''|| to_char(efnow190$cort.CURR_VAL.CNRT_ID)|| to_char(efnow190$cort.CURR_VAL.CNRT_ID))) || ';' );
|
|
end if;
|
|
|
|
htp.p( 'var P_13 = new Array();' );
|
|
|
|
htp.p(WSGJSL.CloseScript);
|
|
exception
|
|
when others then
|
|
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Log Messages#3565#',
|
|
RL_BODY_ATTRIBUTES, 'efnow190$js$cnrl.CreateListJavaScript');
|
|
end;
|
|
end;
|
|
/
|
|
|