ZMM_BADI_005 采购订单价格控制

╰+哭是因爲堅強的太久メ 2021-12-20 11:21 238阅读 0赞

采购订单价格控制

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

METHOD if\_ex\_me\_process\_po\_cust~check.  
    IF sy-uname EQ 'WXJ'.  
      EXIT.  
    ENDIF.  
\* d  
    DATA: lv\_bname TYPE  zmmt999-bname  .  
    CLEAR lv\_bname  .  
  
    SELECT SINGLE bname INTO lv\_bname  
      FROM zmmt999  
      WHERE bname = sy-uname  
       AND  mark EQ 'X' .  
  
    IF  lv\_bname IS NOT INITIAL .  
      EXIT .  
    ENDIF .  
  
  
  
    DATA: BEGIN OF ls\_s1,  
            knumh TYPE komv-knumh,  
            kopos TYPE komv-kopos,  
            pstyp TYPE ekpo-pstyp,  
            kwert TYPE komv-kwert,  
          END OF ls\_s1.  
    DATA: lt\_s1 LIKE TABLE OF ls\_s1.  
  
    DATA: BEGIN OF ls\_slhz,  
            matnr TYPE mara-matnr,  
            pstyp TYPE ekpo-pstyp,  
            menge TYPE mseg-menge,  
          END OF ls\_slhz.  
    DATA: lt\_slhz LIKE TABLE OF ls\_slhz.  
    DATA: lt\_data TYPE purchase\_order\_items,  
          ls\_data TYPE purchase\_order\_item.  
    DATA: ls\_item TYPE mepoitem.  
    DATA: lt\_item TYPE mepoitem.  
  
    DATA: ls\_head TYPE mepoheader.  
    DATA: lv\_class TYPE REF TO if\_purchase\_order\_item\_mm.  
    DATA: lv\_mtart   TYPE mara-mtart.  
  
    DATA: lt\_konp TYPE TABLE OF konp,  
          ls\_konp TYPE konp.  
  
    DATA: lt\_konm TYPE TABLE OF konm,  
          ls\_konm TYPE konm.  
    DATA: ls\_konm\_b TYPE konm.  
    DATA: lt\_mmpur\_tkomv TYPE  mmpur\_tkomv,  
          ls\_mmpur\_tkomv LIKE LINE OF  lt\_mmpur\_tkomv.  
\*    DATA: lt\_tkomv TYPE  mmpur\_tkomv,  
\*          ls\_tkomv LIKE LINE OF  lt\_mmpur\_tkomv.  
    DATA: lt\_prcd\_elements TYPE TABLE OF prcd\_elements,  
          ls\_prcd\_elements TYPE prcd\_elements.  
    DATA: lv\_kopos TYPE konp-kopos.  
    DATA: lv\_tabix LIKE sy-tabix.  
\*    DATA: lv\_tabix\_1 LIKE sy-tabix.  
    DATA: lv\_kwert TYPE konv-kwert.  
    DATA: BEGIN OF ls\_prcd,  
            knumh TYPE konp-knumh,  
            kopos TYPE konp-kopos,  
          END OF ls\_prcd.  
  
    DATA: lt\_prcd LIKE TABLE OF ls\_prcd.  
    DATA: lv\_msg TYPE string.  
    DATA: lv\_flg.  
    DATA: ls\_a017 TYPE a017.  
  
    DATA: lv\_s1 TYPE prcd\_elements-kwert.  
    DATA: lv\_s2 TYPE konm-kstbm.  
    DATA: lv\_bfb TYPE p DECIMALS 4.  
    DATA: lv\_01 TYPE p DECIMALS 1.  
    DATA: lv\_kstbm TYPE string.  
    DATA: lv\_lines LIKE sy-tabix.  
    DATA: gv\_c TYPE c .  
    DATA: gv\_c2  TYPE c .  
  
    DATA: lv\_menge TYPE ekbe-menge .  
    DATA: BEGIN OF gs\_ekbe,  
            menge TYPE ekbe-menge,  
            bewtp TYPE ekbe-bewtp,  
          END OF gs\_ekbe.  
    DATA: gt\_ekbe LIKE TABLE OF gs\_ekbe.  
    DATA: lv\_netpr TYPE ekpo-netpr.  
  
  
  
  
    lv\_01 = 10 / 100.  
  
    DATA: lv\_count TYPE i.  
    CALL METHOD im\_header->get\_data  
      RECEIVING  
        re\_data = ls\_head.  
    IF ls\_head-ebeln BETWEEN '0000800000' AND '0000899999'.  
      EXIT.  
    ENDIF.  
  
    IF ls\_head-bsart  EQ 'ZUB' ." OR  ls\_head-bsart  EQ 'Z006'  .  
      EXIT.  
    ENDIF .  
\*    2019-05-29 modify by lxf  
\*    IMPORT  p1 TO  gv\_c  FROM   MEMORY ID 'dd'.  
\*    IF sy-subrc NE 0. " 传值失败  
\*      EXPORT p1 FROM  ls\_head-frgke  TO MEMORY ID 'dd' .  
\*      EXPORT p2 FROM  ls\_head-frgke  TO MEMORY ID 'ee' .  
\*    ENDIF .  
\*  
\*    IMPORT p2 TO  gv\_c2 FROM  MEMORY ID 'ee' .  
\*  
\*    IF gv\_c2  EQ 'R'  .  
\*      EXIT.  
\*    ENDIF .  
  
    IMPORT  p1 TO  gv\_c  FROM   MEMORY ID 'dd'.  
    IF sy-subrc NE 0. " 传值失败  
      EXPORT p1 FROM  ls\_head-frgke  TO MEMORY ID 'dd' .  
      EXPORT p2 FROM  ls\_head-frgke  TO MEMORY ID 'ee' .  
    ELSE .  
  
    ENDIF .  
  
    IMPORT p2 TO  gv\_c2 FROM  MEMORY ID 'ee' .  
  
    IF sy-tcode EQ 'ME29N' .  
      IF gv\_c2  EQ 'R'  AND gv\_c IS INITIAL .  
        EXIT.  
      ELSE .  
\*        IF  ls\_head-frgke EQ 'B'.  
\*          EXIT.  
\*        ENDIF .  
  
      ENDIF .  
    ENDIF .  
  
  
  
\*    2019-05-29 modify by lxf  
    CALL METHOD im\_header->get\_items  
      RECEIVING  
        re\_items = lt\_data.  
  
  
    SORT lt\_konm BY kstbm.  
  
    LOOP AT lt\_data INTO ls\_data.  
      lv\_class = ls\_data-item.  
  
      CLEAR: ls\_item.  
      CALL METHOD lv\_class->get\_data  
        RECEIVING  
          re\_data = ls\_item.  
  
      IF ls\_item-umson EQ 'X'.  
        CONTINUE.  
      ENDIF.  
  
      " 已收货不允许修改价格  
  
      CLEAR gt\_ekbe\[\].  
  
      IF ls\_head-bsart  EQ 'Z005' ." OR  ls\_head-bsart  EQ 'Z006'  .  
  
        SELECT menge bewtp INTO TABLE gt\_ekbe  
          FROM ekbe  
          WHERE ebeln = ls\_item-ebeln  
          AND   ebelp = ls\_item-ebelp.  
  
        CLEAR lv\_menge .  
        LOOP AT gt\_ekbe INTO gs\_ekbe.  
          IF gs\_ekbe-bewtp EQ 'S'.  
            lv\_menge = lv\_menge + gs\_ekbe-menge  .  
          ELSE .  
            lv\_menge = lv\_menge - gs\_ekbe-menge .  
          ENDIF .  
        ENDLOOP .  
  
        IF lv\_menge <> 0.  
          CLEAR lv\_netpr .  
          SELECT SINGLE netpr INTO lv\_netpr FROM ekpo  
            WHERE ebeln = ls\_item-ebeln  
            AND   ebelp = ls\_item-ebelp .  
\*          IF lv\_netpr <> ls\_item-netpr .  
          IF abs( lv\_netpr -  ls\_item-netpr ) \* 100  > 3 .  
  
            MESSAGE e000(zhele) WITH  '行' ls\_item-ebelp ':已收货，不允许修改价格'.  
          ENDIF .  
        ENDIF.  
  
  
  
  
        CONTINUE.  
      ENDIF .  
  
  
  
\*      退货跳过增强  
  
      "  
      IF ls\_item-retpo EQ 'X'.  
        CONTINUE.  
      ENDIF.  
  
  
  
      IF ls\_item-loekz IS NOT INITIAL.  
        CONTINUE.  
      ENDIF.  
      SELECT SINGLE mtart  
      INTO lv\_mtart  
      FROM mara  
      WHERE matnr = ls\_item-matnr.  
      IF ( lv\_mtart BETWEEN 'Z001' AND 'Z010' ) OR   ( lv\_mtart EQ 'Z020' ) .  
        IF ls\_item-infnr IS INITIAL.  
          MESSAGE e004(zhele) WITH ls\_head-lifnr ls\_item-matnr.  
        ENDIF.  
      ELSE.  
        CONTINUE..  
      ENDIF.  
  
      "退货采购订单交货价格不能更改  
  
  
  
  
  
      CLEAR: lt\_mmpur\_tkomv.  
      CALL METHOD lv\_class->get\_conditions  
        IMPORTING  
          ex\_conditions = lt\_mmpur\_tkomv.  
\*      READ TABLE lt\_mmpur\_tkomv INTO ls\_mmpur\_tkomv INDEX 1.  
\*      READ TABLE lt\_s1 WITH KEY knumh = ls\_mmpur\_tkomv-knumh kopos = ls\_mmpur\_tkomv-kopos pstyp = ls\_item-pstyp  
\*                       TRANSPORTING NO FIELDS.  
\*      IF sy-subrc <> 0.  
      LOOP AT lt\_mmpur\_tkomv INTO ls\_mmpur\_tkomv.  
        IF ls\_mmpur\_tkomv-kschl <> 'PB00' AND ls\_mmpur\_tkomv-kschl <> 'PBXX'.  
          CONTINUE.  
        ENDIF.  
        ls\_s1-knumh = ls\_mmpur\_tkomv-knumh.  
        ls\_s1-kopos = ls\_mmpur\_tkomv-kopos.  
        ls\_s1-pstyp = ls\_item-pstyp.  
        ls\_s1-kwert = ls\_mmpur\_tkomv-kwert.  
        COLLECT ls\_s1 INTO lt\_s1.  
      ENDLOOP.  
\*      ENDIF.  
  
  
      ls\_slhz-matnr = ls\_item-matnr.  
      ls\_slhz-pstyp = ls\_item-pstyp.  
      ls\_slhz-menge = ls\_item-menge.  
      COLLECT ls\_slhz INTO lt\_slhz.  
  
  
      CLEAR: ls\_slhz.  
    ENDLOOP.  
  
    CLEAR: lt\_mmpur\_tkomv.  
  
    LOOP AT lt\_data INTO ls\_data.  
      lv\_class = ls\_data-item.  
  
      CLEAR: ls\_item.  
      CALL METHOD lv\_class->get\_data  
        RECEIVING  
          re\_data = ls\_item.  
  
  
      IF ls\_item-umson EQ 'X'.  
        CONTINUE.  
      ENDIF.  
      IF ls\_item-retpo EQ 'X'.  
        CONTINUE.  
      ENDIF.  
      IF ls\_item-loekz IS NOT INITIAL.  
        CONTINUE.  
      ENDIF.  
  
  
      SELECT SINGLE mtart  
      INTO lv\_mtart  
      FROM mara  
      WHERE matnr = ls\_item-matnr.  
      IF ( lv\_mtart BETWEEN 'Z001' AND 'Z010')  OR   ( lv\_mtart EQ 'Z020' ) .  
        IF ls\_item-infnr IS INITIAL.  
          MESSAGE e004(zhele) WITH ls\_head-lifnr ls\_item-matnr.  
        ENDIF.  
      ELSE.  
        CONTINUE..  
      ENDIF.  
  
      READ TABLE lt\_slhz INTO ls\_slhz WITH KEY matnr = ls\_item-matnr pstyp = ls\_item-pstyp.  
  
      CALL METHOD lv\_class->get\_conditions  
        IMPORTING  
          ex\_conditions = lt\_mmpur\_tkomv.  
\*第一步  
      LOOP AT lt\_mmpur\_tkomv INTO ls\_mmpur\_tkomv.  
        IF ls\_mmpur\_tkomv-kschl <> 'PB00' AND ls\_mmpur\_tkomv-kschl <> 'PBXX'.  
          CONTINUE.  
        ENDIF.  
        IF ls\_mmpur\_tkomv-knumh IS INITIAL.  
\*1.2.1 当PRCD\_ELEMENTS-KNUMH=空白，则报错“物料XXXXX的价格跟采购信息记录不一致”  
          MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '的价格跟采购信息记录不一致'.  
        ELSE.  
  
          SELECT COUNT(\*)  
              FROM konp  
              WHERE knumh = ls\_mmpur\_tkomv-knumh  
                AND kopos = ls\_mmpur\_tkomv-kopos  
                AND loevm\_ko = 'X'.  
          IF sy-subrc EQ 0.  
            MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '采购信息记录有修改,请检查！'.  
          ENDIF.  
  
          IF ls\_mmpur\_tkomv-kschl = 'PB00'.  
            SELECT SINGLE \*  
              INTO ls\_a017  
              FROM a017  
              WHERE kappl = 'M'  
                AND kschl = ls\_mmpur\_tkomv-kschl  
                AND lifnr = ls\_head-lifnr  
                AND matnr = ls\_item-matnr  
                AND ekorg = ls\_head-ekorg  
                AND werks = ls\_item-werks  
                AND esokz = ls\_item-pstyp  
                AND knumh = ls\_mmpur\_tkomv-knumh  
                AND datbi >= ls\_head-bedat."失效日期  
            IF ls\_a017-datbi >= ls\_head-bedat AND ls\_a017-datab <=  ls\_head-bedat.  
              IF ls\_a017-knumh <> ls\_mmpur\_tkomv-knumh.  
                MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '采购信息记录有修改,请检查！'.  
              ENDIF.  
            ELSE.  
              MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '采购信息记录有修改,请检查！'.  
            ENDIF.  
  
          ENDIF.  
  
          IF ls\_mmpur\_tkomv-kstbs EQ 0.  
  
            SELECT SINGLE \*  
              INTO ls\_konp  
              FROM konp  
              WHERE knumh = ls\_mmpur\_tkomv-knumh  
                AND kopos = ls\_mmpur\_tkomv-kopos.  
            IF ls\_konp-kbetr <> ls\_mmpur\_tkomv-kbetr OR  
                ls\_konp-konwa <> ls\_mmpur\_tkomv-waers OR  
                ls\_konp-kpein <> ls\_mmpur\_tkomv-kpein OR  
               ls\_konp-kmein <> ls\_mmpur\_tkomv-kmein OR  
              sy-subrc <> 0.  
\*1.2.2.1.1如果有不相等的，则报错“物料XXXXX的价格跟采购信息记录不一致”。  
              MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '的价格跟采购信息记录不一致'.  
            ENDIF.  
          ELSE.  
            CLEAR: lv\_s1,lv\_s2,ls\_s1.  
            READ TABLE lt\_s1 INTO ls\_s1 WITH KEY knumh = ls\_mmpur\_tkomv-knumh  
                                                 kopos = ls\_mmpur\_tkomv-kopos  
                                                 pstyp = ls\_item-pstyp.  
            IF sy-subrc EQ 0.  
              lv\_s1 = ls\_s1-kwert.  
            ENDIF.  
\*\*第二步。  
            CLEAR: ls\_konp.  
            SELECT SINGLE \*  
             INTO ls\_konp  
             FROM konp  
             WHERE knumh = ls\_mmpur\_tkomv-knumh  
               AND kopos = ls\_mmpur\_tkomv-kopos.  
\*\*\*1.2.2.2当PRCD\_ELEMENTS-KSTBS≠0时  
            CLEAR: lt\_konm\[\].  
            SELECT \*  
              INTO TABLE lt\_konm  
              FROM konm  
             WHERE knumh = ls\_konp-knumh  
               AND kopos = ls\_konp-kopos.  
            IF sy-subrc <> 0.  
              MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '的价格跟采购信息记录不一致'.  
            ENDIF.  
            SORT lt\_konm BY kstbm.  
            LOOP AT lt\_konm INTO ls\_konm\_b.  
              lv\_tabix = sy-tabix.  
              IF ls\_konm\_b-kstbm >= ls\_slhz-menge."ls\_mmpur\_tkomv-kstbs.  
                EXIT.  
              ENDIF.  
            ENDLOOP.  
            IF ls\_konm\_b-kstbm > ls\_slhz-menge.  
              lv\_tabix = lv\_tabix  - 1.  
            ENDIF.  
  
\*            lv\_tabix = lv\_tabix  - 1.  
            IF lv\_tabix > 0.  
              READ TABLE lt\_konm INTO ls\_konm INDEX lv\_tabix.  
            ELSE.  
              MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '的价格跟采购信息记录不一致'.  
  
            ENDIF.  
            IF ls\_konm\_b-kstbm = ls\_slhz-menge.  
              DESCRIBE TABLE lt\_konm LINES lv\_lines.  
              IF lv\_tabix = lv\_lines.  
                lv\_flg = 'X'.  
              ELSE.  
                lv\_tabix = lv\_tabix  + 1.  
                READ TABLE lt\_konm INTO ls\_konm\_b INDEX lv\_tabix.  
              ENDIF.  
            ENDIF.  
  
            IF ls\_konm\_b-kstbm < ls\_slhz-menge.  
              lv\_flg = 'X'.  
            ENDIF.  
            IF ls\_konm-kbetr <> ls\_mmpur\_tkomv-kbetr OR  
                         ls\_konp-konwa <> ls\_mmpur\_tkomv-waers OR  
                       ls\_konp-kpein <> ls\_mmpur\_tkomv-kpein OR  
                       ls\_konp-kmein <> ls\_mmpur\_tkomv-kmein.  
\*1.2.2.2.1如果有不相等的，则报错“物料XXXXX的价格跟采购信息记录不一致”。  
              MESSAGE e000(zhele) WITH  '物料' ls\_item-matnr '的价格跟采购信息记录不一致'.  
            ELSE.  
              IF lv\_flg = 'X'.  
                CLEAR: lv\_flg.  
                CONTINUE.  
              ENDIF.  
              CLEAR:  lv\_s2,lv\_bfb.  
              IF ls\_konp-kpein <> 0.  
                lv\_s2 = ls\_konm\_b-kbetr / ls\_konp-kpein \* ls\_konm\_b-kstbm.  
              ENDIF.  
  
  
              IF lv\_s1 >= lv\_s2.  
                MESSAGE e005(zhele) WITH ls\_item-matnr ls\_konm\_b-kstbm .  
              ELSE.  
                IF lv\_s2 <> 0.  
                  lv\_bfb = ( lv\_s2 - lv\_s1 ) / lv\_s2.  
                ENDIF.  
  
                IF lv\_bfb <= lv\_01.  
                  lv\_kstbm = ls\_konm\_b-kstbm .  
                  CONCATENATE '物料' ls\_item-matnr '采购数量'  lv\_kstbm '可能更划算!'  
                  INTO lv\_msg.  
                  CALL FUNCTION 'Z\_CALL\_MSG'  
                    EXPORTING  
                      iv\_msg = lv\_msg.  
  
\*                  MESSAGE i005(zhele) WITH ls\_item-matnr ls\_konm\_b-kstbm.  
                ENDIF.  
  
              ENDIF.  
            ENDIF.  
          ENDIF.  
        ENDIF.  
      ENDLOOP.  
  
    ENDLOOP.  
  
  ENDMETHOD.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20211220/8808ded29f0d4abaa47816812104e6ef.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20211220/ab2c87099ee24606b76e9c971eef5d41.png