DATA: ls_doc_header      TYPE bapiacrev,
      lv_docnum          LIKE bkpf-belnr,
      lv_belnr           LIKE bkpf-belnr,
      lv_budat           LIKE bkpf-budat,
      lv_bukrs           LIKE bkpf-bukrs,
      lv_gjahr           LIKE bkpf-gjahr,
      lt_return          TYPE TABLE OF bapiret2.


* Сторнируем бухгалтерский документ
     
      lv_bukrs = <bukrs>.
      lv_belnr = <номер_бух_документа>.
      lv_gjahr = <ГОД>.
     

* Начинаем выбирать параметры для заголовка
      SELECT SINGLE budat awkey awtyp awsys
        FROM bkpf
        INTO (lv_budat,ls_doc_header-obj_key_r,ls_doc_header-obj_type,ls_doc_header-obj_sys)
        WHERE bukrs = lv_bukrs
          AND belnr = lV_belnr
          AND gjahr = lv_gjahr.

* Выбираем номер следующего документа, чтобы сформировать ключ сторнирующего документа
    CALL FUNCTION 'NUMBER_GET_NEXT'
      EXPORTING
        NR_RANGE_NR = lv_belnr(2)          " Первые 2 цифры из сторнируемого документа
        OBJECT = 'RF_BELEG'
        QUANTITY = '1'
        SUBOBJECT = lv_bukrs                 " Номер БЕ
        TOYEAR = lv_budat(4)
        IGNORE_BUFFER = lv_budat(4)
      IMPORTING
        NUMBER = lv_docnum
      EXCEPTIONS
        INTERVAL_NOT_FOUND = 1
        NUMBER_RANGE_NOT_INTERN = 2
        OBJECT_NOT_FOUND = 3
        QUANTITY_IS_0 = 4
        QUANTITY_IS_NOT_1 = 5
        INTERVAL_OVERFLOW = 6
        BUFFER_OVERFLOW = 7
        OTHERS = 8.

    IF SY-SUBRC <> 0.
      ...
      RETURN.
    ENDIF.

* Формируем ключ нового документа
    CONCATENATE lv_docnum lv_bukrs lv_budat(4) INTO ls_doc_header-obj_key.

* Если obj_sys еще не заполнился раньше, то берем логическую единицу по умолчанию
    IF ls_doc_header-obj_sys IS INITIAL.
      CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
        IMPORTING
          OWN_LOGICAL_SYSTEM = ls_doc_header-obj_sys.
    ENDIF.
    ls_doc_header-comp_code  = lv_bukrs.
    ls_doc_header-REASON_REV = '03'.          " Сторно в текущем периоде
    ls_doc_header-pstng_date = lv_budat.      " Дата проводки сторно равна дате сторнируемой проводки
    ls_doc_header-FIS_PERIOD = lv_budat+4(2).
    ls_doc_header-ac_doc_no  = lv_belnr.      " Номер сторнируемого документа

    CALL FUNCTION 'BAPI_ACC_GL_POSTING_REV_POST'
      EXPORTING
        REVERSAL = ls_doc_header
      IMPORTING
        OBJ_TYPE = ls_doc_header-obj_type
        OBJ_KEY  = ls_doc_header-obj_key
        OBJ_SYS  = ls_doc_header-obj_sys
      TABLES
        RETURN   = lt_return.

...

DATA: ls_doc_header      TYPE bapiacrev,
      lv_docnum          LIKE bkpf-belnr,
      lv_belnr           LIKE bkpf-belnr,
      lv_budat           LIKE bkpf-budat,
      lv_bukrs           LIKE bkpf-bukrs,
      lv_gjahr           LIKE bkpf-gjahr,
      lt_return          TYPE TABLE OF bapiret2.


* Сторнируем бухгалтерский документ

lv_bukrs = '0001'.
lv_belnr = '0100000005'.
lv_gjahr = 2008.


* Начинаем выбирать параметры для заголовка
SELECT SINGLE budat awkey awtyp awsys
  FROM bkpf
  INTO (lv_budat,ls_doc_header-obj_key_r,ls_doc_header-obj_type,ls_doc_header-obj_sys)
  WHERE bukrs = lv_bukrs
    AND belnr = lv_belnr
    AND gjahr = lv_gjahr.


LS_DOC_HEADER-OBJ_KEY = '$'.

* Если obj_sys еще не заполнился раньше, то берем логическую единицу по умолчанию
IF ls_doc_header-obj_sys IS INITIAL.
  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
    IMPORTING
      own_logical_system = ls_doc_header-obj_sys.
ENDIF.
ls_doc_header-comp_code  = lv_bukrs.
ls_doc_header-reason_rev = '03'.          " Сторно в текущем периоде
ls_doc_header-pstng_date = lv_budat.      " Дата проводки сторно равна дате сторнируемой проводки
ls_doc_header-fis_period = lv_budat+4(2).
ls_doc_header-ac_doc_no  = lv_belnr.      " Номер сторнируемого документа

CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
  EXPORTING
    reversal = ls_doc_header
    bus_act  = 'RFBU'
  IMPORTING
    obj_type = ls_doc_header-obj_type
    obj_key  = ls_doc_header-obj_key
    obj_sys  = ls_doc_header-obj_sys
  TABLES
    return   = lt_return.

BREAK-POINT.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.