限定只能对批准的供应商列表进行查询代码,OracleEBS代码库,德仔网

代码语言

代码分类

【OracleEBS】限定只能对批准的供应商列表进行查询

作者:Dezai.CN / 发布于2013/3/1/ 2218


	procedure pre_form(event in varchar2) is
	begin

	 if (event = 'PRE-FORM') then
	 fnd_standard.form_info('$Revision: 115.110.11510.3 $', 'Approved Supplier List', 'PO',
	 '$Date: 2004/11/11 17:29 $', '$Author: vpawar $');


	
	 app_standard.event('PRE-FORM');
	 app_window.set_window_position('ASL', 'FIRST_WINDOW');

	 /*Mdas, 3/5/97, Bug# 458594, opening the form in Query_only mode when called from
	 summary form.
	 */

	 if name_in('PARAMETER.P_MODE') = 'VIEW_ONLY' then
	 app_form.query_only_mode;
	 end if;

	 /* Pop the org picker so the user can specify the working
	 ** org for this form. Do not let the user exit without
	 ** choosing an org (so not pass any arguments; default is FALSE).
	 **
	 ** MDAS, 3/5/97, bug# 458594, don't choose the org if form is opened
	 ** as query only.
	 */

	 if name_in('PARAMETER.QUERY_ONLY') != 'YES' then
	 fnd_org.choose_org;
	 end if;

	 else
	 app_exception.invalid_argument('asl_init.pre_form',
	 'EVENT', event);
	 end if;
	end pre_form;
	--------------------------------------------
	PROCEDURE query_only_mode IS
	 blockname VARCHAR2(30);
	 formname VARCHAR2(30);
	 basetable VARCHAR2(80);
	 BEGIN
	 COPY('Entering app_form.query_only_mode.','global.frd_debug');
	 copy('YES', 'parameter.query_only');
	 app_menu.set_prop('FILE.SAVE', enabled, property_off);
	 app_menu.set_prop('FILE.ACCEPT', enabled, property_off);
	 formname := Name_In('system.current_form');
	 blockname := Get_Form_Property(formname, FIRST_BLOCK);
	 while (blockname is not null) loop
	 if (Get_Block_Property(blockname, BASE_TABLE) is not NULL) then
	 Set_Block_Property(blockname, INSERT_ALLOWED, PROPERTY_FALSE);
	 Set_Block_Property(blockname, UPDATE_ALLOWED, PROPERTY_FALSE);
	 Set_Block_Property(blockname, DELETE_ALLOWED, PROPERTY_FALSE);
	 end if;
	 blockname := Get_Block_Property(blockname, NEXTBLOCK);
	 end loop;
	 COPY('Completed app_form.query_only_mode.','global.frd_debug');
	 END query_only_mode;

	END app_form;

试试其它关键字

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)