FORM开发技术之动态控制某些item的属性

利用FORM内置函数控制ITEM包括按钮，普通ITEM等等的属性，更多内置函数学习课参考我的博客FORM内置系统函数
http://blog.csdn.net/cai_xingyun/article/details/17167189

PACKAGE BODY ROLE_CONTROL IS

  procedure set_func_role(role_name in varchar2) is --角色按钮控制

  begin

  	case upper(role_name)

  	 when 'CUSTOM' then

  	 		set_item_property('TRN_CONTROL.ADOPT_BUTTON',visible,property_false);

  	 		set_item_property('TRN_CONTROL.REJECT_BUTTON',visible,property_false);

  	 when 'MANAGER' then

				set_item_property('TRN_CONTROL.SUBMIT_BUTTON',enabled, property_false);--经理进入提交按钮设为enabled

  	 		set_item_property('TRN_CONTROL.ADOPT_BUTTON',visible,property_true);

  	 		set_item_property('TRN_CONTROL.REJECT_BUTTON',visible,property_true);

  	 else

 				FND_MESSAGE.DEBUG('ROLE_NAME 角色名 不对！');

  	end case;

  end set_func_role; 

  procedure set_func_state(role_name in varchar2,

  												 order_state in varchar2) is   --角色 + 状态 控制增删改

  begin

  	case upper(order_state)

  		when 'NEW'  then

  			if role_name = 'CUSTOM' then

  				set_item_property('TRN_CONTROL.SUBMIT_BUTTON' , enabled  , property_true);

				--2. 通过角色控制来判断块是否可以删除

					set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_true);

					set_block_property('TRN_ORDER_HEADERS',update_allowed,property_true);

					set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_true);--因为订单头的前提条件就是不能修改

					set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

					--LINES

					set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_true);

			  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_true);

			  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_true);

					set_block_property('TRN_ORDER_LINES',query_ALLOWED,property_true);

					--菜单

					menu_p.menu_off('cancel');

					menu_p.menu_off('close');

					menu_p.menu_off('out');

  			elsif role_name = 'MANAGER' then

  						set_item_property('TRN_CONTROL.ADOPT_BUTTON' , enabled  , property_false);

					  	set_item_property('TRN_CONTROL.REJECT_BUTTON' , enabled  , property_false);

						 --在新建的时候只能进行查询

							set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

							set_block_property('TRN_ORDER_HEADERS',update_allowed,property_FALSE);

							set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);

							set_block_property('TRN_ORDER_HEADERS',query_allowed,property_FALSE);

							--LINES

							set_block_property('TRN_ORDER_LINES',insert_allowed,property_false);

							set_block_property('TRN_ORDER_LINES',update_allowed,property_FALSE);

							set_block_property('TRN_ORDER_LINES',delete_allowed,property_false);

							set_block_property('TRN_ORDER_LINES',query_allowed,property_FALSE);

							--菜单

								menu_p.menu_OFF('cancel');

			      		menu_p.menu_OFF('close');

  			end if;

  		when 'SUBMITTED' then

  			if role_name = 'CUSTOM' then

  				--	fnd_message.debug('submmit');

						set_item_property('TRN_CONTROL.SUBMIT_BUTTON' , enabled  , property_false);

						set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--状态为SUBMITTED的时只能让'取消'订单有效

			      --lines

			      	--LINES

						set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

				  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

				  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

					--	set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

				  	menu_p.menu_off('close');

  			elsif role_name = 'MANAGER' then

  						set_item_property('TRN_CONTROL.ADOPT_BUTTON' , enabled  , property_true);

					  	set_item_property('TRN_CONTROL.REJECT_BUTTON' , enabled  , property_true);

					  	--

					  	set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

					  --	fnd_message.debug('update_allowed_1');

							set_block_property('TRN_ORDER_HEADERS',update_allowed,property_true);----------------------------------原为ture

						--	fnd_message.debug('update_allowed_2');

						  set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);

							--set_block_property('TRN_ORDER_HEADERS_4810_V',query_allowed,property_true);

							--	set_item_property('TRN_ORDER_HEADERS.ORDER_STATUS' , update_allowed  , property_false);

							--因为管理员可以进行备注所有把其中的一个ITEM改成可更改

						--	fnd_message.debug('VENDOR_NUMBER_update_allowed_false_1');

							set_item_property('TRN_ORDER_HEADERS.VENDOR_NUMBER' , update_allowed  , property_false);

					--		fnd_message.debug('VENDOR_NUMBER_update_allowed_false_2');

							SYNCHRONIZE;

							--set_item_property('TRN_ORDER_HEADERS_4810_V.VENDOR_NAME' , enabled  , property_false);

							set_item_property('TRN_ORDER_HEADERS.ORDER_DATE' , enabled , property_false);

							--set_item_property('TRN_ORDER_HEADERS_4810_V.ORDER_STATUS' , enabled  , property_false);--状态时在跳过来就改的，而在这里不能改。

							set_item_property('TRN_ORDER_HEADERS.ORDER_NUMBER' , enabled  , property_false);

							--set_item_property('TRN_ORDER_HEADERS_V.ORDER_NUMBER' , insert_allowed  , property_false);

						--	fnd_message.debug('DESCRIPTION_update_allowed_false_1');

							set_item_property('TRN_ORDER_HEADERS.DESCRIPTION' , enabled  , property_true);

						--	fnd_message.debug('DESCRIPTION_update_allowed_false_2');

							--set_item_property('TRN_ORDER_LINES_4810_V.TOTALMONEY' , enabled  , property_false);

							set_item_property('TRN_ORDER_HEADERS.DF' , enabled  , property_false);

				    --	set_item_property('TRN_ORDER_HEADERS_4810_V.DESCRIPTION' , enabled  , property_true);

				    		--LINES

							set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

					--		set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

				    	--菜单

				    		menu_p.menu_OFF('cancel');

			      		menu_p.menu_OFF('close');

  			end if;

  		when 'APPROVED' then

  			if role_name = 'CUSTOM' then

  					set_item_property('TRN_CONTROL.SUBMIT_BUTTON' , enabled  , property_false);

					  set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--lines

							--LINES

						set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

			  		set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

			  		set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

				--	set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

						--这个里写订单的关闭菜单

			       menu_p.menu_off('cancel');

  			elsif role_name = 'MANAGER' then

  						set_item_property('TRN_CONTROL.ADOPT_BUTTON' , enabled  , property_false);

					  	set_item_property('TRN_CONTROL.REJECT_BUTTON' , enabled  , property_false);

					  	--块只有查询

					  	set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

							set_block_property('TRN_ORDER_HEADERS',update_allowed,property_FALSE);

							set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);

							set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

							--lines

								--LINES

							set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

						--	set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

							--菜单

								menu_p.menu_OFF('cancel');

			      		menu_p.menu_OFF('close');

  			end if;

  		when 'REJECTED' then

  			if role_name = 'CUSTOM' then

  					set_item_property('TRN_CONTROL.SUBMIT_BUTTON' , enabled  , property_true);

						set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_true);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--	set_block_property('TRN_ORDER_lines_4810_V',update_allowed,property_true);

						--LINES

						set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_true);

						set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_true);

						set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_true);

						set_block_property('TRN_ORDER_LINES',query_ALLOWED,property_true);

						--写'取消，关闭'菜单

  			elsif role_name = 'MANAGER' then

  						set_item_property('TRN_CONTROL.ADOPT_BUTTON' , enabled  , property_false);

					  	set_item_property('TRN_CONTROL.REJECT_BUTTON' , enabled  , property_false);

					  	--块只能查询

					  	set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

							set_block_property('TRN_ORDER_HEADERS',update_allowed,property_FALSE);

							set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);

							set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

							--lines

								--LINES

							set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

						--	set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

							--菜单

								menu_p.menu_OFF('cancel');

			      		menu_p.menu_OFF('close');

  			end if;

  		when 'CANCELLED' then

  			if role_name = 'CUSTOM' then

  					set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--lines

							--LINES

						set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

				  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

				  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

					--	set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_true);

				    menu_p.menu_OFF('cancel');

			   		menu_p.menu_OFF('close');

  			elsif role_name = 'MANAGER' then

  					set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--lines

							--LINES

							set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

							--set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

				    menu_p.menu_OFF('cancel');

			   		menu_p.menu_OFF('close');

  			end if;

  		when 'CLOSED' then

  			if role_name = 'CUSTOM' then

  					set_item_property('TRN_CONTROL.SUBMIT_BUTTON' , enabled  , property_false);

				  	set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--lines

							--LINES

						set_block_property('TRN_ORDER_HEADERS',INSERT_ALLOWED,property_false);

				  	set_block_property('TRN_ORDER_HEADERS',UPDATE_ALLOWED,property_false);

				  	set_block_property('TRN_ORDER_HEADERS',DELETE_ALLOWED,property_false);

				   	menu_p.menu_OFF('cancel');

			   		menu_p.menu_OFF('close');

  			elsif role_name = 'MANAGER' then

  					set_block_property('TRN_ORDER_HEADERS',insert_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',update_allowed,property_false);

						set_block_property('TRN_ORDER_HEADERS',delete_allowed,property_false);--因为订单头的前提条件就是不能修改

						set_block_property('TRN_ORDER_HEADERS',query_allowed,property_true);

						--lines

							--LINES

							set_block_property('TRN_ORDER_LINES',INSERT_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',UPDATE_ALLOWED,property_false);

					  	set_block_property('TRN_ORDER_LINES',DELETE_ALLOWED,property_false);

						--	set_block_property('TRN_ORDER_LINES_4810_V',query_ALLOWED,property_false);

				   	menu_p.menu_OFF('cancel');

			   		menu_p.menu_OFF('close');

  			end if;

  	else

			GO_BLOCK('TRN_ORDER_HEADERS');

  	end case;

  end set_func_state;

END;

FORM开发技术之动态控制某些item的属性的更多相关文章

ios开发——实用技术总结Swift篇&swift常用开发技术总结
swift常用开发技术总结懒加载:属性,数组(字典),控件... 数组(懒加载): lazy var shops:Array<Dictionary<String, String>& ...
通俗易懂，什么是.NET?什么是.NET Framework？什么是.NET Core? .Net Web开发技术栈
通俗易懂,什么是.NET?什么是.NET Framework?什么是.NET Core? 什么是.NET?什么是.NET Framework?本文将从上往下,循序渐进的介绍一系列相关.NET的概念 ...
.NET Web开发技术简单整理
在最初学习一些编程语言.一些编程技术的时候,做的更多的是如何使用该技术,如何更好的使用该技术解决问题,而没有去关注它的相关性.关注它的理论支持,这种学习技术的方式是短平快.其实工作中有时候也是这样,公 ...
Web开发技术发展历史
Web开发技术发展历史来自:天码营原文:http://www.tianmaying.com/tutorial/web-history Web的诞生提到Web,不得不提一个词就是"互 ...
Autodesk 最新开发技术研讨会 -8月22日-Autodesk北京办公室
为了增进与广大中国地区Autodesk产品的二次开发人员的了解与互动,帮助中国地区的Autodesk产品二次开发人员了解Autodesk最新的二次开发技术动向,并获得Autodesk公司专业开发支持顾 ...
转载：.NET Web开发技术简单整理
在最初学习一些编程语言.一些编程技术的时候,做的更多的是如何使用该技术,如何更好的使用该技术解决问题,而没有去关注它的相关性.关注它的理论支持,这种学习技术的方式是短平快.其实工作中有时候也是这样,公 ...
WPF开发技术介绍
本月做了一个小讲座,主要是WPF的开发技术介绍,由于是上班时间,去听的人不多,但对于自己来说至少是又巩固了Winform的知识,抽时间写一篇文章,在此分享给大家,有什么宝贵建议大家也可以提给我,谢谢. ...
Windows开发技术的历史
原文地址:http://www.kuqin.com/windows/20090315/40172.html Windows已经有22年的历史,这22年来,微软官方主力推行的编程语言与API有四个分水岭 ...
iOS开发技术分享（1）— iOS本地数据存储
iOS开发技术分享(1)— iOS本地数据存储前言: 我本是一名asp.net程序员,后来加入了iOS游戏开发队伍,到现在也有一年多的时间了.这一年来,每天都干到2.3点钟才睡觉,不为别的,只为了学 ...

随机推荐

[LeetCode] Baseball Game 棒球游戏
You're now a baseball game point recorder. Given a list of strings, each string can be one of the 4 ...
如何理解java是一个面向对象的语言?(转自Hollis的直面java)
要想理解这个问题?需要考虑很多 1.什么是面向对象把问题分解成一个一个步骤,对每个步骤进行相应的抽象,形成对象.通过不同对象之间的调用,组合解决问题,也就是说,在面向对象的编程中,要把属性,行为等封 ...
基于webpack的React项目搭建(一)
前言工欲善其事,必先利其器.为了更好的学习React,我们先简要的把开发环境搭建起来.本文主要介绍使用webpack搭建React项目,如果你对React或es6的基础语法还不了解,建议先去学习学习 ...
[WC 2006]水管局长数据加强版
Description SC省MY市有着庞大的地下水管网络,嘟嘟是MY市的水管局长(就是管水管的啦),嘟嘟作为水管局长的工作就是:每天供水公司可能要将一定量的水从x处送往y处,嘟嘟需要为供水公司找到一 ...
[Luogu 3807]【模板】卢卡斯定理
Description 给定n,m,p(1≤n,m,p≤10^5) 求 C_{n+m}^{m} \mod p 保证P为prime C表示组合数. 一个测试点内包含多组数据. Input 第一行一 ...
[Codeforces Round #431]简要题解
来自FallDream的博客,未经允许, 请勿转载,谢谢. 好久没写cf题解了zzz 代码比较丑不贴了,cf上都可以看 Div2A. 给你一个长度为n(n<=100)的序列判断是否可以分成奇数 ...
oracle 分页查询数据重复问题
最近在做项目的时候发现一个问题,oracle 在查询分页数据的时候,有几条数据重复查询了,并且有几条数据在分页的时候消失了.百度了一下发现,ORACLE 在查询数据的时候返回的行不是固定的,他只是按照 ...
非Unicode编码的软件如何在Windows系统上运行
我们常常会遇到这样一种情况:点开某些日文软件(我不会说就是galgame( ╯□╰ ))会出现乱码或者直接无法运行. 出现乱码的原因很简单:编码与译码的方式不一致!!!!!!!!!!! 首先大家需要知 ...
TensorFlow LSTM 注意力机制图解
TensorFlow LSTM Attention 机制图解深度学习的最新趋势是注意力机制.在接受采访时,现任OpenAI研究主管的Ilya Sutskever提到,注意力机制是最令人兴奋的进步之一 ...
基于FPGA的数字识别的实现
欢迎大家关注我的微信公众号:FPGA开源工作室基于FPGA的数字识别的实现二作者:lee神 1 背景知识 1.1基于FPGA的数字识别的方法通常,针对印刷体数字识别使用的算法有:基于模版 ...

FORM开发技术之动态控制某些item的属性

FORM开发技术之动态控制某些item的属性的更多相关文章

随机推荐

热门专题