ABAP 创建/删除预制发票,贷方凭证(MIR7)

2023-11-03 03:30

本文主要是介绍ABAP 创建/删除预制发票,贷方凭证(MIR7),希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

创建预制发票使用的BAPI:BAPI_INCOMINGINVOICE_PARK
删除预制发票的BAPI:BAPI_INCOMINGINVOICE_DELETE

这是记录下写业务程序的基本架子。我后续复制方便。

创建预制发票源代码

"BAPI的结构
DATA: ls_headerdata          TYPE bapi_incinv_create_header.
DATA: lv_invoicedocnumber    LIKE bapi_incinv_fld-inv_doc_no.
DATA: lv_fiscalyear          LIKE bapi_incinv_fld-fisc_year.
DATA: lt_itemdata TYPE STANDARD TABLE OF bapi_incinv_create_item,ls_itemdata TYPE bapi_incinv_create_item.
DATA: lt_taxdata TYPE STANDARD TABLE OF bapi_incinv_create_tax,ls_taxdata TYPE bapi_incinv_create_tax.
DATA: lt_glaccountdata TYPE STANDARD TABLE OF bapi_incinv_create_gl_account,ls_glaccountdata TYPE bapi_incinv_create_gl_account.
DATA: lt_extensionin TYPE TABLE OF bapiparex,ls_extensionin TYPE bapiparex.DATA: lt_return              TYPE STANDARD TABLE OF bapiret2.
DATA: ls_return              TYPE bapiret2.DATA: lv_item TYPE bapi_incinv_create_item-invoice_doc_item."预制发票行号"发票
ls_headerdata-invoice_ind = 'X'. "发票
ls_headerdata-deliv_posting = 'S'. "
ls_headerdata-return_posting = 'H'. "
ls_headerdata-gross_amount = '110.74'. "抬头总金额
ls_headerdata-doc_date = '20230412'. "发票日期
ls_headerdata-pstng_date = '20230412'. "过账日期
ls_headerdata-comp_code = '7000'. "公司
ls_headerdata-item_text = '文本'. "文本
ls_headerdata-currency = 'CNY'."货币"税
ls_taxdata-tax_amount = '12.74'. "总税额
ls_taxdata-tax_code = 'J2'."税码
APPEND ls_taxdata TO lt_taxdata.
CLEAR ls_taxdata."行项目
CLEAR lv_item.
lv_item = lv_item + 1.
ls_itemdata-invoice_doc_item = lv_item. "
ls_itemdata-po_number = '4500001299'. "采购订单
ls_itemdata-po_item = '00030'. "采购订单行项目
ls_itemdata-ref_doc = '5000001275'. "参考凭证号
ls_itemdata-ref_doc_year = '2023'. "参考凭证号年度
ls_itemdata-ref_doc_it = '1'. "参考凭证号行项目
ls_itemdata-quantity = '1.000'. "数量
ls_itemdata-po_unit = 'ST'. "单位 要记得转化为内置
ls_itemdata-tax_code = 'J2'. "税码
ls_itemdata-item_amount = '98.00'."<ls_bapi>-zwrbtr3. "不含税金额
"ls_itemdata-item_text = <ls_bapi>-xblnr. "行长文本APPEND ls_itemdata TO lt_itemdata.
CLEAR ls_itemdata."贷方凭证--------
*  ls_headerdata-invoice_ind = ''. "贷方凭证
*  ls_headerdata-deliv_posting = 'H'. "
*  ls_headerdata-return_posting = 'H'. "
*  ls_headerdata-gross_amount = '110.74'."抬头金额
*  ls_taxdata-tax_amount = '12.74'."税额"总账科目的科目金额
*   CLEAR LV_ITEM.
*   LV_ITEM = LV_ITEM + 1.
*   LS_GLACCOUNTDATA-INVOICE_DOC_ITEM = LV_ITEM.
*   LS_GLACCOUNTDATA-GL_ACCOUNT = '1404060000'.
*   LS_GLACCOUNTDATA-ITEM_AMOUNT = '12'.
*   LS_GLACCOUNTDATA-DB_CR_IND = 'H'.
*   LS_GLACCOUNTDATA-TAX_CODE = 'J0'.
*   LS_GLACCOUNTDATA-COMP_CODE = '7000'.
*   APPEND LS_GLACCOUNTDATA TO LT_GLACCOUNTDATA.
*   CLEAR LS_GLACCOUNTDATA.CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'EXPORTINGheaderdata       = ls_headerdataIMPORTINGinvoicedocnumber = lv_invoicedocnumber "预制发票fiscalyear       = lv_fiscalyear     "会计年度TABLESitemdata         = lt_itemdataglaccountdata    = lt_glaccountdatataxdata          = lt_taxdatareturn           = lt_return.LOOP AT lt_return INTO ls_return WHERE type CA  'EAX'.ENDLOOP.
IF sy-subrc EQ 0.ROLLBACK WORK .
ELSE.WRITE:lv_invoicedocnumber,lv_fiscalyear.COMMIT WORK AND WAIT.
ENDIF.

运行代码:已经产生了预制凭证号
在这里插入图片描述

删除预制发票代码:

 CALL FUNCTION 'BAPI_INCOMINGINVOICE_DELETE'EXPORTINGinvoicedocnumber = ls_item1-belnr "预制发票fiscalyear       = ls_item1-gjahr "年度TABLESreturn           = lt_return.LOOP AT lt_return INTO ls_return WHERE type CA  'EAX'.ENDLOOP.IF sy-subrc EQ 0.ROLLBACK WORK .ELSE.COMMIT WORK AND WAIT.ENDIF.

其中我有遇到个错误:
1.你不能处理关于交货成本的条件。
它的解决方法就是行项目不要传供应商(ls_itemdata-FREIGHT_VEN = ‘’)。
供应商应该放在抬头的发票方:ls_headerdata-diff_inv = ‘供应商代码’.
2.[M8429输入有效收货的参考] 与 [00126请仅指定正值] 问题的解决方案
把冲销和被冲销的凭证去掉,不要进入BAPI的行
取数逻辑 :
AND matdoc~cancelled NE ‘X’
AND matdoc~smbln = ‘’

在这里插入图片描述
至于做贷方凭证,就是往LT_GLACCOUNTDATA里面赋值就好了。多尝试一下就可以了。

好了今天的分享到这。

分享使我快乐,我是寒武清风。
请添加图片描述

这篇关于ABAP 创建/删除预制发票,贷方凭证(MIR7)的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/335279

相关文章

Mysql实现范围分区表(新增、删除、重组、查看)

《Mysql实现范围分区表(新增、删除、重组、查看)》MySQL分区表的四种类型(范围、哈希、列表、键值),主要介绍了范围分区的创建、查询、添加、删除及重组织操作,具有一定的参考价值,感兴趣的可以了解... 目录一、mysql分区表分类二、范围分区(Range Partitioning1、新建分区表:2、分

MySQL 删除数据详解(最新整理)

《MySQL删除数据详解(最新整理)》:本文主要介绍MySQL删除数据的相关知识,本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友参考下吧... 目录一、前言二、mysql 中的三种删除方式1.DELETE语句✅ 基本语法: 示例:2.TRUNCATE语句✅ 基本语

一文详解Git中分支本地和远程删除的方法

《一文详解Git中分支本地和远程删除的方法》在使用Git进行版本控制的过程中,我们会创建多个分支来进行不同功能的开发,这就容易涉及到如何正确地删除本地分支和远程分支,下面我们就来看看相关的实现方法吧... 目录技术背景实现步骤删除本地分支删除远程www.chinasem.cn分支同步删除信息到其他机器示例步骤

python删除xml中的w:ascii属性的步骤

《python删除xml中的w:ascii属性的步骤》使用xml.etree.ElementTree删除WordXML中w:ascii属性,需注册命名空间并定位rFonts元素,通过del操作删除属... 可以使用python的XML.etree.ElementTree模块通过以下步骤删除XML中的w:as

Navicat数据表的数据添加,删除及使用sql完成数据的添加过程

《Navicat数据表的数据添加,删除及使用sql完成数据的添加过程》:本文主要介绍Navicat数据表的数据添加,删除及使用sql完成数据的添加过程,具有很好的参考价值,希望对大家有所帮助,如有... 目录Navicat数据表数据添加,删除及使用sql完成数据添加选中操作的表则出现如下界面,查看左下角从左

python如何创建等差数列

《python如何创建等差数列》:本文主要介绍python如何创建等差数列的问题,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录python创建等差数列例题运行代码回车输出结果总结python创建等差数列import numpy as np x=int(in

怎么用idea创建一个SpringBoot项目

《怎么用idea创建一个SpringBoot项目》本文介绍了在IDEA中创建SpringBoot项目的步骤,包括环境准备(JDK1.8+、Maven3.2.5+)、使用SpringInitializr... 目录如何在idea中创建一个SpringBoot项目环境准备1.1打开IDEA,点击New新建一个项

如何使用Maven创建web目录结构

《如何使用Maven创建web目录结构》:本文主要介绍如何使用Maven创建web目录结构的问题,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录创建web工程第一步第二步第三步第四步第五步第六步第七步总结创建web工程第一步js通过Maven骨架创pytho

如何在Mac上彻底删除Edge账户? 手动卸载Edge浏览器并清理残留文件技巧

《如何在Mac上彻底删除Edge账户?手动卸载Edge浏览器并清理残留文件技巧》Mac上的Edge账户里存了不少网站密码和个人信息,结果同事一不小心打开了,简直尴尬到爆炸,想要卸载edge浏览器并清... 如果你遇到 Microsoft Edge 浏览器运行迟缓、频繁崩溃或网页加载异常等问题,可以尝试多种方

MySQL 用户创建与授权最佳实践

《MySQL用户创建与授权最佳实践》在MySQL中,用户管理和权限控制是数据库安全的重要组成部分,下面详细介绍如何在MySQL中创建用户并授予适当的权限,感兴趣的朋友跟随小编一起看看吧... 目录mysql 用户创建与授权详解一、MySQL用户管理基础1. 用户账户组成2. 查看现有用户二、创建用户1. 基