EBS 创建物料类别

 需要校验类别集，类别是否存在

控制层为主层给所有组织创建，为组织层则给当前组织创建。

DECLARE
  x_Category_Set_Id   NUMBER;
  x_Category_Id       NUMBER;
  x_Inventory_Item_Id NUMBER;
  x_Return_Status     VARCHAR2(2);
  x_Errorcode         NUMBER;
  x_Msg_Count         NUMBER;
  x_Msg_Data          VARCHAR2(200);
BEGIN
  SELECT a.Category_Set_Id
    INTO x_Category_Set_Id
    FROM Mtl_Category_Sets a
   WHERE a.Category_Set_Name = 'Product_Convolution';--类别集

  SELECT Mc.Category_Id
    INTO x_Category_Id
    FROM Mtl_Categories Mc
   WHERE Mc.Segment1 = '成本卷积物料'; --类别

  SELECT t.Inventory_Item_Id
    INTO x_Inventory_Item_Id
    FROM Mtl_System_Items_b t
   WHERE t.Segment1 = '0235L025'
     AND t.Organization_Id = 90;

  Inv_Item_Category_Pub.Create_Category_Assignment(p_Api_Version       => 1.0
                                                  ,p_Init_Msg_List     => Fnd_Api.g_False
                                                  ,p_Commit            => Fnd_Api.g_False
                                                  ,x_Return_Status     => x_Return_Status
                                                  ,x_Errorcode         => x_Errorcode
                                                  ,x_Msg_Count         => x_Msg_Count
                                                  ,x_Msg_Data          => x_Msg_Data
                                                  ,p_Category_Id       => x_Category_Id
                                                  ,p_Category_Set_Id   => x_Category_Set_Id
                                                  ,p_Inventory_Item_Id => x_Inventory_Item_Id
                                                  ,p_Organization_Id   => 90);
END;