ABAP FB02 修改会计凭证的抬头文本/行项目文本的函数

使用的函数：FI_DOCUMENT_CHANGE
FB02 修改抬头文本/行项目文本，另外还有一个函数也是可以修改行项目文本的函数，FI_ITEMS_MASS_CHANGE，它本质上是BDC.
1、修改抬头文本
填写会计凭证，公司代码，财年。
抬头字段名，和字段值。

data: gt_accchg type TABLE OF ACCCHG WITH HEADER LINE.

gt_accchg-fdname = 'BKTXT'.        "抬头文本-字段,也可以换其他字段
gt_accchg-newval = '测试抬头文本修改2'. "新的值
APPEND gt_accchg .

CALL FUNCTION 'FI_DOCUMENT_CHANGE'
  EXPORTING
    "i_awtyp              = 'VBRK'   "参考过程
    "i_awref              =     "参考凭证号
    "i_aworg              = gt_data-aworg   "参考组织
   " i_buzei              =   '001'   "行项目
    I_BELNR               =  '2000000078'  "会计凭证
    I_BUKRS               =  '7000'  "公司代码
    I_GJAHR               =  '2020'  "财年
  TABLES
    t_accchg             = gt_accchg
  EXCEPTIONS
    no_reference         = 1
    no_document          = 2
    many_documents       = 3
    wrong_input          = 4
    overwrite_creditcard = 5
    OTHERS               = 6.
IF sy-subrc <> 0.
** Implement suitable error handling here
  WRITE:/  '失败！'.
ENDIF.

2.修改行项目文本
填写会计凭证，公司代码，财年，加个行项目。
抬头字段名，和字段值。

data: gt_accchg type TABLE OF ACCCHG WITH HEADER LINE.

gt_accchg-fdname = 'SGTXT'.        "行项目文本，也可以换其他字段
gt_accchg-newval = '测试11111'. "新的值
APPEND gt_accchg .

CALL FUNCTION 'FI_DOCUMENT_CHANGE'
  EXPORTING
    "i_awtyp              = 'VBRK'   "参考过程
    "i_awref              =     "参考凭证号
    "i_aworg              = gt_data-aworg   "参考组织
    i_buzei              =   '001'   "行项目
    I_BELNR               =  '2000000078'  "会计凭证
    I_BUKRS               =  '7000'  "公司代码
    I_GJAHR               =  '2020'  "财年
  TABLES
    t_accchg             = gt_accchg
  EXCEPTIONS
    no_reference         = 1
    no_document          = 2
    many_documents       = 3
    wrong_input          = 4
    overwrite_creditcard = 5
    OTHERS               = 6.

IF sy-subrc <> 0.
** Implement suitable error handling here
  WRITE:/  '失败！'.
ENDIF.

注意点：
除了能修改文本之外，还能修改FB02可编辑的字段，可以灵活使用。

分享使我快乐，我是寒武青锋。