嗨

下面的代码将满足您的要求

 SELECT vbeln
              posnr
              物质
              马特尔
              arktx
              men
              乌姆维克
              从vbap进入表it_vbap
                    在哪里EQ p_werks
                    s_posnr中的AND posnr
                    和s_matnr中的matnr。


   选择z〜matnr
                z〜werks
                z〜stlan
                z〜stlnr
                v〜idnrk
                从桅杆AS z v〜menge
                        内部联接stpo AS v ON v〜stlnr EQ z〜stlnr
                        表it_mast的相应字段
                        对于it_vbap中的所有条目
                        其中z〜matnr EQ it_vbap-matnr
                        AND z〜werks EQ it_vbap-werks
                        和z〜stlan EQ'1'。


  循环到it_mast_t INTO wa_mast_t。
             通话功能'CS_BOM_EXPL_MAT_V2'
               出口
                 capid ='PP01'
                 datuv = sy-datum
                 mktls ='X'
                 迈尔斯='X'
                 mmory ='1'
                 mtnrv = wa_mast_t-matnr
                 怪癖= wa_mast_t-werks
               桌子
                 stb = it_stb2
                 matcat = it_matcat
               例外情况
                 alt_not_found = 1
                 call_invalid = 2
                 material_not_found = 3
                 missing_authorization = 4
                 no_bom_found = 5
                 no_plant_data = 6
                 no_suitable_bom_found = 7
                 其他= 8。

             如果it_stb2 []不是INITIAL。
               循环到it_stb2并进入wa_stb2。
                 清除wa_mast_f。
                 将wa_stb2移动到wa_mast_f。
                 如果是wa_mast_t-stlnr均衡器wa_mast_f-stlnr。
                   移动：wa_mast_t-matnr到wa_mast_f-matnr。
                 万一。
                 APPEND wa_mast_f至it_mast_f。
                结局。
             万一。
             排序it_mast_f。
           ENDLOOP。