SAP 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