创建会计凭证BAPI_ACC_DOCUMENT_CHECK 原因代码和凭证类型必须增强

实现badi ACC_DOCUMENT

DATA: WA_EXTENSION TYPE BAPIPAREX,
ZEXT_DATA TYPE ZFIDOCUMENT.

FIELD-SYMBOLS: TYPE ACCIT.
IF C_EXTENSION2[] IS NOT INITIAL.
LOOP AT C_EXTENSION2 INTO WA_EXTENSION
WHERE STRUCTURE = ‘ZFIDOCUMENT’.
ZEXT_DATA = WA_EXTENSION-VALUEPART1.
READ TABLE C_ACCIT ASSIGNING WITH KEY POSNR = ZEXT_DATA-POSNR.
IF SY-SUBRC = 0.
-RSTGR = WA_EXTENSION-VALUEPART2."付款原因

    <ACCIT>-ANBWA = WA_EXTENSION-VALUEPART3."业务类型

    <ACCIT>-BSCHL = WA_EXTENSION-VALUEPART4+0(2)."记账码
    <ACCIT>-UMSKZ = WA_EXTENSION-VALUEPART4+2(1)."特别总账标识
    modify TABLE C_ACCIT FROM <ACCIT>.
  ENDIF.
ENDLOOP.

ENDIF.