使用程序生成财务预制凭证的方法（三）

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.