form开发的小总结

Form 开发的一些小总结.当然要实现如下的功能不一定要这样做，但是下文的做法肯定是可以实现这个功能的，这些都是我在实际工作中使用过的。可能描述的不是很准确，大家不是很明白，但是可以试着操作，就知道了。

1. 在FORM的windows上显示名称：

在FORM级的trigger  when_new_form_instance上设置如下：

set_window_property('MPOSRFQA',TITLE,'业务核价--'||sysdate);

显示效果如图:

 

 

2. 在FORM中当某个Item的值为某个状态不可修改：

在block级的trigger pre_record中加入如下代码：

If :block_name.item_name = P_value  then

  Set_item_instance_property(‘Block_Name.Item_Name’,

                                           Current_record,

                                           Update_Allowed,

                                          Property_False);

Fnd_message.debug(‘item_name=P_value时不可以修改’);

End if;

 

3. 在某个Item下，当该Item为空时，它将复制这个Item的上一个值。

在该Item的trigger:when_new_form_instance下输入

If  :block_name.item_name is null   then

    Duplicate_Item;

End if;

4. 在FORM中设置某个Item在某个条件下显示时：

在form 级trigger  when_new_form_instance中加入如下代码：

If :parameter.p_select =’ENABLE’ then

  App_item_property.set_property(‘Block_Name.Item_Name1’,visible,Property_On);

  Else

App_item_property.set_property(‘Blocke_Name.Item_name1’,visible,Property_Off);

End if;

 

 5. Go_block()

L_where :=’Item_Name=:Paramter.item_name1’;

Go_block(‘Block_name’);

Set_block_property(‘block_name’,Default_where,L_where||’Order by item_name2’);

Execut_Query;

 

go_block('block_name');

first_record;

loop      

     if :block_name.item_name1 ='Y'

        and :block_name.item_name2 is null then

      :block_name.item_name3 := :parameter.p_refno ;

    commit;

     end if;

     exit when :system.last_record='TRUE';

     next_record;

end loop;

6. calendar 日历设置--其实在以前我的form开发技术中已经说过了

设置item的lov属性(calendar)

务必在validate from list 处选择no

在Item trigger : Key_listval 中写上 calendar.show;

Calendar.show 是可以带参数的，缺省就是当天(可以打开attached libraries à appdaypk à calendar),其参数就是设日历的缺省date

For example : calendar.show(to_date(‘2009-08-29’,’YYYY-MM-DD’));

 

7.在form调用window的例子

对于包含多个window的form在已打开的window上通过按钮打开另一个window

Begin

Show_window(‘TEST_WINDOW’,2,2);

Set_window_property(‘TEST_WINDOW’,title,’标题’);

End;

8.fnd_message.question

Declare

  v_num number;

Begin

  Fnd_message.set_string('确定执行此操作吗?');

  v_num := fnd_message.question('否', '是', 1, 2);

  if v_num = 2 then

    fnd_message.debug('選擇了是');

  elsif v_num = 1 then

    fnd_message.debug('選擇了否');

  end if;

end;

 

9.实现lov可自动录入内容

在item  level 的when_new_item_instance trigger上加入

Begin

Set_item_property(‘block.item1’,validate_from_list,property_false);

End;

在item level的when_validate_item trigger上加入

If :block_name.item_name is not null then

Begin

Select item_name into :block_name.item_name

From table_name where .....  and item_name = :block_name.item_name

Exception when others then

Fnd_message.debug(‘......’);

End;

End if;

 

10. 在form中创建一个item,用于加总另一个item的值

(1)首先创建的Item必须与要统计值的Item在同一个block上.

(2)在创建好的item上的calculation中设置好相应的函数

(3)在这个item所对应的block上把advanced database中飞precompute summaries修改为Yes。

11.

Form中如何实现 shift+F6 复制上一条纪录的功能

 

将KEY-DUPREC改称如下的样子就可以了：
--APP_STANDARD.EVENT('KEY-DUPREC');
duplicate_record;

12.

很多时候，根据单据的状态的变化，要控制单据是否只读。

常用的form子程序：

SET_BLOCK_PROPERTY('REQUEST_HEADERS_V',INSERT_ALLOWED,PROPERTY_TRUE);
SET_BLOCK_PROPERTY('REQUEST_HEADERS_V',UPDATE_ALLOWED,PROPERTY_TRUE);
SET_BLOCK_PROPERTY('REQUEST_HEADERS_V',DELETE_ALLOWED,PROPERTY_TRUE);
SET_BLOCK_PROPERTY('REQUEST_LINES_V',INSERT_ALLOWED,PROPERTY_TRUE);
SET_BLOCK_PROPERTY('REQUEST_LINES_V',UPDATE_ALLOWED,PROPERTY_TRUE);
SET_BLOCK_PROPERTY('REQUEST_LINES_V',DELETE_ALLOWED,PROPERTY_TRUE);