report.
type-pools slis.
data: begin of itab occurs 0,
bukrs like t001-bukrs,
butxt like t001-butxt,
end of itab.
parameters: p_bukrs type bukrs.
at selection-screen on value-request for p_bukrs.
perform f4_for_bukrs.
*&---------------------------------------------------------------------*
*& Form. F4_FOR_BUKRS
*----------------------------------------------------------------------*
form f4_for_bukrs.
data: lt_fieldcat type slis_t_fieldcat_alv with header line,
ls_selfield type slis_selfield.
select bukrs
butxt
from t001
into table itab
up to 10 rows .
* Get field
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
i_program_name = sy-repid
i_internal_tabname = 'ITAB'
i_inclname = sy-repid
i_bypassing_buffer = 'X'
changing
ct_fieldcat = lt_fieldcat[].
loop at lt_fieldcat.
lt_fieldcat-key = space.
if lt_fieldcat-fieldname = 'BUTXT'.
lt_fieldcat-emphasize = 'C710'.
endif.
if lt_fieldcat-fieldname = 'BUKRS'.
lt_fieldcat-emphasize = 'C610'.
endif.
modify lt_fieldcat.
endloop.
call function 'REUSE_ALV_POPUP_TO_SELECT'
exporting
i_title = 'THIS IS FOR F4 IN COLOR'
i_tabname = 'ITAB'
it_fieldcat = lt_fieldcat[]
importing
es_selfield = ls_selfield
tables
t_outtab = itab.
p_bukrs = ls_selfield-value.
endform. " F4_FOR_BUKRS
评论