Problems with F4 help in ALV grid

Question

Hi all,
I am trying to create a F4 help for the field Payee number in my reprot output (ALV Grid OO), i am able to get the window for selection of the value in the F4 help , but i am unable to pass the value back on to the screen.
I need to insert the selected value from the F4 help and aslo need to populate the Name of the payee into the Payee field.
Can some one help me in finding what error have i done in the code.
Thanks in advance for all.
I have the following code
*&  Include      ZRMM_ALV_TOP                *
data: gc_control100 type  ref to cl_gui_custom_container,
      gc_control101 type  ref to cl_gui_custom_container.
data: gi_outtab100  type  table of ty_purchase.
data: g_cont0100    type  ref to cl_gui_custom_container,
      g_grid0100    type  ref to cl_gui_alv_grid, " For Screen 100 Grid
      gi_fcat0100   type  lvc_t_fcat,  " Field Catalog for Screen 100
      gi_sort0100   type  lvc_t_sort,
      g_lout0100    type  lvc_s_layo.
data: okcode_100    like  sy-ucomm,
      save_0100     like  sy-ucomm,
      okcode_200    like  sy-ucomm,
      save_0200     like  sy-ucomm.
types: begin of f4_itab_type,
              LIFNR type lifnr,
              BUKRS type name1,
           end of f4_itab_type.
data: f4_itab type table of f4_itab_type,
      ls_f4_itab type f4_itab_type.
data : it_IZEMTAB type table of IZEMTAB,
       wa_IZEMTAB type IZEMTAB.
Class Definitions.
class event_receiver_0100 definition.
  PUBLIC SECTION.
    types: begin of onf4_event_parameters_type,
              c_fieldname     type lvc_fname,
              cs_row_no       type lvc_s_roid,
              cr_event_data   type ref to cl_alv_event_data,
              ct_bad_cells    type lvc_t_modi,
              c_display       type char01,
            end of onf4_event_parameters_type.
    data: fieldcatalog type lvc_t_fcat.
    data :   f4_alv  type ref to cl_gui_alv_grid,
             f4_cont type ref to cl_gui_custom_container.
    data: f4_params type onf4_event_parameters_type.
    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.
endclass.                    "lcl_event_receiver DEFINITION
data: gs_variant type disvariant,
      gc_save    value 'A',
      gs_toolbar  TYPE stb_button,
      gs_toolbar1 type stb_button,
      gs_toolbar2 type stb_button.
DATA : T_RETURN TYPE STANDARD TABLE OF DDSHRETVAL WITH HEADER LINE.
DATA : event_receiver_0100 TYPE REF TO EVENT_RECEIVER_0100.
Class Implementation.
class event_receiver_0100  implementation.
For f4 help.
  method on_f4.
data: ls_outtab type ty_purchase.
field-symbols <itab> type lvc_t_modi.
data: ls_modi type lvc_s_modi,
      ls_f4_itab type f4_itab_type.
    f4_params-c_fieldname   = e_fieldname.
    f4_params-cs_row_no     = es_row_no.
    f4_params-cr_event_data = er_event_data.
    f4_params-ct_bad_cells  = et_bad_cells.
    f4_params-c_display     = e_display.
read table it_purchase into ls_outtab index f4_params-cs_row_no-row_id.
Clear f4_itab[].
CALL FUNCTION 'FI_VENDOR_ALTERN_PAYERS_READ'
  EXPORTING
    I_LIFNR                  = ls_outtab-lifnr
    I_BUKRS                  = ls_outtab-bukrs
  TABLES
    T_ZEMTAB                 = it_izemtab.
     clear f4_itab[].
    if not ls_outtab-lifnr is initial.
    loop at it_izemtab into wa_izemtab.
      ls_f4_itab-LIFNR = wa_izemtab-empfb.
      ls_f4_itab-BUKRS = wa_izemtab-name1.
      append ls_f4_itab to f4_itab.
    endloop.
    endif.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
   RETFIELD              = 'LIFNR'
   DYNPPROG              = sy-repid
   DYNPNR                = '100'
   WINDOW_TITLE          = 'f4 help for PAYEE'
   VALUE_ORG             = 'S'
  TABLES
    VALUE_TAB            = f4_itab
    RETURN_TAB           = T_RETURN.
IF SY-SUBRC <> 0.
ENDIF.
assign f4_params-cr_event_data->m_data->* to <itab>.
ls_modi-row_id = f4_params-cs_row_no-row_id.
    read table f4_itab into ls_f4_itab index es_row_no-row_id.
    if not f4_itab is initial.
       ls_modi-row_id    = es_row_no-row_id.
       ls_modi-value     = ls_f4_itab-LIFNR.
       ls_modi-FIELDNAME = 'LIFNR'.
       append ls_modi to <itab>.
       ls_modi-row_id    = es_row_no-row_id.
       ls_modi-value     = ls_f4_itab-BUKRS.
       ls_modi-FIELDNAME = 'NAME1'.
       append ls_modi to <itab>.
    endif.
   er_event_data->m_event_handled = 'X'.
ENDMETHOD.                           
*--ENDMETHOD SHOW_F4--
endclass.    "lcl_event_receiver IMPLEMENTATION

Answer 1

I have used the following FM for F4 help on editable ALV grid column and it worked fine.Try the below.
Call function for Input helps
    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
         EXPORTING
              i_title               = text-049
              i_selection           = c_check
              i_zebra               = c_check
              i_screen_start_column = 55
              i_screen_end_column   = 125
              i_screen_start_line   = 10
              i_screen_end_line     = 20
              i_tabname             = c_fcat_str
              it_fieldcat           = tl_fieldcat
         IMPORTING
              es_selfield           = wal_selfield
         TABLES
              t_outtab              = tl_code
         EXCEPTIONS
              program_error         = 1
              OTHERS                = 2.
    IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSEIF sy-subrc = 0 AND NOT wal_selfield IS INITIAL.
      wl_index = wal_selfield-tabindex.
      READ TABLE tl_code ASSIGNING <l_code>
      INDEX wl_index.
      IF sy-subrc = 0.
        <l_fgis_lots>-status   = <l_code>.
      ENDIF.
    ENDIF.
  ENDIF.