FI模块过账总结BAPI_ACC_DOCUMENT_POST

刚开发了3种类型的主营业务成本（COGS）的批量过账的报表，总结一下。

1，检测费类

借COGS， 贷银行

或者借银行，贷COGS

这里的贷方就要涉及到REASON CODE

如果用BAPI_ACC_DOCUMENT_POST就要在系统里做个增强，放到EXTENSION2 里

我没有加这个，而是用BDC录屏，然后做成函数，调用的。

2，进项税转出

借COGS ，贷进项税转移

这里就要输入COPA的一些数据，像销售订单和行项目相关的物料，部门等。

代码如下：

CLEAR WA_COGS_TAB2.

  LOOP AT IT_COGS_TAB2 INTO WA_COGS_TAB2.

    "凭证抬头
    CLEAR TAB_DOCUMENTHEADER.
    TAB_DOCUMENTHEADER-USERNAME   = SY-UNAME.
    TAB_DOCUMENTHEADER-COMP_CODE  = P_BUKRS.
    TAB_DOCUMENTHEADER-DOC_DATE   = P_BLDAT.
    TAB_DOCUMENTHEADER-PSTNG_DATE = P_BUDAT.
    TAB_DOCUMENTHEADER-DOC_TYPE   = 'PR'.
    APPEND TAB_DOCUMENTHEADER.

    "凭证账户

    CLEAR TAB_ACCOUNTGL.
    IF WA_COGS_TAB2-BSCHL = '40'.
      "借主营业务成本-明细 贷进项税转出
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = WA_COGS_TAB2-SAKN1
        IMPORTING
          output = WA_COGS_TAB2-SAKN1.
      TAB_ACCOUNTGL-ITEMNO_ACC = '1'.
      TAB_ACCOUNTGL-GL_ACCOUNT = WA_COGS_TAB2-SAKN1.
      TAB_ACCOUNTGL-PROFIT_CTR = 'DUMMY'.
      TAB_ACCOUNTGL-COMP_CODE  = P_BUKRS.
      TAB_ACCOUNTGL-ITEM_TEXT = WA_COGS_TAB2-BKTXT.
      TAB_ACCOUNTGL-DOC_TYPE   = 'PR'.
*      TAB_ACCOUNTGL-COSTCENTER = 'GKR1'.
      APPEND TAB_ACCOUNTGL.