package body custom is
--
-- Customize this package to provide specific responses to events
-- within Oracle Applications forms.
--
-- Do not change the specification of the CUSTOM package in any way.
-- You may, however, add additional packages to this library.
--
--------------------------------------------------------------------
function zoom_available return boolean is
--
-- Real code starts here
--
form_name varchar2(30) := name_in('system.current_form');
block_name varchar2(30) := name_in('system.cursor_block');
begin
if (form_name = 'APXVDMVD' and block_name = 'VNDR') OR
(form_name = 'APXINWKB' and block_name = 'INV_SUM_FOLDER') --OR
THEN
return TRUE;
else
return FALSE;
end if;
end zoom_available;
--------------------------------------------------------------------
function style(event_name varchar2) return integer is
--
--
-- Real code starts here
--
begin
return custom.standard;
end style;
FUNCTION get_zoom_lov_value (i_sql_stmt IN VARCHAR2,
i_grp_name IN VARCHAR2)
RETURN VARCHAR2 IS
i_group_id RECORDGROUP;
i_outcome NUMBER ;
i_value_chosen BOOLEAN := FALSE;
l_grp_name VARCHAR2 (30);
BEGIN
i_group_id := find_group(i_grp_name);
IF id_null(i_group_id) THEN
i_group_id := create_group_from_query(i_grp_name,i_sql_stmt);
set_lov_property('APPCORE_ZOOM',GROUP_NAME,i_grp_name);
END IF;
i_value_chosen := show_lov('APPCORE_ZOOM');
IF i_value_chosen THEN
return(name_in('PARAMETER.appcore_zoom_value'));
ELSE
return(null);
END IF;
END;
--------------------------------------------------------------------
procedure event(event_name varchar2) is
--
-- Real code starts here
--
record_status varchar2(100);
form_name varchar2(30) := name_in('system.current_form');
block_name varchar2(30) := name_in('system.cursor_block');
begin
--
-- For APXINWKB enable in r12
--
IF(event_name = 'ZOOM')THEN
IF (form_name = 'APXINWKB') AND (block_name = 'INV_SUM_FOLDER') THEN
DECLARE
l_sql_stmt VARCHAR2(2000);
l_grp_name VARCHAR2(30) := 'AP_ZOOM';
l_lov_value VARCHAR2(50);
BEGIN
l_sql_stmt :=
'select user_function_name name, ' ||
'function_name value ' ||
' from fnd_form_functions_vl ' ||
' where function_name in (''PO_POXRQVRQ'',''DSDPOXPOVPO'', ''GLXIQACC'', ''XX_APXXXEER'', ''XX_APXXXEER'')';
l_lov_value := get_zoom_lov_value (l_sql_stmt,l_grp_name);
fnd_function.execute( FUNCTION_NAME=>l_lov_value,
OPEN_FLAG=>'Y',
SESSION_FLAG=>'Y',
OTHER_PARAMS=>null);
END;
END IF;
END IF;
end event;
BEGIN
--
-- You should consider updating the version information listed below as you
-- make any customizations to this library. This information will be
-- displayed in the 'About Oracle Applications' window in the Forms PL/SQL
-- section. Only change the revision, date and time sections of this string.
--
fdrcsid('$Header: CUSTOM.pld 120.0 2005/05/07 16:43:22 appldev ship $');
end custom;
