SAP ABAP PO订单增强中获取修改前后的数据

SE24->ZCL_IM_ME_PROCESS_PO

if_ex_me_process_po_cust~post 中

  DATA:l_header TYPE mepoheader.
  DATA:l_header_befor TYPE mepoheader.
  DATA:l_header_after TYPE mepoheader.

*   取得当前抬头数据
  l_header = im_header->get_data( ).    "得到采购订单头信息

*   获取修改前的抬头数据
  CALL METHOD im_header->get_persistent_data
    IMPORTING
      ex_data = l_header_befor
    EXCEPTIONS
      no_data = 1
      OTHERS  = 2.
  IF sy-subrc <> 0.
*     Implement suitable error handling here
  ENDIF.

*   获取修改后的抬头数据
  CALL METHOD im_header->get_previous_data
    IMPORTING
      ex_data = l_header_after
    EXCEPTIONS
      no_data = 1
      OTHERS  = 2.
  IF sy-subrc <> 0.
*     Implement suitable error handling here
  ENDIF.
*****获取行项目（修改后的数据）
  DATA : lt_re_items TYPE purchase_order_items,
         ls_data     TYPE purchase_order_item.
  DATA: ls_item TYPE mepoitem.
  DATA: lt_item TYPE TABLE OF mepoitem.
  DATA: lv_class TYPE REF TO if_purchase_order_item_mm.
  CALL METHOD im_header->get_items
    RECEIVING
      re_items = lt_re_items.
  IF sy-subrc <> 0.
*     Implement suitable error handling here
  ENDIF.
  LOOP AT lt_re_items INTO ls_data.
    lv_class = ls_data-item.

    CLEAR: ls_item.
    CALL METHOD lv_class->get_data
      RECEIVING
        re_data = ls_item.
    APPEND ls_item TO lt_item.
  ENDLOOP.
*****
 

if_ex_me_process_po_cust~check 中

DATA:l_header_befor TYPE mepoheader.
  DATA:l_header_after TYPE mepoheader.

*   获取修改前的抬头数据
  CALL METHOD im_header->get_persistent_data
    IMPORTING
      ex_data = l_header_befor
    EXCEPTIONS
      no_data = 1
      OTHERS  = 2.
  IF sy-subrc <> 0.
*     Implement suitable error handling here
  ENDIF.

*   获取修改后的抬头数据
  CALL METHOD im_header->get_previous_data
    IMPORTING
      ex_data = l_header_after
    EXCEPTIONS
      no_data = 1
      OTHERS  = 2.
  IF sy-subrc <> 0.
*     Implement suitable error handling here
  ENDIF.