obj_sys = |{ sy-sysid }{ sy-mandt }|.

    CALL FUNCTION 'NUMBER_GET_NEXT'
      EXPORTING
        nr_range_nr                   = '01'
        object                        = 'RF_BELEG'
        quantity                      = '00000000000000000001'
        subobject                     = '2610'
        toyear                        = '2018'
*       IGNORE_BUFFER                 = ' '
      IMPORTING
        number                        = number
*       QUANTITY                      =
*       RETURNCODE                    =
      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.
    document_header-obj_type   = 'BKPFF'.
    document_header-obj_key    = |{ number }26102018|.
    document_header-obj_sys    = obj_sys.
    document_header-username   = sy-uname.
    document_header-comp_code  = '2610'.
    document_header-doc_date   = '20181231'.
    document_header-pstng_date = '20181231'.
    document_header-fisc_year  = '2018'.
    document_header-fis_period = '12'.
    document_header-doc_type   = 'SA'.
    document_header-header_txt = 'Ввод сальдо'.
    document_header-compo_acc  = 'GL'.

    gl_data-itemno_acc = '0001'.
    gl_data-gl_account = ls_input-hkont.
    gl_data-orderid    = ls_input-aufnr.
    gl_data-comp_code  = '2610'.
    gl_data-pstng_date = '20181231'.
    gl_data-doc_type   = 'SA'.
    gl_data-fisc_year  = '2018'.
    gl_data-fis_period = '12'.
    gl_data-stat_con   = ''.     
    gl_data-costcenter = ''.
    APPEND gl_data.

    curr_amt-itemno_acc = '0001'.
    curr_amt-curr_type  = '00'.
    curr_amt-currency   = 'RUB'.
    curr_amt-amt_doccur = ls_input-wrbtr.
    APPEND curr_amt.

    gl_data-itemno_acc = '0002'.
    gl_data-gl_account = 'INITIAL000'.
    gl_data-orderid    = ''.
    gl_data-comp_code  = '2610'.
    gl_data-pstng_date = '20181231'.
    gl_data-doc_type   = 'SA'.
    gl_data-fisc_year  = '2018'.
    gl_data-fis_period = '12'.
    gl_data-stat_con   = ''.     
    gl_data-costcenter = ''.
    APPEND gl_data.

    curr_amt-itemno_acc = '0002'.
    curr_amt-curr_type  = '00'.
    curr_amt-currency   = 'RUB'.
    curr_amt-amt_doccur = ls_input-wrbtr.
    APPEND curr_amt.

    CALL FUNCTION 'BAPI_ACC_GL_POSTING_POST'
      EXPORTING
        documentheader = document_header
      IMPORTING
        obj_type       = obj_type
        obj_key        = obj_key
        obj_sys        = obj_sys
      TABLES
        accountgl      = gl_data
        currencyamount = curr_amt
        return         = return.

    document_header-obj_type   = 'BKPFF'.
    document_header-obj_key    = |{ number }26102018|.
    document_header-obj_sys    = obj_sys.

curr_amt-amt_doccur = 0 - ls_input-wrbtr.