功能介绍:BOM层数在7层以内的(含7层)的物料,执行后都可以查询到顶级的BOM,逻辑很简单,后期如BOM层数增加,可自行增加查询逻辑。
*&---------------------------------------------------------------------*
*& Report ZBOM_CHECK
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zbom_check.
TYPES : BEGIN OF ltype_bommat,
matnr TYPE mara-matnr,
werks TYPE marc-werks,
END OF ltype_bommat.
DATA : lt_bommat TYPE TABLE OF ltype_bommat,
ls_bommat LIKE LINE OF lt_bommat.
DATA: it_wultb LIKE stpov OCCURS 0 WITH HEADER LINE,
it_wultb2 LIKE stpov OCCURS 0 WITH HEA