ALV LVC 单元格 F4帮助

声明：

CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA event_receiver TYPE REF TO lcl_event_receiver.

DATA go_grid TYPE REF TO cl_gui_alv_grid.

DATA I TYPE I.

DATA gt_f4 TYPE lvc_t_f4.

DATA gs_f4 TYPE lvc_s_f4.

*————————————————————————————————————————*

* CLASS LCL_EVENT_RECEIVER DEFINITION

*———————————————————————————————————————-*

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

onf4 FOR EVENT onf4 OF cl_gui_alv_grid

IMPORTING e_fieldname

e_fieldvalue

es_row_no

er_event_data

et_bad_cells

e_display.

ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION

*———————————————————————————————————————-*

* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION

*———————————————————————————————————————-*

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD onf4.

PERFORM sub_f4_help USING e_fieldname

es_row_no.

er_event_data->m_event_handled = 'x' .

ENDMETHOD. "onf4

ENDCLASS.

在ALV状态设置里，定义

CHECK i IS INITIAL.

i = 1.

gs_f4-fieldname = 'ZTEXT'.

gs_f4-register = 'X'.

gs_f4-getbefore = 'X'.

gs_f4-chngeafter = 'X'.

INSERT gs_f4 INTO TABLE gt_f4.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

e_grid = go_grid.

CREATE OBJECT event_receiver.

SET HANDLER event_receiver->onf4 FOR go_grid.

CALL METHOD go_grid->register_f4_for_fields

EXPORTING

it_f4 = gt_f4[].

定义SUB_F4_HELP

*&---------------------------------------------------------------------*

*& Form SUB_F4_HELP

*&---------------------------------------------------------------------*

* 弹出f4

*----------------------------------------------------------------------*

FORM sub_f4_help USING e_fieldname TYPE lvc_fname es_row_no TYPE lvc_s_roid.

DATA: t_ddshretval TYPE STANDARD TABLE OF ddshretval,

wr_return TYPE ddshretval,

l_it_cells TYPE lvc_t_cell,

l_gw_cells TYPE lvc_s_cell.

CHECK e_fieldname = 'ZTEXT'.

REFRESH it_f4.

REFRESH t_ddshretval.

SELECT werks veran ktext FROM tc24 INTO TABLE it_f4 WHERE werks = p_dwerk.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'KTEXT' "指定ALV用F4的字段

dynpprog = sy-repid

value_org = 'S'

TABLES

value_tab = it_f4

return_tab = t_ddshretval

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc = 0 AND t_ddshretval IS NOT INITIAL .

CLEAR wr_return.

READ TABLE t_ddshretval INTO wr_return INDEX 1.

IF wr_return-fieldval IS NOT INITIAL.

LOOP AT it_alv INTO wa_alv .

IF sy-tabix = es_row_no-row_id.

wa_alv-ztext = wr_return-fieldval.

MODIFY it_alv FROM wa_alv.

ENDIF.

ENDLOOP.

CALL METHOD go_grid->refresh_table_display.

REFRESH l_it_cells.

CLEAR l_gw_cells.

l_gw_cells-row_id-index = es_row_no-row_id.

l_gw_cells-col_id = e_fieldname.

APPEND l_gw_cells TO l_it_cells.

CALL METHOD go_grid->set_selected_cells

EXPORTING

it_cells = l_it_cells.

ENDIF.

ENDIF.

ENDFORM. " SUB_F4_HELP