BADI Copy PR item text to PO when ME21N

首先，PO item text是能夠經過配置實現的，

可是有時候業務顧問偷懶，或者由於某些什麼緣由，不能建立或者傳輸 Customizing request。

這個時候也就只能經過代碼來實現了……

建立採購訂單的時候，將參考的採購申請對應的item 文本帶過來

ME_PROCESS_PO_CUST

method：item

主要代碼：

*get header object
  CALL METHOD im_item->get_header
    RECEIVING
      re_header = lo_header.

"get header data

  CLEAR:ls_header.
  CALL METHOD lo_header->get_data
    RECEIVING

      re_data = ls_header.

*get Item data
  CLEAR:ls_item.
  CALL METHOD im_item->get_data
    RECEIVING

      re_data = ls_item.

  "read text
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = 'B02' "Item Note
      language                = lv_spras
      name                    = lv_name
      object                  = 'EBAN'
    TABLES
      lines                   = lt_line

 "copy text

  LOOP AT lt_line INTO ls_line.    ls_text-tdobject  = 'EKPO'.    ls_text-tdid      = 'F11'. "Item Note    ls_text-tdformat  = ls_line-tdformat.    ls_text-tdline = ls_line-tdline .    APPEND ls_text TO lt_text.  ENDLOOP.  IF lt_text[] IS NOT INITIAL.    CALL METHOD im_item->if_longtexts_mm~set_text      EXPORTING        im_tdid      = 'F11'        im_textlines = lt_text.  ENDIF.