根据店铺号取利润中心和成本中心 050-080

最新推荐文章于 2023-06-26 17:30:26 发布

Bruce_yin

最新推荐文章于 2023-06-26 17:30:26 发布

阅读量762

点赞数

分类专栏： BW ABAP

本文链接：https://blog.csdn.net/Bruce_yin/article/details/52759187

版权

BW 同时被 2 个专栏收录

113 篇文章 5 订阅

订阅专栏

ABAP

56 篇文章 0 订阅

订阅专栏

DATA: LT_MCOSTCTR TYPE STANDARD TABLE OF /BI0/MCOSTCENTER WITH
NON-UNIQUE DEFAULT KEY.

IF LT_MCOSTCTR[] IS INITIAL.
    SELECT *
      INTO TABLE LT_MCOSTCTR
      FROM /BI0/MCOSTCENTER
     WHERE CO_AREA  EQ '1000'
       AND OBJVERS  EQ 'A'
       AND DATEFROM LE SY-DATUM.
  ENDIF.

IF <RESULT_FIELDS>-/BIC/ZSTORE CP '09*' OR <RESULT_FIELDS>-/BIC/ZSTORE
  CP '07*'.    "直营/联营门店对应的利润中心  "公司代码已经通过成本中心导航，无作用
    READ TABLE LT_MCOSTCTR INTO LS_MCOSTCTR
    WITH KEY CUSTOMER = <RESULT_FIELDS>-/BIC/ZSTORE BUS_AREA =
    LV_BUS_AREA .
    IF SY-SUBRC = 0.    "多品店
      <RESULT_FIELDS>-COSTCENTER = LS_MCOSTCTR-COSTCENTER.
      <RESULT_FIELDS>-PROFIT_CTR = LS_MCOSTCTR-PROFIT_CTR.
      <RESULT_FIELDS>-COMP_CODE = LS_MCOSTCTR-COMP_CODE.
    ELSE.
      READ TABLE LT_MCOSTCTR INTO LS_MCOSTCTR
      WITH KEY COSTCENTER = <RESULT_FIELDS>-/BIC/ZSTORE BUS_AREA =
      LV_BUS_AREA .
      IF SY-SUBRC = 0.
        <RESULT_FIELDS>-COSTCENTER = LS_MCOSTCTR-COSTCENTER.
        <RESULT_FIELDS>-PROFIT_CTR = LS_MCOSTCTR-PROFIT_CTR.
        <RESULT_FIELDS>-COMP_CODE = LS_MCOSTCTR-COMP_CODE.
      else.
        <RESULT_FIELDS>-COSTCENTER = <RESULT_FIELDS>-/BIC/ZSTORE.
        <RESULT_FIELDS>-PROFIT_CTR = <RESULT_FIELDS>-/BIC/ZSTORE.
      ENDIF.
    ENDIF.
  ENDIF.