REUSE_ALV_COMMENTARY_WRITE
DATA: l_date(10).
DATA: l_header_h TYPE slis_listheader.
DATA: pt_comment TYPE slis_t_listheader.
WRITE sy-datum TO l_date DD/MM/YYYY.
l_header_h-typ = 'H'.
l_header_h-info = text-100.
APPEND l_header_h TO pt_comment.
l_header_h-typ = 'H'.
CONCATENATE text-300 a_udate INTO
l_header_h-info SEPARATED BY space.
APPEND l_header_h TO pt_comment.
l_header_h-typ = 'H'.
CONCATENATE text-200 a_werks INTO
l_header_h-info SEPARATED BY space.
APPEND l_header_h TO pt_comment.
* Report header with Date
l_header_h-typ = 'S'.
l_header_h-key = 'Date:'. "#EC NOTEXT dk8thost
l_header_h-info = l_date.
APPEND l_header_h TO pt_comment.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = pt_comment
i_logo = 'ENJOYSAP_LOGO'.
DATA: l_header_h TYPE slis_listheader.
DATA: pt_comment TYPE slis_t_listheader.
WRITE sy-datum TO l_date DD/MM/YYYY.
l_header_h-typ = 'H'.
l_header_h-info = text-100.
APPEND l_header_h TO pt_comment.
l_header_h-typ = 'H'.
CONCATENATE text-300 a_udate INTO
l_header_h-info SEPARATED BY space.
APPEND l_header_h TO pt_comment.
l_header_h-typ = 'H'.
CONCATENATE text-200 a_werks INTO
l_header_h-info SEPARATED BY space.
APPEND l_header_h TO pt_comment.
* Report header with Date
l_header_h-typ = 'S'.
l_header_h-key = 'Date:'. "#EC NOTEXT dk8thost
l_header_h-info = l_date.
APPEND l_header_h TO pt_comment.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = pt_comment
i_logo = 'ENJOYSAP_LOGO'.
Comments
Post a Comment