1、找该BAPI增强出口ACC_DOCUMENT(SE24跟踪);
2、SE19对BADI实例化
READ TABLE c_extension2 INTO wa_extension WITH KEY structure = 'PARK'.
IF sy-subrc = 0.
MOVE '2' TO c_acchd-status_new.
DELETE c_extension2 INDEX sy-tabix.
ENDIF.
3、自定义程序调用BAPI
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = HEADER
TABLES
ACCOUNTGL = ITEMX
ACCOUNTRECEIVABLE = ITECUX
CRITERIA = ITECUXT "获利能力段
ACCOUNTPAYABLE = ITEFUX
CURRENCYAMOUNT = ITEMY
RETURN = IT_RETURN
EXTENSION2 = itex.
其中要增加
if p_park = 'X'. '是否创建预制凭证,否则凭证直接过账
waex-structure = 'PARK'.
waex-valuepart1 = 'PARK'.
APPEND waex TO itex.
endif.