BAPI_ACC_DOCUMENT_POST 解决原因代码输入问题-利用BADI

Posted 2020-09-12 Rainystuday

 

(1)    复制函数SAMPLE_INTERFACE_RWBAPI01为Z SAMPLE_INTERFACE_RWBAPI01

*"----------------------------------------------------------------------
*"*"Local interface:
*"  TABLES
*"      IT_ACCIT STRUCTURE  ACCIT
*"      IT_ACCCR STRUCTURE  ACCCR
*"      RETURN STRUCTURE  BAPIRET2
*"      EXTENSION STRUCTURE  BAPIACEXTC
*"      IT_ACCWT STRUCTURE  ACCIT_WT
*"  CHANGING
*"     VALUE(DOCUMENT_HEADER) LIKE  ACCHD STRUCTURE  ACCHD
*"----------------------------------------------------------------------
if sy-uname = \'ZHANGDQ\'.
  LOOP AT EXTENSION.
    loop at IT_ACCIT .
      IT_ACCIT-RSTGR = EXTENSION-FIELD1.
      MODIFY IT_ACCIT .
    endloop.
  ENDLOOP.
 endif.
ENDFUNCTION.

 

只是测试，所以我只针对我的用户有效。

 

(2)    FIBF业务交易事件设置

 菜单栏

设置-》处理函数模块-》SAP的一个应用程序

 

 修改视图 每处理界面的应用函数模块：总览

 

处理             Ctr     应用          函数模块

CACS3003            IS-CS        CACS_HR_FIND_EMPLOYEE

CACS8001            EA-ICM     CACS_SAP00_PRC_8001

RWBABI01                            ZSAMPLE_INTERFACE_RWBAPI01

 

 

 

 

(3)    程序调用BAPI: BAPI_ACC_DOCUMENT_POST

*&---------------------------------------------------------------------*
*& Report  ZFR_GL_DOCUMENT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zfr_gl_document.

DATA: gt_docheader LIKE TABLE OF bapiache09 WITH HEADER LINE,
          gt_accountgl   LIKE TABLE OF bapiacgl09 WITH HEADER LINE,
          gt_acccust      LIKE TABLE OF bapiacar09 WITH HEADER LINE,
          gt_amount      LIKE TABLE OF bapiaccr09 WITH HEADER LINE,
          gt_extension   LIKE TABLE OF bapiacextc WITH HEADER LINE,
          gt_return        LIKE TABLE OF bapiret2 WITH HEADER LINE.

DATA: gv_post_doc   LIKE bapiache09-obj_key.

PERFORM fill_header.

* Fill in gl
PERFORM fill_gl.
PERFORM fill_amount.

gt_EXTENSION-FIELD1 = \'A01\'.
APPEND gt_EXTENSION.
CLEAR gt_EXTENSION.

CALL FUNCTION \'BAPI_ACC_DOCUMENT_CHECK\'
  EXPORTING
    documentheader    = gt_docheader
  TABLES
    accountgl         = gt_accountgl
    currencyamount    = gt_amount
    extension1        = gt_extension
    return            = gt_return.

READ TABLE gt_return WITH KEY type = \'E\'.

IF sy-subrc  <> 0.
  CALL FUNCTION \'BAPI_ACC_DOCUMENT_POST\'
    EXPORTING
      documentheader    = gt_docheader
    IMPORTING
      obj_key           = gv_post_doc
    TABLES
      accountgl         = gt_accountgl
      currencyamount    = gt_amount" accountpayable = gt_accpay
      EXTENSION1        = gt_EXTENSION
      return            = gt_return.
  COMMIT WORK AND WAIT.

  WRITE: \'Posting Document: \', gv_post_doc.
ELSE.
  WRITE: \'Error!\'.
ENDIF.

*&---------------------------------------------------------------------*
*&      Form  fill_header
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM fill_header .
  CLEAR gt_docheader.
  gt_docheader-doc_date   = sy-datum.
  gt_docheader-pstng_date = sy-datum.
*  gt_docheader-obj_type   = \'IDOC\'.
*  gt_docheader-obj_key    = \'$\'.
*  gt_docheader-obj_sys    = \'BGS1\'.
  gt_docheader-bus_act    = \'RFBU\'.
  gt_docheader-username   = sy-uname.
  gt_docheader-header_txt = \'Header Text\'.
  gt_docheader-ref_doc_no = \'Reference Doc No\'.
  gt_docheader-comp_code  = \'1100\'.
  gt_docheader-doc_type   = \'SA\'.
  APPEND gt_docheader.
ENDFORM.                    " fill_header

*&---------------------------------------------------------------------*
*&      Form  fill_amount
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM fill_amount .
  gt_amount-itemno_acc   = \'1\'.
  gt_amount-currency     = \'RMB\'.
  gt_amount-amt_doccur   = 10.
  APPEND gt_amount.

    gt_amount-itemno_acc   = \'2\'.
  gt_amount-currency     = \'RMB\'.
  gt_amount-amt_doccur   = -10.
  APPEND gt_amount.
ENDFORM.                    " fill_amount

*&---------------------------------------------------------------------*
*&      Form  fill_gl
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM fill_gl .
  CLEAR gt_accountgl.
  gt_accountgl-gl_account     = \'1001010000\'.
  gt_accountgl-itemno_acc     = \'1\'.
  gt_accountgl-item_text      = \'Item Text\'.
  gt_accountgl-bus_area       = \'\'.
  gt_accountgl-profit_ctr     = \'\'.
  gt_accountgl-costcenter     = \'\'.
  gt_accountgl-comp_code      = \'1100\'.
  gt_accountgl-alloc_nmbr     = \'456\'.
  gt_accountgl-COSTCENTER     = \'1020120300\'.
  APPEND gt_accountgl.
  CLEAR gt_accountgl.

  gt_accountgl-gl_account     = \'1001010000\'.
  gt_accountgl-itemno_acc     = \'2\'.
  gt_accountgl-item_text      = \'Item Text\'.
  gt_accountgl-bus_area       = \'\'.
  gt_accountgl-profit_ctr     = \'\'.
  gt_accountgl-costcenter     = \'\'.
  gt_accountgl-comp_code      = \'1100\'.
  gt_accountgl-alloc_nmbr     = \'789\'.
  gt_accountgl-COSTCENTER     = \'1020120300\'.
  APPEND gt_accountgl.
  CLEAR gt_accountgl.


ENDFORM.                    " fill_gl

 

(4)    查看运行结果

 

 

 

(5)    1