基于每个组件检查BOM递归

PARAMETERS :  p_matnr  type  matnr MODIF  ID  Z1 ,
            p_idnrk  type idnrk MODIF  ID Z2 .



*---- Struktur zum Beschaffen der Dispostufe aus Materialstamm
data :  begin  of tma29v  occurs  0 .
          include  structure ma29v .
data :  end  of tma29v .

*---- Dispostufenvergabe
data :  begin  of tmc29u  occurs  0 .
          include  structure mc29u .
data :  end  of tmc29u .


*---- Struktur zum Beschaffen der Dispostufe von Materialien ( INPUT )
data :  begin  of tpre03  occurs  0 .
          include  structure pre03 .
data :  end  of tpre03 .

    clear  : tma29v ,
           tmc29u ,
           tpre03 .

    refresh  : tma29v ,
             tmc29u ,
             tpre03 .

tpre03 -MATNR  = p_matnr .
append tpre03 .

  call  function  'MATERIAL_READ_DISST'
         tables ima29v  = tma29v
               ipre03  = tpre03 .

    loop  at tma29v .
       move-corresponding tma29v  to tmc29u .
       append tmc29u .
    endloop .

    call  function  'CS_RC_RECURSIVITY_CHECK'
         exporting  eidnrk             = p_idnrk
                   emode              =  '1'
         tables     headertab          = tmc29u
         exceptions recursivity_found  =  1 .

    if sy -subrc <>  0 .
       message i000 ( 26 )  with  'BOM递归错误！' .
    endif .

最后

以上就是危机大树为你收集整理的基于每个组件检查BOM递归的全部内容，希望文章能够帮你解决基于每个组件检查BOM递归所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。