ORACLE EBS FORM 二次开发常用小技巧

1.锁住当前行 Set_Item_Instance_Property('main.import_flag', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_OFF); 用在WHEN-NEW-RECORD-INSTANCE 或者POST-QUERY中。 同:app_item_property.set_property('MAIN.REF_COST',ALTERABLE,PROPERTY_ON) ; 2.设置记录的颜色 app_record.highlight('RED_REC'); 3.窗口居中 app_window.set_window_position('WINDOW_NAME','CENTER'); 4.最大化窗口时自动扩展文件夹数据块 在WHEN-WINDOW-RESIZED中添加以下代码即可。 if :system.event_window in ('MAIN') then app_folder.event('WHEN-WINDOW-RESIZED'); end if; 5.Form中调用forms基本参数方式 FND_FUNCTION.EXECUTE(FUNCTION_NAME=>'CUXSOSETUP', OPEN_FLAG=>'Y', SESSION_FLAG=>'Y', OTHER_PARAMS=>NULL); 其它参数传入OTHER_PARAMS即可。 6.动态设置当前行指定列的必输属性 Set_Item_Instance_Property(item_name, CURRENT_RECORD, REQUIRED,PROPERTY_TRUE); 如: if :CUX_WORKHOUR_EMP.ATTRIBUTE2 <> :CUX_WORKHOUR_EMP.ATTRIBUTE1 then Set_Item_Instance_Property('CUX_WORKHOUR_EMP.MODIFY_REASON', CURRENT_RECORD, REQUIRED,PROPERTY_TRUE); if :CUX_WORKHOUR_EMP.MODIFY_REASON is null then :CUX_WORKHOUR_EMP.MODIFY_REASON := '123'; :CUX_WORKHOUR_EMP.MODIFY_REASON := null ; fnd_message.set_string('请输入调整原因.'); fnd_message.show; end if; else if :CUX_WORKHOUR_EMP.ATTRIBUTE4 = :CUX_WORKHOUR_EMP.ATTRIBUTE3 then Set_Item_Instance_Property('CUX_WORKHOUR_EMP.MODIFY_REASON', CURRENT_RECORD, REQUIRED,PROPERTY_FALSE); end if; end if; 7.增加菜单 在 FORM级的when-new-form-instance APP_SPECIAL.INSTANTIATE('SPECIAL1','取消需求行', '', TRUE, 'LINE'); 8.LOV指定初始值后需在WHEN-NEW-RRECORD-INSTANCE用以下语句模拟验证， 否则会弹出验证框.代码如下： app_item_property.set_property('DETAIL_D.DEMAND_STATUS_DESC', ITEM_IS_VALID,property_on);