使用Userexit增强实现将PR头文本复制到PO的头文本中

场景：我们基于采购申请（Purchase Requestion）创建采购订单（Purchase Order）时，将PO的Header Note Text自动填充到PO Header Text中。

一、查找user exit
1、查找Package
ME21N ->  System -> status -> Program

SAPLMEGUI ->Goto ->Attributes -> Package


2、在Package中，识别合适的user exit

CMOD -> Utilities -> SAP Enhancements

F8查找Package中所有的增强点

根据描述查找我们需要的增强点，然后双击

根据描述查找需要的Function module exit，然后双击

看到function中有一个没有创建的include，这是SAP预留用于增强的，双击回车创建include
第一代增强是预留的perform，这是第二点增强在function中预留了include，优点是不受系统升级的影响，缺点是不能想第一代增强那样使用全局变量了，只能使用Function中的传入参数

二、验证查找user exit是否正确
方法：在找到的include中添加断点，然后me21n创建PO，若能进入断点，说明增强点找对了，但是SAP防止我们过多的增强出现混乱，所以必须对我们的增强进行管理并激活，SAP才能调用我们增强的代码。
1、CMOD创建Project

2、将找到的Enhancement 分配到Project中

3、激活Project

三、在include中添加代码

1. DATA : lt_tekpo  TYPE TABLE OF bekpo,
   
2.        ls_tekpo  TYPE bekpo,
   
3.        lt_lines  TYPE TABLE OF tline,
   
4.        lv_tdname TYPE thead-tdname,
   
5.        ls_header TYPE thead.
   
6. 
   
7. lt_tekpo[] = tekpo[].
   
8. 
   
9. LOOP AT lt_tekpo INTO ls_tekpo.
   
10. 
    
11.   lv_tdname = ls_tekpo-banfn."Purchase Requisition Number
    
12. 
    
13.   CALL FUNCTION 'READ_TEXT'
    
14.     EXPORTING
    
15.       client                  = sy-mandt
    
16.       id                      = 'B01'
    
17.       language                = sy-langu
    
18.       name                    = lv_tdname
    
19.       object                  = 'EBANH'
    
20.     TABLES
    
21.       lines                   = lt_lines
    
22.     EXCEPTIONS
    
23.       id                      = 1
    
24.       language                = 2
    
25.       name                    = 3
    
26.       not_found               = 4
    
27.       object                  = 5
    
28.       reference_check         = 6
    
29.       wrong_access_to_archive = 7
    
30.       OTHERS                  = 8.
    
31.   IF sy-subrc <> 0.
    
32.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
33.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
34.   ENDIF.
    
35. 
    
36.   ls_header-tdobject = 'EKKO'.
    
37.   ls_header-tdid     = 'F01'.
    
38.   ls_header-tdspras  = sy-langu.
    
39. 
    
40.   CALL FUNCTION 'SAVE_TEXT'
    
41.     EXPORTING
    
42.       client   = sy-mandt
    
43.       header   = ls_header
    
44.       insert   = 'X'
    
45.     TABLES
    
46.       lines    = lt_lines
    
47.     EXCEPTIONS
    
48.       id       = 1
    
49.       language = 2
    
50.       name     = 3
    
51.       object   = 4
    
52.       OTHERS   = 5.
    
53.   IF sy-subrc <> 0.
    
54.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
55.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
56.   ENDIF.
    
57. ENDLOOP.

复制代码

注：READ_TEXT 从Purchase Requestion中读取header note text
SAVE_TEXT 将PR中的头文本保存到PO的头文本中

ME51N 创建采购申请，输入头文本，然后双击

GOto -> header

在这里就能查找到文本的Object、ID、Name等

四、测试效果
ME21N创建采购订单

我们debug是发现，当我们点击检查按钮时，就会执行我们增强的代码，保存生成采购订单，打开采购订单时就可以看到效果了