CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
is_layout_lvc = i_layout
it_fieldcat_lvc = i_fieldcat_alv[]
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
i_callback_html_top_of_page = 'FRM_TOP_OF_PAGE'
i_save = 'A'
TABLES
t_outtab = it_deal
EXCEPTIONS
program_error = 1
OTHERS = 2.
*&———————————————————————*
*& Form FRM_TOP_OF_PAGE
*&———————————————————————*
* ALV头部信息
*———————————————————————-*
* –>DOCUMENT text
*———————————————————————-*
FORM frm_top_of_page USING document TYPE REF TO cl_dd_document.
DATA: text TYPE sdydo_text_element.
CALL METHOD document->add_gap
EXPORTING
width = 2.
text = '变更物料:'.
CALL METHOD document->add_text
EXPORTING
text = text
sap_style = 'HEADING'.
text = p_matnr.
CALL METHOD document->add_text
EXPORTING
text = text
sap_style = 'HEADING'.
IF p_cha = 'X'.
CALL METHOD document->new_line.
CALL METHOD document->add_gap
EXPORTING
width = 2.
text = '变更后物料:'.
CALL METHOD document->add_text
EXPORTING
text = text
sap_style = 'HEADING'.
text = n_matnr.
CALL METHOD document->add_text
EXPORTING
text = text
sap_style = 'HEADING'.
ENDIF.
ENDFORM. "FRM_TOP_OF_PAGE