《OracleEBSForm个性化的项目应用实例解读.doc》由会员分享，可在线阅读，更多相关《OracleEBSForm个性化的项目应用实例解读.doc（46页珍藏版）》请在三一文库上搜索。
1、FORM个性化的应用实例文档作者：YangHe创建日期：5/20/2007最近更新：1/28/2019控制编号：FORM个性化V1.0文档版本：1.0审批：松下富士通 汉得拷贝数FORM 个性化V1.0FORM个性化的应用实例文档控制#Company Confidential - For internal use onlyFORM 个性化V1.0文档控制变更记录日期作者版本变更参考5/20/2007YangHe1新创建的文档审阅姓名职位分发拷贝数姓名地点1111FORM个性化的应用实例文档控制3Company Confidential - For internal use onlyFORM 个
2、性化V1.0目录文档控制2概述4安装环境4安装前准备4阅读说明及约定 4FORM个性化5协亨项目ORACLE销售订单录入控制 5协亨项目ORACLE子库存转移控制 12协亨项目ORACLE杂项事务处理控制 17添加菜单项调用系统功能 20已解决和未解决的问题38未解决问题 38已解决问题38FORM个性化的应用实例文档控制#Company Confidential - For internal use onlyFORM 个性化V1.0概述FORM个性化是.10新增的功能。通过个性化设置，我们可以不必去修改ORACLE的FORM源码而实现FORM标准功能的修改，因为个性化代码是独立储存在数据库表
3、中 的，FORM的升级均对此无影响。所以在项目上要对FORM进行修改时，如果能行，最好还是用FORM个性化来实现这里顺便提下两个预置文件，一个是Hide Diagnostics menu entry 用来控制help菜单下的Diagnostics 是否隐藏，默认为不隐藏。一个是 Utilities:Diagnostics 用来控制 进入诊断模式时是否需要 apps密码，默认为需要密码。根据具体需要看是否设置。FORM个性化触发器事件有五个FORM自带的触发器动作：WHEN-NEW-FORM-INSTANCE 、WHEN-NEW-BLOCK-INSTANCE 、WHEN-NEW-RECORD-I
4、NSTANCE、WHEN-NEW-ITEM-INSTANCE、WHEN-VALIDATE-RECORD以及MENU、SPECIAL（点击自定义的菜单动作，最后的例子中我们可以看到）。通过这些触发器事件，我们可以实现改变ITEMSBLOCKSCANVASESWINDOWSREGIONS等的属性及值、执行 FORM的内置函数、显示错误警告MESSAGE 信息、显示DEBUG信息、自定义一个菜单项来执行应用中的某功能、创建一个全局变量来传递信 息等。FORM个性化操作起来比较简单，ORACLE有一个专门的文档对其进行介绍的，详见METALINK Note:279034.1 。这里简单介绍一下在实际项
5、目中的几个应用。安装环境硬件平台：IBM操作系统及版本：Oracle RDBMS 版本:9.2.0.6.0Oracle EBS 版本：11.5.10.2安装前准备以上操作，如有疑问，请向系统管理员寻求帮助。阅读说明及约定本文中蓝色字体为需要注意的内容。本文中红色字体为特别重要的内容。本文中黑色粗体10号字为输入的命令。FORM个性化以下介绍的几个 FORM个性化应用大部分是基于上海协亨信息科技有限公司ERP项目的实际开发。协亨项目ORACLE销售订单录入控制项目背景及业务需求：协亨手机连锁销售集团是一家主要经营手机销售的连锁零售企业。其在全国有几百家门店，当门店的 POS系统上线后，日常销售都
6、是在 POS系统中 完成的，通过接口传给 ORACLE自动生成销售订单，在 ORACLE中我们禁止手工录入 这个门店的销售订单。具体的控制方法是：把订单头的销售员设置成必录字段。在离开该字段的时候添加校验：根据销售员查找门店信息，若找不到，表示这是跟门店无关的销售，不控制。 若找到，则判断该门店是否 已经POS上线，如果已经是 POS上线的并且 POS控 制类型=现实门店，那么就不能通过验证。否则可以通过。销售超级用户职责/订单；退货/销售订单/帮助/诊断/自定义代码/个性化 在Oracle的订单录入界面，禁止录入这个门店的销售订单。具(T) Window帮助OH)Ol在销售订单FORM下进入
7、FORM个性化:窗口幣肋世)Oracle Appli c&ti 程序库 g) 龍盘帮助协亨通讯削O销售订单订单信息历史记录(B)关于 Oracle Applicetions.主要其它订单编号订丁汹*幫|正冨 关因 仅限于核柱代玛心 显示自定文事件也个性化览)禁用安全诊斷显示数据库措误).-检查记录测试M代理程序跟踪个性化览)币种小计FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal
8、 use onlyFORM 个性化V1.0FORM个性化界面条件伪代码：FORM个性化的应用实例FORM个性化 7Company Confidential - For internal use only销售员id在客户化表XH_SHOP_INFO 中有对应的有效门店，且POS上线日期非空，且门店类型为现实门店。序号说明触发器事件触发器对象条件10FORBID SO IMP0RTWHEN- VALIDATE- RECORDORDER:ORDER.SALESREP_ID IN (SELECT SALESREP_IDFROMXH_SHOP_INFOWHERENVL(END_DATE_ACTIVE,S
9、YSDATE + 1) TRUNC(SYSDATE)AND(SELECTPOS_ONLINE_DATEFROMXH_SHOP_INFOWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDSALESREP_ID=:ORDER.SALESREP_ID)IS NOTNULLAND(SELECTPOS_CONTROL_TYPEFROMXH_SHOP_INFOWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDSALESREP_ID=:ORDER.SALESREP ID) = REALFO
10、RM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlys1地烏上T文活动馳爰器勇件条件WEN VALUMIE RECORD（您可以输入附加爭件辂称* ）OXERSALEPEP_ED IN (SELECT SALSEEP_IE FROM巳INFO 理ERENVL(H_EIE_ACTrVE, SYEEftTE + 1) THIWC CVEEftTE) 耐(SELECT POS_ONLI?JE_IWn
11、Z FIM in_2JBP_DrO WEI N/L (E4D_EATE_ACTIVE,Jh.T处理模式远铤77籀入二直询才就式瓦符合条件的记录在保存时报以下错误：该销售员对应的门店FORM 个性化V1.0POS已上线，不允许在同时对订单行也要进行限制ORACLE录入订单序号类型消息类型消息文本10消息错误该销售员对应的门店POS已上线，不允许在ORACLE录入订单序号说明触发器事件触发器对象条件序号说明触发器事件触发器对象条件10FORBID SO IMP0RT LINEWHEN- VALIDATE- RECORDLINE:ORDER.SALESREP_ID IN (SELECT SALESR
12、EP_IDFROMXH_SHOP_INFOWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)AND(SELECTPOS_ONLINE_DATEFROMXH_SHOP_INFOWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDSALESREP_ID=:ORDER.SALESREP_ID)IS NOTNULLAND(SELECTPOS_CONTROL_TYPEFROMXH_SHOP_INFOWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSD
13、ATE)ANDSALESREP_ID=:ORDER.SALESREP ID) = REAL活动序号类型消息类型消息文本10消息错误该销售员对应的门店POS已上线，不允许在ORACLE录入订单看实际中的应用情况:FORM个性化的应用实例FORM个性化 9Company Confidential - For internal use onlyFORM 个性化V1.0录入销售订单，销售人员为1112073曹杨二店，该店POS_ONLINE_DATE 不为空，且POS_CONTROL_TYPE= REAL，即卩POS上线日期非空，且门店类型为现实门店。新增一条规则，设置销售人员为必需字段FORM个性化
14、的应用实例FORM个性化 11Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0序号说明触发器事件触发器对象条件10设置销售人员 为必输字段WHEN-NEW-RECORDINSTANCEORDERO表单伞性化自肖售订单训试榄式棗件活功序号说明(KT_OEXaEOIC(dOEORD展启用 QWCN-NEW- FirOKD- DETATCEOHCER条件处理樟式上下文您可以轿入附力獰忤
15、窑秫*不在白輛人-至询”椁式下ffiA目值瓏申蓟口活动序号类型对象类型目标对象特性名称值10特性项目ORDER.SA LESREP_M IRREQUIRED (APPLICATIONS COVER)真FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0看实际中的应用情况：当我们新建一个销售订单，可以看到，销售人员变成了必输字 段。FORM个性化的应用实例FORM个性化 13Company Confidential - For internal use onlyFORM 个性化V1.0协亨项目O
16、RACLE子库存转移控制业务需求：协亨门店的 POS上线前，直接在 ORACLE中做子库存转移。POS系统上线 后，所有的调拨业务都是在POS中进行的，通过接口传给ORACLE自动做子库存转移，在ORACLE中禁止手工录入该门店对应的子库转移。库存超级用户职责/事务处理/子库存转移/事务处理行/帮助/诊断/自定义代码/个性化在子库存转移界面，在子库存及目标子库存两个字段上，在离开该字段的时候添加校 验：根据子库存的门弹性域查找门店信息，判断该门店是否已经POS上线，如果已经是POS上线的并且POS控制类型=现实门店，那么就不能通过验证。否则可以通过。即如果在对应门店已上线的子库做子库存转移，在
17、保存时会出现以下错误:序号说明触发器事件触发器对象条件序号说明触发器事件触发器对象条件10FORBID SUBINV TRANSFERWHEN-VALIDATE- RECORDMTL_TRX_ LINE(SELECTPOS_ONLINE_DATEFROM XH_SHOP_INFO XSWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDXS.SHOP_NUMBER=(SELECT MSI.ATTRIBUTE1FROMMTL_SECONDARY_INVENTORIES MSIWHERENVL(MSI.DISABLE_DATE,SYSDAT
18、E) TRUNC(SYSDATE)ANDMSI.SECONDARY_INVENTORY_NAME=:MTL_TRX_LINE.SUBINVENTOR Y_CODE) IS NOT NULLAND(SELECTPOS_CONTROL_TYPEFROMXH_SHOP_INFO XSWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDXS.SHOP_NUMBER=(SELECT MSI.ATTRIBUTE1FROMMTL_SECONDARY_INVENTORIES MSIWHERENVL(MSI.DISABLE_DATE,SYSDATE) T
19、RUNC(SYSDATE)ANDMSI.SECONDARY_INVENTORY_NAME=:MTL_TRX_LINE.SUBINVENTORY CODE) = REAL函歎名序号说聊W INVTIMr： SUBINVINVTIMIK表单名调试檬式展J启用 曹兼件活动插人“蕤ST麦诂式(E)消易类型消息文本于阵存对应的门店珂6耳上踐，不亢许在OBflCLE冲 址柑于澤存转移摘入项目值曲隘证迴在申待(C)活动序号类型消息类型消息文本10消息错误子库存对应的门店 POS已上线，不允许在 ORACLE中进行子库存转移序号说明触发器事件触发器对象条件10FORBID SUBINV TRANSFER2WH
20、EN- VALIDATE- RECORDMTL_TRX_ LINE(SELECTPOS_ONLINE_DATEFROM XH_SHOP_INFO XSWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDXS.SHOP_NUMBER=(SELECT MSI.ATTRIBUTE1FROMMTL_SECONDARY_INVENTORIES MSIWHERENVL(MSI.DISABLE_DATE,SYSDATE) TRUNC(SYSDATE)ANDMSI.SECONDARY_INVENTORY_NAME=:MTL_TRX_LINE.TRANS
21、FER_SUB INVENTORY) IS NOT NULLAND(SELECTPOS_CONTROL_TYPEFROMXH_SHOP_INFO XSWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDXS.SHOP_NUMBER=(SELECT MSI.ATTRIBUTE1FROMMTL_SECONDARY_INVENTORIES MSIWHERENVL(MSI.DISABLE_DATE,SYSDATE) TRUNC(SYSDATE)ANDMSI.SECONDARY_INVENTORY_NAME=:MTL_TRX_LINE.TRANS
22、FER_SUB INVENTORY) = REALFORM个性化的应用实例FORM个性化 17Company Confidential - For internal use onlyFORM 个性化V1.0INV INVTINE SUEW制卞活动（您可哄输入附加乎件容称。）WEN VALUMIE RECWM)仃不铤ffSfiA -査涓複式下口表单于性毗【子邸存转穆）训试模式函数名斥号说明1J她岌器事件融发器对象坯件灿枷删财曲孙OkromiE 皿两 TRfflEim层值5捕入顶目信GELECT POS_ONLIME_CfilE FROM XELSICP, INFO KSWEFE NUL THJN
23、C (SYSIWT0dW XS. HP_t(ER = SELECT 1EI. ATmiBUrEL FROU JEL_空COiNDARLINVENTORIESFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0序号类型消息类型消息文本10消息错误目标子库存对应的门店POS已上线，不允许在ORACLE中进行子库存转移协亨项目ORACLE杂项事务处
24、理控制业务需求：协亨门店的 POS上线前，可以直接在 ORACLE中做杂项事务处理。 POS系 统上线后，门店的盘点是在POS中做的，通过接口传给 ORACLE自动做杂项事务处理。此时在 ORACLE中禁止手工录入该门店对应的杂项事务处理。库存超级用户职责/事务处理/杂项事务处理/事务处理行/帮助/诊断/自定义代码/个性化在杂项库存事务处理界面，在 子库存字段上，在离开该字段的时候添加校验：根据子库 存的门弹性域查找门店信息，判断该门店是否已经POS上线，如果已经是 POS上线的并且POS控制类型=现实门店，那么就不能通过验证。否则可以通过。即如果在对应门店已上线的子库做子库存转移，在保存时会
25、出现以下错误:序号说明触发器事件触发器对象条件序号说明触发器事件触发器对象条件10FORBID MISCELL TRANSFERWHEN- VALIDATE- RECORDMTL_TRX_ LINE(SELECTPOS_ONLINE_DATEFROM XH_SHOP_INFO XSWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDXS.SHOP_NUMBER=(SELECT MSI.ATTRIBUTE1FROMMTL_SECONDARY_INVENTORIES MSIWHERENVL(MSI.DISABLE_DATE,SYSDATE)
26、 TRUNC(SYSDATE)ANDMSI.SECONDARY_INVENTORY_NAME=:MTL_TRX_LINE.SUBINVENTOR Y_CODE) IS NOT NULLAND(SELECTPOS_CONTROL_TYPEFROMXH_SHOP_INFO XSWHERENVL(END_DATE_ACTIVE,SYSDATE + 1) TRUNC(SYSDATE)ANDXS.SHOP_NUMBER=(SELECT MSI.ATTRIBUTE1FROMMTL_SECONDARY_INVENTORIES MSIWHERENVL(MSI.DISABLE_DATE,SYSDATE) TRU
27、NC(SYSDATE)ANDMSI.SECONDARY_INVENTORY_NAME=:MTL_TRX_LINE.SUBINVENTORY CODE) = REAL活动序号类型消息类型消息文本10消息错误子库存对应的门店 POS已上线，不允许在ORACLE中进行杂项事务处理: M 71 XFORM个性化的应用实例FORM个性化 21Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0
28、调试鮭JNV.INVTTMIa misc表单名函数名启用A.说明语言厂厂r厂r插入顶目宿+ _I 捕扎“张应“衣芯式担） 一 一序号芙型消息粪型 消息艾本于厚存討应的门店P0S己上蛭*不允许克DIMCIE冲 址帝奈项里籌处理验证）FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 23Company Confidential - For internal use onlyFORM 个性化V1.0添加菜单项调用系统功能同时对订单行也要进行限制以下是个性化的
29、执行效果。霽 Qfcl Aeppli cqh膏.-a1试环曉Edit Yi sw在tools菜单里增加了一个菜单项Executable，点击可以调岀该并发程序所对应的可执行界面E； rentableO Cmcurrmt Fr艰曲頭丨/1 0多总丨?r rrrr.rrrrrr r r r r b r r -rP-rP4PFRPrograiTL徂澤特数重报叢煽却EnabledShort NameApplicationDescription_ E: eeidtableNameOptionsMethodStoiisd 氏oteddeSession ControlOutput调岀结果如下:Incgmpa
30、tibilitiesParametersFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 25Company Confidential - For internal use onlyFORM 个性化V1.0Fils Edi t Vi ew Folder Tc ol e Window Help:巨乜a丨令窑心炒我的滂環丨丛也0乡异丨？整体逻辑:FORM个性化的应用实例FORM个性化 #Company Confidential - For internal
31、 use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0打开并发程序定义界面，在Tools菜单栏下新加一个菜单项。点击该菜单时，如果并发程序名为空，则报一个错误。如果可执行名非空，增加一个全局变量，储存可执行的名称。点击新增的菜单项，可以打开可执行FORM。当打开可执行FORM时，对上述定义的全局变量进行初始化。 进入查询模式。将全局变量的值赋予可执行名称项值。进行查询。清除全局变量的值。FORM个性化界面，定义一个名为Executable的个性化规则，对
32、应的触发器事件以下是step_by_step编辑详情1、打开并发程序定义界面，再打开 为 WHEN-NEW-FORM-INSTANCEFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0Concunrent FFogramEFORM个性化的应用实例FORM个性化 27Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal us
33、e onlyFORM 个性化V1.0FroeruEoabltdFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FNELFMKTMILEEForm NameFNDCPtEPDebug ModeO Form Fersonalizati ons (Concurrent Programs Qleveloper Mode)LtucL(You can
34、 enter additional event names)Trigger EventTrigcer ObjectConditionConditionFunct ion Nameion110HecuitableFmctioniiLL1Actionsfe厂 NF百一 FOHMBTJbt ir EntbQuary Bfads|siteFrccesfint Mode s 1LevelFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Conf
35、idential - For internal use onlyFORM 个性化V1.03 ConcurFzisruFunction iFNDLFNDCHilCEV2、在 Actio ns 里，增加一个 Menu 类型，其中 Me nu En try 选择SPECIAL1 （SPECIAL1 至 15 是在 Tools 菜单下，16 至30是在Reports菜单下，31至45在Actio ns菜单下），Menu Label输入Executable即菜单项标签），Icon Name 为CONC_PROG即并发程序 FORM 对应的BLOCKConditionActionsEnabledDejcr
36、iptianr口Menu Ent 哎 SCJjWLI : 1ftRender line before menuMenu Labelecutabl eIcon Na*Enablfid in Blonck()DescriptionLavtl1ExecutableFtncticmT二ri1 ”Form NamFNEOTiCPDebuf Mode OffFORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0FORM个性化的应用实例FORM个性化 #Company Confidential - For i
37、nternal use onlyFORM 个性化V1.03、保存，打开可执行界面，可以看到新增的菜单项，点击，没有事件发生。FORM个性化的应用实例FORM个性化 #Company Confidential - For internal use onlyFORM 个性化V1.0O Concurrent ProErajns几几人几几f几宀 7几它云XF 声 W Vim- bS-占专 PL V 丄事ir-pj-F F-FFF*FF*FF,F,FrFF,-F,F-F,FrFF*FF*FF,F,F*,F,FFi*-F-F,FrFFrFF-FF-F尸ProgranEnabledShort NameApp
38、licationDescriptionEiecutabileNameHffthodOpt ionsRequest TypeIncrejnerLtorMLS FunetionOutputUffe in SRSRun AloneEnatls TraceAllow Disabl&d ValuesRestart on System FailureNLS CompliantCopy to. .Session CentrolIncampatibilitiesParaniet ers4、在可执行界面下，打开FORM个性化界面，我们增加一个事件为，如果可执行的名称为空，则报一个错误PleaseEn ter E
39、xecutable Name! 新增一个个性化规则 Check Executable Name ， Trigger Eve nt 为SPECIAL1，条件为可执行名称为空。 即：CONC_PROG.EXECUTABLE_NAME ISNULLFORM个性化的应用实例FORM个性化 29Company Confidential - For internal use onlyFORM 个性化V1.0A Coiitunrierit Frogi_：iiriEProfrWEnabledO Fr Personali zati ons Concurrent Frogr ams CDeveloper Bode
40、)Form N：imeDebug Mode10& editableFuictian冷Qieck Executable NaiseFunctionriFurict i on Name FND_HittXTWP_IEirHiDC?OffSeq Descript ionLevelConditionActionsTrigger Events(You can enter additional event nam已s)Trigger ObjectConditiProcessing ModeNat in EnteQuaiy IfodeConte: tLevelValue5、在 Actions 下，设置一个 Meassage 类型，Message Type 为 Error , Message Text 为 Please Enter Executable Name!Function WameR_FNDCPMF_