EBS 个性化：Custom.pll修改标准Form的LOV

例：修改采购订单的供应商LOV
Sample Code:

package body aa_custom is procedure event(event_name varchar2) is form_name  varchar2(30) := name_in('system.current_form');block_name varchar2(30) := name_in('system.cursor_block');  item_name  varchar2(30) := name_in('system.cursor_item'); begin if event_name = 'WHEN-NEW-FORM-INSTANCE' thenif form_name = 'POXPOEPO' and  block_name = 'PO_HEADERS' and item_name = 'O_HEADERS.VENDOR_NAME' thenset_po_vendor_lov;end if;end if;end event; procedure set_po_vendor_lov is l_query_string           varchar2(2000); l_customer_group_id recordgroup; l_temp_id                 number; l_customer_lov         lov;begin if name_in('system.cursor_item') = 'PO_HEADERS.VENDOR_NAME' then l_query_string := 'SELECT DISTINCT pov.vendor_name, pov.segment1FROM po_vendors              pov WHERE pov.enabled_flag        = "Y" ' ;if not id_null(find_group('CUX_SUPPLIER_NAME')) then delete_group('CUX_SUPPLIER_NAME'); end if; l_customer_group_id := create_group_from_query('CUX_SUPPLIER_NAME', l_query_string); set_lov_property('SUPPLIER_NAME', GROUP_NAME, 'CUX_SUPPLIER_NAME');end if; end set_po_vendor_lov;end aa_custom;

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！