在ALV中按F4显示帮助信息

在用ALV显示数据的时候，有时候，一些列需要更改，客户可能要求像标准程序一样，按F4按钮，弹出该列的相关数据，选择后，反填到单元格中，以下程序是示例程序。

REPORT Z_EXAMPLE.
************************************************************************
* DATEN DEFINITION *
************************************************************************
TYPE-POOLS: slis.
*———————————————————————*
* CLASS lcl_event_receiver DEFINITION
*———————————————————————*
class lcl_event_receiver definition.
public section.
class-methods:
on_f4 for event onf4 of cl_gui_alv_grid
importing sender
e_fieldname
e_fieldvalue
es_row_no
er_event_data
et_bad_cells
e_display,
on_data_changed for event data_changed of cl_gui_alv_grid
importing e_onf4
e_onf4_before
e_onf4_after
er_data_changed
e_ucomm
sender.
private section.
types: ddshretval_table type table of ddshretval.
class-methods: my_f4
importing sender type ref to cl_gui_alv_grid
et_bad_cells type lvc_t_modi
es_row_no type lvc_s_roid
er_event_data type ref to cl_alv_event_data
e_display type c
e_fieldname type lvc_fname
exporting IM_lt_f4 type ddshretval_table.
endclass. “lcl_event_receiver DEFINITION

tables: mara.
TYPES:
BEGIN OF t_alv,
matnr TYPE makt-matnr,
MTART type mara-MTART,
MTBEZ type t134t-MTBEZ,
maktx TYPE makt-maktx,
spras TYPE makt-spras,
Value Type i,
END OF t_alv.
DATA:
gt_fieldcatalog TYPE slis_t_fieldcat_alv,
gt_events TYPE slis_t_event,
gw_events TYPE slis_alv_event,
gt_data TYPE TABLE OF t_alv,
gw_data TYPE t_alv,
g_repid TYPE sy-repid VALUE sy-repid.
data: g_grid type ref to cl_gui_alv_grid.
data: gt_bad_cells type lvc_t_modi.
data: gt_fieldcat type lvc_t_fcat.
data: g_row_id type lvc_s_roid-row_id.
field-symbols: <gs_outtab> type any.
************************************************************************
* SELECTION SCREEN *
************************************************************************
SELECT-OPTIONS: s_matnr FOR mara-matnr .
************************************************************************
* START-OF-SELECTION *
************************************************************************
START-OF-SELECTION.
SELECT mara~matnr makt~maktx mara~MTART t134t~MTBEZ makt~spras
INTO CORRESPONDING FIELDS OF TABLE gt_data up to 50 rows
FROM mara
inner join makt on mara~matnr = makt~matnr and makt~SPRAS = ‘EN’
inner join t134t on mara~MTART = t134t~MTART and t134t~SPRAS = ‘EN’
WHERE mara~matnr IN s_matnr.

PERFORM creat_fieldcat.
PERFORM creat_event_exits.
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
i_callback_program = g_repid
it_fieldcat = gt_fieldcatalog
it_events = gt_events
TABLES
t_outtab = gt_data.
*———————————————————————*
* Create Output Field Format
*———————————————————————*
FORM creat_fieldcat.
data gw_fieldcatalog TYPE slis_fieldcat_alv.

CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = ‘MATNR’.
gw_fieldcatalog-ref_fieldname = ‘MATNR’.
gw_fieldcatalog-ref_tabname = ‘MAKT’.
APPEND gw_fieldcatalog TO gt_fieldcatalog.

CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = ‘MAKTX’.
gw_fieldcatalog-ref_fieldname = ‘MAKTX’.
gw_fieldcatalog-ref_tabname = ‘MAKT’.
APPEND gw_fieldcatalog TO gt_fieldcatalog.

CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = ‘MTART’.
gw_fieldcatalog-ref_fieldname = ‘MTART’.
gw_fieldcatalog-ref_tabname = ‘MARA’.
gw_fieldcatalog-EDIT = ‘X’.
APPEND gw_fieldcatalog TO gt_fieldcatalog.

CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = ‘MTBEZ’.
gw_fieldcatalog-ref_fieldname = ‘MTBEZ’.
gw_fieldcatalog-ref_tabname = ‘T134T’.
APPEND gw_fieldcatalog TO gt_fieldcatalog.

CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = ‘VALUE’.
gw_fieldcatalog-seltext_s = ‘VALUE’.
gw_fieldcatalog-outputlen = 13.
APPEND gw_fieldcatalog TO gt_fieldcatalog.
ENDFORM. ” creat_fieldcat
*———————————————————————*
* Form creat_event_exits
*———————————————————————*
FORM creat_event_exits .
gw_events-name = ‘CALLER_EXIT’.
gw_events-form = ‘CALLER_EXIT’.
APPEND gw_events TO gt_events.
ENDFORM. ” creat_event_exits
*———————————————————————*
*———————————————————————*
FORM caller_exit USING ls_data TYPE slis_data_caller_exit.
DATA: l_ref_alv TYPE REF TO cl_gui_alv_grid.
data: lt_wa_f4 type lvc_s_f4,
lt_f4 type lvc_t_f4.
CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR’
IMPORTING
e_grid = l_ref_alv.
set handler lcl_event_receiver=>on_f4 for l_ref_alv.
set handler lcl_event_receiver=>on_data_changed for l_ref_alv.
lt_wa_f4-fieldname = ‘MTART’.
lt_wa_f4-register = ‘X’.
lt_wa_f4-getbefore = ‘X’.
lt_wa_f4-chngeafter = ‘X’.
append lt_wa_f4 to lt_f4.
call method l_ref_alv->register_f4_for_fields
EXPORTING
it_f4 = lt_f4.
ENDFORM. “CALLER_EXIT
*&———————————————————————*
*& Form f4_set
*———————————————————————-*
form f4_set using r_grid type ref to cl_gui_alv_grid
rt_fieldcat type lvc_t_fcat
rt_bad_cells type lvc_t_modi
r_row_id type lvc_s_roid-row_id
rs_outtab.
g_grid = r_grid.
gt_fieldcat = rt_fieldcat.
gt_bad_cells = rt_bad_cells.
g_row_id = r_row_id.
assign rs_outtab to <gs_outtab>.
endform. “f4_set
*&———————————————————————*
*& Form f4
*&———————————————————————*
*———————————————————————-*
form f4 tables it_dummy structure seahlpres
changing r_shlp type shlp_descr_t
r_callcontrol like ddshf4ctrl.
data: ls_interface type ddshiface.
data: ls_fieldcat type lvc_s_fcat.
data: ls_bad_cells type lvc_s_modi.
data: l_tabix type sy-tabix.
field-symbols: <l_field>.
ls_interface-shlpfield = ‘MTBEZ’.
ls_interface-valfield = ‘MTBEZ’.
append ls_interface to r_shlp-interface.
loop at r_shlp-interface into ls_interface.
l_tabix = sy-tabix.
check ls_interface-f4field is initial
and not ls_interface-valtabname is initial.
read table gt_fieldcat into ls_fieldcat
with key ref_table = ls_interface-valtabname
ref_field = ls_interface-valfield.
if sy-subrc = 0.
read table gt_bad_cells into ls_bad_cells
with key fieldname = ls_fieldcat-fieldname
row_id = g_row_id.
if sy-subrc = 0.
ls_interface-value = ls_bad_cells-value.
ls_interface-internal = ‘ ‘.
modify r_shlp-interface from ls_interface index l_tabix.
else.
assign component ls_fieldcat-fieldname of structure
<gs_outtab> to <l_field>.
if sy-subrc = 0 and
not （ <l_field> is initial and
ls_fieldcat-no_init_ch ca ‘FB’ ）.
ls_interface-value = <l_field>.
ls_interface-internal = ‘X’.
modify r_shlp-interface from ls_interface index l_tabix.
endif.
endif.
endif.
endloop.
endform. “f4
*———————————————————————*
* CLASS lcl_event_receiver IMPLEMENTATION
*———————————————————————*
class lcl_event_receiver implementation.
method on_f4.
data: ls_f4 type ddshretval,
lt_f4 type table of ddshretval.
field-symbols: <itab> type lvc_t_modi.
data: ls_modi type lvc_s_modi.
call method my_f4
EXPORTING
sender = sender
es_row_no = es_row_no
er_event_data = er_event_data
et_bad_cells = et_bad_cells
e_display = e_display
e_fieldname = e_fieldname
IMPORTING
IM_lt_f4 = lt_f4.
assign er_event_data->m_data->* to <itab>.
read table lt_f4 into ls_f4 with key fieldname = ‘MTART’.
if not ls_f4 is initial.
ls_modi-row_id = es_row_no-row_id.
ls_modi-fieldname = ‘MTART’.
ls_modi-value = ls_f4-fieldval.
append ls_modi to <itab>.
ls_modi-row_id = es_row_no-row_id.
ls_modi-fieldname = ‘VALUE’.
if ls_f4-fieldval < ‘D’.
ls_modi-value = 100.
elseif ls_f4-fieldval < ‘R’.
ls_modi-value = 1000.
else.
ls_modi-value = 10000.
endif.
append ls_modi to <itab>.
endif.
read table lt_f4 into ls_f4 with key fieldname = ‘MTBEZ’.
if not ls_f4 is initial.
ls_modi-row_id = es_row_no-row_id.
ls_modi-fieldname = ‘MTBEZ’.
ls_modi-value = ls_f4-fieldval.
append ls_modi to <itab>.
endif.
er_event_data->m_event_handled = ‘X’.
endmethod. “on_f4
*———————————————————————*
* METHOD on_data_changed *
*———————————————————————*
method on_data_changed.
endmethod. “on_data_changed
*———————————————————————*
* METHOD my_f4 insert here your own f4-help *
*———————————————————————*
method my_f4.
data: lw_tab like line of gt_data,
lt_fcat type lvc_t_fcat,
ls_fieldcat type lvc_s_fcat,
l_tabname type dd03v-tabname,
l_fieldname type dd03v-fieldname,
l_help_valu type help_info-fldvalue,
lt_bad_cell type lvc_t_modi,
lp_wa type ref to data.
field-symbols: <l_field_value> type any,
<ls_wa> type any.
call method sender->get_frontend_fieldcatalog
IMPORTING
et_fieldcatalog = lt_fcat.
read table gt_data index es_row_no-row_id into lw_tab.
create data lp_wa like line of gt_data.
assign lp_wa->* to <ls_wa>.
<ls_wa> = lw_tab.
read table lt_fcat with key fieldname = e_fieldname into ls_fieldcat.
move ls_fieldcat-ref_table to l_tabname.
move ls_fieldcat-fieldname to l_fieldname.
assign component ls_fieldcat-fieldname of structure lw_tab to <l_field_value>.
write <l_field_value> to l_help_valu.
perform f4_set using sender
lt_fcat
lt_bad_cell
es_row_no-row_id
<ls_wa>.
call function ‘F4IF_FIELD_VALUE_REQUEST’
EXPORTING
tabname = l_tabname
fieldname = l_fieldname
display = e_display
value = l_help_valu
callback_program = ‘ZTEST7′
callback_form = ‘F4′
TABLES
return_tab = IM_lt_f4
exceptions
parameter_error = 1
no_values_found = 2
others = 3.
endmethod. “my_f4
endclass. “lcl_event_receiver IMPLEMENTATION