首页 > 其他分享> 文章详细

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

2021-02-14 21:51:37 阅读：255 来源： 互联网

标签：PR get text ME21N header lt ls item

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

spro 下找的增强点：

其实就是 ME_PROCESS_PO_CUST

Method

利用里面的一个method set_text

参考代码

FUNCTION zmm_copy_pr_text_to_po 内主要代码如下：

"get header infor
CALL METHOD im_header->get_data
RECEIVING

re_data = ls_header.

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

re_items = lt_item_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.

标签：PR,get,text,ME21N,header,lt,ls,item
来源： https://blog.51cto.com/15057820/2628642

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

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