使用BAPI_ACC_DOCUMENT_POST 与 BADI_ACC_DOCUMENT 创建固定资产凭证

使用BAPI_ACC_DOCUMENT_POST 与 BADI_ACC_DOCUMENT 创建固定资产凭证

一、有图有真相，先看创建的效果：

二、创建增强结构：

POSNR 1 Types POSNR_ACC NUMC 10 0 会计凭证行项目编号 
RSTGR 1 Types RSTGR CHAR 3 0 付款原因代码
BSCHL 1 Types BSCHL CHAR 2 0 记帐代码
ZZSPART 1 Types SPART CHAR 2 0 品牌
ZZANLN1 1 Types ZZANLN1 CHAR 12 0 收入辅助资产号码
ANBWA 1 Types ANBWA CHAR 3 0 资产业务类型
ANLN1 1 Types ANLN1 CHAR 12 0 主资产号
ANLN2 1 Types ANLN2 CHAR 4 0 资产次级编号
ZFBDT 1 Types DZFBDT DATS 8 0 用于到期日计算的基准日期
XNEGP 1 Types XNEGP CHAR 1 0 标识: 反记帐 

三、实施 BADI_ACC_DOCUMENT ，代码可以直接从系统自带的DEMO中复制：

METHOD IF_EX_ACC_DOCUMENT~CHANGE.
  DATA: WA_EXTENSION   TYPE BAPIPAREX,
        EXT_VALUE(960) TYPE C,
        WA_ACCIT       TYPE ACCIT,
        L_REF          TYPE REF TO DATA.

  FIELD-SYMBOLS: <L_STRUC> TYPE ANY,
                 <L_FIELD> TYPE ANY.

  SORT C_EXTENSION2 BY STRUCTURE.

  LOOP AT C_EXTENSION2 INTO WA_EXTENSION.
    AT NEW STRUCTURE.
      CREATE DATA L_REF TYPE (WA_EXTENSION-STRUCTURE).
      ASSIGN L_REF->* TO <L_STRUC>.
    ENDAT.
    CONCATENATE WA_EXTENSION-VALUEPART1 WA_EXTENSION-VALUEPART2
                WA_EXTENSION-VALUEPART3 WA_EXTENSION-VALUEPART4
           INTO EXT_VALUE.
    MOVE EXT_VALUE TO <L_STRUC>.
    ASSIGN COMPONENT 'POSNR' OF STRUCTURE <L_STRUC> TO <L_FIELD>.
    CHECK <L_FIELD> IS ASSIGNED.
    READ TABLE C_ACCIT WITH KEY POSNR = <L_FIELD>
          INTO WA_ACCIT.
    IF SY-SUBRC IS INITIAL.
      MOVE-CORRESPONDING <L_STRUC> TO WA_ACCIT.
      MODIFY C_ACCIT FROM WA_ACCIT INDEX SY-TABIX.
    ENDIF.
  ENDLOOP.


ENDMETHOD.

四、完整的测试代码：

DATA: LW_DOCUMENTHEADER LIKE  BAPIACHE09,
      LW_CUSTOMERCPD    LIKE  BAPIACPA09,
      LW_CONTRACTHEADER LIKE  BAPIACCAHD.

DATA: LV_OBJ_TYPE   LIKE  BAPIACHE09-OBJ_TYPE,
      LV_OBJ_KEY    LIKE  BAPIACHE09-OBJ_KEY,
      LV_OBJ_SYS    LIKE  BAPIACHE09-OBJ_SYS.

DATA: LW_ACCOUNTGL          LIKE  BAPIACGL09,
      LW_ACCOUNTRECEIVABLE  LIKE  BAPIACAR09,
      LW_ACCOUNTPAYABLE     LIKE  BAPIACAP09,
      LW_ACCOUNTTAX         LIKE  BAPIACTX09,
      LW_CURRENCYAMOUNT     LIKE  BAPIACCR09,
      LW_CRITERIA           LIKE  BAPIACKEC9,
      LW_VALUEFIELD         LIKE  BAPIACKEV9,
      LW_EXTENSION1         LIKE  BAPIACEXTC,
      LW_RETURN             LIKE  BAPIRET2,
      LW_PAYMENTCARD        LIKE  BAPIACPC09,
      LW_CONTRACTITEM       LIKE  BAPIACCAIT,
      LW_EXTENSION2         LIKE  BAPIPAREX,
      LW_REALESTATE         LIKE  BAPIACRE09,
      LW_ACCOUNTWT          LIKE  BAPIACWT09.


DATA: LT_ACCOUNTGL          LIKE  STANDARD TABLE OF BAPIACGL09,
      LT_ACCOUNTRECEIVABLE  LIKE  STANDARD TABLE OF BAPIACAR09,
      LT_ACCOUNTPAYABLE     LIKE  STANDARD TABLE OF BAPIACAP09,
      LT_ACCOUNTTAX         LIKE  STANDARD TABLE OF BAPIACTX09,
      LT_CURRENCYAMOUNT     LIKE  STANDARD TABLE OF BAPIACCR09,
      LT_CRITERIA           LIKE  STANDARD TABLE OF BAPIACKEC9,
      LT_VALUEFIELD         LIKE  STANDARD TABLE OF BAPIACKEV9,
      LT_EXTENSION1         LIKE  STANDARD TABLE OF BAPIACEXTC,
      LT_RETURN             LIKE  STANDARD TABLE OF BAPIRET2,
      LT_PAYMENTCARD        LIKE  STANDARD TABLE OF BAPIACPC09,
      LT_CONTRACTITEM       LIKE  STANDARD TABLE OF BAPIACCAIT,
      LT_EXTENSION2         LIKE  STANDARD TABLE OF BAPIPAREX,
      LT_REALESTATE         LIKE  STANDARD TABLE OF BAPIACRE09,
      LT_ACCOUNTWT          LIKE  STANDARD TABLE OF BAPIACWT09.

DATA: WA_ZEXTEN         LIKE ZEXTEN.


LW_DOCUMENTHEADER-USERNAME   = SY-UNAME.  "用户
LW_DOCUMENTHEADER-HEADER_TXT = ''.        "抬头文本
LW_DOCUMENTHEADER-COMP_CODE  = '1000'.    "公司代码
LW_DOCUMENTHEADER-DOC_DATE   = SY-DATUM.  "凭证日期
LW_DOCUMENTHEADER-PSTNG_DATE = SY-DATUM.  "记账日期
LW_DOCUMENTHEADER-DOC_TYPE   = 'AA'.      "凭证类型
LW_DOCUMENTHEADER-BUS_ACT    = 'RFBU'.    "业务事务 RFBU RMWE
LW_DOCUMENTHEADER-OBJ_TYPE   = 'BKPFF'.   "参考交易


CLEAR: LW_ACCOUNTGL.
LW_ACCOUNTGL-ITEMNO_ACC = 10.
LW_ACCOUNTGL-GL_ACCOUNT = '1601050000'.
LW_ACCOUNTGL-ACCT_TYPE  = 'A'.
LW_ACCOUNTGL-ASSET_NO   = '000200000003'.
LW_ACCOUNTGL-SUB_NUMBER = '0000'.
LW_ACCOUNTGL-ASVAL_DATE = SY-DATUM.
LW_ACCOUNTGL-QUANTITY   = 2.
LW_ACCOUNTGL-BASE_UOM   = 'M2'.

APPEND LW_ACCOUNTGL TO LT_ACCOUNTGL.

CLEAR: LW_ACCOUNTGL.
LW_ACCOUNTGL-ITEMNO_ACC = 20.
LW_ACCOUNTGL-GL_ACCOUNT = '3101010000'.
*LW_ACCOUNTGL-ACCT_TYPE  = 'S'.
APPEND LW_ACCOUNTGL TO LT_ACCOUNTGL.


CLEAR: LW_CURRENCYAMOUNT.
LW_CURRENCYAMOUNT-ITEMNO_ACC = 10.
LW_CURRENCYAMOUNT-CURRENCY   = 'CNY'.
LW_CURRENCYAMOUNT-AMT_DOCCUR = '100'.
APPEND LW_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.

CLEAR: LW_CURRENCYAMOUNT.
LW_CURRENCYAMOUNT-ITEMNO_ACC = 20.
LW_CURRENCYAMOUNT-CURRENCY   = 'CNY'.
LW_CURRENCYAMOUNT-AMT_DOCCUR = '-100'.
APPEND LW_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.


CLEAR: WA_ZEXTEN.
WA_ZEXTEN-POSNR   = 10.  "行号
WA_ZEXTEN-RSTGR   = ''.  "
WA_ZEXTEN-BSCHL   = '70'.  "
WA_ZEXTEN-ZZSPART = ''.  "
WA_ZEXTEN-ZZANLN1 = ''.  "
WA_ZEXTEN-ANBWA   = '100'.  "
WA_ZEXTEN-ANLN1   = '000200000003'.  "
WA_ZEXTEN-ANLN2   = '0000'.  "
WA_ZEXTEN-ZFBDT   = ''.  "
WA_ZEXTEN-XNEGP   = ''.  "
LW_EXTENSION2-STRUCTURE  = 'ZEXTEN'.
LW_EXTENSION2-VALUEPART1 = WA_ZEXTEN.
APPEND LW_EXTENSION2 TO LT_EXTENSION2.

CLEAR: WA_ZEXTEN.
WA_ZEXTEN-POSNR   = 20.  "行号
WA_ZEXTEN-RSTGR   = ''.  "
WA_ZEXTEN-BSCHL   = '50'.  "
WA_ZEXTEN-ZZSPART = ''.  "
WA_ZEXTEN-ZZANLN1 = ''.  "
WA_ZEXTEN-ANBWA   = ''.  "
WA_ZEXTEN-ANLN1   = ''.  "
WA_ZEXTEN-ANLN2   = ''.  "
WA_ZEXTEN-ZFBDT   = ''.  "
WA_ZEXTEN-XNEGP   = ''.  "
LW_EXTENSION2-STRUCTURE  = 'ZEXTEN'.
LW_EXTENSION2-VALUEPART1 = WA_ZEXTEN.
APPEND LW_EXTENSION2 TO LT_EXTENSION2.


CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  EXPORTING
   DOCUMENTHEADER          = LW_DOCUMENTHEADER
   CUSTOMERCPD             = LW_CUSTOMERCPD
   CONTRACTHEADER          = LW_CONTRACTHEADER
 IMPORTING
   OBJ_TYPE                = LV_OBJ_TYPE
   OBJ_KEY                 = LV_OBJ_KEY
   OBJ_SYS                 = LV_OBJ_SYS
 TABLES
   ACCOUNTGL               = LT_ACCOUNTGL
   ACCOUNTRECEIVABLE       = LT_ACCOUNTRECEIVABLE
   ACCOUNTPAYABLE          = LT_ACCOUNTPAYABLE
   ACCOUNTTAX              = LT_ACCOUNTTAX
   CURRENCYAMOUNT          = LT_CURRENCYAMOUNT
   CRITERIA                = LT_CRITERIA
   VALUEFIELD              = LT_VALUEFIELD
   EXTENSION1              = LT_EXTENSION1
   RETURN                  = LT_RETURN
   PAYMENTCARD             = LT_PAYMENTCARD
   CONTRACTITEM            = LT_CONTRACTITEM
   EXTENSION2              = LT_EXTENSION2
   REALESTATE              = LT_REALESTATE
   ACCOUNTWT               = LT_ACCOUNTWT.



IF LV_OBJ_KEY = '$'.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT          = 'X'.

ENDIF.

LOOP AT LT_RETURN INTO LW_RETURN.

  WRITE:/ LW_RETURN-TYPE,
          LW_RETURN-ID,
          LW_RETURN-NUMBER,
          LW_RETURN-MESSAGE.

ENDLOOP.

五、参考资料：

http://blog.sina.com.cn/s/blog_3f2c03e30100mk24.html

http://blog.csdn.net/bxy5511/article/details/6456588