展开BOM并使用最终用量的算法(转载)

本文系转载子ITPUB，如果有侵犯您权益的地方，烦请及时的告知与我，我即刻将停止侵权行为:

网址：http://www.itpub.net/thread-1020586-1-1.html

        http://www.itpub.net/thread-1020772-3-1.html

        http://www.itpub.net/thread-1020712-1-1.html

       http://stackoverflow.com/questions/12221047/oracle-sql-hierarchical-query-flatten-hierarchy-and-perform-aggregation

      http://stackoverflow.com/questions/4786492/help-calculating-complex-sum-in-hierarchical-dataset/4786672#4786672

LEVEL    Parent   Child    Parent Qty        Child Qty
1            A            B         1                       3
2            B            C         2                       3
3            C            D         5                       6
4            D            E         1                       2
1            A            Z         1                       3

A是成品
B，C，D是半成品
E，Z是原材料

从上面一个比例关系可以计算出，做一个A最终需要10.8个E和3个Z，
也就是能看到下面的结果
Parent  Child   QTY
A           E         10.8
A           Z         3

我想知道有没有什么办法通过一个SQL语句来实现这个功能。

测试表：

CREATE TABLE BOM (PARENT VARCHAR2(10),CHILD VARCHAR2(10),P_QTY NUMBER, C_QTY NUMBER);

INSERT INTO BOM VALUES ('A','B',1,3);
INSERT INTO BOM VALUES ('B','C',2,3);
INSERT INTO BOM VALUES ('C','D',5,6);
INSERT INTO BOM VALUES ('D','E',1,2);
INSERT INTO BOM VALUES ('A','Z',1,3);

COMMIT;

1、使用SQL

SELECT P, D, SUM(QTY)
  FROM (SELECT P, C, D, POWER(10, SUM(LOG(10, QTY))) AS QTY
          FROM (SELECT DISTINCT P,
                                C,
                                SUBSTR(C, -1, 1) D,
                                REGEXP_SUBSTR(C, '[^,]+', 1, LEVEL),
                                TO_NUMBER(REGEXP_SUBSTR(Q, '[^*]+', 1, LEVEL)) AS QTY
                  FROM (SELECT CONNECT_BY_ROOT PARENT AS P,
                               SUBSTR(SYS_CONNECT_BY_PATH(CHILD, ','), 2) AS C,
                               1 || SYS_CONNECT_BY_PATH(C_QTY / P_QTY, '*') AS Q
                          FROM BOM
                         WHERE CONNECT_BY_ISLEAF = 1
                         START WITH PARENT = 'A'
                        CONNECT BY PARENT = PRIOR CHILD) C
                CONNECT BY LEVEL <= LENGTH(REGEXP_REPLACE(Q, '[^*]', '')) + 1
                 ORDER BY 1, 2) TT
         GROUP BY P, C, D) FF
 GROUP BY P, D

2、使用NEWID提供的聚合求积函数

解决思路：
1.把A的每个叶子找出来；
2.顺着叶子往根，一路作乘法上去。

SELECT CHILD,
       (SELECT PROD_AGG(C_QTY) / PROD_AGG(P_QTY)
          FROM BOM
        CONNECT BY PRIOR PARENT = CHILD
         START WITH CHILD = INNER.CHILD -- 从每个叶子开始
        ) AS C_QTY
  FROM (SELECT BOM.*, CONNECT_BY_ISLEAF AS IS_LEAF
          FROM BOM
        CONNECT BY PRIOR CHILD = PARENT
         START WITH PARENT = 'A')
 INNER WHERE IS_LEAF = 1 -- 这个条件找出所有的叶子

其中PROD_AGG 见：
http://www.itpub.net/thread-1020772-1-1.html

CHILD           C_QTY
---------- ----------
E                10,8
Z                   3

不用PRO_AGG的方法：

不用 PROD_AGG的办法：
SELECT CHILD
      ,(SELECT POWER(10,SUM(LOG(10,C_QTY)))/POWER(10,SUM(LOG(10,P_QTY))) 
          FROM BOM 
       CONNECT BY PRIOR PARENT=CHILD 
         START WITH CHILD = inner.CHILD     -- 从每个叶子开始
        ) AS C_QTY 
FROM (SELECT BOM.*
            ,CONNECT_BY_ISLEAF AS IS_LEAF  
        FROM BOM 
        CONNECT BY PRIOR CHILD = PARENT 
       START WITH PARENT='A' 
     ) inner
WHERE IS_LEAF=1;      -- 这个条件找出所有的叶子

3、使用PL/SQL的方法:可以将1替换为connect_by_isleaf：如果为叶子节点，则该函数的值1，否则为0，刚好可以替代1，

SELECT CHILD, GET_EXPRESSION_RSLT(CON_QTY)
  FROM (SELECT CHILD,
               LEVEL M,
               1 || SYS_CONNECT_BY_PATH(C_QTY / P_QTY, '*') CON_QTY
          FROM BOM
         WHERE CONNECT_BY_ISLEAF = 1
         START WITH PARENT = 'A'
        CONNECT BY PARENT = PRIOR CHILD) A

结果：
1 E 10.8
2 F 3.85714285714285714285714285714285714287
3 Z 3

自定义函数：

CREATE OR REPLACE FUNCTION GET_EXPRESSION_RSLT(I_EXPRESSION VARCHAR2) RETURN VARCHAR2 IS
 /************************************************************
  * 函数名称：GET_EXPRESSION_RSLT
  * 功能描述：获取指定的表达式的结果
  * 参数：I_EXPRESSION :表达式  例如：1*2*3
  * 编 写 人：XXX
  * 编写时间：XXXX-XX-XX
  * 修改记录：
  *************************************************************/
    RETURNSTR VARCHAR2(500) := '';
    EXECSQL   VARCHAR2(4000) := '';
  BEGIN
    EXECSQL := ' SELECT ' || I_EXPRESSION || '  FROM  DUAL';
    EXECUTE IMMEDIATE (EXECSQL)
      INTO RETURNSTR;
    RETURN RETURNSTR;
  END;

如果要看A用了每个B,C,D,E
则只需要将CONNECT_BY_SILEFT=1去掉即可

也可以使用下面的语句：

SELECT CHILD, dbms_aw.eval_number(CON_QTY)
  FROM (SELECT CHILD,
               LEVEL M,
               1 || SYS_CONNECT_BY_PATH(C_QTY / P_QTY, '*') CON_QTY
          FROM BOM
         WHERE CONNECT_BY_ISLEAF = 1
         START WITH PARENT = 'A'
        CONNECT BY PARENT = PRIOR CHILD) A

其中dbms_aw.eval_number这个函数是用来解析字符串函数的

 或者使用with函数

WITH H AS
 (SELECT SYS_CONNECT_BY_PATH(CHILD, '/') NAVPATH,
         CHILD,
         QUANTITY QTY,
         ISLEAF
    FROM ITEMHIER
   START WITH PARENT = 'ASSY001'
  CONNECT BY PRIOR CHILD = PARENT)
SELECT H1.NAVPATH, H1.CHILD,(
SELECT /*EXP(SUM(LN(H2.QTY))),*/
POWER(10, SUM(LOG(10, QTY)))
  FROM H H2
 WHERE INSTR(H1.NAVPATH, H2.NAVPATH) = 1) QTY
  FROM H H1
 WHERE ISLEAF = 1