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.
posted on 2023-08-11 17:08 seven1314pp 阅读(781) 评论(0) 编辑 收藏 举报
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 无需6万激活码!GitHub神秘组织3小时极速复刻Manus,手把手教你使用OpenManus搭建本
· C#/.NET/.NET Core优秀项目和框架2025年2月简报
· 葡萄城 AI 搜索升级:DeepSeek 加持,客户体验更智能
· 什么是nginx的强缓存和协商缓存
· 一文读懂知识蒸馏