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