[ABAP] BOM 展开（当前生效版本）

针对当前生效BOM ,展多阶BOM 

*---------------------------------------------------------------------*
*       FORM BOM_EXPAND                                            *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  P_TAB                                                         *
*  -->  P_MATNR                                                       *
*  -->  P_WERKS                                                       *
*---------------------------------------------------------------------*
FORM BOM_EXPAND TABLES   P_TAB
                   USING   P_MATNR P_WERKS.
  DATA: T_STLAN LIKE MAST-STLAN.

  T_STLAN = '1'.

  SELECT SINGLE DATUV
    INTO G_DATUV
    FROM STKO INNER JOIN MAST
      ON STKO~WRKAN = MAST~WERKS
     AND STKO~STLNR = MAST~STLNR
     AND STKO~STL