*&---------------------------------------------------------------------*
*& Include MZ_TP3TOP                                         Modulpool *
*&                                                                     *
*&---------------------------------------------------------------------*

PROGRAM  SAPMZ_TP3 MESSAGE-ID zflug.
CONTROLS:
  tabstrip400 TYPE TABSTRIP.
TABLES:
  zzflug, zflug_input, scarr, spfli, sflight, sbook, scustom.
* Klasse muss wieder vorher bekannt gemacht werden ...
CLASS cl_eventlistener DEFINITION DEFERRED.
DATA:
  wa TYPE zzflug,
  iscarr TYPE scarr,
  itab TYPE TABLE OF zzflug,
  count TYPE i,
  fcode TYPE sy-ucomm,
* Eventlistener
  ereignis TYPE REF TO cl_eventlistener.
TYPE-POOLS: cndp.
DATA: url TYPE cndp_url,
      container TYPE REF TO cl_gui_custom_container,
      box type ref to cl_gui_dialogbox_container,
      web type ref to cl_GUI_html_viewer,
      picture TYPE REF TO cl_gui_picture.
*
DATA:
  cust_name TYPE scrfname VALUE 'CUSTCONT',
  alv_cont  TYPE REF TO cl_gui_alv_grid,
  cust_cont TYPE REF TO cl_gui_custom_container.
*
CLASS cl_eventlistener DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_double_click
      FOR EVENT double_click OF cl_gui_alv_grid
        IMPORTING e_row e_column.
ENDCLASS.                    "cl_eventlistener DEFINITION
*
CLASS cl_eventlistener IMPLEMENTATION.
* DOPPELKLICK
  METHOD handle_double_click.
    DATA: izeile LIKE LINE OF itab.
* Beschaffung der Zeilen-Info
    READ TABLE itab INDEX e_row-index INTO izeile.
* Weitere Anwendungsverarbeitung
    SELECT SINGLE * FROM scarr INTO iscarr
      WHERE carrid = izeile-carrid.
    MOVE-CORRESPONDING izeile TO zzflug.
    CLEAR izeile.
    CALL SCREEN 300.
  ENDMETHOD.                    "handle_double_click
ENDCLASS.                    "cl_eventlistener IMPLEMENTATION