Form_通过Custom.pll新增菜单项（案例）

2014-05-31 Created By BaoXinjian

一、摘要

---

custom.pll 一个每次form启动时都会调用的pll包，因此有些对标准form的客制化可以在custom.pll中实现

个人感觉和form个性化有类似性，区别是form个性化通过设定去设定，而custom.pll通过代码中实现

而且对custom.pll的修改会影响所有的form调用，所以对代码的可控性和效率要求比较高

而Form的个性化，影响的定义有function level 和 form level，所以只对所设定的function或form产生印象，修改存在问题，不会影响所有的form

其他引用了网络定义

• custom.pll是EBS标准的一个library,当系统启动的时候会加载这个library。

• 很多时候，我们会需要写一些pll文件，比如控制Form上某些item的属性，如果是控制标准Form的某些属性，那么我们就可以通过Library来实现，而不用去动标准的Form（一般我们建议不去修改标准的Form）。再比如在工具条上增加一些菜单，等等。

• 当然，所有这些我们都可以通过直接修改custom.pll来实现，但是，我们不建议这么做，我们可以copy custom.pll重命名为:xx_cn_custom.pll (名字自己取)，然后把xx_cn_custom.pll加载到custom.pll下 (在custom.pll的event里，加上这段代码即可：xx_cn_custom.event;)，这样，系统启动的时候就会通过custom.pll也把xx_cn_custom.pll启动起来，那么，以后有什么客户化的library都可以在xx_cn_custom.pll里面修改了。比如，我客户化了一个叫xx_wip_custom.pll的library，那么我只要在xx_cn_custom.pll的event的procedure里加上：xx_wip_custom.event;就可以了。

• 这样做的好处就是降低了风险，因为custom.pll是标准的library，不管是调试还是其它的，都会影响到全局，当我们加载xx_cn_custom.pll之后，就会避免这些问题。

 

二、案例

---

需求：用户要求在EBS 日记账功能菜单项中添加一个按钮

1. 下载Custom.pll文件至本地

2. 新增bxjcustom.pll文件，并添加procedure<bxj_pll_event_event>

3. 将bxj_custom.pll添加至custom.pll

4. 编译custom.pll至server上

 

三、案列测试

---

Test1. 打开Form后触发Custom.pll

Test2.新增Special

Test3. 点击Button，触发Button下的tigger

 

四、其他

---

1. 编译错误，先编译sub pll，后编译parater pll

2. 其他修改pll的例子，去form中的值，调用fnd_request打印报表

PROCEDURE event (event_name VARCHAR2)  IS
   form_name VARCHAR2 (30) := NAME_IN ('system.current_form');
    block_name VARCHAR2 (30) := NAME_IN ('system.cursor_block');
BEGIN
    IF event_name = 'CALL_CUSTOM_EVENT' THEN
        IF (form_name = 'APXINWKB' AND block_name = 'INV_SUM_FOLDER')    THEN
            DECLARE
                l_group_name VARCHAR2 (60) := block_name || '_MULTI';
                l_rec_group_id recordgroup;
                l_curr_rec_num NUMBER;
                l_num_records NUMBER;
                l_invoice_id_str VARCHAR2 (2000);
                l_curr_record NUMBER;
                l_success BOOLEAN;
                l_request_number NUMBER;
                e_check_error_exception exception;
            BEGIN
                -- 获取选中的invoice
                l_rec_group_id := FIND_GROUP (block_name || '_MULTI');
                IF NOT ID_NULL (l_rec_group_id) THEN
                    l_num_records := GET_GROUP_ROW_COUNT (FIND_GROUP (l_group_name));
                    IF l_num_records > 0 THEN
                        l_invoice_id_str := NULL;
                        -- 对选中的记录进行循环
                        FOR i IN 1 .. l_num_records LOOP
                            l_curr_rec_num := GET_GROUP_NUMBER_CELL (l_group_name || '.REC_NUM', i);
                            GO_RECORD (l_curr_rec_num);
                            -- 组合invoice id作为请求参数
                            IF l_invoice_id_str IS NULL THEN
                                l_invoice_id_str := NAME_IN (block_name || '.INVOICE_ID');
                            ELSE
                                l_invoice_id_str := l_invoice_id_str || ',' || NAME_IN (block_name || '.INVOICE_ID');
                            END IF;
                        END LOOP;
                    IF l_invoice_id_str IS NOT NULL THEN
                        l_invoice_id_str := '(' || l_invoice_id_str || ')';
                        -- 加载模板
                        l_success := fnd_request.add_layout ('XXBG', 'XXBGREQP','zh','CN','PDF');
                        IF l_success THEN
                            -- 设置请求的业务实体
                            fnd_request.set_org_id (l_org_id);
                            -- 提交打印付款申请请求
                            l_request_number := fnd_request.submit_request ('XXBG', 'XXBGREQP',   '','',FALSE,l_invoice_id_str,CHR (0),'','');
                            IF l_request_number = 0 THEN
                                fnd_message.retrieve;
                                fnd_message.error;
                            ELSE
                                IF app_form.quietcommit THEN
                                    fnd_message.set_name ('SQLGL','GL_REQUEST_SUBMITTED');
                                    fnd_message.set_TOKEN ('REQUEST_ID',TO_CHAR (l_request_number),FALSE);
                                    fnd_message.show;
                                END IF;
                                -- 弹出请求窗口
                                fnd_function.execute (function_name => 'FND_FNDRSRUN',open_flag => 'Y',session_flag => 'Y',other_params => 'DODT_REQ_ID="'|| TO_CHAR (l_request_number)|| '"');
                            END IF;
                        END IF;
                    END IF;
                GO_RECORD (l_curr_record);
            ELSE
                fnd_message.set_name ('', 'Please select one record');
                RAISE e_check_error_exception;
            END IF;
        END IF;
             EXCEPTION  WHEN e_check_error_exception THEN
             fnd_message.error;
             RAISE form_trigger_failure;
        END;
   END IF;
END IF;
END event; 

 

Thanks and Regards