SAP 采购阶梯价增强

自建表设计,按标准表KONM设计

 

数据维护

五行代表这个物料有五个价格阶梯，采购订单下单时0—1000的数量价格必须是300，1000—5000的数量价格必须是299，5000—7000的数量价格必须是298，7000—10000的数量价格必须是297，10000以上的数量价格必须是296。

 

*┏--------Begin-------- Add By AiQing 20.06.2024 10:06:59 -------------
* --------  ★  --------〔业务顾问：罗仁勇〕
*&--- 采购订单下单控制必须按阶梯价下单
    TYPES:BEGIN OF lty_matnr,
            matnr   TYPE ekpo-matnr,
            menge   TYPE ekpo-menge,
            netwr   TYPE ekpo-netwr,
            message TYPE string,
          END OF lty_matnr.

    DATA lt_matnr_1 TYPE TABLE OF lty_matnr.
    DATA lt_matnr_2 TYPE TABLE OF lty_matnr.
    DATA lt_matnr_3 TYPE TABLE OF lty_matnr.
    DATA lt_matnr_4 TYPE TABLE OF lty_matnr.
    DATA ls_matnr_1 TYPE lty_matnr.
    DATA ls_matnr_2 TYPE lty_matnr.
    DATA ls_matnr_3 TYPE lty_matnr.
    DATA ls_matnr_4 TYPE lty_matnr.

*&--- 存放阶梯价区间的内表
    TYPES:BEGIN OF gty_kstbm,
            low   TYPE zxmmt063-kstbm,
            high  TYPE zxmmt063-kstbm,
            netwr TYPE ekpo-netwr,
          END OF gty_kstbm.

    DATA rt_kstbm TYPE TABLE OF  gty_kstbm.
    DATA rs_kstbm TYPE gty_kstbm.

    CLEAR lt_item.
    IF ls_header-bukrs = '6000' AND sy-tcode = 'ME21N'.

      CALL METHOD im_header->get_items
        RECEIVING
          re_items = lt_purchase_order_item.

      LOOP AT lt_purchase_order_item INTO ls_purchase_order_item.
        "获取行项目数据的类
        cl_item = ls_purchase_order_item-item.

        "获取行项目值
        CLEAR: ls_item.
        CALL METHOD cl_item->get_data
          RECEIVING
            re_data = ls_item.

        APPEND ls_item TO lt_item.

        "【*********按物料维度汇总下单的数量*********】
        CLEAR ls_matnr_1.
        ls_matnr_1-matnr = ls_item-matnr.
        ls_matnr_1-menge = ls_item-menge.
        COLLECT ls_matnr_1 INTO lt_matnr_1.

        "【*********计算总数量的价值*********】
        CLEAR ls_matnr_3.
        ls_matnr_3-matnr = ls_item-matnr.
        ls_matnr_3-netwr = ls_item-menge * ls_item-netpr.
        COLLECT ls_matnr_3 INTO lt_matnr_3.

      ENDLOOP.

      DATA(lt_luru) = lt_matnr_1.

*&--- 按物料汇总历史的采购订单数量
      DATA(lt_item_sum) = lt_item.
      SORT lt_item_sum BY matnr.
      DELETE ADJACENT DUPLICATES FROM lt_item_sum COMPARING matnr.

      SELECT
      a~matnr,
      SUM( a~menge ) AS menge
      FROM
      ekpo AS a
      INNER JOIN ekko AS b
      ON a~ebeln = b~ebeln
      INNER JOIN @lt_item_sum AS c
      ON a~matnr = c~matnr
      WHERE b~lifnr = @ls_header-lifnr
      AND   b~ekorg = @ls_header-ekorg
      AND   a~loekz = ''
      GROUP BY a~matnr
      INTO TABLE @DATA(lt_ekpo)
      .

*&--- 汇总历史的数量+录入的数量
      DATA(lt_ekpo_1) = lt_ekpo.
      LOOP AT lt_ekpo_1 INTO DATA(ls_ekpo_1).
        CLEAR ls_matnr_1.
        MOVE-CORRESPONDING ls_ekpo_1 TO ls_matnr_1.
        COLLECT ls_matnr_1 INTO lt_matnr_1.
      ENDLOOP.

      SORT lt_matnr_1 BY matnr.
      DATA lv_menge2 TYPE ekpo-menge.
      CLEAR lt_matnr_2.
*&--- 按物料维度循环
      LOOP AT lt_matnr_1 INTO ls_matnr_1.

        "读取当前物料录入的数量
        READ TABLE lt_luru INTO DATA(ls_luru) WITH KEY matnr = ls_matnr_1-matnr.

        DATA(lv_luru) = ls_luru-menge.

*┏--------Begin-------- Add By AiQing 23.04.2024 17:13:47 -------------
*&--- 找到物料对应的阶梯价
        SELECT
        c~*,
        b~matnr
        FROM
        a018 AS b
        INNER JOIN zxmmt063 AS c
        ON    b~knumh = c~knumh
        WHERE b~ekorg = @ls_header-ekorg
        AND   b~lifnr = @ls_header-lifnr
        AND   b~datbi > @ls_header-bedat
        AND   b~datab < @ls_header-bedat
        AND   b~matnr = @ls_matnr_1-matnr
        INTO TABLE @DATA(lt_zxmmt063)
        .

        IF sy-subrc <> 0.
          CONTINUE.
        ENDIF.

        DATA lv_index1 TYPE i .
        DATA lv_index2 TYPE i .

        lv_index1 = 1.
        lv_index2 = 2.
        CLEAR rt_kstbm.
        "将阶梯价转换为区间
        DO lines( lt_zxmmt063 ) TIMES.

          CLEAR rs_kstbm.
          LOOP AT lt_zxmmt063 INTO DATA(ls_zxmmt063) FROM lv_index1 TO lv_index2 .
            IF sy-tabix = lv_index1.
              rs_kstbm-low   = ls_zxmmt063-c-kstbm.
              rs_kstbm-netwr = ls_zxmmt063-c-kbetr.
            ELSE.
              rs_kstbm-high = ls_zxmmt063-c-kstbm.
            ENDIF.
          ENDLOOP.

          IF lines( lt_zxmmt063 ) = sy-index.
            rs_kstbm-high = 99999999.
          ENDIF.

          APPEND rs_kstbm TO rt_kstbm.

          lv_index1 = lv_index1 + 1.
          lv_index2 = lv_index2 + 1.
        ENDDO.

        CLEAR:lv_index1,lv_index2.
* -------- End -------------------------------------------------------┛
*        DATA(LV_MENGE4) = LT_EKPO[ 1 ]-MENGE.

*        READ TABLE LT_EKPO INTO DATA(LS_EKPO) WITH KEY MATNR = LS_MATNR_1-MATNR.
*        DATA(LV_MENGE4) = LS_EKPO-MENGE.
*        CLEAR LS_EKPO.
        DATA(lv_menge4) = lt_ekpo[ matnr = ls_matnr_1-matnr ]-menge.

        DATA lv_message TYPE string.
        DATA lv_menge3  TYPE ekpo-menge.
        "将阶梯区间倒序【方便计算多少数量需要按对应的价格下单】
        SORT rt_kstbm BY low DESCENDING.
*        READ TABLE RT_KSTBM ASSIGNING FIELD-SYMBOL(<FS_KSTBM>) INDEX 1.
*        <FS_KSTBM>
        LOOP AT rt_kstbm INTO DATA(rs_kstbm1).

          CLEAR:rs_kstbm,ls_matnr_2.
          MOVE-CORRESPONDING rs_kstbm1 TO rs_kstbm.

          AT FIRST.
            lv_menge2 = ls_matnr_1-menge.
          ENDAT.

          IF ls_matnr_1-menge >= rs_kstbm-low.
            "物料 / 价值
            ls_matnr_2-matnr = ls_matnr_1-matnr.
            ls_matnr_2-netwr = ( lv_menge2 - rs_kstbm-low ) * rs_kstbm-netwr.

            "【*********按采购订单行计算物料的总价值*********】
            IF lv_luru > 0.
              IF lv_luru > ( lv_menge2 - rs_kstbm-low ).
                lv_luru = lv_luru - ( lv_menge2 - rs_kstbm-low ).
                ls_matnr_4-matnr = ls_matnr_1-matnr.
                ls_matnr_4-netwr = ( lv_menge2 - rs_kstbm-low ) * rs_kstbm-netwr.
              ELSEIF lv_luru < ( lv_menge2 - rs_kstbm-low ).
                ls_matnr_4-matnr = ls_matnr_1-matnr.
                ls_matnr_4-netwr = lv_luru * rs_kstbm-netwr.
                lv_luru = lv_luru - ( lv_menge2 - rs_kstbm-low ).
              ENDIF.

              COLLECT ls_matnr_4 INTO lt_matnr_4.
            ENDIF.

            lv_menge3 = lv_menge2 - rs_kstbm-low.

*┏--------Begin-------- Add By AiQing 19.06.2024 21:18:01 -------------
            IF lv_menge3 + lv_menge4 > rs_kstbm-high.
              lv_menge3 = abs( rs_kstbm-high - lv_menge4 ).
              DATA(exit_flag2) = 'X'.
*              CLEAR:LV_MENGE4.
            ENDIF.

            CLEAR ls_luru.
            READ TABLE lt_luru INTO ls_luru WITH KEY matnr = ls_matnr_1-matnr.
            IF sy-subrc = 0 AND lv_menge3 > ls_luru-menge.
              lv_menge3 = ls_luru-menge.
              DATA(exit_flag) = 'X'.
            ENDIF.
* -------- End -------------------------------------------------------┛
            IF lv_menge3 > 0.
              lv_message = |{ lv_message && ',数量：' &&  lv_menge3  && '单价应为' && rs_kstbm-netwr }| .
            ENDIF.

            IF exit_flag = 'X'.
              CLEAR exit_flag.
              EXIT.
            ENDIF.

            CLEAR lv_menge3.
            COLLECT ls_matnr_2 INTO lt_matnr_2.
          ELSE.
            CONTINUE.
          ENDIF.

          lv_menge2 = rs_kstbm-low.

          "如果历史订单数量被清空，说明循环已经走完了，退出循环
          IF exit_flag2 = 'X'.
            EXIT.
          ENDIF.

          CLEAR rs_kstbm.
        ENDLOOP.

        ls_matnr_2-message = lv_message.
        MODIFY lt_matnr_2 FROM ls_matnr_2 TRANSPORTING message WHERE matnr = ls_matnr_1-matnr.

        CLEAR:ls_matnr_1,
              lt_zxmmt063.
      ENDLOOP.
*&--- 拆分消息
      IF lv_message IS NOT INITIAL.
        SPLIT lv_message AT ',' INTO TABLE DATA(lt_message).
        DELETE lt_message INDEX 1.
      ENDIF.

      "对比按总数量计算的总价值和按采购订单行计算汇总的总价值，如果不一致则报错
      LOOP AT lt_matnr_4 INTO ls_matnr_4.

        READ TABLE lt_matnr_3 INTO ls_matnr_3 WITH KEY matnr = ls_matnr_4-matnr.

        IF sy-subrc = 0.

          IF ls_matnr_3-netwr <> ls_matnr_4-netwr.

            LOOP AT lt_message INTO DATA(ls_message).
*           设置当前消息的主体为行项目
              mmpur_business_obj cl_item.
*             物料XXXXXX应按建议阶梯拆分数量下单，数量ZSYJTJYSL单价应为ZSYJTJYJG！、数量ZDQJTJYSL单价应为ZDQJTJYJG
              MESSAGE e145(zmm) WITH ls_matnr_4-matnr && ls_message INTO lv_dummy.
              ch_failed = abap_true.
              mmpur_message_forced 'E' 'ZMM' '145' sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4..
            ENDLOOP.

          ENDIF.

          CLEAR ls_matnr_3.
        ENDIF.

        CLEAR ls_matnr_4.
      ENDLOOP.

    ENDIF.