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.