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);