收入成本预算-历程

**定义成本中心
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>-COSTELMNT = '8888888888'. "收入
"营业收入，品牌事业部导入的收入中包含了七宝的以经销价定义的，需要扣除 七宝多品牌

  IF <RESULT_FIELDS>-/bic/zsybqdlx = '03' AND

     <RESULT_FIELDS>-/bic/zbrand <> '11'.

    <RESULT_FIELDS>-/BIC/ZCOST = 0.

  ELSE.

     <RESULT_FIELDS>-/BIC/ZCOST = <RESULT_FIELDS>-amount.

  ENDIF.

ELSEIF <RESULT_FIELDS>-COSTELMNT = '7777777777'."成本
**0Amount为南通成本
**zcost为经销价成本，事业部导入的南通成本要扣除掉七宝多品牌的
"营业收入，品牌事业部导入的收入中包含了七宝的以经销价定义的，需要扣除 七宝多品牌

  IF <RESULT_FIELDS>-/bic/zsybqdlx = '03' AND

     <RESULT_FIELDS>-/bic/zbrand <> '11'.

    <RESULT_FIELDS>-/BIC/ZCOST = 0.

  ELSE.

     <RESULT_FIELDS>-/BIC/ZCOST = <RESULT_FIELDS>-amount.

  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
d6fc
>-/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.