SAP-ABAP-如何根据bom批量获取物料的最顶层料号

思路就是把所有的最底层级算作一个整体for all 取上一层，记录最底层料号和中间料号，然后按照这个逻辑用中间料号for all再找上一层，一层层往上找，最多的只需要for all 层级数，用到的select其实不会很多。查上层的方法就是STPO表输入料号找到BOM单号，MAST根据BOM单号找到上层物料。简单代码DEMO如下

REPORT ZLQT .


SELECT MARC~MATNR ,
       MARC~MATNR AS MIDMA ,
       MARC~MATNR AS TOPMA
  FROM MARC INTO TABLE @DATA(LT_MATNR) UP TO 100 ROWS .
SORT LT_MATNR BY  MATNR .

LOOP AT LT_MATNR ASSIGNING FIELD-SYMBOL(<FS_MATNR>).
  <FS_MATNR>-MIDMA = <FS_MATNR>-MATNR .
  <FS_MATNR>-TOPMA = '' .
ENDLOOP.

DATA(LT_TOPMATNR) = LT_MATNR[] .
CLEAR LT_TOPMATNR[] .

DO  .
  SELECT  A~MATNR ,
          MAST~MATNR AS SCMAT
    FROM  @LT_MATNR AS A
    LEFT  JOIN STPO ON STPO~IDNRK = A~MIDMA
    LEFT  JOIN MAST ON STPO~STLNR = MAST~STLNR
    INTO  TABLE @DATA(LT_MID) .

  LOOP AT LT_MID INTO DATA(LS_MID).
    READ TABLE LT_MATNR ASSIGNING <FS_MATNR> WITH KEY matnr = LS_MID-MATNR BINARY SEARCH .
    IF SY-SUBRC = 0.
      DATA(LV_INDEX) = SY-TABIX .
      IF LS_MID-SCMAT IS NOT INITIAL. ""找到了上层料号
        <FS_MATNR>-MIDMA = LS_MID-SCMAT .
      ELSE .  ""没找到上层了，已经是顶层了
        <FS_MATNR>-TOPMA = <FS_MATNR>-MIDMA .
        APPEND <FS_MATNR> TO LT_TOPMATNR .
        DELETE LT_MATNR[] INDEX LV_INDEX .
      ENDIF.
    ENDIF.
  ENDLOOP.

  IF LT_MATNR[] IS INITIAL .
    EXIT .
  ENDIF.
ENDDO.

以上代码没考虑工厂问题，每个公司工厂问题可能不同，按照自己公司修改即可