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

抬头:

 项次：

 

DATA: gt_accchg TYPE TABLE OF accchg WITH HEADER LINE.

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

CALL FUNCTION 'FI_DOCUMENT_CHANGE'
  EXPORTING
    "i_awtyp              =     "参考过程
    "i_awref              =     "参考凭证号
    "i_aworg              =     "参考组织
    "i_buzei               = '003'         "行项目
    i_belnr               = '2900000002'  "会计凭证
    i_bukrs               = '1000'        "公司代码
    i_gjahr               = '2023'        "财年
  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.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ENDIF.


CLEAR:gt_accchg, gt_accchg[].

gt_accchg-fdname = 'SGTXT'.    "行项目文本，也可以换其他字段
gt_accchg-newval = '测试项目文本修改'. "新的值
APPEND gt_accchg.
*******gt_accchg-fdname = 'ZUONR'.    "行项目分配，也可以换其他字段
*******gt_accchg-newval = '20230812'. "新的值
*******APPEND gt_accchg.

CALL FUNCTION 'FI_DOCUMENT_CHANGE'
  EXPORTING
    "i_awtyp              =     "参考过程
    "i_awref              =     "参考凭证号
    "i_aworg              =     "参考组织
    i_buzei               = '003'         "行项目
    i_belnr               = '2900000002'  "会计凭证
    i_bukrs               = '1000'        "公司代码
    i_gjahr               = '2023'        "财年
  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.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ENDIF.