为了能管控到钱财的每个环节，公司要求采购订单需要使用物料限价，当有报价低于先前的价格时，在采购订单保存时，更新最低限价
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.
扫一扫
993
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
