PARAMETERS: p_storno TYPE c AS CHECKBOX DEFAULT ' '.

DATA: l_minus TYPE i,
      l_s1 TYPE zre_wertv7 VALUE '-118.00',
      l_s2 TYPE zre_wertv7 VALUE '100.00',
      l_s3 TYPE zre_wertv7 VALUE '18.00',
      l_s4 TYPE zre_wertv7 VALUE '-118.00'.


DATA: l_bldat_c TYPE char10,
      l_budat_c TYPE char10,
      l_bldat TYPE dats,
      l_budat TYPE dats,
      l_wrbtr_c TYPE char15,
      str_buf TYPE char30,
      dummy,
      l_pos TYPE i.

DATA:
  ls_header                       TYPE bapiache09,
  lt_return                       TYPE TABLE OF bapiret2,
  lt_ret                          TYPE TABLE OF bapiret2,
  ls_return TYPE bapiret2,
  ls_ca                           TYPE bapiaccr09,
  lt_ca                           TYPE TABLE OF bapiaccr09,
  ls_gl                           TYPE bapiacgl09,
  lt_gl                           TYPE TABLE OF bapiacgl09,
  ls_ta                           TYPE bapiactx09,
  lt_ta                           TYPE TABLE OF bapiactx09.

l_bldat = '20121231'.

IF p_storno = 'X'.
  l_s1 = l_s1 * ( -1 ).
  l_s2 = l_s2 * ( -1 ).
  l_s3 = l_s3 * ( -1 ).
  l_s4 = l_s4 * ( -1 ).
ENDIF.

****Заголовок
ls_header-username = sy-uname.
ls_header-bus_act = 'RFBU'.
ls_header-comp_code = '1000'.
ls_header-doc_date = l_bldat.
ls_header-pstng_date = l_bldat.
ls_header-trans_date = l_bldat.
ls_header-fisc_year = '2012'.
ls_header-fis_period = '12'.
ls_header-doc_type = 'RE'.
ls_header-header_txt = 'BKTXT'.
ls_header-ref_doc_no = '123445'.
ls_header-neg_postng = p_storno.


***Позиция кредитора

l_pos = l_pos + 1.

***
CLEAR ls_gl.
ls_gl-itemno_acc = l_pos.
ls_gl-gl_account = '6020000000'.
ls_gl-vendor_no = '0010000587'.
ls_gl-item_text = 'SGTXT'.
ls_gl-acct_type  = 'K'.
ls_gl-alloc_nmbr = '123'.
ls_gl-funds_ctr = '1000'.
ls_gl-tax_code = '09'.
ls_gl-asval_date = l_bldat.
*ls_gl-cs_trans_t = '100'.
APPEND ls_gl TO lt_gl.
***
CLEAR ls_ca.
ls_ca-itemno_acc = l_pos.
ls_ca-curr_type = '00'.
ls_ca-currency = 'RUB'.
ls_ca-exch_rate = '1.0'.
ls_ca-exch_rate_v = '1.0'.
ls_ca-amt_doccur = l_s1.
APPEND ls_ca TO lt_ca.

*****позиция ОС
l_pos = l_pos + 1.

CLEAR ls_gl.
ls_gl-itemno_acc = l_pos.
ls_gl-gl_account = '0805000000'.
ls_gl-item_text = 'SGTXT'.
ls_gl-acct_type  = 'A'.
ls_gl-alloc_nmbr = '123'.
ls_gl-funds_ctr = '1000'.
ls_gl-tax_code = '09'.
ls_gl-cs_trans_t = '100'.
ls_gl-asset_no = '850000000226'.
ls_gl-asval_date = l_bldat.
ls_gl-sub_number = '0000'.
ls_gl-quantity = '1'.
ls_gl-base_uom = 'ST'.

APPEND ls_gl TO lt_gl.


CLEAR ls_ca.
ls_ca-itemno_acc = l_pos.
ls_ca-curr_type = '00'.
ls_ca-currency = 'RUB'.
ls_ca-exch_rate = '1.0'.
ls_ca-exch_rate_v = '1.0'.
*      ls_ca-amt_base = <fs>-wrbtr_t1 - <fs>-wrbtr.
ls_ca-amt_doccur = l_s2.
.
APPEND ls_ca TO lt_ca.

****Позиция налогов

l_pos = l_pos + 1.

CLEAR ls_ta.
ls_ta-itemno_acc = l_pos.
ls_ta-gl_account = '1962010000'.
ls_ta-direct_tax = 'X'.
ls_ta-tax_code = '09'.
ls_ta-acct_key = 'VST'.
ls_ta-tax_date = l_bldat.
APPEND ls_ta TO lt_ta.

CLEAR ls_ca.
ls_ca-itemno_acc = l_pos.
ls_ca-curr_type = '00'.
ls_ca-currency = 'RUB'.
ls_ca-amt_base = l_s4.
ls_ca-exch_rate = '1.0'.
ls_ca-exch_rate_v = '1.0'.
*      ls_ca-amt_base = '6000'.
ls_ca-amt_doccur = l_s3.
APPEND ls_ca TO lt_ca.

          CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
            EXPORTING
              documentheader          = ls_header
*             CUSTOMERCPD             =
*             CONTRACTHEADER          =
*           IMPORTING
*             OBJ_TYPE                =
*             OBJ_KEY                 =
*             OBJ_SYS                 =
            tables
             ACCOUNTGL               = lt_gl
*             ACCOUNTRECEIVABLE       =
*             ACCOUNTPAYABLE          =
             ACCOUNTTAX              = lt_ta
              currencyamount          = lt_ca
*             CRITERIA                =
*             VALUEFIELD              =
*             EXTENSION1              =
              return                  = lt_return
*             PAYMENTCARD             =
*             CONTRACTITEM            =
                    .