Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *&---------------------------------------------------------------------*
- *& Report ZPM_EQT_POST_CD
- *&
- *&---------------------------------------------------------------------*
- *& Показывает историю изменения к ZPM_OPER
- *& Вызывается из программы ZPM_EQT_POST
- *&---------------------------------------------------------------------*
- REPORT ZPM_EQT_POST_CD.
- parameters: p_eqopr type zpm_oper-eqopr.
- data: lv_object_id type cdhdr-objectid.
- data: lv_objekt type cdobjectcl.
- data: lv_username type cdusername.
- data: lt_headers type cdhdr occurs 0 with header line.
- data: lt_positions type cdshw occurs 0 with header line.
- data: lt_chdoc type bank_tab_cd_chdoc with header line.
- lv_objekt = 'ZPM_OPER'.
- lv_object_id = p_eqopr.
- call function 'CHANGEDOCUMENT_READ_HEADERS'
- exporting
- objectclass = lv_objekt
- objectid = lv_object_id
- username = lv_username
- tables
- i_cdhdr = lt_headers[]
- exceptions
- no_position_found = 1
- others = 2.
- loop at lt_headers.
- refresh lt_positions[].
- call function 'CHANGEDOCUMENT_READ_POSITIONS'
- exporting
- changenumber = lt_headers-changenr
- importing
- header = lt_headers
- tables
- editpos = lt_positions[]
- exceptions
- no_position_found = 1
- others = 2.
- loop at lt_positions.
- move-corresponding lt_headers to lt_chdoc.
- move-corresponding lt_positions to lt_chdoc.
- append lt_chdoc.
- endloop.
- endloop.
- data: gs_header_description type bank_str_cd_header_description.
- if lines( lt_chdoc ) > 0.
- call function 'BANK_API_CHDOC_DISPLAY'
- exporting
- i_sortsequence = 'D'
- i_flg_selectionscreen = ' '
- i_applicationid = sy-repid
- i_header_description = gs_header_description
- changing
- c_tab_chdocread = lt_chdoc[].
- endif.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement