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

来源：互联网发布：江铠同翟天临分手知乎编辑：程序博客网时间：2024/04/20 12:12

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.

0 0