(BADI)Copy PR header text to PO header when ME21N
需求:根据采购申请创建采购订单的时候,将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.
更多相关文章
- SE75 采购申请创建抬头文本
- 这样规范写代码,同事直呼“666”
- GitHub等三大平台遭勒索,***给出十天期限:不交赎金即公开用户代码
- 我的第六个代码
- 我的第五个代码
- 我的第四个代码
- 漫画:聊一聊MVC、MVP、MVVM?
- 写了10年JAVA代码,为何还是给人一种乱糟糟的感觉?
- 为什么项目中用了JOOQ后大家都不愿再用Mybatis?