跳到主要內容

EBS自動拋轉INV Interface的範例

DECLARE
   p_organization_id   mtl_system_items_interface.organization_id%TYPE   := 168;
   p_user_id           fnd_user.user_id%TYPE;
   p_set_process_id    mtl_system_items_interface.set_process_id%TYPE    := 5000;
  
   CONC_ID NUMBER;   
    rc                  number;
    rt                  boolean;
    outcome             varchar2(200) := NULL;
    message             varchar2(200) := NULL;
    timeout             number:= 3000;
    LB_RETURN           BOOLEAN;
    LS_PHASE            VARCHAR2(100);
    LS_STATUS           VARCHAR2(100);
    LS_DUMMY1           VARCHAR2(100);
    LS_DUMMY2           VARCHAR2(100);
    LS_DUMMY3           VARCHAR2(100);
    V_DUMMY             NUMBER := 0;
   
    v_request_id    number;
    errbuf    varchar2(500);
   
    l_num_user_id    number;
    l_num_resp_id    number;
    l_num_resp_appl_id   number;
   

   CURSOR cur IS
       SELECT distinct d.inventory_Item_id,d.segment1
          FROM MTL_SYSTEM_ITEMS D               
          WHERE d.organization_id=168          
           and  d.segment1='XX-1234';
  
   BEGIN
  
   FOR rec IN cur LOOP
       --將欲修改的資料寫入INTERFACE
       INSERT INTO mtl_system_items_interface
                (
                   process_flag , set_process_id
                 , transaction_type, inventory_item_id               
                 , organization_id
                 , last_update_date
                 , last_updated_by , last_update_login
                 ,FIXED_DAYS_SUPPLY
                  )
         VALUES (
                  1 , p_set_process_id
                 ,'UPDATE' , rec.inventory_item_id               
                 , p_organization_id
                 , SYSDATE                
                 ,-1,-1
                 ,1
                  );
   END LOOP;

   COMMIT;

   --找初始化環境所需的資料  
   SELECT user_id
          INTO l_num_user_id
           FROM applsys.fnd_user
          WHERE user_name ='TEST_USER';
         
   SELECT responsibility_id
           INTO l_num_resp_id
           FROM apps.fnd_responsibility_vl
          WHERE responsibility_name ='INVENTORY';
         
   SELECT application_id
           INTO l_num_resp_appl_id
           FROM applsys.fnd_application
          WHERE application_short_name = 'INV';

   --初始化必要的環境變數
   fnd_global.apps_initialize (
            user_id       => l_num_user_id, 
            resp_id       => l_num_resp_id,
            resp_appl_id  => l_num_resp_appl_id
            );                                    

   --如果成功會回傳Request ID,失敗傳回0              
   v_request_id:=Fnd_Request.submit_request (
            application   => 'INV',
            Program       => 'INCOIN',
            description   => '',
            start_time    => '',
            sub_request   => FALSE,
            argument1     => '168',
            argument2     => '1',           
            argument3     => '1',  --Group ID option (All)
            argument4     => '1',  -- Group ID Dummy
            argument5     => '1',  -- Delete processed Record 
            argument6     => p_set_process_id,  -- Set Process id                   
            argument7     =>'2'   -- Update item
                            );  
   COMMIT ;      
      
    dbms_output.put_line( v_request_id) ;
      
    IF p_set_process_id = 0 THEN
      errbuf := 'Call INCOIN Error';
      rollback;
      return;
    END IF;
   
    lb_return := fnd_concurrent.wait_for_request(
            p_set_process_id
           ,3        -- interval
           ,7200     -- max_wait
           ,ls_phase
           ,ls_status
           ,ls_dummy1
           ,ls_dummy2
           ,ls_dummy3
            );
    IF TRIM(ls_phase) = 'Completed' AND TRIM(ls_status) NOT IN ('Normal','Warning') THEN
        errbuf :='Batch Submit item error';
        return;
    END IF;       

END;

留言

這個網誌中的熱門文章

Line如何換行

在電腦版的Line輸入文字時,遇到需要換行的情形時,我都是用記事本先寫好再複製上去,這樣就可以有換行的效果,可是這樣的做法好像失去Line的便利性。 於是查了一下,原來有一個設定可以指定Enter換行,而不是發訊息出去。 完成設定之後,要發送訊息就改用Alt+Enter,而Enter就可以換行了。

在Windows下,利用tasklist與taskkill來刪除Process

Windows7 / Windows8 kill process Linux下要刪除某個程序通常會使用 ps 配合 kill 來刪除程序。 例如:ps -ef |grep [PROCESS NAME]       kill -9 [PID] 在Windows下,通常是開啟工作管理員來強制結束應用程式,但是如果要寫成Script,就必須改為命令式。 TASKLIST [/S system [/U username [/P [password]]]]          [/M [module] | /SVC | /V] [/FI filter] [/FO format] [/NH]           TASKKILL [/S system [/U username [/P [password]]]]          { [/FI filter] [/PID processid | /IM imagename] } [/T] [/F]           (Tasklist:查詢Process ; Taskkill:刪除Process)           例如要刪除已開啟的記事本(notepad): 1、查詢記事本的Process訊息     C:\> tasklist |find /i "notepad.exe"     notepad.exe      6092 Console     1     5,832 K 2、由上得知記事本的PID為6092     C:\> taskkill /f /PID 6092     成功:處理程序 PID 6092 已經終止了。     taskkill使用的參數     /f:指定此參數可強制終止處理程序     /PID:指定要終止之處理程序的 PID      3、也可以直接以程式名稱刪除     C:\ taskkill /f /im notepad.exe     成功:處理程序 "notepad.exe" <PID 6092> 已經終止了      下面是我自己測試的Script,可以刪除多個相同的程式,例如同時開啟了三個記事本: @echo off for /f &quo

Win 10 工作排程無法執行bat批次檔

利用Win 10的工作排程器來設定每日自動執行的批次檔,單獨執行批次檔沒問題,但是放在排程上就是無法執行。 後來試了幾種網路上提供的方式,其注意的事項如下: 1、在「安全性選項」選擇「只有使用者登入時才執行」並取消「以最高權限執行」。 2、在「設定」中選擇「Windows 10」 3、批次檔內的執行檔需以完整的路徑執行,或設定PATH路徑。 3、批次檔中如果帶有中文的路徑,則文字編碼類型必需是ANSI碼,       我的批次檔一開始就是UTF-8碼,但是單獨執行沒有問題,排程上就是有問題,       最後在批次檔中加入暫停指令pause才發現的。 4、如果想選擇「不論使用者登入與否均執行」,則在「設定」必須選擇「Windows Server 2003、Windows XP或Windows 2000」,    但是上述的選項只有在新增工作程程時才會出現,原有的工作排程是不會有此選項