（BADI）Copy PR header text to PO header when ME21N

时间 2021-02-15

标签 ide spa orm blog 图片 get form class object 栏目 HTML 繁體版

原文原文链接

需求：根据采购申请建立采购订单的时候，将PR header text 带到PO header text上ide

spro 下找的加强点：spa

其实就是 ME_PROCESS_PO_CUSTorm

Method
blog

利用里面的一个method set_text
图片

参考代码

FUNCTION zmm_copy_pr_text_to_po 内主要代码以下：get

"get header infor
CALL METHOD im_header->get_data
RECEIVING
it

re_data = ls_header.form

"get item_ refer object
CALL METHOD im_header->get_items
RECEIVING
class

re_items = lt_item_object.object

"get item

  "get item
  CALL METHOD ls_item_object-item->get_data
    RECEIVING
      re_data = wa_item.

"get spras

SELECT SINGLE bsart spras INTO ( lv_bsart,lv_spras )
FROM eban WHERE banfn = wa_item-banfn.

"read PR text

CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = 'B03' "MARKING OF TOOL
      language                = lv_spras
      name                    = lv_name
      object                  = 'EBANH'
    TABLES
      lines                   = lt_line

EXCEPTIONS

"get text
LOOP AT lt_line INTO ls_line.
    ls_text-tdobject  = 'EKKO'.
    ls_text-tdid      = 'F19'.
    ls_text-tdformat  = ls_line-tdformat.
    ls_text-tdline = ls_line-tdline .
    APPEND ls_text TO lt_text.
  ENDLOOP.

" set text for PO CALL METHOD im_header->if_longtexts_mm~set_text EXPORTING im_tdid = 'F19' im_textlines = lt_text.