收入成本预算-历程

**定义成本中心
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 .
 READ TABLE g_tab_costcenter INTO g_wa_costcenter
WITH KEY costcenter = -costcenter.
 IF sy-subrc = 0.
-division = g_wa_costcenter-/bic/zbrand.
-/bic/zqdlx = g_wa_costcenter-/bic/zqdlx.
-/bic/zsybqdlx = g_wa_costcenter-/bic/zsybqdlx.
-/bic/zsyb = g_wa_costcenter-/bic/zsyb.
-/bic/zchannel2 = g_wa_costcenter-/bic/zchannel2.
-/bic/zbzirk2 = g_wa_costcenter-/bic/zbzirk2.
-/bic/zbrand = g_wa_costcenter-/bic/zbrand.
-/bic/zfun_itm1 = g_wa_costcenter-/bic/zfun_itm1.
-/bic/zfun_itm2 = g_wa_costcenter-/bic/zfun_itm2.
 ENDIF.

*0Amount 以经销价计的收入，等同于zincome，七宝多品牌以经销价计
*zcst 以正常价计的收入，等同于0sale,七宝多品牌也是正常销售收入计
IF -COSTELMNT = '8888888888'. "收入
"营业收入，品牌事业部导入的收入中包含了七宝的以经销价定义的，需要扣除 七宝多品牌
  IF -/bic/zsybqdlx = '03' AND
     -/bic/zbrand <> '11'.
    -/BIC/ZCOST = 0.
  ELSE.
     -/BIC/ZCOST = -amount.

  ENDIF.

ELSEIF -COSTELMNT = '7777777777'."成本
**0Amount为南通成本
**zcost为经销价成本，事业部导入的南通成本要扣除掉七宝多品牌的
"营业收入，品牌事业部导入的收入中包含了七宝的以经销价定义的，需要扣除 七宝多品牌
  IF -/bic/zsybqdlx = '03' AND
     -/bic/zbrand <> '11'.
    -/BIC/ZCOST = 0.
  ELSE.
     -/BIC/ZCOST = -amount.

  ENDIF.

****应收。。。。。
ENDIF.




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

***分摊
-/bic/zsybqdlxt = -/bic/zsybqdlx.  渠道类型(参考特性）
-/bic/zbrandt = -/bic/zbrandt.   品牌(参考特性）
-/bic/zamountft = -amount.  【分摊后金额】
ENDLOOP.