FP06 account maintaince FKK_CREATE_DOC_AND_CLEAR

        clear ls_sfkkko.
        ls_sfkkko-fikey = lv_fikey.
        ls_sfkkko-applk = 'R'.
        ls_sfkkko-blart = 'HB'.
        ls_sfkkko-herkf = '03'.
        ls_sfkkko-waers = 'TRY'.
        ls_sfkkko-bldat = sy-datum.
        ls_sfkkko-budat = sy-datum.
        ls_sfkkko-wwert = sy-datum.

        refresh lt_fkkcl.
        clear ls_fkkcl.
        move-corresponding ls_interest to ls_fkkcl.
        ls_fkkcl-augrd = '08'.
        ls_fkkcl-xaktp = 'X'.
        concatenate 'B' ls_fkkcl-opbel into ls_fkkcl-azvdg. 
        ls_fkkcl-augbw = ls_fkkcl-betrw.
        ls_fkkcl-augbh = ls_fkkcl-betrh.
        ls_fkkcl-augb2 = ls_fkkcl-betr2.
        ls_fkkcl-augb3 = ls_fkkcl-betr3.
        ls_fkkcl-augbo = ls_fkkcl-oribt.
        ls_fkkcl-naugw = ls_fkkcl-betrw.
        ls_fkkcl-naugh = ls_fkkcl-betrh.
        ls_fkkcl-naug2 = ls_fkkcl-betr2.
        ls_fkkcl-naug3 = ls_fkkcl-betr3.
        ls_fkkcl-naugo = ls_fkkcl-oribt.
        ls_fkkcl-nettw = ls_fkkcl-betrw.
        ls_fkkcl-netth = ls_fkkcl-betrh.
        ls_fkkcl-nett2 = ls_fkkcl-betr2.
        ls_fkkcl-nett3 = ls_fkkcl-betr3.
        ls_fkkcl-netto = ls_fkkcl-oribt.
        ls_fkkcl-oribt = ls_fkkcl-betrw.
        ls_fkkcl-orisk = ls_fkkcl-betrh.
        ls_fkkcl-oriwa = 'TRY'. 
        append ls_fkkcl to lt_fkkcl.

        clear ls_fkkcl.
        move-corresponding ls_credit to ls_fkkcl.
        ls_fkkcl-augrd = '08'.
        ls_fkkcl-xaktp = 'X'.
        concatenate 'B' ls_fkkcl-opbel into ls_fkkcl-azvdg.
        ls_fkkcl-augbw = ls_fkkcl-betrw.
        ls_fkkcl-augbh = ls_fkkcl-betrh.
        ls_fkkcl-augb2 = ls_fkkcl-betr2.
        ls_fkkcl-augb3 = ls_fkkcl-betr3.
        ls_fkkcl-augbo = ls_fkkcl-oribt.
        ls_fkkcl-naugw = ls_fkkcl-betrw.
        ls_fkkcl-naugh = ls_fkkcl-betrh.
        ls_fkkcl-naug2 = ls_fkkcl-betr2.
        ls_fkkcl-naug3 = ls_fkkcl-betr3.
        ls_fkkcl-naugo = ls_fkkcl-oribt.
        ls_fkkcl-nettw = ls_fkkcl-betrw.
        ls_fkkcl-netth = ls_fkkcl-betrh.
        ls_fkkcl-nett2 = ls_fkkcl-betr2.
        ls_fkkcl-nett3 = ls_fkkcl-betr3.
        ls_fkkcl-netto = ls_fkkcl-oribt.
        ls_fkkcl-oribt = ls_fkkcl-betrw.
        ls_fkkcl-orisk = ls_fkkcl-betrh.
        ls_fkkcl-oriwa = 'TRY'.
        append ls_fkkcl to lt_fkkcl.

        refresh lt_enqtab.
        clear ls_engtab.
        ls_engtab-bukrs = ls_head-bukrs.
        ls_engtab-gpart = ls_head-gpart. 
        ls_engtab-uname = sy-uname.
        append ls_engtab to lt_enqtab.

        call function 'FKK_OPEN_ITEM_ENQUEUE'
          exporting
            i_shared = 'X'
          tables
            t_enqtab = lt_enqtab.

        call function 'FKK_CREATE_DOC_AND_CLEAR'
          exporting
            i_fkkko       = ls_sfkkko
            i_update_task = 'X'
          importing
            e_opbel       = e_opbel
          tables
            t_fkkopk      = lt_fkkopk
            t_fkkcl       = lt_fkkcl
          exceptions
            error_message = 1.
        if sy-subrc = 0.
          commit work and wait.
        endif.

        call function 'FKK_OPEN_ITEM_DEQUEUE'.