跳到主要內容

逆展BOM

以下是修改過的逆展,只抓最頂層的料號,會將結果寫入tmp_ccc
Declare

   v_comp number:= 0;

   cursor cur_1 is
       select inventory_item_id
           from mtl_system_items_b
           where organization_id = <ORGANIZATION_ID>
           and segment1 = <ITEM>

    r1 cur_1%rowtype;

   Procedure Get_top_item (component_item_id number ) is

      Cursor Cur_bom is
          select bom.ASSEMBLY_ITEM_ID ,
                 msib.segment1 item_number
              from bom_components_b bcb,
                   bom_bill_of_materials bom,
                   mtl_system_items_b msib
              where bcb.bill_sequence_id = bom .BILL_SEQUENCE_ID
                 and bom.ORGANIZATION_ID = <ORGANIZATION_ID>
                 and bcb.component_item_id = component_item_id
                 and bcb.disable_date is null
                 and bom.ORGANIZATION_ID = msib .organization_id
                 and bom.ASSEMBLY_ITEM_ID = msib .inventory_item_id
                 and bcb.component_quantity > 0 ;

   Begin

      For c_bom in Cur_bom Loop
          select count(* ) into v_comp
     from bom_components_b bcb,
                   bom_bill_of_materials bom
              where bcb.bill_sequence_id = bom .BILL_SEQUENCE_ID
                   and bom.ORGANIZATION_ID = <ORGANIZATION_ID>
                   and bcb.disable_date is null
                   and bcb.component_quantity > 0
                   and bcb.component_item_id = c_bom .ASSEMBLY_ITEM_ID ;

            If v_comp > 0 then
                Get_top_item (c_bom. ASSEMBLY_ITEM_ID);
            else
                 --dbms_output.put_line('Top Item:' ||c_bom .item_number);              
                 insert into tmp_ccc (a) values ( c_bom.item_number ) ;
            end if;

      End Loop;

   End;
 
Begin
    for r1 in cur_1 loop
       Get_top_item (r1.inventory_item_id );--Component Item Id
    end loop;
End;


-----------------------------------------------------------------------------------------------------------

--逆展BOM,可以自訂階層。

declare
      IN_ORGANIZATION_ID     NUMBER ;
      IN_ITEM_ID                    NUMBER ;
      ln_SEQUENCE_ID   number;
      char_date      varchar2(30);
      err_msg   varchar2(200);
      err_code varchar2(200);
   
   begin
 
       in_organization_id:=84;
       select inventory_item_id into in_item_id
               from mtl_system_items_b where organization_id=84 and segment1= <ITEM> ;

       delete BOM_SMALL_IMPL_TEMP;  --刪除TEMP資料

       select bom_implosion_temp_s.nextval -- 取 SEQUENCE
           into ln_SEQUENCE_ID
       from dual;

      -- 執行日期
      SELECT to_char(sysdate, 'YYYY/MM/DD HH24:MI')
        INTO char_date
        FROM dual;

      -- 逆展API
      BOMPIINQ.IMPLODER_USEREXIT (
                  sequence_id => ln_SEQUENCE_ID,
                  eng_mfg_flag => 1,              -- BOM
                  org_id => IN_ORGANIZATION_ID,
                  impl_flag => 1,                 --IMPLEMENTED_ONLY,
                  display_option => 1,            --All
                  levels_to_implode => 1,         --Level
                  item_id => IN_ITEM_ID,
                  impl_date => X_char_date,
                  unit_number_from => null,
                  unit_number_to => null,
                  err_msg => err_msg,
                  err_code => err_code,
                  organization_option => 1,
                  organization_hierarchy => null,
                  serial_number_from => null,
                  serial_number_to => null
                  );
   end;

--執行OK就可以應用BOM_SMALL_IMPL_TEMP的資料了。上一階ITEM抓parent_item_id,目前的ITEM抓CURRENT_ITEM_ID

留言

這個網誌中的熱門文章

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」,    但是上述的選項只有在新增工作程程時才會出現,原有的工作排程是不會有此選項