楼主: judy007

[精华] 哪位高手会改CUSTOM.pll请进来!

[复制链接]
论坛徽章:
0
11#
 楼主| 发表于 2004-10-26 09:52 | 只看该作者
app_special.instantiate('SPECIAL1'
                                , '运行调拨单'
                                ,  NULL
                                , TRUE
                                , NULL);
可以这样,还要写些什么东西的,可我在CUSTOME.pll中加了以后,进入系统时就报错了

使用道具 举报

回复
论坛徽章:
164
技术图书徽章
日期:2018-12-26 10:01:29指数菠菜纪念章
日期:2013-06-28 17:41:29蛋疼蛋
日期:2013-04-03 16:29:52指数菠菜纪念章
日期:2013-04-01 15:26:282013年新春福章
日期:2013-02-25 14:51:24指数菠菜纪念章
日期:2013-01-04 11:30:40指数菠菜纪念章
日期:2012-09-29 10:28:42版主6段
日期:2012-05-15 15:24:11指数菠菜纪念章
日期:2012-03-31 14:04:28茶鸡蛋
日期:2012-03-12 16:56:15
12#
发表于 2004-10-26 10:35 | 只看该作者
我看见标准程式上是这样的

app_special.instantiate('SPECIAL1', substr(menu_entry_name,1,50), null, FALSE);

使用道具 举报

回复
论坛徽章:
0
13#
 楼主| 发表于 2004-10-26 15:29 | 只看该作者
procedure APP_SPECIAL.INSTANTIATE(
option_name varchar2,
hint varchar2 default null,
icon varchar2 default null,
initially_enabled boolean default true,
separator varchar2 default null);
这个应该是没问题的。

使用道具 举报

回复
论坛徽章:
164
技术图书徽章
日期:2018-12-26 10:01:29指数菠菜纪念章
日期:2013-06-28 17:41:29蛋疼蛋
日期:2013-04-03 16:29:52指数菠菜纪念章
日期:2013-04-01 15:26:282013年新春福章
日期:2013-02-25 14:51:24指数菠菜纪念章
日期:2013-01-04 11:30:40指数菠菜纪念章
日期:2012-09-29 10:28:42版主6段
日期:2012-05-15 15:24:11指数菠菜纪念章
日期:2012-03-31 14:04:28茶鸡蛋
日期:2012-03-12 16:56:15
14#
发表于 2004-10-26 15:47 | 只看该作者
那你可以把错误画面贴上来吗?

使用道具 举报

回复
招聘 : 技术/实施/服务顾问
论坛徽章:
5
授权会员
日期:2005-10-30 17:05:33会员2006贡献徽章
日期:2006-04-17 13:46:34会员2007贡献徽章
日期:2007-09-26 18:42:102009新春纪念徽章
日期:2009-01-04 14:52:28ITPUB十周年纪念徽章
日期:2011-11-01 16:19:41
15#
发表于 2004-10-26 16:23 | 只看该作者

zoom 应该可以,你试试below codes, 我们是call 一个custom form

最初由 judy007 发布
[B]用户要求在Inventory的处理物料搬运单行分配界面,按下“Update”键后,传入参数单据编号并自动运行二次开发的调拨单report,然后在实物进行签收后,再进行"Transact"。因此,我们的顾问为了达到此目的,又不修改标准form,要求启用zoom功能,或在tool下增加一个“运行调拨单”的菜单,用户在点击此菜单时,先判断数据是否保存,然后自动运行report。 [/B]



package body custom is
  function zoom_available return boolean is
lv_form_name  varchar2(30) := name_in('system.current_form');
  lv_block_name varchar2(30) := name_in('system.cursor_block');  
  BEGIN
    IF (lv_form_name = 'form name' and block_name = 'block name') THEN
            --if block_name = 'SITE' then
      return TRUE;          
    ELSE
      return FALSE;
      --fnd_message.debug('block_name');
    --end if;
    END IF;
END zoom_available;

  procedure event(event_name varchar2) is
    form_name      varchar2(30) := name_in('system.current_form');
    block_name     varchar2(30) := name_in('system.cursor_block');
    lv_param_to_pass1 varchar2(30);
    lv_param_to_pass2 varchar2(30);
    lv_param_to_pass3 varchar2(30);
    lv_param_to_pass4 varchar2(80);
IF (event_name = 'ZOOM') THEN             
   
              IF (form_name = 'form name' AND block_name = 'block name') THEN
                lv_param_to_pass1 := name_in('your parameter 1');
                lv_param_to_pass2 := name_in('your parameter 2');
                lv_param_to_pass3 := name_in('your parameter 3');
                lv_param_to_pass4 := name_in('your parameter 4');
           lv_param_to_pass5 := name_in('your parameter 5');
        fnd_function.execute(FUNCTION_NAME=>'Your function name',  
                             OPEN_FLAG=>'Y',  
                             SESSION_FLAG=>'Y',  
           OTHER_PARAMS=>'your parameter 1="'||lv_param_to_pass1||
                                           '"your parameter 2="'||lv_param_to_pass2||
                                    '" your parameter 3="'||lv_param_to_pass3||
                                           '" your parameter 4="'||lv_param_to_pass4||
                                           '" ="'||lv_param_to_pass5||'"'
                          );                
   
                          );      
                        
      END IF;

使用道具 举报

回复
论坛徽章:
0
16#
发表于 2004-10-27 17:30 | 只看该作者
zoom方案最好

使用道具 举报

回复
论坛徽章:
164
技术图书徽章
日期:2018-12-26 10:01:29指数菠菜纪念章
日期:2013-06-28 17:41:29蛋疼蛋
日期:2013-04-03 16:29:52指数菠菜纪念章
日期:2013-04-01 15:26:282013年新春福章
日期:2013-02-25 14:51:24指数菠菜纪念章
日期:2013-01-04 11:30:40指数菠菜纪念章
日期:2012-09-29 10:28:42版主6段
日期:2012-05-15 15:24:11指数菠菜纪念章
日期:2012-03-31 14:04:28茶鸡蛋
日期:2012-03-12 16:56:15
17#
发表于 2004-10-27 17:46 | 只看该作者
最初由 esuzhang 发布
[B]zoom方案最好 [/B]


能具体说说怎么做吗?

使用道具 举报

回复
论坛徽章:
0
18#
发表于 2004-10-27 18:23 | 只看该作者
--引号中的block_name,form_name用自己的名称

package body custom is

  function zoom_available return boolean is
    form_name  varchar2(30) := name_in('system.current_form');
    block_name varchar2(30) := name_in('system.cursor_block');  
  begin
     if (form_name = 'form_name' and block_name = 'block_name') then
      return TRUE;
    else
      return FALSE;
    end if;
  end zoom_available;  


  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 = 'ZOOM') then   
      if (form_name = 'form_name' and block_name = 'block_name') then
        --param_to_pass1 := name_in('block_name.param');
        fnd_messafe.debug('just try');
        /*fnd_function.execute(FUNCTION_NAME=>'aaa',  
                             OPEN_FLAG=>'Y',  
                             SESSION_FLAG=>'Y',  
                             OTHER_PARAMS=>'param="'||param_to_pass1||'"');
        */                     
      end if;
    end if;
  end event;

BEGIN

  fdrcsid('$Header: CUSTOM.pld 115.5.1150.1 2000/02/07 16:10:16 pkm ship $');

end custom;

使用道具 举报

回复
论坛徽章:
0
19#
 楼主| 发表于 2004-10-28 10:28 | 只看该作者
谢谢楼上的,那么我写的提交一个report的这段procedure有什么问题啊?编译的时候报错:不支持的结构或内部错误[2601]。
        procedure submit_report is
                req_id number;
                begin
                req_id := FND_REQUEST.SUBMIT_REQUEST(application=>'XXX',                                          program=>'XXINR',                                                  argument1=>'X1',                                                  argument2=>'X2',                                                                            argument3=>'X3');
                        if (req_id = 0) then
                                -- Handle submission error
                                FND_MESSAGE.RETRIEVE;
                                FND_MESSAGE.ERROR;                                                                            else
                                commit;
                        end if;
                end submit_report;

使用道具 举报

回复
招聘 : 技术/实施/服务顾问
论坛徽章:
5
授权会员
日期:2005-10-30 17:05:33会员2006贡献徽章
日期:2006-04-17 13:46:34会员2007贡献徽章
日期:2007-09-26 18:42:102009新春纪念徽章
日期:2009-01-04 14:52:28ITPUB十周年纪念徽章
日期:2011-11-01 16:19:41
20#
发表于 2004-10-28 18:49 | 只看该作者

Else commit

IF lv_request_id = 0 THEN
      lv_error_msg :='Submit request for load terminator assets failed with error: '
          ||fnd_message.get;
      fnd_file.put_line(fnd_file.output,lv_error_msg);
      p_errbuf := lv_error_msg;
      p_retcode := '2';
      RETURN;
   ELSE
      COMMIT; -- This will start the request

使用道具 举报

回复

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 未成年人举报专区 
京ICP备16024965号-8  北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表