CS_WHERE_USED_MAT CS15 反查BOM

深山无名

于 2023-12-26 15:43:49 发布

阅读量474

点赞数 10

分类专栏： ABAP FUNCTION PP 文章标签：个人开发

本文链接：https://blog.csdn.net/shizhijun168/article/details/135223872

版权

PP 同时被 2 个专栏收录

5 篇文章 0 订阅

订阅专栏

ABAP FUNCTION

1 篇文章 0 订阅

订阅专栏

DATA: lt_usedcat TYPE TABLE OF stpov,
      lt_equicat TYPE TABLE OF cscequi,
      lt_kndcat  TYPE TABLE OF cscknd,
      lt_matcat  TYPE TABLE OF cscmat,
      lt_stdcat  TYPE TABLE OF cscstd,
      lt_tplcat  TYPE TABLE OF csctpl.


CALL FUNCTION 'CS_WHERE_USED_MAT'
  EXPORTING
    datub                      = 'BEGDA'      " 有效起始日期
    datuv                      = 'ENDDA'      " 有效截止日期
    matnr                      = 'IDNRK'      " 组件
    werks                      = 'WERKS'      " 工厂
  TABLES
    wultb                      = lt_usedcat   " 上层物料的详细信息
    equicat                    = lt_equicat
    kndcat                     = lt_kndcat
    matcat                     = lt_matcat    " 上层物料的简要信息
    stdcat                     = lt_stdcat
    tplcat                     = lt_tplcat
  EXCEPTIONS
    call_invalid               = 1
    material_not_found         = 2
    no_where_used_rec_found    = 3
    no_where_used_rec_selected = 4
    no_where_used_rec_valid    = 5
    OTHERS                     = 6.

LOOP AT lt_usedcat INTO DATA(ls_userdcat).
  DATA(lv_stlnr) = ls_userdcat-stlnr.     " 物料清单
  DATA(lv_stlkn) = ls_userdcat-stlkn.     " BOM 项目节点号
  DATA(lv_matnr) = ls_userdcat-matnr.     " 上层物料
  DATA(lv_datub) = ls_userdcat-datub.     " 有效截止日期
  DATA(lv_datuv) = ls_userdcat-datuv.     " 有效起始日期
  DATA(lv_posnr) = ls_userdcat-posnr.     " BOM 项目号
  DATA(lv_menge) = ls_userdcat-menge.     " 组件数量
  DATA(lv_meins) = ls_userdcat-meins.     " 组件计量单位
  DATA(lv_bmeng) = ls_userdcat-bmeng.     " 基本数量
  DATA(lv_bmein) = ls_userdcat-bmein.     " 基本计量单位
  DATA(lv_idnrk) = ls_userdcat-idnrk.     " BOM组件
ENDLOOP.
LOOP AT lt_equicat INTO DATA(ls_equicat).
ENDLOOP.
LOOP AT lt_kndcat INTO DATA(ls_kndcat).
ENDLOOP.
LOOP AT lt_matcat INTO DATA(ls_matcat).
ENDLOOP.
LOOP AT lt_stdcat INTO DATA(ls_stdcat).
ENDLOOP.
LOOP AT lt_tplcat INTO DATA(ls_tplcat).
ENDLOOP.