FEBA - How to post two or more transactions at the same time?

Question

Hi,
    one of our banks sends the statemets with many lines that belongs to the same transaction. We have to post partially one line, and afterwards the other line. Any of you know how to post two lines at the same time from the bank statement?
Thank you in advance,
Miguel

Answer 1

Hi,
I'm sorry for replying so late.
The solution I reached was to change the a few things in the standard.
Now I have a new "context menu item". I select two or more transactions and I right-click the mouse. I select that "context menu item" and the next part of the code adds the total amount of the transactions to look for the correct post for the first transaction. Once posted automatically, the next transaction is posted automatically by the system.
I hope you understand my English. I've problem with technical FI terms.
Here you are the code:
First I added a new contextual menu item:
CL_FEBAN_ALV_GRID=============CCIMP
call method e_object->add_function
    EXPORTING
        fcode = 'BS_POST_ITEMS'
        text = text-002.
*{ INSERT DHTK904078 1
*--> Miguel Estu00E9vez - 16/06/2008
* RIPI 24/04/2008 - Conciliaciones
* Permitir conciliar mu00E1s de un apunte a la vez
    call method e_object->add_function
        EXPORTING
            fcode = 'ZBS_POST_ITEMS'
            text = text-Z02.
*<-- Miguel Estu00E9vez - 16/06/2008
*} INSERT
    call method e_object->add_function
        EXPORTING
            fcode = 'BS_KILL_ADVICE'
            text = text-004.
CL_FEBAN_ALV_GRID=============CCIMP
when 'BS_POST_ITEMS'.
    call method cl_feban_propagator=>raise_event
        EXPORTING
            i_event = 'POST_ITEMS'
            i_ref_to_item = l_ref_to_item.
*{ INSERT DHTK904078 2
*--> Miguel Estu00E9vez - 16/06/2008
* RIPI 24/04/2008 - Conciliaciones
* Permitir conciliar mu00E1s de un apunte a la vez
    when 'ZBS_POST_ITEMS'.
        call method cl_feban_propagator=>raise_event
            EXPORTING
                i_event = 'ZPOST_ITEMS'
                i_ref_to_item = l_ref_to_item.
*<-- Miguel Estu00E9vez - 16/06/2008
*} INSERT
    when 'BS_LOCK_ITEMS'.
        call method cl_feban_propagator=>raise_event
            EXPORTING
                i_event = 'LOCK_ITEMS'
                i_ref_to_item = l_ref_to_item.
CL_FEBAN_PROPAGATOR===========CM001
    when 'POST_ITEMS'.
        raise event post_items
            exporting i_ref_to_item = i_ref_to_item.
*{ INSERT DHTK904078 1
*--> Miguel Estu00E9vez - 16/06/2008
* RIPI 24/04/2008 - Conciliaciones
* Permitir conciliar mu00E1s de un apunte a la vez
    when 'ZPOST_ITEMS'.
        data: zvalor(1) value '' .
            export zvalor from 'X' to memory ID 'ZFEBA01'.
            raise event post_items
                exporting i_ref_to_item = i_ref_to_item.
*<-- Miguel Estu00E9vez - 16/06/2008
*} INSERT
    when 'LOCK_ITEMS'.
        raise event lock_items
            exporting i_ref_to_item = i_ref_to_item.
Now, I proceed to calculate the total amount of the selected transactions to look for the correct one to post.
LNEW_FEBAF01
*     user parameter
        l_feban_position type c.
        field-symbols: <items> type item_tab_type.
*{ INSERT DHTK904077 1
*--> Miguel Estu00E9vez - 16/06/2008
* RIPI 24/04/2008 - Conciliaciones
* Permitir conciliar mu00E1s de un apunte a la vez
    data: zvalor(1) value '',
        zkwbtr type kwbtr,
        kwb type kwbtr.
    import zvalor to zvalor from memory ID 'ZFEBA01'.
    if ( zvalor is not initial ).
        if not i_ref_to_item is initial.
            assign i_ref_to_item->* to <items>.
            loop at <items> into h_item.
                select single kwbtr
                    into kwb
                    from febep
                    where kukey = h_item-kukey and
                        esnum = h_item-esnum.
                        zkwbtr = zkwbtr + kwb.
            endloop.
        endif.
        export zkwbtr from zkwbtr to memory ID 'ZKWBTR'.
    endif.
*<-- Miguel Estu00E9vez - 16/06/2008
*} INSERT
    refresh g_picked_items.
    if not i_ref_to_item is initial.
        assign i_ref_to_item->* to <items>.
        loop at <items> into h_item.
            move-corresponding h_item to h_picked_items.
            append h_picked_items to g_picked_items.
        endloop.
    endif.
    submit rfebbu00 and return
        user sy-uname
        with anwnd = r_doc->*-anwnd
        with s_kukey in s_kukey
        with s_esnum in s_esnum
        with buber = g_posting_area
        with mregel = '1'
        with function = 'C'
        with mode = g_mode
        with p_bupro = g_bupro.
*{ INSERT DHTK904077 2
*--> Miguel Estu00E9vez - 17/06/2008
* RIPI 24/04/2008 - Conciliaciones
* Permitir conciliar mu00E1s de un apunte a la vez
    if ( zkwbtr is not initial ).
        select single kwbtr
            into kwb
            from febep
            where kukey = h_kukey-low and
                esnum = h_esnum-low.
                zkwbtr = zkwbtr - kwb.
        export zkwbtr from zkwbtr to memory ID 'ZKWBTR'.
    endif.
*<-- Miguel Estu00E9vez - 17/06/2008
*} INSERT
    refresh s_kukey.
    refresh s_esnum.
    clear h_kukey.
    clear h_esnum.
endloop. "loop over all picked items
call function 'CUSTOMIZED_MESSAGE'
    EXPORTING
        i_arbgb = 'NEW_FEBA'
        i_dtype = '-'
        i_msgnr = '110'.
RFEBBU00
* original transaction currency provided and posting area = 2.
        ftclear-selvon = febep-fwbtr. "INSERT - mpEURO
    ENDIF. "INSERT - mpEURO
    CONDENSE ftclear-selvon NO-GAPS.
*{ INSERT DHTK903977 1
*--> Miguel Estu00E9vez - 16/06/2008
* RIPI 24/04/2008 - Conciliaciones
* Permitir conciliar mu00E1s de un apunte a la vez
    data: zkwbtr type kwbtr.
    import zkwbtr to zkwbtr from memory ID 'ZKWBTR'.
    if ( zkwbtr is not initial ).
        ftclear-selvon = zkwbtr.
        clear zkwbtr.
    endif.
*<-- Miguel Estu00E9vez - 16/06/2008
*} INSERT
APPEND ftclear.
** Begin of comment C5053248
* perform druck_buzei_ftclear using ftclear-agkon.