采购订单创建、修改、审批增强ME21N/ME22N/ME28/ME29N

原创已于 2024-07-08 16:25:48 修改 · 2.9k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP

于 2022-09-27 13:56:16 首次发布

ABAP 专栏收录该内容

134 篇文章

订阅专栏

本文介绍SAP系统中采购订单处理的增强方法，包括通过POST方法获取订单头信息及行信息，利用CHECK方法实现自定义检查逻辑并展示错误消息，以及如何在订单审批过程中同步数据到外围系统。

1、采购订单保存增强

1.1、POST方法

BADI：ME_PROCESS_PO_CUST

通过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.

im_header->set_data( header )."更新修改 
"--------------------@斌将军--------------------

订单行

"--------------------@斌将军--------------------
"获取行
*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.

　　　　item_obj->set_data( item )."更新修改
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.

schedule_obj->set_data(schedule)."更新修改
ENDLOOP. 
"--------------------@斌将军--------------------

更新字段要注意，存在有不可更新的字段，例如行项目中的不可直接更新字段，使用set_data也更新不了

1.2、CHECK方法

另外还有检查增强，点击页面检查按钮可进入。保存时也可进入。

在检查中可以直接报E类型消息，自定义报错就直接进入前台报错清单中。

另外也可以通过标准的程序，将自定义报错添加到报错清单中

"--------------------@斌将军--------------------
INCLUDE mm_messages_mac.

IF 检查错误.
mmpur_message_forced  'E' 'ZMM002' '011' '' '' '' ''.  "错误消息
ch_failed = 'X'.
ENDIF.
"--------------------@斌将军--------------------

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.
"--------------------@斌将军--------------------

定期更文，欢迎关注