Loop at t_bkpf Where blart eq 'D1'.

   DATA: my_HEADER            type          BAPIACHE09,
         my_ACCOUNTGL         like table of BAPIACGL09 with header line,
         my_ACCOUNTRECEIVABLE like table of BAPIACAR09 with header line,
         my_CURRENCYAMOUNT    like table of BAPIACCR09 with header line,
         my_EXTENSION2        like table of BAPIPAREX  with header line,
         my_RETURN            like table of BAPIRET2   with header line.
*   TYPES: BEGIN OF ZACCIT,
*         posnr type POSNR_ACC,
*         BSCHL type BSCHL,
*   END OF ZACCIT .
   DATA:HelpExt LIKE ZACCIT OCCURS 10 WITH HEADER LINE.

         my_HEADER-BUS_ACT    = 'FB01'.                        " GLVOR   ->  Организационно-экономическая операция(ТР.)
         my_HEADER-USERNAME   = sy-UNAME.                      " USNAM   ->  Имя пользователя
         my_HEADER-HEADER_TXT = t_bkpf-bktxt.                  " BKTXT   ->  ТекстЗагДок/№ договора
         my_HEADER-COMP_CODE  = t_bkpf-bukrs.                  " BUKRS   ->  Балансовая единица
         my_HEADER-DOC_DATE   = t_bkpf-bldat.                  " BLDAT   ->  Дата документа
         my_HEADER-PSTNG_DATE = t_bkpf-budat.                  " BUDAT   ->  Дата проводки в документе
         my_HEADER-TRANS_DATE = my_HEADER-DOC_DATE.            " WWERT_D ->  Дата пересчета
         my_HEADER-FISC_YEAR  = t_bkpf-gjahr.                  " GJAHR   ->  Финансовый год
         my_HEADER-FIS_PERIOD = t_bkpf-monat.                  " MONAT   ->  Месяц финансового года
         my_HEADER-DOC_TYPE   = 'D1'.                          " BLART   ->  Вид документа
         my_HEADER-REF_DOC_NO = t_bkpf-xblnr.                  " XBLNR   ->  Ссылочный номер документа

   Loop at t_bseg Where belnr eq t_bkpf-belnr and bschl eq '15' and Kunnr ne ''.
        REFRESH my_ACCOUNTRECEIVABLE.
        my_ACCOUNTRECEIVABLE-ITEMNO_ACC = '0000000001'.       " POSNR_ACC   -> Номер позиции документа учета и отчетности
        my_ACCOUNTRECEIVABLE-CUSTOMER   = t_bseg-kunnr.       " KUNNR       -> Номер дебитора 1
        my_ACCOUNTRECEIVABLE-GL_ACCOUNT = 'ZGTDTES1'.         " HKONT       -> Основной счет главной бухгалтерии
        my_ACCOUNTRECEIVABLE-BLINE_DATE = my_HEADER-DOC_DATE. " ACPI_ZFBDT  -> Базовая дата для расчета срока оплаты
        my_ACCOUNTRECEIVABLE-ALLOC_NMBR = t_bseg-ZUONR.       " ACPI_ZUONR  -> Номер присвоения
        my_ACCOUNTRECEIVABLE-ITEM_TEXT  = t_bseg-sgtxt.       " SGTXT       -> Текст позиции
        APPEND my_ACCOUNTRECEIVABLE.

        refresh my_ACCOUNTGL.
        my_ACCOUNTGL-ITEMNO_ACC = '0000000002'.               " POSNR_ACC   -> Номер позиции документа учета и отчетности
        my_ACCOUNTGL-GL_ACCOUNT = 'ZGTDTEST'.                 " HKONT       -> Основной счет главной бухгалтерии
        my_ACCOUNTGL-ITEM_TEXT  = t_bseg-sgtxt.               " SGTXT       -> Текст позиции
        my_ACCOUNTGL-PSTNG_DATE = my_HEADER-DOC_DATE.         " BUDAT       -> Дата проводки в документе
        my_ACCOUNTGL-FIS_PERIOD = my_HEADER-FIS_PERIOD.       " MONAT       -> Месяц финансового года
        my_ACCOUNTGL-FISC_YEAR  = my_HEADER-FISC_YEAR.        " GJAHR       -> Финансовый год
        my_ACCOUNTGL-ALLOC_NMBR = t_bseg-ZUONR.               " ACPI_ZUONR  -> Номер присвоения
        my_ACCOUNTGL-FUNDS_CTR  = t_bseg-FISTL.               " FISTL       -> Подразделение финансового менеджмента
        my_ACCOUNTGL-DOC_TYPE   = my_HEADER-DOC_TYPE.         " BLART       -> Вид документа
        my_ACCOUNTGL-COMP_CODE  = my_HEADER-COMP_CODE.        " BUKRS       -> Балансовая единица
        my_ACCOUNTGL-PSTNG_DATE = my_HEADER-DOC_DATE.         " BUDAT       -> Дата проводки в документе
        append my_ACCOUNTGL.
   EndLoop.

   refresh : my_CURRENCYAMOUNT, my_EXTENSION2.
     CLEAR : HelpExt.

   BREAK-POINT.
   Loop at t_bseg Where belnr eq t_bkpf-belnr.

        my_CURRENCYAMOUNT-ITEMNO_ACC   = t_bseg-buzei.        " POSNR_ACC   -> Номер позиции документа учета и отчетности
        my_CURRENCYAMOUNT-CURRENCY_ISO = t_bkpf-waers.        " WAERS_ISO   -> Код ISO для валюты
        my_CURRENCYAMOUNT-CURRENCY     = t_bkpf-waers.        " WAERS       -> Код валюты

        my_EXTENSION2-STRUCTURE        = 'ZACCIT'.
        HelpExt-posnr                  = t_bseg-buzei.

        if t_bseg-SHKZG eq 'H'.
          my_CURRENCYAMOUNT-AMT_DOCCUR   = t_bseg-WRBTR * -1. " BAPIWRBTR   -> Сумма в валюте документа
          HelpExt-BSCHL                  = '15'.
        else.
          my_CURRENCYAMOUNT-AMT_DOCCUR   = t_bseg-WRBTR.      " BAPIWRBTR   -> Сумма в валюте документа
          HelpExt-BSCHL                  = '40'.
        endif.

         my_EXTENSION2-VALUEPART1+0(10) = HelpExt-posnr.
         my_EXTENSION2-VALUEPART1+11(2) = HelpExt-BSCHL.

        APPEND: my_CURRENCYAMOUNT, my_EXTENSION2.
         Clear: my_CURRENCYAMOUNT, my_EXTENSION2.
   EndLoop.

      CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
          EXPORTING: DOCUMENTHEADER     = my_HEADER
             TABLES: ACCOUNTGL          = my_ACCOUNTGL
                     ACCOUNTRECEIVABLE  = my_ACCOUNTRECEIVABLE
                     CURRENCYAMOUNT     = my_CURRENCYAMOUNT
                     EXTENSION2         = my_EXTENSION2
                     RETURN             = my_RETURN.

   EndLoop.

...
        my_CURRENCYAMOUNT-ITEMNO_ACC   =  1.     
        my_CURRENCYAMOUNT-CURRENCY_ISO = 'USD'.
        my_CURRENCYAMOUNT-AMT_DOCCUR = 100.
        my_CURRENCYAMOUNT-CURR_TYPE = '00'.
        append my_CURRENCYAMOUNT.

        my_CURRENCYAMOUNT-ITEMNO_ACC   =  1.       
        my_CURRENCYAMOUNT-CURRENCY_ISO = 'RUB'.
        my_CURRENCYAMOUNT-AMT_DOCCUR = 0.
        my_CURRENCYAMOUNT-CURR_TYPE = '10'.
        append my_CURRENCYAMOUNT.

        my_CURRENCYAMOUNT-ITEMNO_ACC   =  2.     
        my_CURRENCYAMOUNT-CURRENCY_ISO = 'USD'.
        my_CURRENCYAMOUNT-AMT_DOCCUR = -100.
        my_CURRENCYAMOUNT-CURR_TYPE = '00'.
        append my_CURRENCYAMOUNT.

        my_CURRENCYAMOUNT-ITEMNO_ACC   =  2.       
        my_CURRENCYAMOUNT-CURRENCY_ISO = 'RUB'.
        my_CURRENCYAMOUNT-AMT_DOCCUR = -0.
        my_CURRENCYAMOUNT-CURR_TYPE = '10'.
        append my_CURRENCYAMOUNT.
...