FORMS BUILDER

1. 本机建立文件夹oraclepll从AU_TOP down  TMEPLATE.FMB \ APPSTAND.FMB   and   PLL 文件放到此文件夹.

 

 2. regedit  注册表 froms_path(hkey_local_machine\software\oracle\froms60_path)  添加 oraclepll 的目录路径

 

 前期的就绪工作就完成了. ....

 

1.打开template.fmb   删除数据块blockname detailname .

2.改画布blockname \ 删除项.

3.建立数据块. (改块跟item'子类信息'属性) 

4.重命名窗口blockname

5. 'app_custom* 程序包主体'  改

package body app_custom is

procedure close_window(wnd in varchar2) is
  /*
    This procedure is called whenever the user closes a window, as
    a result of the WHEN-WINDOW-CLOSED trigger firing. You are responsible
    for supplying unqiue code that addresses the needs of each window, such as
    deferring master-detail relations, or closing related windows.

    Other windows that will be referenced into your form. rely on the default
    code at the beginning and end of this procedure - under no circumstances
    should you modify that code.
  */
begin

  /*
    THE FOLLOWING CODE MUST NOT BE MODIFIED. It prevents windows from closing
    while in enter-query mode.
  */

  if (name_in('system.mode') = 'ENTER-QUERY') then
    app_exception.disabled;
    return;
  end if;

  /*
    YOU MUST MODIFY THE FOLLOWING CODE to account for specific behaviors of your
    form, including:
    1. identifying the 'first window' of the form. and treating
       a close window on that window like a close form.
    2. deferring master-detail relations for detail blocks that
       exist in other windows.
    3. closing other related windows.
    The default code at the end of this procedure actually closes the window.
    If you do that yourself in this code, issue a 'return;' at the end of
    your logic for your specific windows.
  */

  if (wnd = 'SINVTEM') then
    app_window.close_first_window;
  elsif (wnd = '') then
    --defer relations
    --close related windows  
    null; 
  elsif (wnd = '') then
    --defer relations
    --close related windows  
    null;
  end if;

  /*
    THE FOLLOWING CODE MUST NOT BE MODIFIED. It ensures the cursor is not in
    the window that will be closed (by moving it to the previous block if
    needed), and actually closes the specified window.
  */

  if (wnd = get_view_property(get_item_property(:SYSTEM.CURSOR_ITEM,
                              ITEM_CANVAS), WINDOW_NAME)) then
    do_key('PREVIOUS_BLOCK');
  end if;
  hide_window(wnd);

end close_window;

procedure open_window(wnd in varchar2) is
  /*
    This procedure should be called from any code that could result
    in a non-modal window being opened.
  */
begin 
  /*
    YOU MUST MODIFY THE FOLLOWING CODE to account for specific behaviors of your
    form, including:  
    1. Positioning the window to be opened
    2. Resetting master-detail relations for blocks in the window   
    3. navigation to a block in that window
  */
  if (wnd = 'SINVTEM') then
   NULL;
    --position the window
    --reset master-detail relations
    --navigate to a block in the window
    GO_ITEM('SINVTEM.ITEM_NO');
  elsif (wnd = '') then
    --position the window
    --reset master-detail relations
    --navigate to a block in the window
    null;
  elsif (wnd = '') then
    --position the window
    --reset master-detail relations
    --navigate to a block in the window
    null;
  end if;

end open_window;

end app_custom;

 

6. 改 触发器'pre_from' sql ：

FND_STANDARD.FORM_INFO('$Revision: 120.0                                                                                                                                              $', 'Template Form', 'FND',
                       '$Date: 2011/09/06 23:25  $', '$Author: catharine $');
app_standard.event('PRE-FORM');
app_window.set_window_position('SINVTEM', 'FIRST_WINDOW');
--FND_ORG.CHOOSE_ORG;
--:parameter.ou_id := fnd_profile.value('ORG_ID');
--app_custom.open_window('SINVTEM');

7.编译.  文件放到au_top 下. 

(ls \cd *** 命令)

  frmcmp_batch template.fmb apps/apps  Output_File=/u1/VIS/vismgr/apps/apps_st/appl/wip/12.0.0/forms/US/template.fmx  

 

8.挂froms.  职责 application developer 下

 

   表单-------功能----菜单----

 

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24658529/viewspace-706901/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24658529/viewspace-706901/