*&---------------------------------------------------------------------*
*& 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.