Code: Alles auswählen.
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id.
PRIVATE SECTION.
ENDCLASS.
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_hotspot_click.
READ TABLE it_ein INDEX e_row_id-index INTO wa_a.
rp50g-choic = '9005'.
rp50g-subty = '0010'.
rp50g-begda = wa_a-eintritt.
rp50g-endda = '99991231'.
rp50g-timr6 = 'X'.
rp50g-pernr = wa_a-pernr.
SET PARAMETER ID: 'PER' FIELD rp50g-pernr,
'ITP' FIELD rp50g-choic,
'SUB' FIELD rp50g-subty,
'FCD' FIELD fcode,
'BEG' FIELD rp50g-begda,
'END' FIELD rp50g-endda.
CALL TRANSACTION 'PA30' AND SKIP FIRST SCREEN.
perform get_pernr_data.
ENDMETHOD. "handle_hotspot_click
*-------------------------------------------
ENDCLASS.