【ABAP系列】SAP BOM反查

公众号：SAP Technical

本文作者：matinal

原文出处：http://www.cnblogs.com/SAPmatinal/

原文链接：【ABAP系列】SAP BOM反查

 

前言部分

大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。

正文部分

TCODE：：CS15

或者函数：：CS_WHERE_USED_MAT

​

tables : stpo,stas,mara,makt.

data : begin of itab occurs ,
       matnr like mast-matnr,
       menge like stpo-menge,
       end of itab.

data : begin of alttab occurs ,
       matnr like mast-matnr,
       menge like stpo-menge,
       end of alttab.

data : begin of top_code occurs ,
       matnr(),
       maktx(),
       meins(),
       menge like stpo-menge,
       matkl(),
       wrkst(),
       end of top_code.

data : begin of makr occurs ,
       maker(),
       idnlf(),
       end of makr.

data : begin of usedtab occurs .
        include structure stpov.
data : end of usedtab.

data : begin of equicat occurs .
        include structure  cscequi.
data : end of equicat.

data : begin of kndcat occurs .
        include structure  cscknd.
data : end of kndcat.

data : begin of matcat occurs .
        include structure  cscmat.
data : end of matcat.

data : begin of stdcat occurs .
        include structure   cscstd.
data : end of stdcat.

data : begin of tplcat occurs .
        include structure   csctpl.
data : end of tplcat.

data : top_cnt() type n,
       m_cnt() type n,
       lin() type n,
       line_cnt() type n.

selection-screen begin of block blk1 with frame.
selection-screen : comment () text-,
                   skip.
parameters : matnr like marc-matnr obligatory,
             werks like marc-werks obligatory default 'PQ50'.
select-options : bdate for sy-datum default sy-datum to sy-datum
                 no-extension obligatory.
selection-screen end of block blk1.

start-of-selection.
  itab-matnr = matnr.
  itab-menge = .
  append itab.
  clear itab.

  perform get_top_code.

************************************
*&---------------------------------------------------------------------*
*&      Form  GET_TOP_CODE
*&---------------------------------------------------------------------*
form get_top_code.

  clear lin.
  describe table itab lines lin.
  if lin = .
    exit.
  endif.

  loop at itab.
    call function 'CS_WHERE_USED_MAT'
         exporting
              datub                      = bdate-high
              datuv                      = bdate-low
              matnr                      = itab-matnr
              werks                      = werks
         tables
              wultb                      = usedtab
              equicat                    = equicat
              kndcat                     = kndcat
              matcat                     = matcat
              stdcat                     = stdcat
              tplcat                     = tplcat
         exceptions
              call_invalid               =
              material_not_found         =
              no_where_used_rec_found    =
              no_where_used_rec_selected =
              no_where_used_rec_valid    =
              others                     = .

    clear line_cnt.
    describe table usedtab lines line_cnt.
    if line_cnt = .
      move itab-matnr to top_code-matnr.
      top_code-menge = itab-menge.
      collect top_code.
      clear top_code.
    else.
      loop at usedtab where postp ne 'F' and datuv le bdate-high
                      and ( sumfg = ' ' or sumfg = 'x' ).
        select single lkenz into stas-lkenz from stas
               where stlty = 'M'
               and   stlnr = usedtab-stlnr
               and   stlal = ''
               and   stlkn = usedtab-stlkn
               and   datuv le bdate-low
               and   lkenz = 'X'.
        if sy-subrc ne .
          move usedtab-matnr to alttab-matnr.
          alttab-menge = usedtab-menge * itab-menge.
          collect alttab.
        endif.
        clear alttab.
      endloop.
    endif.
    refresh : usedtab,equicat,kndcat,matcat,stdcat,tplcat.

  endloop.

  refresh itab.
  itab[] = alttab[].
  refresh alttab.
  perform get_top_code.

endform.                    " GET_TOP_CODE

​