采购订单限价(包含阶梯价)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(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.

* 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 = 0 .

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 = 0 .

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 = 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.

* 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 <> 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.