日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

【收藏】ABAP Bom按层展开的几种实现方法

發(fā)布時間:2025/3/20 编程问答 16 豆豆
生活随笔 收集整理的這篇文章主要介紹了 【收藏】ABAP Bom按层展开的几种实现方法 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
  • *遞歸的方式實現(xiàn)
  • FUNCTION zbomexplode.
  • *"--------------------------------------------------------- *"
  • *"Local Interface:
  • *"IMPORTING
  • *"REFERENCE(MATNR) TYPE MATNR
  • *"REFERENCE(WERKS) TYPE WERKS_D
  • *"TABLES
  • *"PARENT STRUCTURE SBOM
  • *"CHILDREN STRUCTURE SBOM
  • *"EXCEPTIONS
  • *" NO_BOM_FOUND *"----------------------------------------------------------
  • DATA: it_a TYPE TABLE OF sbom.
  • DATA: it_b TYPE TABLE OF sbom.
  • IF parent[] IS INITIAL.
  • * first time that call to the FM
  • SELECT stpo~idnrk INTO TABLE it_a
  • FROM mast INNER JOIN stpo
  • ON mast~stlnr = stpo~stlnr
  • WHERE mast~matnr = matnr
  • AND mast~werks = werks.
  • IF it_a[] IS INITIAL.
  • RAISE no_bom_found.
  • ENDIF.
  • ELSE.
  • SELECT stpo~idnrk INTO TABLE it_a
  • FROM mast
  • INNER JOIN stpo ON mast~stlnr = stpo~stlnr
  • FOR ALL ENTRIES IN parent
  • WHERE mast~matnr = parent-matnr
  • AND mast~werks = werks.
  • * if there is no any sub item, then stop the recursion IF it_a[] IS INITIAL.
  • EXIT.
  • ENDIF.
  • ENDIF.
  • APPEND LINES OF it_a TO children.
  • * get sub items recursively
  • CALL FUNCTION 'Z_BOM_EXPLODE'
  • EXPORTING
  • matnr = ''
  • werks = werks
  • TABLES
  • parent = it_a
  • children = it_b.
  • APPEND LINES OF it_b TO children.
  • * delete duplicate sub items at the end
  • IF parent[] IS INITIAL.
  • SORT children BY matnr.
  • DELETE ADJACENT DUPLICATES FROM children.
  • ENDIF.
  • ENDFUNCTION.
  • *使用循環(huán)代替遞歸的一種做法1,更便于做異常處理,程序運行時系統(tǒng)也不要維護遞歸堆棧。這個程序不好的地方在于要用兩個itab頻繁copy數(shù)據(jù)。
  • FUNCTION zbomexplode1.
  • *"--------------------------------------------------------- *"
  • *"Local Interface:
  • *" IMPORTING
  • *" VALUE(MATNR) TYPE MATNR
  • *" VALUE(WERKS) TYPE WERKS_D *" TABLES
  • *" CHILDREN STRUCTURE SBOM *" EXCEPTIONS
  • *" NO_BOM_FOUND *"---------------------------------------------------------
  • DATA: it_a TYPE TABLE OF sbom,
  • it_b TYPE TABLE OF sbom,
  • it_result TYPE TABLE OF sbom.
  • SELECT stpo~idnrk
  • INTO TABLE it_a
  • FROM mast
  • INNER JOIN stpo ON mast~stlnr = stpo~stlnr
  • WHERE mast~matnr = matnr
  • AND mast~werks = werks.
  • APPEND LINES OF it_a TO it_result.
  • WHILE NOT it_a[] IS INITIAL.
  • SELECT stpo~idnrk
  • INTO TABLE it_b
  • FROM mast INNER JOIN stpo
  • ON mast~stlnr = stpo~stlnr
  • FOR ALL ENTRIES IN it_a
  • WHERE mast~matnr = it_a-matnr
  • AND mast~werks = werks.
  • APPEND LINES OF it_b TO it_result.
  • it_a[] = it_b[].
  • ENDWHILE.
  • * delete duplicate sub items
  • SORT it_result BY matnr.
  • DELETE ADJACENT DUPLICATES FROM it_result.
  • children[] = it_result[].
  • ENDFUNCTION.
  • FUNCTION zbomexplode2.
  • *"---------------------------------------------------------- *"
  • *"Local Interface: *" IMPORTING
  • *" VALUE(MATNR) TYPE MATNR
  • *" VALUE(WERKS) TYPE WERKS_D
  • *" TABLES
  • *" CHILDREN STRUCTURE SBOM
  • *" EXCEPTIONS *" NO_BOM_FOUND
  • *"----------------------------------------------------------
  • DATA: it_result TYPE TABLE OF sbom,
  • wa_bom TYPE sbom.
  • SELECT stpo~idnrk
  • INTO TABLE it_result
  • FROM mast INNER JOIN stpo
  • ON mast~stlnr = stpo~stlnr
  • WHERE mast~matnr = matnr
  • AND mast~werks = werks.
  • LOOP AT it_result INTO wa_bom.
  • SELECT stpo~idnrk
  • APPENDING TABLE it_result
  • FROM mast INNER JOIN stpo
  • ON mast~stlnr = stpo~stlnr
  • WHERE mast~matnr = wa_bom-matnr
  • AND mast~werks = werks.
  • ENDLOOP.
  • * delete duplicate sub items
  • sort it_result by matnr.
  • delete adjacent duplicates from it_result.
  • children[] = it_result[].
  • ENDFUNCTION.
  • *調(diào)用BAPI實現(xiàn)
  • FUNCTION zbomexplode.
  • *"--------------------------------------------------------- *"
  • *"Local Interface: *" IMPORTING
  • *" VALUE(MATNR) LIKE MARA-MATNR
  • *" VALUE(WERKS) LIKE MARC-WERKS OPTIONAL
  • *" VALUE(CAPID) LIKE TC04-CAPID DEFAULT 'PP01'
  • *" TABLES
  • *" STB STRUCTURE STPOX
  • *" RETURN STRUCTURE BAPIRET2
  • *"---------------------------------------------------------
  • IF werks IS INITIAL."Added in case external call does not know
  • werks = '1000'.
  • ENDIF.
  • IF capid IS INITIAL.
  • capid = 'PP01'.
  • ENDIF.
  • CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
  • EXPORTING
  • capid = capid
  • datuv = sy-datum
  • mehrs = 'X'
  • mtnrv = matnr
  • werks = werks
  • TABLES
  • stb = stb
  • EXCEPTIONS
  • no_bom_found = 1.
  • IF sy-subrc <> 0.
  • msg_typ = 'E'.
  • msg_id = 'Z_EF'.
  • msg_no = '002'.
  • msg_v1 = matnr.
  • IF NOT msg_typ IS INITIAL.
  • * append error to table RETURN
  • CALL FUNCTION 'BALW_BAPIRETURN_GET2'
  • EXPORTING
  • type = msg_typ
  • cl = msg_id
  • number = msg_no
  • par1 = msg_v1
  • par2 = msg_v2
  • par3 = msg_v3
  • par4 = msg_v4
  • parameter = space
  • row = space
  • field = space
  • IMPORTING
  • return = wa_return_tmp.
  • APPEND wa_return_tmp TO return.
  • ENDIF.
  • ENDIF.
  • ENDFUNCTION
  • 總結(jié)

    以上是生活随笔為你收集整理的【收藏】ABAP Bom按层展开的几种实现方法的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

    如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。