SAP 开具发票的抬头文本带到会计凭证上

需求

将开具发票的抬头文本带到会计凭证上。方便财务处理凭证，不然需要再去编辑凭证，容易遗忘。
达到的效果如图所示：

二代增强SDVFX001

事务码cmod分配增强

编写增强出口

代码如下：

DATA: get_vbrk TYPE vbrk.
DATA: lv_text TYPE char100.

MOVE-CORRESPONDING vbrk TO get_vbrk.

"首先获取抬头文本
lv_text = zcl_long_text=>read(          "读取工序长文本
                          is_thead = VALUE thead(
                                                tdid = |0002|
                                                tdspras = sy-langu
                                                tdname = |{ get_vbrk-vbeln }|
                                                tdobject = |VBBK|
                                                )
                                                ).

*将数据写入抬头文本
IF lv_text IS NOT INITIAL.
  xacchd-bktxt = lv_text.
ENDIF.

代码中用的类中的方法是自己封装的
主要使用的是 READ_TEXT 函数

CALL FUNCTION 'READ_TEXT'
      EXPORTING
        id                      = is_thead-tdid
        language                = is_thead-tdspras
        name                    = is_thead-tdname
        object                  = is_thead-tdobject
      TABLES
        lines                   = lines
      EXCEPTIONS
        id                      = 1
        language                = 2
        name                    = 3
        not_found               = 4
        object                  = 5
        reference_check         = 6
        wrong_access_to_archive = 7.