收入成本预算_直营

DATA:BEGIN OF g_wa_costcenter,
        COSTCENTER           TYPE /BI0/OICOSTCENTER,
*        DIVISION           TYPE /BI0/OIDIVISION,
        DATETO              TYPE /BI0/OIDATETO,
        /BIC/ZQDLX           TYPE /BIC/OIZQDLX,
        /BIC/ZSYBQDLX           TYPE /BIC/OIZSYBQDLX,
        /BIC/ZSYB           TYPE /BIC/OIZSYB,
        /BIC/ZCHANNEL2           TYPE /BIC/OIZCHANNEL2,
        /BIC/ZBZIRK2           TYPE /BIC/OIZBZIRK2,
        /BIC/ZBRAND           TYPE /BIC/OIZBRAND,
        /BIC/ZFUN_ITM1           TYPE /BIC/OIZFUN_ITM1,
        /BIC/ZFUN_ITM2           TYPE /BIC/OIZFUN_ITM2,
  END OF g_wa_costcenter,
  g_tab_costcenter LIKE TABLE OF g_wa_costcenter.
**
  SELECT
        COSTCENTER
*        DIVISION
        DATETO
        /BIC/ZQDLX
        /BIC/ZSYBQDLX
        /BIC/ZSYB
        /BIC/ZCHANNEL2
        /BIC/ZBZIRK2
        /BIC/ZBRAND
        /BIC/ZFUN_ITM1
        /BIC/ZFUN_ITM2
      FROM /BI0/MCOSTCENTER
    INTO CORRESPONDING FIELDS OF TABLE g_tab_costcenter
    FOR ALL ENTRIES IN RESULT_PACKAGE
    WHERE costcenter = RESULT_PACKAGE-costcenter
      AND CO_AREA = '1000'
      And OBJVERS = 'A'.
SORT g_tab_costcenter by costcenter dateto DESCENDING.

LOOP AT RESULT_PACKAGE ASSIGNING <RESULT_FIELDS>.
 READ TABLE g_tab_costcenter INTO g_wa_costcenter
WITH KEY costcenter = <RESULT_FIELDS>-costcenter.
 IF sy-subrc = 0.
<RESULT_FIELDS>-division = g_wa_costcenter-/bic/zbrand.
<RESULT_FIELDS>-/bic/zqdlx = g_wa_costcenter-/bic/zqdlx.
<RESULT_FIELDS>-/bic/zsybqdlx = g_wa_costcenter-/bic/zsybqdlx.
<RESULT_FIELDS>-/bic/zsyb = g_wa_costcenter-/bic/zsyb.
<RESULT_FIELDS>-/bic/zchannel2 = g_wa_costcenter-/bic/zchannel2.
<RESULT_FIELDS>-/bic/zbzirk2 = g_wa_costcenter-/bic/zbzirk2.
<RESULT_FIELDS>-/bic/zbrand = g_wa_costcenter-/bic/zbrand.
<RESULT_FIELDS>-/bic/zfun_itm1 = g_wa_costcenter-/bic/zfun_itm1.
<RESULT_FIELDS>-/bic/zfun_itm2 = g_wa_costcenter-/bic/zfun_itm2.
 ENDIF.

*0Amount 以经销价计的收入，等同于zincome，七宝多品牌以经销价计
*zcst 以正常价计的收入，等同于0sale,七宝多品牌也是正常销售收入计

"营业收入，品牌事业部导入的收入中包含了七宝的以经销价定义的，需要扣除 七宝多品牌
  IF <RESULT_FIELDS>-/bic/zsybqdlx = '03' AND
     <RESULT_FIELDS>-/bic/zbrand <> '11'.
    IF <RESULT_FIELDS>-COSTELMNT = '8888888888'. "收入
        <RESULT_FIELDS>-COSTELMNT = '8888888889'.
        <RESULT_FIELDS>-ACCOUNT = '8888888889'.
        <RESULT_FIELDS>-GL_ACCOUNT = '8888888889'.
     ELSEIF <RESULT_FIELDS>-COSTELMNT = '7777777777'."成本
        <RESULT_FIELDS>-COSTELMNT = '7777777779'.
        <RESULT_FIELDS>-ACCOUNT = '7777777779'.
        <RESULT_FIELDS>-GL_ACCOUNT = '7777777779'.
    ENDIF.
  ENDIF.



IF <RESULT_FIELDS>-/BIC/ZSYB = '0000000001'.
  <RESULT_FIELDS>-/BIC/ZGROUP = '01'. "罗莱事业部
  ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000002'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '02'. "尚玛珂事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000006'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '03'. "优家事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000007'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '04'. "KIDS事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000003'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000013'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000022'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000029'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000034'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000035'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '05'. "高1事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000004'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000011'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000039'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '06'. "高2事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000014'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000021'
       OR <RESULT_FIELDS>-/BIC/ZSYB = '0000000026'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '07'. "高3事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000008'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '08'. "团购事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000005'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '09'. "电商事业部
     ELSEIF <RESULT_FIELDS>-/BIC/ZSYB = '0000000010'.
    <RESULT_FIELDS>-/BIC/ZGROUP = '10'. "香港事业部
  ENDIF.
***分摊
<result_fields>-/bic/zsybqdlxt = <result_fields>-/bic/zsybqdlx.
<result_fields>-/bic/zbrandt = <result_fields>-/bic/zbrandt.
<result_fields>-/bic/zamountft = <result_fields>-amount.
ENDLOOP.