采购订单创建修改审批增强 ME21NME22NME28ME29N
** 1、采购订单创建修改增强 **
使用三代BADI增强：ME_PROCESS_PO_CUST
调用BADI的POST方法，其中的参数im_header，获取对应的数据
获取订单头
"-----------------------------@斌将军-----------------------------*Get header CALL METHOD im_header->get_data RECEIVING re_data = header.*获取长文本 REFRESH ex_textlines. CALL METHOD im_header->if_longtexts_mm~get_text EXPORTING im_tdid = im_tdid IMPORTING ex_textlines = ex_textlines."-----------------------------@斌将军-----------------------------
订单行
"-----------------------------@斌将军-----------------------------"获取行*Get Item CALL METHOD im_header->get_items RECEIVING re_items = items_data.
LOOP AT items_data INTO item_data.** First get Item Object, Second fill item data "获取行对象 item_obj = item_data-item. "获取行字段值 CALL METHOD item_obj->get_data RECEIVING re_data = item. "获取行长文本 REFRESH ex_textlines. CALL METHOD item_obj->if_longtexts_mm~get_text EXPORTING im_tdid = im_tdid IMPORTING ex_textlines = ex_textlines.ENDLOOP."-----------------------------@斌将军-----------------------------计划行
"-----------------------------@斌将军-----------------------------"获取计划行 CALL METHOD item_obj->get_schedules RECEIVING re_schedules = schedules_data.
LOOP AT schedules_data INTO schedule_data. schedule_obj = schedule_data-schedule. CALL METHOD schedule_obj->get_data RECEIVING re_data = schedule. ENDLOOP."-----------------------------@斌将军-----------------------------**2、采购订单审批同步外围系统增强**
函数：ME_PURCHASE_DOCUMENT_DATA_SAVE
调用接口同步数据到外围系统
"-----------------------------------------@斌将军--------------------------------ENHANCEMENT 1 ZME28. "active version"采购订单审批发送SRM接口CALL FUNCTION 'Z_XXX' "IN BACKGROUND TASK DESTINATION 'NONE' EXPORTING i_ekko = E_EKKO.ENDENHANCEMENT."-----------------------------------------@斌将军--------------------------------
