SAP FI 会计凭证过账bapi BAPI_ACC_DOCUMENT_POST

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就可以批量导入凭证

主要关于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，可供参考。里面有关于他们的用法以及参数设置。。。

实例代码：

*         当前行过账-header信息设定           PERFORM FRM_HEADER_DOCUMENT    USING LV_INDEX                                       CHANGING LW_HEADER_DOCU. *         当前行过账-明细信息设定           PERFORM FRM_EDIT_BAPIITEMS    USING LV_INDEX                                               LW_ALVDATA. *         登录会计凭证           PERFORM FRM_CALL_BAPI         USING LW_HEADER_DOCU.

*&---------------------------------------------------------------------* *&      Form  FRM_HEADER_DOCUMENT *&---------------------------------------------------------------------* *       header信息设定 *----------------------------------------------------------------------* *      -->P_IN_FLG          处理FLG *      <--PW_OUT_HEADER     表头 *----------------------------------------------------------------------* FORM FRM_HEADER_DOCUMENT     USING P_IN_FLG TYPE CHAR01                           CHANGING PW_OUT_HEADER TYPE BAPIACHE09.   DATA: LV_TEXT   TYPE BKTXT.   CLEAR PW_OUT_HEADER. * YYYY年MM月总额法坏账准备计提   CONCATENATE P_YEMON+0(4) TEXT-005 P_YEMON+4(2) TEXT-006          INTO LV_TEXT.   PW_OUT_HEADER-USERNAME   = SY-UNAME.   "用户名   PW_OUT_HEADER-HEADER_TXT = LV_TEXT.    "凭证抬头文本   PW_OUT_HEADER-COMP_CODE  = P_BUKRS.    "公司代码   PW_OUT_HEADER-DOC_DATE   = GV_EDATE.   "凭证中的凭证日期   PW_OUT_HEADER-DOC_TYPE   = 'ZG'.       "凭证类型 * 处理FLG   CASE P_IN_FLG. *   当月的坏账会计凭证     WHEN '1'.       PW_OUT_HEADER-PSTNG_DATE = GV_EDATE.    "凭证过帐日期       PW_OUT_HEADER-FISC_YEAR  = P_YEMON+0(4)."会计年度       PW_OUT_HEADER-FIS_PERIOD = P_YEMON+4(2)."会计期间 *   下月的冲销会计凭证     WHEN '2'. *     下个会计期间的设定       PERFORM FRM_GET_NEXTMONTH                        CHANGING PW_OUT_HEADER-PSTNG_DATE "凭证过帐日期                                 PW_OUT_HEADER-FISC_YEAR  "会计年度                                 PW_OUT_HEADER-FIS_PERIOD."会计期间     WHEN OTHERS.   ENDCASE. ENDFORM.                    " FRM_HEADER_DOCUMENT

*&---------------------------------------------------------------------* *&      Form  FRM_EDIT_BAPIITEMS *&---------------------------------------------------------------------* *       当前行过账-明细信息设定 *----------------------------------------------------------------------* *      -->P_IN_FLG             当月凭证与下一个月凭证标志 *      -->P_IN_ALVDATA         alv数据 *----------------------------------------------------------------------* FORM FRM_EDIT_BAPIITEMS  USING P_IN_FLG      TYPE CHAR01                                P_IN_ALVDATA  TYPE TYP_ALVDATA.   REFRESH: GT_ACCOUNTGL,            GT_CURRAMOUNT,            GT_ACCOUNTAR,            GT_EXTENSION2. ****第一个分录 *   各明细项目的作成   PERFORM FRM_APPEND_ITEMS  USING P_IN_FLG                                   '1'                                   P_IN_ALVDATA. ****第二个分录 *   各明细项目的作成   PERFORM FRM_APPEND_ITEMS  USING P_IN_FLG                                   '2'                                   P_IN_ALVDATA. ENDFORM.                    " FRM_EDIT_BAPIITEMS

*&---------------------------------------------------------------------* *&      Form  FRM_APPEND_ITEMS *&---------------------------------------------------------------------* *       各明细项目的作成 *----------------------------------------------------------------------* *      -->P_IN_CLFLG    当月凭证标志与下一个月凭证标志 *      -->P_IN_INDEX    第一分录与第二分录标志 *      -->P_IN_DATA     alv数据 *----------------------------------------------------------------------* FORM FRM_APPEND_ITEMS  USING    P_IN_CLFLG  TYPE CHAR01                                 P_IN_INDEX  TYPE CHAR01                                 P_IN_DATA   TYPE TYP_ALVDATA.   DATA: LW_ACCOUNTGL  TYPE BAPIACGL09,         LW_CURRAMOUNT TYPE BAPIACCR09,         LW_ACCOUNTAR  TYPE BAPIACAR09,         LW_EXTENSION2 TYPE BAPIPAREX,         LW_ZEXTEN     TYPE ZEXTEN. * 第一分录的时候   IF P_IN_INDEX     = '1'. *   会计凭证行项目编号     LW_ACCOUNTGL-ITEMNO_ACC = 1. *   利润中心     LW_ACCOUNTGL-PROFIT_CTR = P_IN_DATA-PRCTR. *   总账科目     LW_ACCOUNTGL-GL_ACCOUNT = '0670100100'.     APPEND LW_ACCOUNTGL TO GT_ACCOUNTGL.   ELSEIF P_IN_INDEX = '2'. *   会计凭证行项目编号     LW_ACCOUNTAR-ITEMNO_ACC = 2. *   客户编号     LW_ACCOUNTAR-CUSTOMER   = P_IN_DATA-KUNNR. *   到期日计算的基限日期     LW_ACCOUNTAR-BLINE_DATE = GV_EDATE. *   利润中心     LW_ACCOUNTAR-PROFIT_CTR = P_IN_DATA-PRCTR.     APPEND LW_ACCOUNTAR TO GT_ACCOUNTAR.   ENDIF. * 会计凭证行项目编号   LW_CURRAMOUNT-ITEMNO_ACC = LINES( GT_CURRAMOUNT ) + 1. * 货币码   LW_CURRAMOUNT-CURRENCY   = P_IN_DATA-WAERS. * 货币类型   LW_CURRAMOUNT-CURR_TYPE  = '00'. * 第一分录的时候   IF P_IN_INDEX     = '1'.     CASE P_IN_CLFLG. *     当月的坏账会计凭证       WHEN '1'. *       凭证货币金额(正值) --- 40 ---         LW_CURRAMOUNT-AMT_DOCCUR = ABS( P_IN_DATA-DMBTRP_SUM ). *     下月的冲销会计凭证       WHEN '2'. *       凭证货币金额(负值) --- 50 ---         LW_CURRAMOUNT-AMT_DOCCUR = ABS( P_IN_DATA-DMBTRP_SUM ) * -1.       WHEN OTHERS.     ENDCASE. * 第二分录的时候   ELSEIF P_IN_INDEX = '2'.     CASE P_IN_CLFLG. *     当月的坏账会计凭证 --- 19 ---       WHEN '1'. *       凭证货币金额(负值)         LW_CURRAMOUNT-AMT_DOCCUR = ABS( P_IN_DATA-DMBTRP_SUM ) * -1. *     下月的冲销会计凭证       WHEN '2'. *       凭证货币金额(负值) --- 09 ---         LW_CURRAMOUNT-AMT_DOCCUR = ABS( P_IN_DATA-DMBTRP_SUM ).       WHEN OTHERS.     ENDCASE.   ENDIF.   APPEND LW_CURRAMOUNT TO GT_CURRAMOUNT.   CLEAR LW_ZEXTEN. * 第一分录的时候   IF P_IN_INDEX     = '1'.     CASE P_IN_CLFLG. *     当月的坏账会计凭证       WHEN '1'. *       记帐代码         LW_ZEXTEN-BSCHL  = '40'. *     下月的冲销会计凭证       WHEN '2'. *       记帐代码         LW_ZEXTEN-BSCHL  = '50'.       WHEN OTHERS.     ENDCASE. * 第二分录的时候   ELSEIF P_IN_INDEX = '2'.     CASE P_IN_CLFLG. *     当月的坏账会计凭证       WHEN '1'. *       记帐代码         LW_ZEXTEN-BSCHL  = '19'. *     下月的冲销会计凭证       WHEN '2'. *       记帐代码         LW_ZEXTEN-BSCHL  = '09'.       WHEN OTHERS.     ENDCASE. *   特殊总帐标识     LW_ZEXTEN-UMSKZ      = 'H'.   ENDIF. * 会计凭证行项目编号   LW_ZEXTEN-POSNR          = LINES( GT_EXTENSION2 ) + 1. * 到期日   LW_ZEXTEN-ZFBDT          = GV_EDATE. * BAPI 表扩展的结构名称   LW_EXTENSION2-STRUCTURE  = 'ZEXTEN'. * BAPI 扩展参数的数据部分   LW_EXTENSION2-VALUEPART1 = LW_ZEXTEN.   APPEND LW_EXTENSION2 TO GT_EXTENSION2. ENDFORM.                    " FRM_APPEND_ITEMS

*&---------------------------------------------------------------------* *&      Form  FRM_CALL_BAPI *&---------------------------------------------------------------------* *       登录会计凭证 *----------------------------------------------------------------------* *      -->P_IN_HEADER         header信息 *----------------------------------------------------------------------* FORM FRM_CALL_BAPI  USING  P_IN_HEADER  TYPE BAPIACHE09.   DATA: LW_RETURN  TYPE BAPIRET2,         LT_RETURN  TYPE STANDARD TABLE OF BAPIRET2.   CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'     EXPORTING       DOCUMENTHEADER    = P_IN_HEADER     TABLES       ACCOUNTGL         = GT_ACCOUNTGL       ACCOUNTRECEIVABLE = GT_ACCOUNTAR       CURRENCYAMOUNT    = GT_CURRAMOUNT       RETURN            = LT_RETURN       EXTENSION2        = GT_EXTENSION2. * S 成功,E 错误,W 警告,I 信息,A 中断   LOOP AT LT_RETURN INTO LW_RETURN WHERE TYPE = 'E'                                       OR TYPE = 'A'.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.     MESSAGE ID LW_RETURN-ID TYPE 'E' NUMBER LW_RETURN-NUMBER                                        WITH LW_RETURN-MESSAGE_V1                                             LW_RETURN-MESSAGE_V2                                             LW_RETURN-MESSAGE_V3                                             LW_RETURN-MESSAGE_V4.   ENDLOOP. * 创建成功   IF SY-SUBRC <> 0.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'       EXPORTING         WAIT = 'X'. *   凭证过账运行结束！     MESSAGE S067(ZFI01).   ENDIF. ENDFORM.                    " FRM_CALL_BAPI