使用的函数: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可编辑的字段,可以灵活使用。
分享使我快乐,我是寒武青锋。