UOM物料单位转换（同类型才能转换）

最新推荐文章于 2024-03-10 20:37:33 发布

weixin_34210740

最新推荐文章于 2024-03-10 20:37:33 发布

阅读量625

点赞数

本文介绍了一个用于物料单位转换的函数实现。该函数可以根据输入的不同单位进行转换，并通过判断单位的一致性和类型匹配来确保转换的有效性。此外，还介绍了如何从物料单位表中获取基本单位和转换比率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

apps.mtl_units_of_measure -- 物料單位表

apps.mtl_uom_conversions -- 物料單位進率轉換表

CREATE OR REPLACE FUNCTION mtl_uom_conversion_func (p_from_uom IN VARCHAR2, -- 要被轉換的 UOM
                                                                                               p_to_uom IN VARCHAR2,     -- 將要轉換成的 UOM
                                                                                               p_unit IN number                      -- 要被轉換的數量
)
   RETURN NUMBER
AS
   fr_base_uom   VARCHAR2 (10);
   to_base_uom   VARCHAR2 (10);
   conv1         NUMBER;
   conv2         NUMBER;
   result        NUMBER;
BEGIN

-- 判斷被轉的UOM 與將要轉成的UOM 是否一樣，若一樣的話，將原值返回
IF UPPER (TRIM (p_from_uom)) = UPPER (TRIM (p_to_uom)) THEN

RETURN p_unit;
END IF;

   -- 判斷被轉的UOM 是什麼類型
   SELECT UPPER (uom_code)
   INTO fr_base_uom
   FROM apps.mtl_units_of_measure
   WHERE base_uom_flag = 'Y'
         AND uom_class = (SELECT uom_class
                          FROM apps.mtl_units_of_measure
                          WHERE UPPER (uom_code) = UPPER (TRIM (p_from_uom)));

   -- 判斷將要轉的UOM 是什麼類型
   SELECT UPPER (uom_code)
   INTO to_base_uom
   FROM apps.mtl_units_of_measure
   WHERE base_uom_flag = 'Y'
         AND uom_class = (SELECT uom_class
                          FROM apps.mtl_units_of_measure
                          WHERE UPPER (uom_code) = UPPER (TRIM (p_to_uom)));

-- 判斷將要被轉UOM 與被轉的UOM 類型是否一致
if (fr_base_uom <> to_base_uom) then
return -1; -- -1表示類型不同，而不能進行單位轉換
end if;

   -- 判斷被轉的UOM 轉換率
   SELECT conversion_rate
   INTO conv1
   FROM apps.mtl_uom_conversions
   WHERE UPPER (uom_code) = UPPER (TRIM (p_from_uom));

   -- 判斷將要轉成的UOM 轉換率
   SELECT conversion_rate
   INTO conv2
   FROM apps.mtl_uom_conversions
   WHERE UPPER (uom_code) = UPPER (TRIM (p_to_uom));

-- 依據兩個單位之間的進率進行公式轉換
result := (p_unit * conv1) / conv2;

   RETURN result;
EXCEPTION
   WHEN OTHERS
   THEN
      RETURN -1;
END;