SAP ABAP BAPI 创建会计凭证

DATA:gs_docheader  TYPE bapiache09,gt_curramount TYPE TABLE OF bapiaccr09, "金额gs_curramount TYPE bapiaccr09,gt_acgl       TYPE TABLE OF bapiacgl09, "总账gs_acgl       TYPE bapiacgl09,gt_rec        TYPE STANDARD TABLE OF bapiacar09,      " 客户gs_rec        TYPE bapiacar09,gt_ex         TYPE STANDARD TABLE OF  bapiparex,gs_ex         TYPE bapiparex,gt_return     TYPE TABLE OF bapiret2,gs_return     TYPE bapiret2.DATA:gv_err_msg TYPE string,gv_msg     TYPE string.DATA:gv_ytpz TYPE bkpf-belnr,  "存储用于更新日志的凭证号gv_hcpz TYPE bkpf-belnr,gv_key  TYPE bapiache09-obj_key.  "bapi返回的会计凭证号DATA:gv_excute TYPE char1.    gs_docheader-username = sy-uname.gs_docheader-header_txt = '返利预提' && gs_alv-zkh."凭证抬头文本gs_docheader-comp_code = gs_alv-zxszz.  "公司代码gs_docheader-doc_date = s_date-low.   "凭证日期gs_docheader-pstng_date = s_date-low. "过账日期gs_docheader-doc_type = 'Y7'.           "凭证类型gs_acgl-itemno_acc = '1'.          "会计凭证行项目编号gs_acgl-gl_account = '6001010100'. "总账科目CASE gs_alv-zxszz.WHEN 'H101'.gs_acgl-profit_ctr = 'H10100000'. "利润中心WHEN 'H205'.gs_acgl-profit_ctr = 'H20500000'. "利润中心ENDCASE.APPEND gs_acgl TO gt_acgl.CLEAR:gs_acgl.gs_curramount-itemno_acc = '1'.      "会计凭证行项目编号gs_curramount-currency = 'CNY'.         "货币码gs_curramount-amt_doccur = gv_bcyt_sum. "以凭证货币计的金额APPEND gs_curramount TO gt_curramount.gs_acgl-itemno_acc = '2'.          "会计凭证行项目编号gs_acgl-gl_account = '2281030300'.      "'2801010000'. "总账科目  2022.11.23调整APPEND gs_acgl TO gt_acgl.gs_curramount-itemno_acc = '2'.      "会计凭证行项目编号gs_curramount-currency = 'CNY'.         "货币码gs_curramount-amt_doccur = -1 * gv_bcyt_sum. "以凭证货币计的金额APPEND gs_curramount TO gt_curramount." 创建会计凭证CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'EXPORTINGdocumentheader = gs_docheaderIMPORTINGobj_key        = gv_keyTABLESaccountgl      = gt_acglcurrencyamount = gt_curramountreturn         = gt_return.LOOP AT gt_return INTO gs_return.IF gs_return-type = 'E' OR gs_return-type = 'A'."calling message buld FM to get the error messageCALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGmsgid               = gs_return-idmsgnr               = gs_return-numbermsgv1               = gs_return-message_v1msgv2               = gs_return-message_v2msgv3               = gs_return-message_v3msgv4               = gs_return-message_v4IMPORTINGmessage_text_output = gv_msg.gv_err_msg = ';' && gv_err_msg && gv_msg.CLEAR:gv_msg.ENDIF.ENDLOOP.IF gv_err_msg IS NOT INITIAL.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.MESSAGE '预提凭证创建失败！' && gv_err_msg TYPE 'S' DISPLAY LIKE 'E'.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.gv_ytpz  = gv_key+0(10).lv_correct_msg = lv_correct_msg && '预提凭证:' && gv_ytpz.PERFORM frm_update_log TABLES gt_ytlog_ytUSING 'ZHSD036_Z1'.ENDIF.CLEAR:gs_docheader,gs_acgl,gt_acgl,gs_curramount,gt_curramount,gt_return,gs_return.

SAP ABAP BAPI 创建会计凭证相关推荐

每日一个 ChatGPT 使用小技巧系列之2 - 用 ChatGPT 研读 SAP ABAP BAPI 的实现源代码
本系列之前的文章: 与其整天担心 AI 会取代程序员,不如先让 AI 帮助自己变得更强大每日一个 ChatGPT 使用小技巧系列之1 - 给出提纲或者素材,让 ChatGPT 帮你写作正好昨天有朋 ...
SAP ABAP BOM 创建 CSAP_MAT_BOM_CREATE 多备选BOM
SAP标准的BOM创建函数CSAP_MAT_BOM_CREATE创建备选BOM,报错 .具体原因如下: 此处没有指定备选BOM . 解决方法:拷贝标准函数,更改如图代码如下或者使用CSAP_MAT_B ...
SAP ABAP 开发创建 DIALOG 屏幕程序
在 SAP 创建 DIALOG 屏幕程序的详细步骤如下(这里是 SAP HANA 版本,其他版本在界面和一些术语上存在一些差异): 需求:界面通过选项栏可以对学生信息进行查询,新增,删除,修改功能.学 ...
最详细的 SAP ABAP Web Service 创建和消费步骤讲解
本文原版发表于 SAP 官方社区,当时用的英文版写作,标题为:Step by step to create, consume and trace web service in ABAP system ...
BAPI - BAPI_ACC_DOCUMENT_POST 创建会计凭证，表增强扩展字段
使用BAPI创建会计凭证需要注意的一点是,行项目最多不能超过1000行 FUNCTION zyktrfm_acc_document_post. *"--------------------- ...
【FICO系列】SAP 创建会计凭证(FB01)的BAPI
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[FICO系列]SAP 创建会计凭证(FB01) ...
SAP ABAP 业务对象 BUS6041 AssetSubCostRev 后续资产成本和收入 BAPI 清单和相关 TCODE
SAP ABAP 业务对象 BUS6041 AssetSubCostRev 后续资产成本和收入 BAPI 清单和相关 TCODE 简介: SAP ABAP 业务对象 BUS6041 AssetSubC ...
SAP ABAP MD61 / MD62 / MD63 BAPI 函数组 3027
SAP ABAP MD61 / MD62 / MD63 BAPI 函数组 3027 引言: 计划独立需求,MD61 / MD62 / MD63 的 BAPI 函数组 3027,在扩展批量创建/更改/看 ...
SAP ABAP 业务对象 BUS6038 AssetDownPayment 资产：预付款 BAPI 清单和相关 TCODE
SAP ABAP 业务对象 BUS6038 AssetDownPayment 资产:预付款 BAPI 清单和相关 TCODE 简介: SAP ABAP 业务对象 BUS6038 AssetDownPa ...

SAP ABAP BAPI 创建会计凭证

SAP ABAP BAPI 创建会计凭证相关推荐

最新文章

热门文章