修改CUSTOM.PLL文件调用客户化FORM&修改标准FORM

原创 2013年12月03日 13:18:02

修改custom.pll文件里 的过程event;参考例子如下,修改好后上传至$AU_TOP/resource 运行编译frmcmp_batch CUSTOM apps/apps module_type=LIBRARY compile_all=YES,重新登录即可。注意修改前先做好备份

PROCEDURE event(event_name VARCHAR2) IS
  -- 
  -- This procedure allows you to execute your code at specific events 
  -- including: 
  -- 
  --    ZOOM 
  --    WHEN-NEW-FORM-INSTANCE 
  --    WHEN-NEW-BLOCK-INSTANCE 
  --    WHEN-NEW-RECORD-INSTANCE 
  --    WHEN-NEW-ITEM-INSTANCE 
  --    WHEN-VALIDATE-RECORD 
  -- 
  -- Additionally, product-specific events will be passed via this 
  -- interface (see the Applications Technical Reference manuals for  
  -- a list of events that are available).  
  -- 
  -- By default this routine must perform 'null;'. 
  -- 
  -- Oracle Corporation reserves the right to change the events  
  -- available through this interface at any time. 
  -- 
  /* Sample code:
  
    form_name      varchar2(30) := name_in('system.current_form'); 
    block_name     varchar2(30) := name_in('system.cursor_block');  
    param_to_pass1 varchar2(255); 
    param_to_pass2 varchar2(255); 
  begin 
    -- Zoom event opens a new session of a form and 
    -- passes parameter values to the new session.  The parameters
    -- already exist in the form being opened.
    if (event_name = 'ZOOM') then   
      if (form_name = 'DEMXXEOR' and block_name = 'ORDERS') then 
        param_to_pass1 := name_in('ORDERS.order_id'); 
        param_to_pass2 := name_in('ORDERS.customer_name'); 
        fnd_function.execute(FUNCTION_NAME=>'DEM_DEMXXEOR',  
                             OPEN_FLAG=>'Y',  
                             SESSION_FLAG=>'Y',  
                             OTHER_PARAMS=>'ORDER_ID="'||param_to_pass1|| 
                               '" CUSTOMER_NAME="'||param_to_pass2||'"'); 
    -- all the extra single and double quotes account for 
    -- any spaces that might be in the passed values 
      end if; 
  
    -- This is an example of a product-specific event.  Note that as
    -- of Prod 15, this event doesn't exist.
    elsif (event_name = 'OE_LINES_PRICING') then 
      get_custom_pricing('ORDERS.item_id', 'ORDERS.price'); 
  
    -- This is an example of enforcing a company-specific business
    -- rule, in this case, that all vendor names must be uppercase.
    elsif (event_name = 'WHEN-VALIDATE-RECORD') then
      if (form_name = 'APXVENDR') then
        if (block_name = 'VENDOR') then
          copy(upper(name_in('VENDOR.NAME')), 'VENDOR.NAME');       
        end if;
      end if;
    else 
      null; 
    end if; 
  end event; 
  */
  -- 
  -- Real code starts here 
  -- 
  form_name          VARCHAR2(30) := name_in('system.current_form');
  block_name     varchar2(30) := name_in('system.cursor_block');
  special_menu_name13 VARCHAR2(2000);
  special_menu_name14 VARCHAR2(2000);
  special_menu_name15 VARCHAR2(2000);
  param_to_pass1     NUMBER := NULL;
  param_to_pass2     NUMBER := NULL;
  param_to_pass3     varchar2(200) := NULL;
  param_to_pass4     number := NULL;--invoiec_id
  param_to_pass5     number := NULL;--ccid
  param_to_pass6   date := NULL;--gl_date
  param_to_pass7   number := NULL;--set_of_books_id
  V_PROPERTY VARCHAR2(30);
  
BEGIN
  special_menu_name13 := '返利';
  special_menu_name14 := '订单';
  special_menu_name15 := '更新';
  --FND_MESSAGE.DEBUG('CUSTOM.PLL');
  IF form_name = 'APXINWKB' AND event_name = 'WHEN-NEW-FORM-INSTANCE' THEN
    --SET_MENU_ITEM_PROPERTY('SPECIAL.MENU15',LABEL,'自动创建'); 
    set_menu_item_property('FILE.SAVE', enabled, PROPERTY_ON);-- able save menu
    app_special2.instantiate('SPECIAL13', special_menu_name13, NULL, TRUE); --添加菜单API
    app_special2.instantiate('SPECIAL14', special_menu_name14, NULL, TRUE); --添加菜单API
    app_special2.instantiate('SPECIAL15', special_menu_name15, NULL, TRUE); --添加菜单API
    RETURN;
  END IF;
  
  IF form_name = 'APXINWKB' AND event_name = 'WHEN-NEW-ITEM-INSTANCE' /*AND
     block_name = 'INV_SUM_FOLDER'*/ THEN
     IF name_in('INV_SUM_FOLDER.QUICK_PO_NUMBER') IS NULL THEN
    set_item_property('INV_SUM_CONTROL.MATCH', enabled, property_false);
     ELSE
      set_item_property('INV_SUM_CONTROL.MATCH', enabled, property_true);
     END IF;
    RETURN;
  
  END IF;
  
  IF form_name = 'APXINWKB' AND event_name = 'WHEN-NEW-BLOCK-INSTANCE' THEN
  
    --SET_MENU_ITEM_PROPERTY('SPECIAL.MENU15',LABEL,'自动创建'); 
    app_special.enable('SPECIAL1', property_on);
    app_special.enable('SPECIAL2', property_on);
    app_special.enable('SPECIAL3', property_on);
    RETURN;
  END IF;
  
  IF ((form_name = 'APXINWKB') /*and (Block_Name = 'LINES')*/
     AND (event_name = 'SPECIAL13')) THEN
    param_to_pass1 := name_in('INV_SUM_FOLDER.ORG_ID');
    param_to_pass2 := name_in('INV_SUM_FOLDER.VENDOR_ID');
    param_to_pass4 := name_in('INV_SUM_FOLDER.INVOICE_ID');
    param_to_pass5 := name_in('INV_SUM_FOLDER.ACCTS_PAY_CODE_COMBINATION_ID');
    param_to_pass6 := name_in('INV_SUM_FOLDER.GL_DATE');
    param_to_pass7 := name_in('INV_SUM_FOLDER.SET_OF_BOOKS_ID');
    --FND_MESSAGE.DEBUG('CUSTOM.PLL');
    --FND_MESSAGE.DEBUG('param_to_pass4  '||param_to_pass4);
    --FND_MESSAGE.DEBUG('param_to_pass5  '||param_to_pass5);
    --FND_MESSAGE.DEBUG('param_to_pass6  '||param_to_pass6);
    --FND_MESSAGE.DEBUG('param_to_pass7  '||param_to_pass7);
    V_PROPERTY := Get_Menu_Item_Property('FILE.SAVE',enabled);
    --FND_MESSAGE.DEBUG('V_PROPERTY  '||V_PROPERTY);
    --set_menu_item_property('FILE.SAVE', enabled, PROPERTY_OFF);-- disable save menu
    
    fnd_function.execute(function_name => 'CUXAPREBATE',
                         open_flag     => 'Y',
                         session_flag  => 'Y',
                         other_params  => 'G_ORG_ID="' || param_to_pass1 ||
                                          '" G_VENDOR_ID="' ||
                                          param_to_pass2 || /*'"'||*/
                                          '" G_INVOICE_ID="' ||
                                          param_to_pass4 || 
                                          '" G_CCID="' ||
                                          param_to_pass5 ||
                                          '" G_GL_DATE="' ||
                                          param_to_pass6 || 
                                          '" G_SET_OF_BOOKS_ID="' ||
                                          param_to_pass7 || '"');
                                          


  ELSIF ((form_name = 'APXINWKB') /*and (Block_Name = 'LINES')*/
        AND (event_name = 'SPECIAL14')) THEN
    param_to_pass3 := name_in('INV_SUM_FOLDER.QUICK_PO_NUMBER');
   fnd_function.execute(function_name => 'CUXAPPOINFOR',
                         open_flag     => 'Y',
                         session_flag  => 'Y',
                         other_params  => 'G_PO_NUMBER="' || param_to_pass3 ||
                                          '"' );                         


  ELSIF ((form_name = 'APXINWKB') /*and (Block_Name = 'LINES')*/
        AND (event_name = 'SPECIAL15')) THEN
    fnd_message.debug('Event_Name = SPECIAL15');
  ELSE
    RETURN;
  END IF;

END event;


 

版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

修改CUSTOM.PLL文件调用客户化FORM&修改标准FORM

修改custom.pll文件里 的过程event;参考例子如下,修改好后上传至$AU_TOP/resource 运行编译frmcmp_batch CUSTOM apps/apps module_typ...

使用Custom.pll修改标准Form的LOV

在开发过程中,经常碰到需要修改标准Form中LOV的需求,一般来说都是做一些条件限制。在不修改标准Form的fmb文件的前提下,可以通过Custom.pll来实现。 一、Custom.pll的工作机制...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

使用Custom.pll修改标准Form的LOV

在开发过程中,经常碰到需要修改标准Form中LOV的需求,一般来说都是做一些条件限制。在不修改标准Form的fmb文件的前提下,可以通过Custom.pll来实现。   一、Custom.pll的...

使用Form个性化修改标准Form的LOV

本文结合一个简单的Form做描述,这是没有个性化之前的LOV,LOV取自表FND_USER,没有做任何条件限制。   首先打开Form的个性化工具,点击菜单帮助–诊断–自定义代码–个性化:...

FORM调用FORM(标准调客户化&客户化调标准)并执行查询的实现研究

一.先来个比较简单的,标准FORM调用客户话FORM并执行查询 1.修改CUSTOM.PLL,使用 fnd_function.execute实现打开和传递参数 参考例子如下 PROCEDURE eve...

修改ebs form socket模式

最近有个项目需要用loadrunner做压力测试,让我帮忙修改form socket模式。在此记录一下大致步骤 修改socket模式,大多觉得很容易,一个脚本的事情。其实就是这样,但是为了loadru...

linux进阶一  常用命令和用户拥有者修改和权限修改

在liunx上现在分为图形界面和命令行界面,图形界面登陆直接输入用户名和密码就可以了,现在说的是命令行登陆。用户登录  命令行界面快捷键ctrl+f1~f6分别为6个不同的命令行操作界面。ctrl+f...

oracle 11gR2RAC修改public ip (不同网段)

修改public ip为其他网段地址,同网段参考:http://blog.csdn.net/huoshuyinhua/article/details/51564534 本实验从215网段迁移到56网段...

Qt -Ftp下载之修改文件属性(修改时间,访问时间)

报文分发程序需提供这么一个功能: Qt对下载文件的时间修改(ftp,http下载) 当我们下载一个文件到本地后,文件的相关属性(如修改时间,创建时间,访问时间)都会修改为下载后的系统时间。 而...

linux下终端常用命令和vi命令修改文件及保存的使用方法

linux下终端常用命令和vi命令修改文件及保存的使用方法 发表于2016/9/4 10:38:16  1972人阅读 分类: Linux 首先介绍一下Ubuntu下各个目录的一...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)