采購訂單建立、修改、審批增強ME21N/ME22N/ME28/ME29N

一、采購訂單建立修改增強

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

訂單行

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

二、采購訂單審批同步外圍系統增強

函數：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.
"-----------------------------------------@斌将軍--------------------------------------------