跳到主要內容

更新或建立 ITEM CATEGORY


 DECLARE
  
   CURSOR C3 IS
   SELECT TRIM(A ) item_number, TRIM(D) g01
     FROM TMP_CCC
    where TRIM(d) is not null;

    v_process_id                    number;
    v_inventory_item_id                number;
    v_item_insert                   number:=0 ;
    v_category_id                    number;
    v_po_category_set_id            number;
    v_om_category_set_id            number;
    v_item_count                     number:=0 ;
    v_count1                        number:=0 ;
    v_request_id                    number;
    v_organization_id                number;
    xx_ls_phase                     varchar2(240 );
    xx_ls_status                    varchar2(240 );
    xx_ls_dummy1                    varchar2(240 );
    xx_ls_dummy2                    varchar2(240 );
    xx_ls_dummy3                    varchar2(240 );
    xx_lb_return                    boolean;
    v_buyer_id                        number;
    v_planner_code                    number;
    v_template_id                     number;
    v_template_name                    varchar2(30 );
    x_item_id                          number;
    dummy                                number;
    x_category_id                    number;
    v_uom                                varchar2(10 );
    v_weight_uom                    varchar2(10 );
    x_errbuf                           VARCHAR2(200 );
  x_retcode                          VARCHAR2(200 );
  V_CATEGORY_SET_ID_O   number;
  V_CATEGORY_ID_O       number;
  V_CATEGORY_CONCAT_SEGS   VARCHAR2(163 );
  V_CATEGORY_SET_ID     number;
  v_exist               VARCHAR2(1 ):= 'N';
BEGIN

DBMS_APPLICATION_INFO.SET_CLIENT_INFO (84);    --Organization_ID
--DBMS_APPLICATION_INFO.SET_CLIENT_INFO(FND_PROFILE.VALUE('LANG'));

    select    Mtl_system_items_intf_sets_s.nextval
    into     v_process_id
    from     dual;

  v_exist := 'N';

    for r in c3 loop
        v_exist := 'Y';

            begin
                select a.CATEGORY_ID
                        ,b. category_set_id
                into    v_category_id
                        ,v_po_category_set_id
                from     mtl_categories_b_kfv a
                        ,MTL_CATEGORY_SETS_V b
                WHERE     a.structure_id = b .structure_id
                and          b.CATEGORY_SET_NAME = 'Group01'    --只更新指定的Category Name
                and          a.CONCATENATED_SEGMENTS = r .g01;
            exception
                when others then
                     v_category_id := '';
                     v_po_category_set_id := '';
            end;
           
            select inventory_item_id into  v_inventory_item_id from mtl_system_items_b where segment1=r.item_number
                and organization_id=84 ;

            if v_category_id is not null then
           BEGIN
              SELECT CATEGORY_SET_ID, CATEGORY_ID, CATEGORY_CONCAT_SEGS
                INTO V_CATEGORY_SET_ID_O, V_CATEGORY_ID_O, V_CATEGORY_CONCAT_SEGS
                FROM MTL_ITEM_CATEGORIES_V A,
                     MTL_SYSTEM_ITEMS_B B
               WHERE A.Organization_id = B .Organization_id
                 AND A.Organization_id = 84
                 AND A.INVENTORY_ITEM_ID = B .INVENTORY_ITEM_ID
                 AND A.STRUCTURE_ID = 50272
                 AND B.SEGMENT1 = trim(upper( r.item_number ));
           EXCEPTION
              WHEN OTHERS THEN
                   V_CATEGORY_SET_ID_O := '';
                   V_CATEGORY_ID_O := '';
                   V_CATEGORY_CONCAT_SEGS := '';
           END;
                    BEGIN
                      IF V_CATEGORY_CONCAT_SEGS IS NOT NULL AND V_CATEGORY_CONCAT_SEGS ! = r.FUHSING_STOCKER THEN
                           Insert into MTL_Item_Categories_Interface (
                                                            inventory_item_id,
                                                            Organization_id,
                                                            Transaction_type,
                                                            process_flag,
                                                            Item_number,
                                                            Set_process_id,
                                                            category_set_id,
                                                            category_id,
                                                            OLD_CATEGORY_ID)
                                                    Values(
                                                             v_inventory_item_id,
                                                            84,
                                                            'UPDATE',
                                                             1,
                                                            trim(upper(r. item_number)),
                                                            v_process_id,
                                                            V_CATEGORY_SET_ID_O,
                                                            v_category_id,  -- NEW_CATEGORY_ID
                                                            V_CATEGORY_ID_O -- OLD_CATEGORY_ID
                              );

                      END IF;

                      IF V_CATEGORY_CONCAT_SEGS IS NULL THEN
                         Insert into MTL_Item_Categories_Interface (
                                                               inventory_item_id,
                                                               Organization_id,
                                                               last_update_date,
                                                               last_updated_by,
                                                               creation_date,
                                                               ----------------------5
                                                               created_by,
                                                               last_update_login,
                                                               category_set_id,
                                                               category_id,
                                                               Transaction_type,
                                                               ----------------------10
                                                               process_flag,
                                                               Item_number,
                                                               Set_process_id
                                                       )Values(
                                                               v_inventory_item_id,
                                                               84,
                                                               sysdate,
                                                               fnd_profile.VALUE('USER_ID' ),--fnd.user,
                                                               sysdate,
                                                               ----------------------5
                                                               fnd_profile.VALUE('USER_ID' ),--fnd.user,
                                                               fnd_profile.VALUE('USER_ID' ),--fnd.user,
                                                               v_po_category_set_id,
                                                               v_category_id,
                                                               'CREATE',
                                                               ----------------------10
                                                               1,
                                                               trim(upper(r. item_number)),
                                                               v_process_id
                                                               );
            END IF;
                  END;
            end if;   

        commit;

    end loop;

END;
/

執行完上述的PL/SQL之後,可以到ERP來執行。

1、找出set_process_id

select set_process_id from   mtl_item_categories_interface ;


2、執行ERP,填入Set_Process_id





留言

這個網誌中的熱門文章

Shell Script簡易教學

一、概論
在許多的情況之下,我們都需要固定一組可以重覆或判斷資訊的指令,
而把這些指令存被在文字檔中,再交由Shell執行,就是Script。
一般會將Shell Script的副檔名命名為.sh,雖然副檔名在Linux中並非必要,
但是有副檔名可以讓我們更容易管理這些檔案。

假設有一個名為test.sh 的 Shell Script,首先用文字編輯器來撰寫內容如下:
#!/bin/bash
echo Hello World

第一行是必需的,它是用來定義你要使用的 shell。Linux中有許多的Shell可以使用,
如:ksh、bash,但是彼此之間語法有所差異,所以我們首先需要定義使用哪一個Shell。
而第二行的 echo 代表列出一個字串,預設會把後面的字串「Hello World」顯示在螢幕上。
將test.sh存檔後,可以用下列其中一種方式執行它:
1、直接輸入 sh test.sh
2、改變test.sh的權限,加上可以執行的權限,
   chmod a+x test.sh
   接著直接執行它:
   ./test.sh

在Shell Script中,「#」表示註解,在#後面將視為註解並且被程式忽略。
例如:
#pwd
ls -l
Shell只會執行ls -l,而不會執行ls -l

而「;」 則代表指令的分隔,例如:
pwd;ls -l

pwd
ls -l
都是一樣執行pwd及ls -l。

二、變數的使用
在Shell Script中,所有的變數都視為字串,因此不需要在定義變數類型。
在Shell中定義和使用變數時並不一樣。
例如,定義一個變數id並且設定值為2013001,接著還要將印出變數的值:
id=2013001 -> 定義變數時前面不加「$」符號
echo $id   -> 使用變數時前面要加「$」符號
注意,在等號的二邊不可以有空白,否則將出現錯誤。

再介紹一個範例:
dir=/home/oracle
ls $dir

這裡我們定義了變數dir的值為/home/oracle,接著用ls指令來印出變數dir,
此時指令會變為ls /home/oracle,所以就把目錄中所有檔案都列出來。


我們再來看一個例子,說明如何使用變數來定義變數:
$ tmppath=/tmp$ tmpfile=$tmppath/abc.txt$ ec…

用Excel 2010製作免費甘特圖

用Excel 2010製作免費甘特圖,以下是完成圖,其實是用圖表的功能加上修改圖表的選項來仿製甘特圖,
並非真正的甘特圖,如果要用免費的甘特圖軟體,可以下載GanttProject,有支援中文。
官方網址:http://www.ganttproject.biz/

首先將任務、開始日期、天數、完成日期填入工作表中,完成計劃後將資料全選,並在工具列上找到橫條圖。
一定要將資料全選起來,不然Excel有可能會判斷錯誤,畫出不符我們需求的圖表
(日期我算錯了,不過不影響製作,可以事後再修改)

圖表出現之後,修改資料的範圍(藍色框的部份),將資料由D6拉到C6。
「完成日期」只是為了讓Excel一開始不要判斷錯誤而產生錯誤的圖表。

在「藍色線條」上按滑鼠右鍵,選擇「資料數列格式」

依下圖點選「無填滿」,把藍色的線條變成透明,讓圖表看起來像是甘特圖。

接著我們要修改欄、列的參數,在下面日期的部份點選滑鼠右鍵,選「座標軸格式」

下方列是日期,所以選「日期」,並選擇一個類型

再來到「座標軸選項」中設定最小、最大值,讓圖表看起來更像甘特圖,其中最小值、最大值的數字,
是由1900/1/1到指定日期的總天數,例如:2014/4/9-1900/1/1=41737天(可用Excel直接相減得出數值)
「主要刻度間距」改為1,也就是間距為1天

接著回到圖表上,在左方任務列上按滑鼠右鍵,選擇「座標軸格式」

這次只選「類別次序反轉」,會把任務上下翻轉。

最後再將圖表的寬度、長度做一個調整就完成了。

補充說明: 如果遇到下列的情形,圖表的內容相反的話,可以按下「切換列/欄」來改變

Excel可以自訂公式(函數)來補足內建公式(函數)無法處理的情形

Excel有許多實用的公式,善用這些公式可以達成大部份的功能,但是萬一公式無法滿足需求時,可以自訂公式來解決。

          自訂公式其實就是自訂函數,先開啟Visual Basic(VBA)


                     新增一個「模組」


在開啟的模組視窗內撰寫VBA的函數程式,例如:

Function TEST01(A, B)
    TEST01 = A * 10 + B * 20
End Function

                    函數TEST01需要兩個參數A、B,並且將計算的結果回傳。



完成上述的設計之後,就可以在插入函數中選擇使用者定義,再選擇TEST01。
(或直接在儲存格輸入函數名稱TEST01)
反正使用的方法就跟一般的Excle的公式一樣就對了。