Создание и проводка документа FI (ABAP)

**********************************************************************
  DATA ls_hdr                     TYPE bapiache09.
  DATA lt_acc                     TYPE TABLE OF bapiacgl09.
  DATA ls_acc                     TYPE bapiacgl09.
  DATA lt_amt                     TYPE TABLE OF bapiaccr09.
  DATA ls_amt                     TYPE bapiaccr09.
  DATA lt_ext                     TYPE TABLE OF bapiparex.
  DATA ls_ext                     TYPE bapiparex.
  DATA lt_ret                     TYPE TABLE OF bapiret2.
  DATA lt_ret_all                 TYPE TABLE OF bapiret2.
  DATA lv_obj_type                TYPE bapiache09-obj_type.
  DATA lv_obj_key                 TYPE bapiache09-obj_key.
  DATA lv_test                    TYPE xfeld.
  DATA lv_error                   TYPE xfeld.
 
  DO 2 TIMES. " Проверим создание кредиторского и дебиторского документа
    IF sy-index EQ 1.
      lv_test = 'X'.
    ELSE.
      CHECK lv_error IS INITIAL AND i_test IS INITIAL.
      CLEAR lt_ret_all[].
      lv_test = ''.
    ENDIF.
 
    LOOP AT g_tab ASSIGNING .
* Создание корректирующей проводки – Проводка кредиторской задолженности
      CLEAR ls_hdr.
      CLEAR lt_acc[].
      CLEAR lt_amt[].
      CLEAR lt_ret[].
      CLEAR lt_ext[].
 
      ls_hdr-username     = sy-uname.
      ls_hdr-comp_code    = -bukrs.
      ls_hdr-doc_date     = date_doc.
      ls_hdr-pstng_date   = date_post.
      ls_hdr-doc_type     = blart.
 
      CLEAR ls_acc.
      ls_acc-itemno_acc = 1.
      ls_acc-acct_type  = 'S'.
      ls_acc-gl_account = -saknr1.
      INSERT ls_acc INTO TABLE lt_acc.
 
      CLEAR ls_amt.
      ls_amt-itemno_acc = ls_acc-itemno_acc.
      ls_amt-currency   = 'RUB'.
      ls_amt-amt_doccur = - -saldo.
      INSERT ls_amt INTO TABLE lt_amt.
 
      ADD 1 TO ls_acc-itemno_acc.
      ls_acc-gl_account = -saknr2.
      INSERT ls_acc INTO TABLE lt_acc.
 
      ls_amt-itemno_acc = ls_acc-itemno_acc.
      ls_amt-amt_doccur = - ls_amt-amt_doccur.
      INSERT ls_amt INTO TABLE lt_amt.
*
      IF lv_test IS NOT INITIAL.
        CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
          EXPORTING
            documentheader = ls_hdr
          TABLES
            accountgl      = lt_acc
            currencyamount = lt_amt
            extension2     = lt_ext
            return         = lt_ret.
      ELSE.
        CLEAR lv_obj_key.
        CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
          EXPORTING
            documentheader = ls_hdr
          IMPORTING
            obj_type       = lv_obj_type
            obj_key        = lv_obj_key
          TABLES
            accountgl      = lt_acc
            currencyamount = lt_amt
            extension2     = lt_ext
            return         = lt_ret.
      ENDIF.
 
      INSERT LINES OF lt_ret INTO TABLE lt_ret_all.
      LOOP AT lt_ret TRANSPORTING NO FIELDS WHERE type EQ 'E' OR type EQ 'A'.
        lv_error = 'X'.
        EXIT.
      ENDLOOP.
      IF lv_error IS INITIAL AND lv_test IS INITIAL.
        ls_alv = .
        ls_alv-belnr = lv_obj_key+0(10).
        ls_alv-gjahr = lv_obj_key+14(4).
        INSERT ls_alv INTO TABLE lt_alv.
      ENDIF.
    ENDLOOP.
  ENDDO.
*
  IF i_test IS INITIAL.
    IF lv_error IS NOT INITIAL.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.
  ENDIF.
 
* Покажем лог, если были ошибки
  IF lv_error IS NOT INITIAL.
    CALL FUNCTION 'FINB_BAPIRET2_DISPLAY'
      EXPORTING
        it_message = lt_ret_all.
  ELSEIF i_test IS NOT INITIAL.
    MESSAGE 'Моделирование прошло без ошибок' TYPE 'I'.
  ENDIF.
**********************************************************************