*&---------------------------------------------------------------------*
*& Report ZAC_FLOWBUILDER_DELBSFLOWS
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZAC_FLOWBUILDER_DELBSFLOWS.
PARAMETERS:
p_bukrs type bukrs.
START-OF-SELECTION.
SELECT DISTINCT origin_document_id from FQM_FLOW
into table @data(lt_bsflows)
where company_code = @p_bukrs
and DELETED = ''
and origin_application = 'BS'.
data lt_febko type table of febko.
data lv_kukey type KUKEY_EB.
LOOP AT lt_bsflows ASSIGNING FIELD-SYMBOL(<fs_bsflow>).
move <fs_bsflow> to lv_kukey.
select single * from febko
into @data(ls_febko)
where kukey = @lv_kukey.
if sy-subrc ne 0.
append INITIAL LINE TO lt_febko ASSIGNING FIELD-SYMBOL(<fs_febko>).
<fs_febko>-kukey = <fs_bsflow>.
endif.
ENDLOOP.
IF lines( lt_febko ) > 0.
WRITE 'FQM flows but bank statement not exist: '.
loop at lt_febko ASSIGNING <fs_febko>.
NEW-LINE.
write <fs_febko>-kukey.
endloop.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
12 | |
11 | |
10 | |
8 | |
7 | |
6 | |
4 | |
4 | |
4 | |
3 |