采购订单限价(包含阶梯价)ME_PROCESS_PO_CUST

为了能管控到钱财的每个环节,公司要求采购订单需要使用物料限价,当有报价低于先前的价格时,在采购订单保存时,更新最低限价

 

BADI:ME_PROCESS_PO_CUST

process~item里做限价检查

post里更新限价

  METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM.

    INCLUDE MM_MESSAGES_MAC.
    DATA : LW_ITEM TYPE MEPOITEM.
    DATA : LT_KONV TYPE TABLE OF KOMV .
    DATA : LW_KONV TYPE KOMV .
    DATA : LV_KNUMH TYPE A118-KNUMH .
    DATA : LT_KONP TYPE TABLE OF KONP .
    DATA : LW_KONP TYPE KONP .
    DATA : LV_MARKS(1) TYPE C .
    DATA:LT_KONM TYPE TABLE OF  KONM,
         LW_KONM TYPE  KONM.

    DATA : LO_HEADER TYPE REF TO IF_PURCHASE_ORDER_MM .
    DATA : LW_HEADER TYPE MEPOHEADER .

    CLEAR:LT_KONM[],LW_KONM.

    IF  SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N'  OR SY-TCODE = 'ME29N'
      OR SY-TCODE = 'ME23N'  .
      LO_HEADER = IM_ITEM->GET_HEADER( ).
      LW_HEADER = LO_HEADER->GET_DATA( ).

      IF LW_HEADER-BSART = '913' OR  LW_HEADER-BSART = '914'
        OR  LW_HEADER-BSART = '915' OR  LW_HEADER-BSART = '916' .
      ELSE .

        LW_ITEM = IM_ITEM->GET_DATA( ).

        CHECK LW_ITEM-UMSON = '' ."免费货物不检查
        CHECK LW_ITEM-LOEKZ = '' ."删除货物不检查
        CHECK LW_ITEM-MATNR <> '' ."无物料号不检查

        CALL METHOD IM_ITEM->GET_CONDITIONS
          IMPORTING
            EX_CONDITIONS = LT_KONV[].

        CLEAR LV_MARKS .
        CLEAR LW_KONV .
        READ TABLE LT_KONV INTO LW_KONV
                WITH KEY KPOSN = LW_ITEM-EBELP
                         KSCHL = 'PB00' .
        IF SY-SUBRC <>  0 .
          CLEAR LW_KONV .
          READ TABLE LT_KONV INTO LW_KONV
                  WITH KEY KPOSN = LW_ITEM-EBELP
                           KSCHL = 'PBXX' .
          IF SY-SUBRC <> 0 .
            LV_MARKS = 'X' .
          ENDIF .
        ENDIF .

        CHECK LV_MARKS = '' .


        SELECT SINGLE KNUMH
            INTO LV_KNUMH
            FROM A901
            WHERE KSCHL = 'PB00'
              AND MATNR = LW_ITEM-MATNR
              AND ZONWA = LW_HEADER-WAERS
              AND DATBI >= SY-DATUM
              AND DATAB <= SY-DATUM .
        IF SY-SUBRC = 0 .
          CLEAR LT_KONP[] .
          SELECT *
            INTO TABLE LT_KONP
            FROM KONP
            WHERE KNUMH = LV_KNUMH
              AND KONWA = LW_HEADER-WAERS .
          IF SY-SUBRC = 0 .
            SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM
            FROM KONM
            FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS." AND KSTBM <= LW_ITEM-MENGE.
            CLEAR LW_KONP .
            READ TABLE LT_KONP INTO LW_KONP INDEX 1 .

            SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING."按数量倒序
            READ TABLE LT_KONM INTO LW_KONM INDEX 1."取最近最大的值对应的价格

            IF LT_KONM[] IS NOT INITIAL."如果存在,将阶梯价复制过来
              LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_ITEM-MENGE..
                LW_KONP-KBETR = LW_KONM-KBETR.
              ENDLOOP.
            ENDIF.
            IF LW_HEADER-WAERS <> LW_KONV-WAERS .
              CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
                EXPORTING
                  DATE             = SY-DATUM
                  FOREIGN_CURRENCY = LW_HEADER-WAERS
                  LOCAL_AMOUNT     = LW_KONV-KBETR
                  LOCAL_CURRENCY   = LW_KONV-WAERS
                IMPORTING
                  FOREIGN_AMOUNT   = LW_KONV-KBETR
                EXCEPTIONS
                  NO_RATE_FOUND    = 1
                  OVERFLOW         = 2
                  NO_FACTORS_FOUND = 3
                  NO_SPREAD_FOUND  = 4
                  DERIVED_2_TIMES  = 5
                  OTHERS           = 6.
            ENDIF .

            IF LW_KONP-KMEIN <> LW_KONV-KMEIN ."数量单位转换
              DATA : LV_MENGE TYPE EKPO-MENGE .
              LV_MENGE = LW_KONP-KPEIN .
              CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
                EXPORTING
                  I_MATNR              = LW_ITEM-MATNR
                  I_IN_ME              = LW_KONP-KMEIN
                  I_OUT_ME             = LW_KONV-KMEIN
                  I_MENGE              = LV_MENGE
                IMPORTING
                  E_MENGE              = LV_MENGE
                EXCEPTIONS
                  ERROR_IN_APPLICATION = 1
                  ERROR                = 2
                  OTHERS               = 3.
              IF LV_MENGE <> 0 .
                LW_KONP-KBETR = LW_KONP-KBETR  / LV_MENGE * LW_KONV-KPEIN .
              ELSE .
                MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP  '限价转换单位太小,程序无法判断' ''.
              ENDIF .
            ELSE .
              LW_KONP-KBETR = LW_KONP-KBETR  / LW_KONP-KPEIN * LW_KONV-KPEIN .
            ENDIF .


            IF LW_KONV-KBETR > LW_KONP-KBETR .
              MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP  '采购价格超出物料最高限价!' ''.
            ENDIF .
          ELSE .
            CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
              EXPORTING
                INPUT  = LW_ITEM-MATNR
              IMPORTING
                OUTPUT = LW_ITEM-MATNR.
            MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP  '的最高限价货币记录为空!' ''.
          ENDIF .
        ELSE ."

          SELECT SINGLE KNUMH
              INTO LV_KNUMH
              FROM A901
              WHERE KSCHL = 'PB00'
                AND MATNR = LW_ITEM-MATNR
                AND DATBI >= SY-DATUM
                AND DATAB <= SY-DATUM .
          IF SY-SUBRC = 0 .
            CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
              EXPORTING
                INPUT  = LW_ITEM-MATNR
              IMPORTING
                OUTPUT = LW_ITEM-MATNR.
            MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP  '的最高限价货币记录为空!' ''.
          ELSE .
            CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
              EXPORTING
                INPUT  = LW_ITEM-MATNR
              IMPORTING
                OUTPUT = LW_ITEM-MATNR.
            MMPUR_MESSAGE 'W' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价记录为空,将自动维护' ''.
          ENDIF .
        ENDIF .

      ENDIF .
    ENDIF .

  ENDMETHOD.

 

  METHOD IF_EX_ME_PROCESS_PO_CUST~POST.
    TYPES : BEGIN OF LS_EKPO ,"物料对应
              MATNR    TYPE EKPO-MATNR,
              MENGE    TYPE EKPO-MENGE,
              KBETR    TYPE KONV-KBETR, "P DECIMALS 6 ,
              WAERS    TYPE KONV-WAERS,
              KMEIN    TYPE KONV-KMEIN,
              KBET2    TYPE KONV-KBETR,
              KPEIN    TYPE KONV-KPEIN,
              MARKX(1) TYPE C,
            END OF LS_EKPO .

    DATA : LW_EKPO TYPE LS_EKPO .
    DATA : LT_EKPO TYPE TABLE OF LS_EKPO .
    DATA : LW_ITEM TYPE MEPOITEM.
    DATA : LW_HEAD TYPE MEPOHEADER.
    DATA : LT_ITEM TYPE TABLE OF MEPOITEM.
    DATA : LT_KONV TYPE TABLE OF KOMV .
    DATA : LT_KONV_01 TYPE TABLE OF KOMV .
    DATA : LW_KONV TYPE KOMV .
    DATA : LV_KNUMH TYPE A118-KNUMH .
    DATA : LT_KONP TYPE TABLE OF KONP .
    DATA : LW_KONP TYPE KONP .
    DATA: LT_ITEMS TYPE PURCHASE_ORDER_ITEMS,
          LW_ITEMS TYPE PURCHASE_ORDER_ITEM.
    DATA : LM_KONV TYPE REF TO IF_PURCHASE_ORDER_ITEM_MM .
    DATA:LT_KONM TYPE TABLE OF  KONM,
         LW_KONM TYPE  KONM.
    DATA:LV_FLAG TYPE C.

***************************************************
***************************************************

    DATA: LT_BAPICONDCT TYPE TABLE OF  BAPICONDCT   ,  "
          LW_BAPICONDCT TYPE  BAPICONDCT,
          LT_BAPICONDHD TYPE TABLE OF BAPICONDHD ,  "
          LW_BAPICONDHD TYPE  BAPICONDHD,
          LT_BAPICONDIT TYPE TABLE OF BAPICONDIT,
          LW_BAPICONDIT TYPE  BAPICONDIT,
          LT_BAPICONDQS TYPE TABLE OF BAPICONDQS,
          LW_BAPICONDQS TYPE  BAPICONDQS,
          LT_BAPICONDVS TYPE TABLE OF BAPICONDVS,
          LW_BAPICONDVS TYPE  BAPICONDVS.

    DATA: LT_BAPIRET2 TYPE TABLE OF BAPIRET2 .
    DATA: LW_BAPIRET2 TYPE BAPIRET2 .
    DATA: LT_BAPIKNUMHS TYPE TABLE OF BAPIKNUMHS  .
    DATA: LT_MEM_INITIAL TYPE  TABLE OF CND_MEM_INITIAL.
    DATA : LV_MARKX(1) TYPE C ."需要扩大标识
    DATA: H_VARKEY(100),
          H_COND_UNIT TYPE MEINS .
***************************************************
***************************************************

    CLEAR : LT_EKPO[] .
    CLEAR : LT_ITEM[] .
    CLEAR : LT_KONV[] .
    CLEAR : LT_KONP[] .
    IF SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' OR SY-TCODE = 'ME23N'
      OR SY-TCODE = 'ME29N' .
      LT_ITEMS = IM_HEADER->GET_ITEMS( ).
      LW_HEAD = IM_HEADER->GET_DATA( ).
      IF LW_HEAD-BSART = '913' OR  LW_HEAD-BSART = '914'
        OR  LW_HEAD-BSART = '915' OR  LW_HEAD-BSART = '916' .
      ELSE .
        CLEAR LW_ITEMS .
        LOOP AT LT_ITEMS INTO LW_ITEMS .

          CLEAR LW_ITEM .
          LW_ITEM = LW_ITEMS-ITEM->GET_DATA( ).
          APPEND LW_ITEM TO LT_ITEM .

          CLEAR LT_KONV_01[] .
          CALL METHOD LW_ITEMS-ITEM->GET_CONDITIONS
            IMPORTING
              EX_CONDITIONS = LT_KONV_01[].
          APPEND LINES OF LT_KONV_01 TO LT_KONV .

        ENDLOOP.

        CLEAR LW_ITEM  .
        LOOP AT LT_ITEM INTO LW_ITEM .
          CHECK LW_ITEM-UMSON = '' ."免费货物不检查
          CHECK LW_ITEM-LOEKZ = '' ."删除货物不检查
          CHECK LW_ITEM-MATNR <> '' ."无物料号不检查
          CLEAR LW_KONV .
          READ TABLE LT_KONV INTO LW_KONV
                  WITH KEY KPOSN = LW_ITEM-EBELP
                          KSCHL = 'PB00' .
          IF SY-SUBRC = 0 .

            CLEAR LW_EKPO .
            LW_EKPO-KBETR = LW_KONV-KBETR  .
            LW_EKPO-MENGE = LW_ITEM-MENGE  .
            LW_EKPO-MATNR = LW_ITEM-MATNR .
            LW_EKPO-WAERS = LW_KONV-WAERS .
            LW_EKPO-KMEIN = LW_KONV-KMEIN .
            LW_EKPO-KBET2 = LW_KONV-KBETR .
            LW_EKPO-KPEIN = LW_KONV-KPEIN .
            APPEND LW_EKPO TO LT_EKPO .
          ELSE .
            CLEAR LW_KONV .
            READ TABLE LT_KONV INTO LW_KONV
                    WITH KEY KPOSN = LW_ITEM-EBELP
                            KSCHL = 'PBXX' .
            IF SY-SUBRC = 0 .
              CLEAR LW_EKPO .
              LW_EKPO-MENGE = LW_ITEM-MENGE  .
              LW_EKPO-KBETR = LW_KONV-KBETR  .
              LW_EKPO-MATNR = LW_ITEM-MATNR .
              LW_EKPO-WAERS = LW_KONV-WAERS .
              LW_EKPO-KMEIN = LW_KONV-KMEIN .
              LW_EKPO-KBET2 = LW_KONV-KBETR .
              LW_EKPO-KPEIN = LW_KONV-KPEIN .
              APPEND LW_EKPO TO LT_EKPO .
            ENDIF .
          ENDIF .
          CLEAR LW_ITEM  .
        ENDLOOP .

        "取到唯一的最小值
        SORT LT_EKPO BY MATNR KBETR ASCENDING .
        DELETE ADJACENT DUPLICATES FROM LT_EKPO
                COMPARING MATNR .

        IF LT_EKPO[] IS NOT INITIAL .

          CLEAR LW_EKPO .
          LOOP AT LT_EKPO INTO LW_EKPO .
            CLEAR : LT_BAPICONDCT[]  ,
                    LT_BAPICONDHD[]  ,
                    LT_BAPICONDIT[]  ,
                    LT_BAPICONDQS[]  ,
                    LT_BAPICONDVS[]  ,
                    LT_BAPIRET2[]    ,
                    LT_BAPIKNUMHS[]  ,
                    LT_MEM_INITIAL[] .

            LW_EKPO-KBETR = LW_EKPO-KBET2 .
            SELECT SINGLE KNUMH
                INTO LV_KNUMH
                FROM A901
                WHERE KSCHL = 'PB00'
                  AND MATNR = LW_EKPO-MATNR
                  AND ZONWA = LW_EKPO-WAERS
                  AND DATBI >= SY-DATUM
                  AND DATAB <= SY-DATUM .
            IF SY-SUBRC = 0 .
              CLEAR: LT_KONP[],LT_KONM .
              SELECT *
                INTO TABLE LT_KONP
                FROM KONP
                WHERE KNUMH = LV_KNUMH  .
              IF SY-SUBRC = 0.
                SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM
                  FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS." AND KSTBM <= LW_EKPO-MENGE.
              ENDIF.
              CLEAR LW_KONP .
              READ TABLE LT_KONP INTO LW_KONP INDEX 1 .

              SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING."先取最大的,然后倒序,小于等于当前数量 赋值
              READ TABLE LT_KONM INTO LW_KONM INDEX 1.
              IF LT_KONM[] IS NOT INITIAL.
                LW_KONP-KBETR = LW_KONM-KBETR.
                LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_EKPO-MENGE.
                  LW_KONP-KBETR = LW_KONM-KBETR.
                ENDLOOP.
              ENDIF.

              IF LW_EKPO-WAERS <> LW_KONP-KONWA .
                CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
                  EXPORTING
                    DATE             = SY-DATUM
                    FOREIGN_CURRENCY = LW_KONP-KONWA
                    LOCAL_AMOUNT     = LW_EKPO-KBETR
                    LOCAL_CURRENCY   = LW_EKPO-WAERS
                  IMPORTING
                    FOREIGN_AMOUNT   = LW_EKPO-KBETR
                  EXCEPTIONS
                    NO_RATE_FOUND    = 1
                    OVERFLOW         = 2
                    NO_FACTORS_FOUND = 3
                    NO_SPREAD_FOUND  = 4
                    DERIVED_2_TIMES  = 5
                    OTHERS           = 6.
              ENDIF .

              IF LW_EKPO-KMEIN <> LW_KONP-KMEIN ."数量单位转换
                DATA : LV_MENGE TYPE EKPO-MENGE .
                LV_MENGE = LW_KONP-KPEIN .
                CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
                  EXPORTING
                    I_MATNR              = LW_ITEM-MATNR
                    I_IN_ME              = LW_KONP-KMEIN
                    I_OUT_ME             = LW_EKPO-KMEIN
                    I_MENGE              = LV_MENGE
                  IMPORTING
                    E_MENGE              = LV_MENGE
                  EXCEPTIONS
                    ERROR_IN_APPLICATION = 1
                    ERROR                = 2
                    OTHERS               = 3.

                LW_KONP-KBETR = LW_KONP-KBETR  / LV_MENGE * LW_EKPO-KPEIN .
              ELSE .
                LW_KONP-KBETR = LW_KONP-KBETR  / LW_KONP-KPEIN * LW_EKPO-KPEIN .
              ENDIF .

              IF LW_EKPO-KBETR < LW_KONP-KBETR .

                "   LW_KONP-KBETR = LW_EKPO-KBETR * LW_KONP-KPEIN  .
                LW_KONP-KBETR = LW_EKPO-KBET2 .
********************************************************
********************************************************
                CHECK LW_KONP-KBETR <> 0 .
                H_VARKEY  = LW_ITEM-MATNR  .
                LW_BAPICONDCT-OPERATION = '004'.         "更改
                LW_BAPICONDCT-COND_USAGE = 'A'.      "条件表用途 ‘A' 定价
                LW_BAPICONDCT-TABLE_NO = '901'.
                LW_BAPICONDCT-APPLICATIO = LW_KONP-KAPPL.
                LW_BAPICONDCT-COND_TYPE = LW_KONP-KSCHL.    "定价条件
                LW_BAPICONDCT-VARKEY = H_VARKEY.
                LW_BAPICONDCT-VALID_TO = '99991231'.
                LW_BAPICONDCT-VALID_FROM = SY-DATUM.
                LW_BAPICONDCT-COND_NO = LV_KNUMH.    "更改
                APPEND LW_BAPICONDCT TO LT_BAPICONDCT.

                LW_BAPICONDHD-OPERATION = '004'.
                LW_BAPICONDHD-COND_NO = LV_KNUMH.
                LW_BAPICONDHD-COND_USAGE = 'A'.
                LW_BAPICONDHD-TABLE_NO = '901'.
                LW_BAPICONDHD-APPLICATIO = LW_KONP-KAPPL.
                LW_BAPICONDHD-COND_TYPE = LW_KONP-KSCHL.
                LW_BAPICONDHD-VALID_FROM = SY-DATUM.
                LW_BAPICONDHD-VALID_TO = '99991231'.
                APPEND LW_BAPICONDHD TO  LT_BAPICONDHD .

                IF LT_KONM[] IS NOT INITIAL.
                  CLEAR:LV_FLAG.
                  LOOP AT LT_KONM INTO LW_KONM.

                    AT LAST.
                      IF LV_FLAG <> 'E'.
                        LV_FLAG = 'S'.
                      ENDIF.
                    ENDAT.

                    IF LW_KONM-KSTBM > LW_EKPO-MENGE." AND LV_FLAG <> 'E'."小于等于订单数量的第一个
                      IF LV_FLAG = 'S'.
                        LV_FLAG = 'X'.
                      ENDIF.
                    ELSEIF LW_KONM-KSTBM = LW_EKPO-MENGE.
                      LV_FLAG = 'X'.
                    ELSEIF LW_KONM-KSTBM < LW_EKPO-MENGE.
                      IF LV_FLAG = ''.
                        LV_FLAG = 'X'.
                      ENDIF.
                    ENDIF.
                    IF LV_FLAG = 'X'.
                      LW_BAPICONDQS-CURRENCY = LW_KONP-KBETR.
                      LV_FLAG = 'E'.
                    ELSE.
                      LW_BAPICONDQS-CURRENCY = LW_KONM-KBETR.
                    ENDIF.
                    LW_BAPICONDQS-OPERATION  = '004'.
                    LW_BAPICONDQS-COND_NO    = LW_KONM-KNUMH.
                    LW_BAPICONDQS-COND_COUNT = LW_KONM-KOPOS.
                    LW_BAPICONDQS-LINE_NO    = LW_KONM-KLFN1.
                    LW_BAPICONDQS-SCALE_QTY  = LW_KONM-KSTBM.
                    LW_BAPICONDQS-COND_UNIT  = LW_EKPO-KMEIN.
                    LW_BAPICONDQS-CONDCURR   = LW_KONP-KONWA.
                    APPEND LW_BAPICONDQS TO LT_BAPICONDQS.
                  ENDLOOP.
                  LW_BAPICONDIT-UNITMEASUR = LW_EKPO-KMEIN.
                ENDIF.

                LW_BAPICONDIT-OPERATION = '004'.   "修改
                LW_BAPICONDIT-COND_NO = LV_KNUMH.
                LW_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
                LW_BAPICONDIT-APPLICATIO = LW_KONP-KAPPL.
                LW_BAPICONDIT-COND_TYPE =  LW_KONP-KSCHL.       "条件类型
                LW_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ Staffelsoort
                LW_BAPICONDIT-SCALEBASIN = LW_KONP-STFKZ.      "KZBZG Teken:rekeneenheid "  LW_bapicondit-scalebasin = 'C'. 存在数量等级
                LW_BAPICONDIT-SCALE_QTY = LW_KONP-KSTBM.       "KSTBM Conditiestaffelbasis hoeveelheid
                LW_BAPICONDIT-COND_P_UNT = LW_EKPO-KPEIN .      "KPEIN prijseenheid
                LW_BAPICONDIT-COND_UNIT = LW_EKPO-KMEIN.      "KMEIN Conditie-hoeveelheidseenheid
                LW_BAPICONDIT-CALCTYPCON = LW_KONP-KRECH.      "KRECH Conditie-rekenregel
                LW_BAPICONDIT-COND_VALUE = LW_KONP-KBETR.
                LW_BAPICONDIT-CONDCURR = LW_KONP-KONWA.
                APPEND  LW_BAPICONDIT  TO LT_BAPICONDIT  .


                CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
                  TABLES
                    TI_BAPICONDCT  = LT_BAPICONDCT
                    TI_BAPICONDHD  = LT_BAPICONDHD
                    TI_BAPICONDIT  = LT_BAPICONDIT
                    TI_BAPICONDQS  = LT_BAPICONDQS
                    TI_BAPICONDVS  = LT_BAPICONDVS
                    TO_BAPIRET2    = LT_BAPIRET2
                    TO_BAPIKNUMHS  = LT_BAPIKNUMHS
                    TO_MEM_INITIAL = LT_MEM_INITIAL
                  EXCEPTIONS
                    UPDATE_ERROR   = 1
                    OTHERS         = 2.
                CLEAR LW_BAPIRET2 .
                READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE = 'E' .
                IF SY-SUBRC <> 0 .
                  COMMIT WORK AND WAIT .
                ELSE .
                  ROLLBACK WORK .
                  CALL FUNCTION 'ZMMFM001'
                    EXPORTING
                      EBELN    = LW_HEAD-EBELN
                      MATNR    = LW_EKPO-MATNR
                      KBETR    = LW_KONP-KBETR
                    TABLES
                      BAPIRET2 = LT_BAPIRET2.

                ENDIF .
********************************************************
********************************************************
              ENDIF .

            ELSE .

              SELECT SINGLE KNUMH
                 INTO LV_KNUMH
                 FROM A901
                 WHERE KSCHL = 'PB00'
                   AND MATNR = LW_EKPO-MATNR
                   AND DATBI >= SY-DATUM
                   AND DATAB <= SY-DATUM .
              IF SY-SUBRC <> 0 .

********************************************************
********************************************************
*               CHECK LW_KONP-KBETR <> 0 .
                LW_KONP-KAPPL = 'M' .
                LW_KONP-KSCHL = 'PB00' .
                LW_KONP-STFKZ = 'A' .
                LW_KONP-KSTBM = 0 .
                LW_KONP-KPEIN = LW_EKPO-KPEIN .
                LW_KONP-KMEIN = LW_EKPO-KMEIN .
                LW_KONP-KRECH = 'C' .
                LW_KONP-KBETR = LW_EKPO-KBET2 .
                LW_KONP-KONWA = LW_EKPO-WAERS .
                LV_KNUMH = '$000000001'  .

                CONCATENATE  LW_EKPO-MATNR LW_KONP-KONWA INTO H_VARKEY   .
                LW_BAPICONDCT-OPERATION = '009'.         "更改
                LW_BAPICONDCT-COND_USAGE = 'A'.      "条件表用途 ‘A' 定价
                LW_BAPICONDCT-TABLE_NO = '901'.
                LW_BAPICONDCT-APPLICATIO = LW_KONP-KAPPL.
                LW_BAPICONDCT-COND_TYPE = LW_KONP-KSCHL.    "定价条件
                LW_BAPICONDCT-VARKEY = H_VARKEY.
                LW_BAPICONDCT-VALID_TO = '99991231'.
                LW_BAPICONDCT-VALID_FROM = SY-DATUM.
                LW_BAPICONDCT-COND_NO = LV_KNUMH.    "更改
                APPEND LW_BAPICONDCT TO LT_BAPICONDCT.

                LW_BAPICONDHD-OPERATION = '009'.
                LW_BAPICONDHD-COND_NO = LV_KNUMH.
                LW_BAPICONDHD-COND_USAGE = 'A'.
                LW_BAPICONDHD-TABLE_NO = '901'.
                LW_BAPICONDHD-APPLICATIO = LW_KONP-KAPPL.
                LW_BAPICONDHD-COND_TYPE = LW_KONP-KSCHL.
                LW_BAPICONDHD-VARKEY = H_VARKEY.
                LW_BAPICONDHD-VALID_FROM = SY-DATUM.
                LW_BAPICONDHD-VALID_TO = '99991231'.
                APPEND LW_BAPICONDHD TO  LT_BAPICONDHD .

                LW_BAPICONDIT-OPERATION = '009'.   "修改
                LW_BAPICONDIT-COND_NO = LV_KNUMH.
                LW_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
                LW_BAPICONDIT-APPLICATIO = LW_KONP-KAPPL.
                "LW_BAPICONDIT-MATLSETTL = LW_EKPO-MATNR.
                LW_BAPICONDIT-COND_TYPE =  LW_KONP-KSCHL.       "条件类型
                LW_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ Staffelsoort
                LW_BAPICONDIT-SCALEBASIN = LW_KONP-STFKZ.      "KZBZG Teken:rekeneenheid "  LW_bapicondit-scalebasin = 'C'. 存在数量等级
                LW_BAPICONDIT-SCALE_QTY = LW_KONP-KSTBM.       "KSTBM Conditiestaffelbasis hoeveelheid
                LW_BAPICONDIT-COND_P_UNT = LW_KONP-KPEIN .      "KPEIN prijseenheid
                LW_BAPICONDIT-COND_UNIT = LW_KONP-KMEIN.      "KMEIN Conditie-hoeveelheidseenheid
                LW_BAPICONDIT-CALCTYPCON = LW_KONP-KRECH.      "KRECH Conditie-rekenregel
                LW_BAPICONDIT-COND_VALUE = LW_KONP-KBETR.
                LW_BAPICONDIT-CONDCURR = LW_KONP-KONWA.
                APPEND  LW_BAPICONDIT  TO LT_BAPICONDIT  .

                CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
                  TABLES
                    TI_BAPICONDCT  = LT_BAPICONDCT
                    TI_BAPICONDHD  = LT_BAPICONDHD
                    TI_BAPICONDIT  = LT_BAPICONDIT
                    TI_BAPICONDQS  = LT_BAPICONDQS
                    TI_BAPICONDVS  = LT_BAPICONDVS
                    TO_BAPIRET2    = LT_BAPIRET2
                    TO_BAPIKNUMHS  = LT_BAPIKNUMHS
                    TO_MEM_INITIAL = LT_MEM_INITIAL
                  EXCEPTIONS
                    UPDATE_ERROR   = 1
                    OTHERS         = 2.
                CLEAR LW_BAPIRET2 .
                READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE = 'E' .
                IF SY-SUBRC <> 0 .
                  COMMIT WORK AND WAIT .
                ELSE .
                  ROLLBACK WORK .
                  CALL FUNCTION 'ZMMFM001'
                    EXPORTING
                      EBELN    = LW_HEAD-EBELN
                      MATNR    = LW_EKPO-MATNR
                      KBETR    = LW_KONP-KBETR
                    TABLES
                      BAPIRET2 = LT_BAPIRET2.
                ENDIF .

              ENDIF .

            ENDIF .
          ENDLOOP .
        ENDIF .

      ENDIF .
    ENDIF .
  ENDMETHOD.

 

 

 

 
 

 

  METHOD IF_EX_ME_PROCESS_PO_CUST~POST.
    TYPES BEGIN OF LS_EKPO ,"物料对应
              MATNR    TYPE EKPO-MATNR,
              MENGE    TYPE EKPO-MENGE,
              KBETR    TYPE KONV-KBETR"P DECIMALS 6 ,
              WAERS    TYPE KONV-WAERS,
              KMEIN    TYPE KONV-KMEIN,
              KBET2    TYPE KONV-KBETR,
              KPEIN    TYPE KONV-KPEIN,
              MARKX(1TYPE C,
            END OF LS_EKPO .

    DATA LW_EKPO TYPE LS_EKPO .
    DATA LT_EKPO TYPE TABLE OF LS_EKPO .

    DATA LW_ITEM TYPE MEPOITEM.
    DATA LW_HEAD TYPE MEPOHEADER.
    DATA LT_ITEM TYPE TABLE OF MEPOITEM.
    DATA LT_KONV TYPE TABLE OF KOMV .
    DATA LT_KONV_01 TYPE TABLE OF KOMV .
    DATA LW_KONV TYPE KOMV .
    DATA LV_KNUMH TYPE A118-KNUMH .
    DATA LT_KONP TYPE TABLE OF KONP .
    DATA LW_KONP TYPE KONP .
    DATALT_ITEMS TYPE PURCHASE_ORDER_ITEMS,
          LW_ITEMS TYPE PURCHASE_ORDER_ITEM.
    DATA LM_KONV TYPE REF TO IF_PURCHASE_ORDER_ITEM_MM .
    DATA:LT_KONM TYPE TABLE OF  KONM,
         LW_KONM TYPE  KONM.
    DATA:LV_FLAG TYPE C.

***************************************************
***************************************************

    DATALT_BAPICONDCT TYPE TABLE OF  BAPICONDCT   ,  "
          LW_BAPICONDCT TYPE  BAPICONDCT,

          LT_BAPICONDHD TYPE TABLE OF BAPICONDHD ,  "
          LW_BAPICONDHD TYPE  BAPICONDHD,

          LT_BAPICONDIT TYPE TABLE OF BAPICONDIT,
          LW_BAPICONDIT TYPE  BAPICONDIT,

          LT_BAPICONDQS TYPE TABLE OF BAPICONDQS,
          LW_BAPICONDQS TYPE  BAPICONDQS,

          LT_BAPICONDVS TYPE TABLE OF BAPICONDVS,
          LW_BAPICONDVS TYPE  BAPICONDVS.

    DATALT_BAPIRET2 TYPE TABLE OF BAPIRET2 .
    DATALW_BAPIRET2 TYPE BAPIRET2 .

    DATALT_BAPIKNUMHS TYPE TABLE OF BAPIKNUMHS  .
    DATALT_MEM_INITIAL TYPE  TABLE OF CND_MEM_INITIAL.

    DATA LV_MARKX(1TYPE ."需要扩大标识

    DATAH_VARKEY(100),
          H_COND_UNIT TYPE MEINS .
***************************************************
***************************************************

    CLEAR LT_EKPO[] .
    CLEAR LT_ITEM[] .
    CLEAR LT_KONV[] .
    CLEAR LT_KONP[] .
    IF SY-TCODE 'ME21N' OR SY-TCODE 'ME22N' OR SY-TCODE 'ME23N'
      OR SY-TCODE 'ME29N' .
      LT_ITEMS IM_HEADER->GET_ITEMS).
      LW_HEAD IM_HEADER->GET_DATA).
      IF LW_HEAD-BSART '913' OR  LW_HEAD-BSART '914'
        OR  LW_HEAD-BSART '915' OR  LW_HEAD-BSART '916' .
      ELSE .
        CLEAR LW_ITEMS .
        LOOP AT LT_ITEMS INTO LW_ITEMS .

          CLEAR LW_ITEM .
          LW_ITEM LW_ITEMS-ITEM->GET_DATA).
          APPEND LW_ITEM TO LT_ITEM .

          CLEAR LT_KONV_01[] .
          CALL METHOD LW_ITEMS-ITEM->GET_CONDITIONS
            IMPORTING
              EX_CONDITIONS LT_KONV_01[].
          APPEND LINES OF LT_KONV_01 TO LT_KONV .

        ENDLOOP.

*    CALL METHOD IM_HEADER->GET_CONDITIONS
*      IMPORTING
*        EX_CONDITIONS = LT_KONV[].

        CLEAR LW_ITEM  .
        LOOP AT LT_ITEM INTO LW_ITEM .
          CHECK LW_ITEM-UMSON '' ."免费货物不检查
          CHECK LW_ITEM-LOEKZ '' ."删除货物不检查
          CHECK LW_ITEM-MATNR <> '' ."无物料号不检查
          CLEAR LW_KONV .
          READ TABLE LT_KONV INTO LW_KONV
                  WITH KEY KPOSN LW_ITEM-EBELP
                          KSCHL 'PB00' .
          IF SY-SUBRC .

            CLEAR LW_EKPO .
*            IF LW_KONV-KBETR  / LW_KONV-KPEIN >= 1000 .
*              LW_EKPO-KBETR = LW_KONV-KBETR  / LW_KONV-KPEIN ."扩大100倍方便小数位对比
*            ELSE .
*              LW_EKPO-KBETR = LW_KONV-KBETR  / LW_KONV-KPEIN * 1000."扩大100倍方便小数位对比
*              LW_EKPO-MARKX = 'X' .
*            ENDIF .
            LW_EKPO-KBETR LW_KONV-KBETR  .
            LW_EKPO-MENGE LW_ITEM-MENGE  .
            LW_EKPO-MATNR LW_ITEM-MATNR .
            LW_EKPO-WAERS LW_KONV-WAERS .
            LW_EKPO-KMEIN LW_KONV-KMEIN .
            LW_EKPO-KBET2 LW_KONV-KBETR .
            LW_EKPO-KPEIN LW_KONV-KPEIN .
            APPEND LW_EKPO TO LT_EKPO .
          ELSE .
            CLEAR LW_KONV .
            READ TABLE LT_KONV INTO LW_KONV
                    WITH KEY KPOSN LW_ITEM-EBELP
                            KSCHL 'PBXX' .
            IF SY-SUBRC .
              CLEAR LW_EKPO .
*              IF LW_KONV-KBETR  / LW_KONV-KPEIN >= 1000 .
*                LW_EKPO-KBETR = LW_KONV-KBETR  / LW_KONV-KPEIN ."扩大1000倍方便小数位对比
*              ELSE .
*                LW_EKPO-KBETR = LW_KONV-KBETR  / LW_KONV-KPEIN * 1000."扩大1000倍方便小数位对比
*                LW_EKPO-MARKX = 'X' .
*              ENDIF .
              LW_EKPO-MENGE LW_ITEM-MENGE  .
              LW_EKPO-KBETR LW_KONV-KBETR  .
              LW_EKPO-MATNR LW_ITEM-MATNR .
              LW_EKPO-WAERS LW_KONV-WAERS .
              LW_EKPO-KMEIN LW_KONV-KMEIN .
              LW_EKPO-KBET2 LW_KONV-KBETR .
              LW_EKPO-KPEIN LW_KONV-KPEIN .
              APPEND LW_EKPO TO LT_EKPO .
            ENDIF .
          ENDIF .
          CLEAR LW_ITEM  .
        ENDLOOP .

        "取到唯一的最小值
        SORT LT_EKPO BY MATNR KBETR ASCENDING .
        DELETE ADJACENT DUPLICATES FROM LT_EKPO
                COMPARING MATNR .

        IF LT_EKPO[] IS NOT INITIAL .

          CLEAR LW_EKPO .
          LOOP AT LT_EKPO INTO LW_EKPO .
            CLEAR LT_BAPICONDCT[]  ,
                    LT_BAPICONDHD[]  ,
                    LT_BAPICONDIT[]  ,
                    LT_BAPICONDQS[]  ,
                    LT_BAPICONDVS[]  ,
                    LT_BAPIRET2[]    ,
                    LT_BAPIKNUMHS[]  ,
                    LT_MEM_INITIAL[] .



            LW_EKPO-KBETR LW_EKPO-KBET2 .
            SELECT SINGLE KNUMH
                INTO LV_KNUMH
                FROM A901
                WHERE KSCHL 'PB00'
                  AND MATNR LW_EKPO-MATNR
                  AND ZONWA LW_EKPO-WAERS
                  AND DATBI >= SY-DATUM
                  AND DATAB <= SY-DATUM .
            IF SY-SUBRC .
              CLEARLT_KONP[],LT_KONM .
              SELECT *
                INTO TABLE LT_KONP
                FROM KONP
                WHERE KNUMH LV_KNUMH  .
              IF SY-SUBRC 0.
                SELECT INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM
                  FOR ALL ENTRIES IN LT_KONP WHERE KNUMH LT_KONP-KNUMH AND KOPOS LT_KONP-KOPOS." AND KSTBM <= LW_EKPO-MENGE.
              ENDIF.
              CLEAR LW_KONP .
              READ TABLE LT_KONP INTO LW_KONP INDEX .

              SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING."先取最大的,然后倒序,小于等于当前数量 赋值
              READ TABLE LT_KONM INTO LW_KONM INDEX 1.
              IF LT_KONM[] IS NOT INITIAL.
                LW_KONP-KBETR LW_KONM-KBETR.
                LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_EKPO-MENGE.
                  LW_KONP-KBETR LW_KONM-KBETR.
                ENDLOOP.

*                CLEAR:LT_KONM[].
*                SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM
*                  FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS.
*                  SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING.
              ENDIF.

              IF LW_EKPO-WAERS <> LW_KONP-KONWA .
                CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
                  EXPORTING
                    DATE             SY-DATUM
                    FOREIGN_CURRENCY LW_KONP-KONWA
                    LOCAL_AMOUNT     LW_EKPO-KBETR
                    LOCAL_CURRENCY   LW_EKPO-WAERS
                  IMPORTING
                    FOREIGN_AMOUNT   LW_EKPO-KBETR
                  EXCEPTIONS
                    NO_RATE_FOUND    1
                    OVERFLOW         2
                    NO_FACTORS_FOUND 3
                    NO_SPREAD_FOUND  4
                    DERIVED_2_TIMES  5
                    OTHERS           6.
              ENDIF .


*              IF LW_EKPO-KMEIN <> LW_KONV-KMEIN ."数量单位转换
*                DATA : LV_MENGE TYPE EKPO-MENGE .
*                LV_MENGE = 1 .
*                CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
*                  EXPORTING
*                    I_MATNR              = LW_ITEM-MATNR
*                    I_IN_ME              = LW_EKPO-KMEIN
*                    I_OUT_ME             = LW_KONP-KMEIN
*                    I_MENGE              = LV_MENGE
*                  IMPORTING
*                    E_MENGE              = LV_MENGE
*                  EXCEPTIONS
*                    ERROR_IN_APPLICATION = 1
*                    ERROR                = 2
*                    OTHERS               = 3.
*                LW_EKPO-KBETR =  LW_EKPO-KBETR * LV_MENGE.
*              ENDIF .
*              LW_KONP-KBETR = LW_KONP-KBETR  / LW_KONP-KPEIN .
              IF LW_EKPO-KMEIN <> LW_KONP-KMEIN ."数量单位转换
                DATA LV_MENGE TYPE EKPO-MENGE .
                LV_MENGE LW_KONP-KPEIN .
                CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
                  EXPORTING
                    I_MATNR              LW_ITEM-MATNR
                    I_IN_ME              LW_KONP-KMEIN
                    I_OUT_ME             LW_EKPO-KMEIN
                    I_MENGE              LV_MENGE
                  IMPORTING
                    E_MENGE              LV_MENGE
                  EXCEPTIONS
                    ERROR_IN_APPLICATION 1
                    ERROR                2
                    OTHERS               3.

                LW_KONP-KBETR LW_KONP-KBETR  / LV_MENGE * LW_EKPO-KPEIN .
              ELSE .
                LW_KONP-KBETR LW_KONP-KBETR  / LW_KONP-KPEIN * LW_EKPO-KPEIN .
              ENDIF .
*              IF LW_EKPO-MARKX = 'X' .
*                LW_KONP-KBETR = LW_KONP-KBETR  / LW_KONP-KPEIN * LW_EKPO-KPEIN * 1000 .
*              ELSE .
*                LW_KONP-KBETR = LW_KONP-KBETR  / LW_KONP-KPEIN * LW_EKPO-KPEIN .
*              ENDIF .


              IF LW_EKPO-KBETR < LW_KONP-KBETR .

                "   LW_KONP-KBETR = LW_EKPO-KBETR * LW_KONP-KPEIN  .
                LW_KONP-KBETR LW_EKPO-KBET2 .
********************************************************
********************************************************
                CHECK LW_KONP-KBETR <> .
                H_VARKEY  LW_ITEM-MATNR  .
                LW_BAPICONDCT-OPERATION '004'.         "更改
                LW_BAPICONDCT-COND_USAGE 'A'.      "条件表用途 ‘A' 定价
                LW_BAPICONDCT-TABLE_NO '901'.
                LW_BAPICONDCT-APPLICATIO LW_KONP-KAPPL.
                LW_BAPICONDCT-COND_TYPE LW_KONP-KSCHL.    "定价条件
                LW_BAPICONDCT-VARKEY H_VARKEY.
                LW_BAPICONDCT-VALID_TO '99991231'.
                LW_BAPICONDCT-VALID_FROM SY-DATUM.
                LW_BAPICONDCT-COND_NO LV_KNUMH.    "更改
                APPEND LW_BAPICONDCT TO LT_BAPICONDCT.

                LW_BAPICONDHD-OPERATION '004'.
                LW_BAPICONDHD-COND_NO LV_KNUMH.
                LW_BAPICONDHD-COND_USAGE 'A'.
                LW_BAPICONDHD-TABLE_NO '901'.
                LW_BAPICONDHD-APPLICATIO LW_KONP-KAPPL.
                LW_BAPICONDHD-COND_TYPE LW_KONP-KSCHL.
                LW_BAPICONDHD-VALID_FROM SY-DATUM.
                LW_BAPICONDHD-VALID_TO '99991231'.
                APPEND LW_BAPICONDHD TO  LT_BAPICONDHD .

                IF LT_KONM[] IS NOT INITIAL.
                  CLEAR:LV_FLAG.
                  LOOP AT LT_KONM INTO LW_KONM.

                    AT LAST.
                      IF LV_FLAG <> 'E'.
                        LV_FLAG 'S'.
                      ENDIF.
                    ENDAT.


                    IF LW_KONM-KSTBM > LW_EKPO-MENGE." AND LV_FLAG <> 'E'."小于等于订单数量的第一个
                      IF LV_FLAG 'S'.
                        LV_FLAG 'X'.
                      ENDIF.
                    ELSEIF LW_KONM-KSTBM LW_EKPO-MENGE.
                      LV_FLAG 'X'.
                    ELSEIF LW_KONM-KSTBM < LW_EKPO-MENGE.
                      IF LV_FLAG ''.
                        LV_FLAG 'X'.
                      ENDIF.
                    ENDIF.
                    IF LV_FLAG 'X'.
                      LW_BAPICONDQS-CURRENCY LW_KONP-KBETR.
                      LV_FLAG 'E'.
                    ELSE.
                      LW_BAPICONDQS-CURRENCY LW_KONM-KBETR.
                    ENDIF.
                    LW_BAPICONDQS-OPERATION  '004'.
                    LW_BAPICONDQS-COND_NO    LW_KONM-KNUMH.
                    LW_BAPICONDQS-COND_COUNT LW_KONM-KOPOS.
                    LW_BAPICONDQS-LINE_NO    LW_KONM-KLFN1.
                    LW_BAPICONDQS-SCALE_QTY  LW_KONM-KSTBM.
                    LW_BAPICONDQS-COND_UNIT  LW_EKPO-KMEIN.
                    LW_BAPICONDQS-CONDCURR   LW_KONP-KONWA.
                    APPEND LW_BAPICONDQS TO LT_BAPICONDQS.
                  ENDLOOP.
                  LW_BAPICONDIT-UNITMEASUR LW_EKPO-KMEIN.
                ENDIF.

                LW_BAPICONDIT-OPERATION '004'.   "修改
                LW_BAPICONDIT-COND_NO LV_KNUMH.
                LW_BAPICONDIT-COND_COUNT '01'.     "条件序列号
                LW_BAPICONDIT-APPLICATIO LW_KONP-KAPPL.
                LW_BAPICONDIT-COND_TYPE =  LW_KONP-KSCHL.       "条件类型
                LW_BAPICONDIT-SCALETYPE 'A'.       "STFKZ Staffelsoort
                LW_BAPICONDIT-SCALEBASIN LW_KONP-STFKZ.      "KZBZG Teken:rekeneenheid "  LW_bapicondit-scalebasin = 'C'. 存在数量等级
                LW_BAPICONDIT-SCALE_QTY LW_KONP-KSTBM.       "KSTBM Conditiestaffelbasis hoeveelheid
                LW_BAPICONDIT-COND_P_UNT LW_EKPO-KPEIN .      "KPEIN prijseenheid
                LW_BAPICONDIT-COND_UNIT LW_EKPO-KMEIN.      "KMEIN Conditie-hoeveelheidseenheid
                LW_BAPICONDIT-CALCTYPCON LW_KONP-KRECH.      "KRECH Conditie-rekenregel
                LW_BAPICONDIT-COND_VALUE LW_KONP-KBETR.
                LW_BAPICONDIT-CONDCURR LW_KONP-KONWA.
                APPEND  LW_BAPICONDIT  TO LT_BAPICONDIT  .


                CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
                  TABLES
                    TI_BAPICONDCT  LT_BAPICONDCT
                    TI_BAPICONDHD  LT_BAPICONDHD
                    TI_BAPICONDIT  LT_BAPICONDIT
                    TI_BAPICONDQS  LT_BAPICONDQS
                    TI_BAPICONDVS  LT_BAPICONDVS
                    TO_BAPIRET2    LT_BAPIRET2
                    TO_BAPIKNUMHS  LT_BAPIKNUMHS
                    TO_MEM_INITIAL LT_MEM_INITIAL
                  EXCEPTIONS
                    UPDATE_ERROR   1
                    OTHERS         2.
                CLEAR LW_BAPIRET2 .
                READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE 'E' .
                IF SY-SUBRC <> .
                  COMMIT WORK AND WAIT .
                ELSE .
                  ROLLBACK WORK .
                  CALL FUNCTION 'ZMMFM001'
                    EXPORTING
                      EBELN    LW_HEAD-EBELN
                      MATNR    LW_EKPO-MATNR
                      KBETR    LW_KONP-KBETR
                    TABLES
                      BAPIRET2 LT_BAPIRET2.

                ENDIF .
********************************************************
********************************************************
              ENDIF .

            ELSE .

              SELECT SINGLE KNUMH
                 INTO LV_KNUMH
                 FROM A901
                 WHERE KSCHL 'PB00'
                   AND MATNR LW_EKPO-MATNR
                   AND DATBI >= SY-DATUM
                   AND DATAB <= SY-DATUM .
              IF SY-SUBRC <> .

********************************************************
********************************************************
*               CHECK LW_KONP-KBETR <> 0 .
                LW_KONP-KAPPL 'M' .
                LW_KONP-KSCHL 'PB00' .
                LW_KONP-STFKZ 'A' .
                LW_KONP-KSTBM .
                LW_KONP-KPEIN LW_EKPO-KPEIN .
                LW_KONP-KMEIN LW_EKPO-KMEIN .
                LW_KONP-KRECH 'C' .
                LW_KONP-KBETR LW_EKPO-KBET2 .
                LW_KONP-KONWA LW_EKPO-WAERS .
                LV_KNUMH '$000000001'  .

                CONCATENATE  LW_EKPO-MATNR LW_KONP-KONWA INTO H_VARKEY   .
                LW_BAPICONDCT-OPERATION '009'.         "更改
                LW_BAPICONDCT-COND_USAGE 'A'.      "条件表用途 ‘A' 定价
                LW_BAPICONDCT-TABLE_NO '901'.
                LW_BAPICONDCT-APPLICATIO LW_KONP-KAPPL.
                LW_BAPICONDCT-COND_TYPE LW_KONP-KSCHL.    "定价条件
                LW_BAPICONDCT-VARKEY H_VARKEY.
                LW_BAPICONDCT-VALID_TO '99991231'.
                LW_BAPICONDCT-VALID_FROM SY-DATUM.
                LW_BAPICONDCT-COND_NO LV_KNUMH.    "更改
                APPEND LW_BAPICONDCT TO LT_BAPICONDCT.

                LW_BAPICONDHD-OPERATION '009'.
                LW_BAPICONDHD-COND_NO LV_KNUMH.
                LW_BAPICONDHD-COND_USAGE 'A'.
                LW_BAPICONDHD-TABLE_NO '901'.
                LW_BAPICONDHD-APPLICATIO LW_KONP-KAPPL.
                LW_BAPICONDHD-COND_TYPE LW_KONP-KSCHL.
                LW_BAPICONDHD-VARKEY H_VARKEY.
                LW_BAPICONDHD-VALID_FROM SY-DATUM.
                LW_BAPICONDHD-VALID_TO '99991231'.
                APPEND LW_BAPICONDHD TO  LT_BAPICONDHD .

                LW_BAPICONDIT-OPERATION '009'.   "修改
                LW_BAPICONDIT-COND_NO LV_KNUMH.
                LW_BAPICONDIT-COND_COUNT '01'.     "条件序列号
                LW_BAPICONDIT-APPLICATIO LW_KONP-KAPPL.
                "LW_BAPICONDIT-MATLSETTL = LW_EKPO-MATNR.
                LW_BAPICONDIT-COND_TYPE =  LW_KONP-KSCHL.       "条件类型
                LW_BAPICONDIT-SCALETYPE 'A'.       "STFKZ Staffelsoort
                LW_BAPICONDIT-SCALEBASIN LW_KONP-STFKZ.      "KZBZG Teken:rekeneenheid "  LW_bapicondit-scalebasin = 'C'. 存在数量等级
                LW_BAPICONDIT-SCALE_QTY LW_KONP-KSTBM.       "KSTBM Conditiestaffelbasis hoeveelheid
                LW_BAPICONDIT-COND_P_UNT LW_KONP-KPEIN .      "KPEIN prijseenheid
                LW_BAPICONDIT-COND_UNIT LW_KONP-KMEIN.      "KMEIN Conditie-hoeveelheidseenheid
                LW_BAPICONDIT-CALCTYPCON LW_KONP-KRECH.      "KRECH Conditie-rekenregel
                LW_BAPICONDIT-COND_VALUE LW_KONP-KBETR.
                LW_BAPICONDIT-CONDCURR LW_KONP-KONWA.
                APPEND  LW_BAPICONDIT  TO LT_BAPICONDIT  .

                CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
                  TABLES
                    TI_BAPICONDCT  LT_BAPICONDCT
                    TI_BAPICONDHD  LT_BAPICONDHD
                    TI_BAPICONDIT  LT_BAPICONDIT
                    TI_BAPICONDQS  LT_BAPICONDQS
                    TI_BAPICONDVS  LT_BAPICONDVS
                    TO_BAPIRET2    LT_BAPIRET2
                    TO_BAPIKNUMHS  LT_BAPIKNUMHS
                    TO_MEM_INITIAL LT_MEM_INITIAL
                  EXCEPTIONS
                    UPDATE_ERROR   1
                    OTHERS         2.
                CLEAR LW_BAPIRET2 .
                READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE 'E' .
                IF SY-SUBRC <> .
                  COMMIT WORK AND WAIT .
                ELSE .
                  ROLLBACK WORK .
                  CALL FUNCTION 'ZMMFM001'
                    EXPORTING
                      EBELN    LW_HEAD-EBELN
                      MATNR    LW_EKPO-MATNR
                      KBETR    LW_KONP-KBETR
                    TABLES
                      BAPIRET2 LT_BAPIRET2.
                ENDIF .

              ENDIF .

            ENDIF .
          ENDLOOP .
        ENDIF .

      ENDIF .
    ENDIF .
  ENDMETHOD.

转载于:https://www.cnblogs.com/sapSB/p/5570352.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值