月TOP合并层

PROGRAM trans_routine.

*---------------------------------------------------------------------*
*       CLASS routine DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_transform DEFINITION.

  PUBLIC SECTION.

*  Attributs

    DATA:

      p_check_master_data_exist

            TYPE RSODSOCHECKONLY READ-ONLY,
*-    Instance for getting request runtime attributs;
*     Available information: Refer to methods of
*     interface 'if_rsbk_request_admintab_view'

      p_r_request

            TYPE REF TO if_rsbk_request_admintab_view READ-ONLY.

  PRIVATE SECTION.

    TYPE-POOLS: rsd, rstr.

*   Rule specific types

    TYPES:

      BEGIN OF _ty_s_TG_1,
*      Field: RECORD.

        RECORD           TYPE RSARECORD,
*      InfoObject: ZMATERIAL 物料.

        /BIC/ZMATERIAL           TYPE /BIC/OIZMATERIAL,
*      InfoObject: ZGRID 网格值.

        /BIC/ZGRID           TYPE /BIC/OIZGRID,
*      InfoObject: ZSTORE 店铺主数据.

        /BIC/ZSTORE           TYPE /BIC/OIZSTORE,
*      InfoObject: ZFLAG2 标志2.

        /BIC/ZFLAG2           TYPE /BIC/OIZFLAG2,
*      InfoObject: ZBZIRK 合并片区.

        /BIC/ZBZIRK           TYPE /BIC/OIZBZIRK,
*      InfoObject: ZSYB 事业部.

        /BIC/ZSYB           TYPE /BIC/OIZSYB,
*      InfoObject: ZCHANNEL 渠道.

        /BIC/ZCHANNEL           TYPE /BIC/OIZCHANNEL,
*      InfoObject: ZXM_DD 督导姓名.

        /BIC/ZXM_DD           TYPE /BIC/OIZXM_DD,
*      InfoObject: ZPQJL 片区经理.

        /BIC/ZPQJL           TYPE /BIC/OIZPQJL,
*      InfoObject: ZZJNAME 总监名称.

        /BIC/ZZJNAME           TYPE /BIC/OIZZJNAME,
*      InfoObject: ZCLASSL 产品大类.

        /BIC/ZCLASSL           TYPE /BIC/OIZCLASSL,
*      InfoObject: ZCLASSM 产品中类.

        /BIC/ZCLASSM           TYPE /BIC/OIZCLASSM,
*      InfoObject: ZCLASSS 产品小类.

        /BIC/ZCLASSS           TYPE /BIC/OIZCLASSS,
*      InfoObject: ZBRAND 品牌.

        /BIC/ZBRAND           TYPE /BIC/OIZBRAND,
*      InfoObject: ZFLAG 标志.

        /BIC/ZFLAG           TYPE /BIC/OIZFLAG,
*      InfoObject: 0CALMONTH 日历年/月.

        CALMONTH           TYPE /BI0/OICALMONTH,
*      InfoObject: 0RECORDMODE BW 增量处理: 更新模式.

        RECORDMODE           TYPE RODMUPDMOD,
*      InfoObject: 0CALMONTH2 日历月.

        CALMONTH2           TYPE /BI0/OICALMONTH2,
*      InfoObject: 0CALQUART1 季度.

        CALQUART1           TYPE /BI0/OICALQUART1,
*      InfoObject: 0CALYEAR 日历年.

        CALYEAR           TYPE /BI0/OICALYEAR,
*      InfoObject: 0CALQUARTER 日历年/季度.

        CALQUARTER           TYPE /BI0/OICALQUARTER,
*      InfoObject: 0CUSTOMER 客户编号.

        CUSTOMER           TYPE /BI0/OICUSTOMER,
*      InfoObject: 0DISTR_CHAN 分销渠道.

        DISTR_CHAN           TYPE /BI0/OIDISTR_CHAN,
*      InfoObject: ZQDLX 渠道.

        /BIC/ZQDLX           TYPE /BIC/OIZQDLX,
*      InfoObject: ZATWTBCC 尺寸文本.

        /BIC/ZATWTBCC           TYPE /BIC/OIZATWTBCC,
*      InfoObject: ZATWTBYS 颜色文本.

        /BIC/ZATWTBYS           TYPE /BIC/OIZATWTBYS,
*      InfoObject: ZPER_DD 督导ID.

        /BIC/ZPER_DD           TYPE /BIC/OIZPER_DD,
*      InfoObject: ZAREA_MAR 片区经理.

        /BIC/ZAREA_MAR           TYPE /BIC/OIZAREA_MAR,
*      InfoObject: ZZJCODE 总监编号.

        /BIC/ZZJCODE           TYPE /BIC/OIZZJCODE,
*      InfoObject: ZPRTK3 物料K3码.

        /BIC/ZPRTK3           TYPE /BIC/OIZPRTK3,
*      InfoObject: ZDTLQTY 零售数量.

        /BIC/ZDTLQTY           TYPE /BIC/OIZDTLQTY,
*      InfoObject: 0BASE_UOM 基本计量单位.

        BASE_UOM           TYPE /BI0/OIBASE_UOM,
*      InfoObject: ZDTLFTAMT 实收金额.

        /BIC/ZDTLFTAMT           TYPE /BIC/OIZDTLFTAMT,
*      InfoObject: 0LOC_CURRCY 本币.

        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
*      InfoObject: ZZJXJ_AMT 经销总额.

        /BIC/ZZJXJ_AMT           TYPE /BIC/OIZZJXJ_AMT,
*      InfoObject: ZRTRLAMT 终端零售总额（即按终端零售单价计算得的总金额）.

        /BIC/ZRTRLAMT           TYPE /BIC/OIZRTRLAMT,
*      InfoObject: ZNTJAMT 南通成本价总额.

        /BIC/ZNTJAMT           TYPE /BIC/OIZNTJAMT,
*      InfoObject: ZSLPX 按数量排序.

        /BIC/ZSLPX           TYPE /BIC/OIZSLPX,
*      InfoObject: ZJEPX 按金额排序.

        /BIC/ZJEPX           TYPE /BIC/OIZJEPX,
*      InfoObject: ZSYBSLTOP 事业部数量排名.

        /BIC/ZSYBSLTOP           TYPE /BIC/OIZSYBSLTOP,
*      InfoObject: ZSYBJETOP 事业部金额排名.

        /BIC/ZSYBJETOP           TYPE /BIC/OIZSYBJETOP,

      END   OF _ty_s_TG_1.

    TYPES:

      _ty_t_TG_1        TYPE STANDARD TABLE OF _ty_s_TG_1

                        WITH NON-UNIQUE DEFAULT KEY.

*$*$ begin of global - insert your declaration only below this line  *-*
... "insert your code here
*$*$ end of global - insert your declaration only before this line   *-*

    METHODS

      new_record__end_routine

        IMPORTING

          source_segid             type rstran_segid

          source_record            type sytabix

        EXPORTING

          record_new               type sytabix.

    METHODS

      end_routine

        IMPORTING

          request                  type rsrequest

          datapackid               type rsdatapid

          segid                    type rsbk_segid

        EXPORTING

          monitor                  type rstr_ty_t_monitors

        CHANGING

          RESULT_PACKAGE              type _ty_t_TG_1

        RAISING

          cx_rsrout_abort

          cx_rsbk_errorcount.

    METHODS

      inverse_end_routine

        IMPORTING

          i_th_fields_outbound         TYPE rstran_t_field_inv

          I_R_SELSET_OUTBOUND          TYPE REF TO CL_RSMDS_SET

          i_is_main_selection          TYPE rs_bool

          i_r_selset_outbound_complete TYPE REF TO cl_rsmds_set

          i_r_universe_inbound         TYPE REF TO CL_RSMDS_UNIVERSE

        CHANGING

          c_th_fields_inbound          TYPE rstran_t_field_inv

          c_r_selset_inbound           TYPE REF TO CL_RSMDS_SET

          c_exact                      TYPE rs_bool.
ENDCLASS.                    "routine DEFINITION

*$*$ begin of 2nd part global - insert your code only below this line  *
... "insert your code here
*$*$ end of 2nd part global - insert your code only before this line   *

*---------------------------------------------------------------------*
*       CLASS routine IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_transform IMPLEMENTATION.

*----------------------------------------------------------------------*
*       Method end_routine
*----------------------------------------------------------------------*
*       Calculation of result package via end routine.
*       Note: Update of target fields depends on rule assignment in
*       transformation editor. Only fields that have a rule assigned,
*       are updated to the data target.
*----------------------------------------------------------------------*
*   <-> result package
*----------------------------------------------------------------------*

  METHOD end_routine.
*=== Segments ===

    FIELD-SYMBOLS:

      <RESULT_FIELDS>    TYPE _ty_s_TG_1.

    DATA:

      MONITOR_REC     TYPE rstmonitor.

*$*$ begin of routine - insert your code only below this line        *-*
... "insert your code here
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
... "to cancel the update process
*    raise exception type CX_RSROUT_ABORT.

   DATA: l_t_ZSYB TYPE STANDARD TABLE OF _ty_s_TG_1,

         l_t_ZSYB1 TYPE STANDARD TABLE OF _ty_s_TG_1,

          l_wa_ZSYB LIKE LINE OF l_t_ZSYB,

          l_wa_result TYPE _ty_s_TG_1,

          l_t_result TYPE _ty_t_TG_1,

          l_line TYPE I,

          l_datum type sy-datum.

Break-POINT.

L_T_ZSYB[] = RESULT_PACKAGE[].
LOOP AT L_T_ZSYB INTO L_WA_ZSYB.
IF L_WA_ZSYB-/BIC/ZFLAG2 = 'D1'.
APPEND L_WA_ZSYB TO L_T_ZSYB1.
ENDIF.
ENDLOOP.

CLEAR:L_WA_RESULT,L_WA_ZSYB.
LOOP AT RESULT_PACKAGE INTO L_WA_RESULT.
LOOP AT L_T_ZSYB1 INTO L_WA_ZSYB
WHERE /BIC/ZSYB = L_WA_RESULT-/BIC/ZSYB

 AND CALMONTH = L_WA_RESULT-CALMONTH

 AND /BIC/ZMATERIAL = L_WA_RESULT-/BIC/ZMATERIAL

 AND /BIC/ZGRID = L_WA_RESULT-/BIC/ZGRID.

 L_WA_RESULT-/BIC/ZSYBSLTOP = L_WA_ZSYB-/BIC/ZSLPX.

ENDLOOP.
MODIFY RESULT_PACKAGE FROM L_WA_RESULT.
ENDLOOP.

LOOP AT L_T_ZSYB INTO L_WA_ZSYB.
IF L_WA_ZSYB-/BIC/ZFLAG2 = 'D2'.
APPEND L_WA_ZSYB TO L_T_ZSYB1.
ENDIF.
ENDLOOP.

CLEAR:L_WA_RESULT,L_WA_ZSYB.
LOOP AT RESULT_PACKAGE INTO L_WA_RESULT.
LOOP AT L_T_ZSYB1 INTO L_WA_ZSYB
WHERE /BIC/ZSYB = L_WA_RESULT-/BIC/ZSYB

 AND CALMONTH = L_WA_RESULT-CALMONTH

 AND /BIC/ZMATERIAL = L_WA_RESULT-/BIC/ZMATERIAL

 AND /BIC/ZGRID = L_WA_RESULT-/BIC/ZGRID.

 L_WA_RESULT-/BIC/ZSYBJETOP = L_WA_ZSYB-/BIC/ZJEPX.

 ENDLOOP.
MODIFY RESULT_PACKAGE FROM L_WA_RESULT.
ENDLOOP.

*$*$ end of routine - insert your code only before this line         *-*

  ENDMETHOD.                    "end_routine
*----------------------------------------------------------------------*
*       Inverse method inverse_end_routine
*----------------------------------------------------------------------*
*       This subroutine needs to be implemented only for direct access
*       (for better performance) and for the Report/Report Interface
*       (drill through).
*       The inverse routine should transform a projection and
*       a selection for the target to a projection and a selection
*       for the source, respectively.
*       If the implementation remains empty all fields are filled and
*       all values are selected.
*----------------------------------------------------------------------*
*       Customer comment:
*----------------------------------------------------------------------*

  METHOD inverse_end_routine.

*   IMPORTING
*     i_r_selset_outbound          TYPE REF TO cl_rsmds_set
*     i_th_fields_outbound         TYPE HASHED TABLE
*     i_r_selset_outbound_complete TYPE REF TO cl_rsmds_set
*     i_r_universe_inbound         TYPE REF TO cl_rsmds_universe
*   CHANGING
*     c_r_selset_inbound           TYPE REF TO cl_rsmds_set
*     c_th_fields_inbound          TYPE HASHED TABLE
*     c_exact                      TYPE rs_bool

*$*$ begin of inverse routine - insert your code only below this line*-*
... "insert your code here
*$*$ end of inverse routine - insert your code only before this line *-*

  ENDMETHOD.                    "inverse_end_routine

  METHOD new_record__end_routine.

***** IMPLEMENTATION  is only visible in generated program *****

  ENDMETHOD.
ENDCLASS.                    "routine IMPLEMENTATION