ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 在PL/SQL中提交Request

在PL/SQL中提交Request

原创 Linux操作系统 作者:ityilong 时间:2008-01-05 17:25:15 0 删除 编辑

declare
  l_request_id number;
  p_message    varchar2(255);
 
  v_app         varchar2(30);
  v_name        varchar2(30);
  v_method      varchar2(30);
  v_source_file varchar2(80);
  v_desc        varchar2(80);
 
begin

  v_app         := 'INV'; --簡稱
  V_NAME        := 'IMPORT_MES_PROD_ATT_TO_INFCE1'; --
  v_method      := 'PL/SQL Stored Procedure';--SQL*Plus  PL/SQL Stored Procedure
  V_SOURCE_FILE := 'TJ_ONT_ITEM_CATALOG_PKG.import_mes_prod_att_to_infce';
  v_desc        := '拋轉MES料號屬性資料到臨時表1';


   --fnd_global.APPS_INITIALIZE(1001934, 20560, 706, NULL);
  fnd_global.APPS_INITIALIZE(1001934, 20707, 201, NULL); --PURCHASING SUPER
  l_request_id := apps.FND_REQUEST.submit_request(v_app, --'Oracle Purchasing',
                                                  V_NAME,
                                                  v_desc,
                                                  TO_CHAR(SYSDATE,
                                                          'YYYY/MM/DD HH24:MI:SS'),
                                                  FALSE,
                                                  null,
                                                  'Standard',
                                                  null,
                                                  'No',
                                                  'No',
                                                  'Incomplete',
                                                  null,
                                                  null,
                                                  chr(0));
  if l_request_id > 0 then
    p_message := 'Request ID : ' || to_char(l_request_id);
    dbms_output.put_line('l_request_id : ' || l_request_id || ',');
    dbms_output.put_line('p_message : ' || p_message);
    commit;
  else
    p_message := apps.fnd_message.get;
    dbms_output.put_line('l_request_id : ' || l_request_id || ',');
    dbms_output.put_line('p_message : ' || p_message);
    rollback;
  end if;
end;

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

请登录后发表评论 登录
全部评论

注册时间:2008-01-02

  • 博文量
    15
  • 访问量
    19621