BAPI_ACC_DOCUMENT_POST
2010-07-23 12:41
357 查看
转关于BAPI BAPI_ACC_DOCUMENT_POST 的几篇网文, 备查
原文地址:http://community.kingdee.com/pages/carllu/blog/archive/2010/04/28/420713.aspx
1. 举个我们这次系统中的一个业务场景
前面讲到我们需要把一个Oracle应付发票的凭证导入到SAP中，但是导入的字段比较多，就会出现如下的问题：
SAP系统中把凭证中的[分支号]作为不同系统的来源，例如凭证来源于Oracle，金蝶，用友，那么分支号分别是'001','002','003'。
我们这里使用BAPI_ACC_DOCUMENT_POST来导入凭证，
大家可以看一下在BKPF表中存在[分支号]字段
但是在BAPIACHE09(操作代码SE37)结构中却没有[分支号]这个字段，BAPIACHE09是BAPI_ACC_DOCUMENT_POST导入凭证头的入口结构
那么标准API没有[分支号]，SAP采用何种方法才能将[分支号]导入系统哪？
很高兴看到SAP提供了增强BAdi(客户化创建BAdi)来导入标准API没有的字段
一般情况下，不需要对BAdi作增强，但是当需要将某个不常用的字段导入到SAP，但是标准的BAPI又不能够支持这个字段，则需要对BAdi作增强，那么如何对BAdi作增强那？
下面简单做个讲解：
1)首先需要我们对标准的BAdi(操作代码SE19)做个实例化，本场景中，我们对ACC_DOCUMENT这个标准的BAdi实例化
关键是上图中的CHANGE部分，双击就可以进入BAdi的ABAP程序源代码，是不是感觉很爽，不过别高兴太早，因为进入源代码的编辑器之后，是空的，当然，源代码是需要自己添加的，请看下图：
上面的代码看不懂没关系，我来解释一下：
DATA部分是定义变量，liw_accit TYPE accit就是定义一个accit的结构类型的变量liw_accit；
LOOP部分就是对BAPI中的extension2的数据作循环
Liw_accit-bschl就是对bschl这个字段根据实际传入的数据作赋值，当然，bschl就是类似[分支号]的字段；
MODIFY就是将bashl等字段写入到c_accit结构中，相当于更新accit表中的数据
大家看到这里，可能已经明白了BAdi是怎么回事。但是大家可能会问，BAPI怎么会去调用BAdi来做这个事情哪？这个问题可能比较复杂，但是我把他简化了说：
在下图中，BAPI一般会有
[Import]传入参数
[Export]传出参数
[Tabellen]这个是table类型的，用来传入和传出数组类型或table类型的数据，在table类型的数据中有个参数是extension2，作为扩展导入的字段，只要在extension2中作了定义，那么就会执行所有实例化的BAdi，所以这也算是SAP的一个缺点，因为假设你定义了2个相同类型的BAdi，它们都会被执行，假设这两个BAdi逻辑相悖，则会导致所无的数据，所以要在SAP的开发中避免
1. SAP导入多个凭证
不过讲到这里，我们也只是一个凭证，但是在我们实际的业务场景中，我们大部分都需要导入多个凭证，那么如果想要导入多个凭证，使用SAP的API如何来实现那？
既然可以使用BAPI_ACC_DOCUMENT_POST可以导入单个凭证，只要对它循环操作就可以实现多个凭证的导入了，大家看了下面的代码就会理解，红色的部分就是循环调用BAPI_ACC_DOCUMENT_POST就可以批量导入凭证
凭证导入程序开发，ZBAPI_ACC_DOCUMENT_POST。
代码：
Import：
Export：
Changing：
Tables：
T_DOCUMENT LIKE ZDOCUMENT 凭证内容
Exceptions：
Source Code：
FUNCTION ZBAPI_ACC_DOCUMENT_POST.
*"----------------------------------------------------------------------
*"*"Local interface:
*" TABLES
*" T_DOCUMENT STRUCTURE ZDOCUMENT
*"----------------------------------------------------------------------
DATA: WA_DOCUMENTHEADER TYPE BAPIACHE09, "待传凭证抬头 工作区
WA_ACCOUNTGL TYPE BAPIACGL09, "总帐科目项 工作区
IT_ACCOUNTGL TYPE STANDARD TABLE OF BAPIACGL09, "总帐科目项 内表
WA_ACCOUNTRECEIVABLE TYPE BAPIACAR09, "客户项目 工作区
IT_ACCOUNTRECEIVABLE TYPE STANDARD TABLE OF BAPIACAR09, "客户项目 内表
WA_ACCOUNTPAYABLE TYPE BAPIACAP09, "供应商项目 工作区
IT_ACCOUNTPAYABLE TYPE STANDARD TABLE OF BAPIACAP09, "供应商项目 内表
WA_CURRENCYAMOUNT TYPE BAPIACCR09, "货币项目 工作区
IT_CURRENCYAMOUNT TYPE STANDARD TABLE OF BAPIACCR09, "货币项目 内表
WA_EXTENSION2 TYPE BAPIPAREX, "参考结构 工作区
IT_EXTENSION2 TYPE STANDARD TABLE OF BAPIPAREX, "参考结构 内表
WA_RETURN TYPE BAPIRET2, "返回参数 工作区
IT_RETURN TYPE STANDARD TABLE OF BAPIRET2, "返回参数 内表
WA_ZBKPF_SEND TYPE ZBKPF_SEND, "已导凭证 工作区
IT_ZBKPF_SEND TYPE STANDARD TABLE OF ZBKPF_SEND. "已导凭证 内表
DATA: W_DOCUMENT TYPE ZDOCUMENT, "凭证头 工作区
LW_DOCUMENT TYPE ZDOCUMENT. "临时 凭证头 工作区
DATA: CNS_DR_R TYPE CHAR2 VALUE 'DR', "凭证借方标识
CNS_CR_R TYPE CHAR2 VALUE 'CR', "凭证贷方标识
CNS_X TYPE CHAR1 VALUE 'X', "确认标识
CNS_RFBU TYPE CHAR4 VALUE 'RFBU', "业务事务
CNS_SA TYPE CHAR2 VALUE 'SA', "总分类账凭证
CNS_KR TYPE CHAR2 VALUE 'KR', "供应商发票
CNS_40 TYPE CHAR2 VALUE '40', "总账-借
CNS_50 TYPE CHAR2 VALUE '50', "总账-贷
CNS_01 TYPE CHAR2 VALUE '01', "应收-借
CNS_11 TYPE CHAR2 VALUE '11', "应收-贷
CNS_21 TYPE CHAR2 VALUE '21', "应付-借
CNS_31 TYPE CHAR2 VALUE '31', "应付-贷
DATA: L_RETURN_TABCOUNT TYPE I,
L_BELNR TYPE BKPF-BELNR.
CHECK T_DOCUMENT IS NOT INITIAL.
SORT T_DOCUMENT BY BELNR ASCENDING.
LOOP AT T_DOCUMENT INTO W_DOCUMENT.
LW_DOCUMENT = W_DOCUMENT.
*------------------------转换表头------------------------------------
AT NEW BELNR.
WA_DOCUMENTHEADER-BUS_ACT = CNS_RFBU. "业务事务
WA_DOCUMENTHEADER-USERNAME = SY-UNAME. "系统当前用户
WA_DOCUMENTHEADER-COMP_CODE = LW_DOCUMENT-BUKRS. "公司代码
WA_DOCUMENTHEADER-DOC_DATE = LW_DOCUMENT-BLDAT. "凭证中的凭证日期
WA_DOCUMENTHEADER-PSTNG_DATE = LW_DOCUMENT-BUDAT. "凭证中的记帐日期
WA_DOCUMENTHEADER-FISC_YEAR = LW_DOCUMENT-GJAHR. "会计年度
WA_DOCUMENTHEADER-FIS_PERIOD = LW_DOCUMENT-MONAT. "会计期间
WA_DOCUMENTHEADER-DOC_TYPE = LW_DOCUMENT-BLART. "凭证类型
WA_DOCUMENTHEADER-REF_DOC_NO = LW_DOCUMENT-XBLNR. "参考凭证号
WA_DOCUMENTHEADER-HEADER_TXT = LW_DOCUMENT-BKTXT. "凭证抬头文本
ENDAT.
CASE LW_DOCUMENT-BLART.
*------------------------总账科目------------------------------------
WHEN CNS_SA.
*------------------------总帐科目项----------------------------------
WA_ACCOUNTGL-ITEMNO_ACC = LW_DOCUMENT-BUZEI. "会计凭证中的行项目数
WA_ACCOUNTGL-GL_ACCOUNT = LW_DOCUMENT-HKONT. "总分类帐帐目
WA_ACCOUNTGL-COMP_CODE = LW_DOCUMENT-BUKRS. "公司代码
WA_ACCOUNTGL-COSTCENTER = LW_DOCUMENT-KOSTL. "成本中心
WA_ACCOUNTGL-PROFIT_CTR = LW_DOCUMENT-PRCTR. "利润中心
APPEND WA_ACCOUNTGL TO IT_ACCOUNTGL.
CLEAR WA_ACCOUNTGL.
*------------------------供应商发票OR供应商贷项凭证----------------
WHEN CNS_KR OR CNS_KG.
* 统驭科目
IF LW_DOCUMENT-MITKZ = CNS_X.
*------------------------供应商项目----------------------------------
WA_ACCOUNTPAYABLE-ITEMNO_ACC = LW_DOCUMENT-BUZEI. "会计凭证中的行项目数
WA_ACCOUNTPAYABLE-VENDOR_NO = LW_DOCUMENT-LIFNR. "供应商
APPEND WA_ACCOUNTPAYABLE TO IT_ACCOUNTPAYABLE.
CLEAR WA_ACCOUNTPAYABLE.
* 非统驭科目
ELSE.
*------------------------总帐科目项----------------------------------
WA_ACCOUNTGL-ITEMNO_ACC = LW_DOCUMENT-BUZEI. "会计凭证中的行项目数
WA_ACCOUNTGL-GL_ACCOUNT = LW_DOCUMENT-HKONT. "总分类帐帐目
WA_ACCOUNTGL-COMP_CODE = LW_DOCUMENT-BUKRS. "公司代码
WA_ACCOUNTGL-COSTCENTER = LW_DOCUMENT-KOSTL. "成本中心
WA_ACCOUNTGL-PROFIT_CTR = LW_DOCUMENT-PRCTR. "利润中心
APPEND WA_ACCOUNTGL TO IT_ACCOUNTGL.
CLEAR WA_ACCOUNTGL.
ENDIF.
ENDCASE.
*------------------------增强字段-----------------------------------
IF LW_DOCUMENT-BRNCH IS NOT INITIAL.
WA_EXTENSION2-STRUCTURE = 'BRNCH'. "分支号
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI. "行项目数
WA_EXTENSION2-VALUEPART2 = LW_DOCUMENT-BRNCH. "分支号值
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ENDIF.
IF LW_DOCUMENT-UMSKZ IS INITIAL.
CASE LW_DOCUMENT-BLART.
WHEN CNS_SA.
IF LW_DOCUMENT-SHKZG = CNS_DR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_40.
ELSEIF LW_DOCUMENT-SHKZG = CNS_CR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_50.
ENDIF.
ENDCASE.
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ELSE.
WA_EXTENSION2-STRUCTURE = 'UMSKZ'. "特别总/分类帐指示符
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI. "行项目数
WA_EXTENSION2-VALUEPART2 = LW_DOCUMENT-UMSKZ. "特别总/分类帐值
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
CASE LW_DOCUMENT-BLART.
WHEN CNS_KR OR CNS_KG.
IF LW_DOCUMENT-SHKZG = CNS_DR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_29.
ELSEIF LW_DOCUMENT-SHKZG = CNS_CR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_39.
ENDIF.
WHEN CNS_DR OR CNS_DG.
IF LW_DOCUMENT-SHKZG = CNS_DR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_09.
ELSEIF LW_DOCUMENT-SHKZG = CNS_CR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_19.
ENDIF.
ENDCASE.
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ENDIF.
IF LW_DOCUMENT-SGTXT IS NOT INITIAL.
WA_EXTENSION2-STRUCTURE = 'SGTXT'. "项目文本
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI. "行项目数
WA_EXTENSION2-VALUEPART2 = LW_DOCUMENT-SGTXT. "项目文本值
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ENDIF.
AT END OF BELNR.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = WA_DOCUMENTHEADER "录入凭证头
TABLES
ACCOUNTGL = IT_ACCOUNTGL "总帐科目项
ACCOUNTRECEIVABLE = IT_ACCOUNTRECEIVABLE "客户项目
ACCOUNTPAYABLE = IT_ACCOUNTPAYABLE "供应商项目
CURRENCYAMOUNT = IT_CURRENCYAMOUNT "货币项目
EXTENSION2 = IT_EXTENSION2 "扩展字段
RETURN = IT_RETURN. "返回值
DESCRIBE TABLE IT_RETURN LINES L_RETURN_TABCOUNT.
IF L_RETURN_TABCOUNT = 1. "凭证导入成功
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
* 记录已导入的凭证号
READ TABLE IT_RETURN INTO WA_RETURN INDEX 1.
IF SY-SUBRC IS INITIAL.
L_BELNR = WA_RETURN-MESSAGE_V2+0(10).
WA_ZBKPF_SEND-BELNR = L_BELNR.
WA_ZBKPF_SEND-CPUDT = SY-DATUM.
WA_ZBKPF_SEND-CPUTM = SY-UZEIT.
WA_ZBKPF_SEND-USNAM = SY-UNAME.
APPEND WA_ZBKPF_SEND TO IT_ZBKPF_SEND.
ENDIF.
ELSE. "凭证导入失败
ENDIF.
CLEAR: L_RETURN_TABCOUNT,
WA_ZBKPF_SEND,
WA_DOCUMENTHEADER,
IT_ACCOUNTGL,
IT_ACCOUNTPAYABLE,
IT_CURRENCYAMOUNT,
IT_EXTENSION2,
IT_RETURN.
ENDAT.
CLEAR: W_DOCUMENT,LW_DOCUMENT.
ENDLOOP.
*------------------------往表ZBKPF_SEND插入已导凭证数据-------------------
IF IT_ZBKPF_SEND IS NOT INITIAL.
INSERT ZBKPF_SEND FROM TABLE IT_ZBKPF_SEND ACCEPTING DUPLICATE KEYS.
CLEAR IT_ZBKPF_SEND.
ENDIF.
ENDFUNCTION.
===========================
原文地址:
http://hi.baidu.com/gaoyl2007/blog/item/8fc078fb0cfd0362034f5682.html/cmtid/93c148ec437f23dd2e2e2117
前天测试程序的发现了一个问题，主要关于BAPI_ACC_DOCUMENT_POST的用法，懂ABAP的人都知道这是用于过账的，而BAPI_ACC_DOCUMENT_CHECK是用于做过账前的Check处理的。
我程序里明明设置好了参数，但是Debug测试时只看到Post Successfully的消息，却看不到我要的会计凭证号，当时很奇怪。百翻思考，网上查资料，后来问题终于得到解决。原来是因为我在 documentheader里多传进去了三个参数：OBJ_TYPE， OBJ_KEY，OBJ_SYS。如果删除这三个参数的话就能在返回的内部table里抓去我想要的凭证号码了。呵呵！问题搞定，当时真的很兴奋！
如果谁对BAPI_ACC_DOCUMENT_POST和BAPI_ACC_DOCUMENT_CHECK这两个BAPI不太熟悉的话，那麽在 SAP ECC6.0以上的版本上有一本系统程序ACC_BAPI_TEST_DOCUMENT，可供参考。里面有关于他们的用法以及参数设置。。。
原文地址:http://community.kingdee.com/pages/carllu/blog/archive/2010/04/28/420713.aspx
1. 举个我们这次系统中的一个业务场景
前面讲到我们需要把一个Oracle应付发票的凭证导入到SAP中，但是导入的字段比较多，就会出现如下的问题：
SAP系统中把凭证中的[分支号]作为不同系统的来源，例如凭证来源于Oracle，金蝶，用友，那么分支号分别是'001','002','003'。
我们这里使用BAPI_ACC_DOCUMENT_POST来导入凭证，
大家可以看一下在BKPF表中存在[分支号]字段
但是在BAPIACHE09(操作代码SE37)结构中却没有[分支号]这个字段，BAPIACHE09是BAPI_ACC_DOCUMENT_POST导入凭证头的入口结构
那么标准API没有[分支号]，SAP采用何种方法才能将[分支号]导入系统哪？
很高兴看到SAP提供了增强BAdi(客户化创建BAdi)来导入标准API没有的字段
一般情况下，不需要对BAdi作增强，但是当需要将某个不常用的字段导入到SAP，但是标准的BAPI又不能够支持这个字段，则需要对BAdi作增强，那么如何对BAdi作增强那？
下面简单做个讲解：
1)首先需要我们对标准的BAdi(操作代码SE19)做个实例化，本场景中，我们对ACC_DOCUMENT这个标准的BAdi实例化
关键是上图中的CHANGE部分，双击就可以进入BAdi的ABAP程序源代码，是不是感觉很爽，不过别高兴太早，因为进入源代码的编辑器之后，是空的，当然，源代码是需要自己添加的，请看下图：
上面的代码看不懂没关系，我来解释一下：
DATA部分是定义变量，liw_accit TYPE accit就是定义一个accit的结构类型的变量liw_accit；
LOOP部分就是对BAPI中的extension2的数据作循环
Liw_accit-bschl就是对bschl这个字段根据实际传入的数据作赋值，当然，bschl就是类似[分支号]的字段；
MODIFY就是将bashl等字段写入到c_accit结构中，相当于更新accit表中的数据
大家看到这里，可能已经明白了BAdi是怎么回事。但是大家可能会问，BAPI怎么会去调用BAdi来做这个事情哪？这个问题可能比较复杂，但是我把他简化了说：
在下图中，BAPI一般会有
[Import]传入参数
[Export]传出参数
[Tabellen]这个是table类型的，用来传入和传出数组类型或table类型的数据，在table类型的数据中有个参数是extension2，作为扩展导入的字段，只要在extension2中作了定义，那么就会执行所有实例化的BAdi，所以这也算是SAP的一个缺点，因为假设你定义了2个相同类型的BAdi，它们都会被执行，假设这两个BAdi逻辑相悖，则会导致所无的数据，所以要在SAP的开发中避免
1. SAP导入多个凭证
不过讲到这里，我们也只是一个凭证，但是在我们实际的业务场景中，我们大部分都需要导入多个凭证，那么如果想要导入多个凭证，使用SAP的API如何来实现那？
既然可以使用BAPI_ACC_DOCUMENT_POST可以导入单个凭证，只要对它循环操作就可以实现多个凭证的导入了，大家看了下面的代码就会理解，红色的部分就是循环调用BAPI_ACC_DOCUMENT_POST就可以批量导入凭证
凭证导入程序开发，ZBAPI_ACC_DOCUMENT_POST。
代码：
Import：
Export：
Changing：
Tables：
T_DOCUMENT LIKE ZDOCUMENT 凭证内容
Exceptions：
Source Code：
FUNCTION ZBAPI_ACC_DOCUMENT_POST.
*"----------------------------------------------------------------------
*"*"Local interface:
*" TABLES
*" T_DOCUMENT STRUCTURE ZDOCUMENT
*"----------------------------------------------------------------------
DATA: WA_DOCUMENTHEADER TYPE BAPIACHE09, "待传凭证抬头 工作区
WA_ACCOUNTGL TYPE BAPIACGL09, "总帐科目项 工作区
IT_ACCOUNTGL TYPE STANDARD TABLE OF BAPIACGL09, "总帐科目项 内表
WA_ACCOUNTRECEIVABLE TYPE BAPIACAR09, "客户项目 工作区
IT_ACCOUNTRECEIVABLE TYPE STANDARD TABLE OF BAPIACAR09, "客户项目 内表
WA_ACCOUNTPAYABLE TYPE BAPIACAP09, "供应商项目 工作区
IT_ACCOUNTPAYABLE TYPE STANDARD TABLE OF BAPIACAP09, "供应商项目 内表
WA_CURRENCYAMOUNT TYPE BAPIACCR09, "货币项目 工作区
IT_CURRENCYAMOUNT TYPE STANDARD TABLE OF BAPIACCR09, "货币项目 内表
WA_EXTENSION2 TYPE BAPIPAREX, "参考结构 工作区
IT_EXTENSION2 TYPE STANDARD TABLE OF BAPIPAREX, "参考结构 内表
WA_RETURN TYPE BAPIRET2, "返回参数 工作区
IT_RETURN TYPE STANDARD TABLE OF BAPIRET2, "返回参数 内表
WA_ZBKPF_SEND TYPE ZBKPF_SEND, "已导凭证 工作区
IT_ZBKPF_SEND TYPE STANDARD TABLE OF ZBKPF_SEND. "已导凭证 内表
DATA: W_DOCUMENT TYPE ZDOCUMENT, "凭证头 工作区
LW_DOCUMENT TYPE ZDOCUMENT. "临时 凭证头 工作区
DATA: CNS_DR_R TYPE CHAR2 VALUE 'DR', "凭证借方标识
CNS_CR_R TYPE CHAR2 VALUE 'CR', "凭证贷方标识
CNS_X TYPE CHAR1 VALUE 'X', "确认标识
CNS_RFBU TYPE CHAR4 VALUE 'RFBU', "业务事务
CNS_SA TYPE CHAR2 VALUE 'SA', "总分类账凭证
CNS_KR TYPE CHAR2 VALUE 'KR', "供应商发票
CNS_40 TYPE CHAR2 VALUE '40', "总账-借
CNS_50 TYPE CHAR2 VALUE '50', "总账-贷
CNS_01 TYPE CHAR2 VALUE '01', "应收-借
CNS_11 TYPE CHAR2 VALUE '11', "应收-贷
CNS_21 TYPE CHAR2 VALUE '21', "应付-借
CNS_31 TYPE CHAR2 VALUE '31', "应付-贷
DATA: L_RETURN_TABCOUNT TYPE I,
L_BELNR TYPE BKPF-BELNR.
CHECK T_DOCUMENT IS NOT INITIAL.
SORT T_DOCUMENT BY BELNR ASCENDING.
LOOP AT T_DOCUMENT INTO W_DOCUMENT.
LW_DOCUMENT = W_DOCUMENT.
*------------------------转换表头------------------------------------
AT NEW BELNR.
WA_DOCUMENTHEADER-BUS_ACT = CNS_RFBU. "业务事务
WA_DOCUMENTHEADER-USERNAME = SY-UNAME. "系统当前用户
WA_DOCUMENTHEADER-COMP_CODE = LW_DOCUMENT-BUKRS. "公司代码
WA_DOCUMENTHEADER-DOC_DATE = LW_DOCUMENT-BLDAT. "凭证中的凭证日期
WA_DOCUMENTHEADER-PSTNG_DATE = LW_DOCUMENT-BUDAT. "凭证中的记帐日期
WA_DOCUMENTHEADER-FISC_YEAR = LW_DOCUMENT-GJAHR. "会计年度
WA_DOCUMENTHEADER-FIS_PERIOD = LW_DOCUMENT-MONAT. "会计期间
WA_DOCUMENTHEADER-DOC_TYPE = LW_DOCUMENT-BLART. "凭证类型
WA_DOCUMENTHEADER-REF_DOC_NO = LW_DOCUMENT-XBLNR. "参考凭证号
WA_DOCUMENTHEADER-HEADER_TXT = LW_DOCUMENT-BKTXT. "凭证抬头文本
ENDAT.
CASE LW_DOCUMENT-BLART.
*------------------------总账科目------------------------------------
WHEN CNS_SA.
*------------------------总帐科目项----------------------------------
WA_ACCOUNTGL-ITEMNO_ACC = LW_DOCUMENT-BUZEI. "会计凭证中的行项目数
WA_ACCOUNTGL-GL_ACCOUNT = LW_DOCUMENT-HKONT. "总分类帐帐目
WA_ACCOUNTGL-COMP_CODE = LW_DOCUMENT-BUKRS. "公司代码
WA_ACCOUNTGL-COSTCENTER = LW_DOCUMENT-KOSTL. "成本中心
WA_ACCOUNTGL-PROFIT_CTR = LW_DOCUMENT-PRCTR. "利润中心
APPEND WA_ACCOUNTGL TO IT_ACCOUNTGL.
CLEAR WA_ACCOUNTGL.
*------------------------供应商发票OR供应商贷项凭证----------------
WHEN CNS_KR OR CNS_KG.
* 统驭科目
IF LW_DOCUMENT-MITKZ = CNS_X.
*------------------------供应商项目----------------------------------
WA_ACCOUNTPAYABLE-ITEMNO_ACC = LW_DOCUMENT-BUZEI. "会计凭证中的行项目数
WA_ACCOUNTPAYABLE-VENDOR_NO = LW_DOCUMENT-LIFNR. "供应商
APPEND WA_ACCOUNTPAYABLE TO IT_ACCOUNTPAYABLE.
CLEAR WA_ACCOUNTPAYABLE.
* 非统驭科目
ELSE.
*------------------------总帐科目项----------------------------------
WA_ACCOUNTGL-ITEMNO_ACC = LW_DOCUMENT-BUZEI. "会计凭证中的行项目数
WA_ACCOUNTGL-GL_ACCOUNT = LW_DOCUMENT-HKONT. "总分类帐帐目
WA_ACCOUNTGL-COMP_CODE = LW_DOCUMENT-BUKRS. "公司代码
WA_ACCOUNTGL-COSTCENTER = LW_DOCUMENT-KOSTL. "成本中心
WA_ACCOUNTGL-PROFIT_CTR = LW_DOCUMENT-PRCTR. "利润中心
APPEND WA_ACCOUNTGL TO IT_ACCOUNTGL.
CLEAR WA_ACCOUNTGL.
ENDIF.
ENDCASE.
*------------------------增强字段-----------------------------------
IF LW_DOCUMENT-BRNCH IS NOT INITIAL.
WA_EXTENSION2-STRUCTURE = 'BRNCH'. "分支号
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI. "行项目数
WA_EXTENSION2-VALUEPART2 = LW_DOCUMENT-BRNCH. "分支号值
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ENDIF.
IF LW_DOCUMENT-UMSKZ IS INITIAL.
CASE LW_DOCUMENT-BLART.
WHEN CNS_SA.
IF LW_DOCUMENT-SHKZG = CNS_DR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_40.
ELSEIF LW_DOCUMENT-SHKZG = CNS_CR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_50.
ENDIF.
ENDCASE.
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ELSE.
WA_EXTENSION2-STRUCTURE = 'UMSKZ'. "特别总/分类帐指示符
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI. "行项目数
WA_EXTENSION2-VALUEPART2 = LW_DOCUMENT-UMSKZ. "特别总/分类帐值
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
CASE LW_DOCUMENT-BLART.
WHEN CNS_KR OR CNS_KG.
IF LW_DOCUMENT-SHKZG = CNS_DR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_29.
ELSEIF LW_DOCUMENT-SHKZG = CNS_CR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_39.
ENDIF.
WHEN CNS_DR OR CNS_DG.
IF LW_DOCUMENT-SHKZG = CNS_DR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_09.
ELSEIF LW_DOCUMENT-SHKZG = CNS_CR_R.
WA_EXTENSION2-STRUCTURE = 'BSCHL'.
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI.
WA_EXTENSION2-VALUEPART2 = CNS_19.
ENDIF.
ENDCASE.
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ENDIF.
IF LW_DOCUMENT-SGTXT IS NOT INITIAL.
WA_EXTENSION2-STRUCTURE = 'SGTXT'. "项目文本
WA_EXTENSION2-VALUEPART1 = LW_DOCUMENT-BUZEI. "行项目数
WA_EXTENSION2-VALUEPART2 = LW_DOCUMENT-SGTXT. "项目文本值
APPEND WA_EXTENSION2 TO IT_EXTENSION2.
CLEAR WA_EXTENSION2.
ENDIF.
AT END OF BELNR.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = WA_DOCUMENTHEADER "录入凭证头
TABLES
ACCOUNTGL = IT_ACCOUNTGL "总帐科目项
ACCOUNTRECEIVABLE = IT_ACCOUNTRECEIVABLE "客户项目
ACCOUNTPAYABLE = IT_ACCOUNTPAYABLE "供应商项目
CURRENCYAMOUNT = IT_CURRENCYAMOUNT "货币项目
EXTENSION2 = IT_EXTENSION2 "扩展字段
RETURN = IT_RETURN. "返回值
DESCRIBE TABLE IT_RETURN LINES L_RETURN_TABCOUNT.
IF L_RETURN_TABCOUNT = 1. "凭证导入成功
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
* 记录已导入的凭证号
READ TABLE IT_RETURN INTO WA_RETURN INDEX 1.
IF SY-SUBRC IS INITIAL.
L_BELNR = WA_RETURN-MESSAGE_V2+0(10).
WA_ZBKPF_SEND-BELNR = L_BELNR.
WA_ZBKPF_SEND-CPUDT = SY-DATUM.
WA_ZBKPF_SEND-CPUTM = SY-UZEIT.
WA_ZBKPF_SEND-USNAM = SY-UNAME.
APPEND WA_ZBKPF_SEND TO IT_ZBKPF_SEND.
ENDIF.
ELSE. "凭证导入失败
ENDIF.
CLEAR: L_RETURN_TABCOUNT,
WA_ZBKPF_SEND,
WA_DOCUMENTHEADER,
IT_ACCOUNTGL,
IT_ACCOUNTPAYABLE,
IT_CURRENCYAMOUNT,
IT_EXTENSION2,
IT_RETURN.
ENDAT.
CLEAR: W_DOCUMENT,LW_DOCUMENT.
ENDLOOP.
*------------------------往表ZBKPF_SEND插入已导凭证数据-------------------
IF IT_ZBKPF_SEND IS NOT INITIAL.
INSERT ZBKPF_SEND FROM TABLE IT_ZBKPF_SEND ACCEPTING DUPLICATE KEYS.
CLEAR IT_ZBKPF_SEND.
ENDIF.
ENDFUNCTION.
===========================
原文地址:
http://hi.baidu.com/gaoyl2007/blog/item/8fc078fb0cfd0362034f5682.html/cmtid/93c148ec437f23dd2e2e2117
前天测试程序的发现了一个问题，主要关于BAPI_ACC_DOCUMENT_POST的用法，懂ABAP的人都知道这是用于过账的，而BAPI_ACC_DOCUMENT_CHECK是用于做过账前的Check处理的。
我程序里明明设置好了参数，但是Debug测试时只看到Post Successfully的消息，却看不到我要的会计凭证号，当时很奇怪。百翻思考，网上查资料，后来问题终于得到解决。原来是因为我在 documentheader里多传进去了三个参数：OBJ_TYPE， OBJ_KEY，OBJ_SYS。如果删除这三个参数的话就能在返回的内部table里抓去我想要的凭证号码了。呵呵！问题搞定，当时真的很兴奋！
如果谁对BAPI_ACC_DOCUMENT_POST和BAPI_ACC_DOCUMENT_CHECK这两个BAPI不太熟悉的话，那麽在 SAP ECC6.0以上的版本上有一本系统程序ACC_BAPI_TEST_DOCUMENT，可供参考。里面有关于他们的用法以及参数设置。。。
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 资产取得传票传入数量 BAPI_ACC_DOCUMENT_POST
- [BAPI]创建会计凭证 BAPI_ACC_DOCUMENT_POST
- BAPI_ACC_DOCUMENT_POST生成预制凭证增强
- BAPI_ACC_DOCUMENT_POST&nbs…
- BAPI_ACC_DOCUMENT_POST 过账固定资产凭证
- 總帳憑証：BAPI_ACC_DOCUMENT_POST參數
- SAP 凭证冲销可以使用BAPI_ACC_DOCUMENT_REV_POST或者BDC录制FB08来做
- BAPI_ACC_DOCUMENT_POST 解决原因代码输入问题-利用BADI
- [BAPI]创建会计凭证 BAPI_ACC_DOCUMENT_POST
- BAPI_ACC_DOCUMENT_POST 字段增强
- ABAP FB01过账（BAPI_ACC_DOCUMENT_POST）
- SAP 凭证冲销可以使用BAPI_ACC_DOCUMENT_REV_POST或者BDC录制FB08来做
- Fw:BAPI_ACC_DOCUMENT_POST相关增强的实现
- BAPI_ACC_DOCUMENT_POST 产生Down payment request
- BAPI_ACC_DOCUMENT_POST 导入外币金额
- BAPI_ACC_DOCUMENT_POST 字段增强
- SAP FI 会计凭证过账bapi BAPI_ACC_DOCUMENT_POST
- 会计凭证BAPI_ACC_DOCUMENT_POST
- ABAP FB08 凭证冲销（BAPI_ACC_DOCUMENT_REV_POST）
- BAPI_ACC_DOCUMENT_POST，如何处理没有的参数传入系统