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'.

Serial number table in Delivery document(VL02,VL02n)

  call function 'SERNR_ADD_TO_LS'
      exporting
        profile               = lips-serail
        material              = lips-matnr
        m_charge              = lips-charg
        quantity              = lf_anzsn
        j_vorgang             =  'PMS3' 
        cuobj                 = lips-cuobj
        document              = lips-vbeln
        item                  = lips-posnr
        debitor               = likp-kunnr
        vbtyp                 = likp-vbtyp
        bwart                 = lips-bwart
      importing
        anzsn                 = lips-anzsn
        zeilen_id             = lf_line_id
      tables
        sernos                = lt_sernos
      exceptions
        serialnumber_errors   = 1
        serialnumber_warnings = 2.
if sy-subrc eq 0.
 
*  call submit program !!!if you don't call not update delivery
      perform serial_liste_post_ls in program saplipw1.
      commit work.
    endif.