<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > ABAP Source Code > YPRACTICE_302_CLASSES

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

*&  Include           YPRACTICE_302_CLASSES                            *

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

 

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

*GLOBAL VARIABLE DECRALATION

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

DATA : gv_html_event_tab       TYPE cntl_simple_events,

       gv_html_event           TYPE cntl_simple_event,

       gv_repid LIKE sy-repid,

       gv_frame(255),

       gv_action(256),

       gv_getdata(2048),

       gv_postdataline(1024),

       gi_postdata_tab TYPE cnht_post_data_tab,

       gi_query_table TYPE TABLE OF w3query WITH HEADER LINE.

 

 

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

*CLASS DEFINITION AND IMPLEMENTATION

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

 

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

*       CLASS cl_html_event_handler DEFINITION

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

*

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

CLASS cl_html_event_handler DEFINITION.

 

  PUBLIC SECTION.

*    Activate event

    METHODS: on_sapevent

              FOR EVENT sapevent OF cl_gui_html_viewer

               IMPORTING action frame getdata postdata query_table.

 

ENDCLASS.                    "cl_html_event_handler DEFINITION

 

Data: gv_evt_receiver TYPE REF TO cl_html_event_handler.

 

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

*       CLASS cl_html_event_handler IMPLEMENTATION

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

*

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

CLASS cl_html_event_handler IMPLEMENTATION.

 

*  Event Procedure

  METHOD on_sapevent.

 

    CLEAR gv_action.

    CLEAR gv_frame.

    CLEAR gv_getdata.

    CLEAR gv_postdataline.

 

    gv_action       = action.

    gv_frame        = frame.

    gv_getdata      = getdata.

    gi_postdata_tab   = postdata.

    IF NOT gi_postdata_tab IS INITIAL.

      READ TABLE gi_postdata_tab INDEX 1 INTO gv_postdataline.

    ENDIF.

    gi_query_table[] = query_table[].

 

 

    CASE action.

*      Action "OPEN_PAGE" when press a button in the html page

      WHEN 'SUBMIT_PAGE_NO'.

        PERFORM fm_display_data.

 

      WHEN OTHERS.

    ENDCASE.

  ENDMETHOD.                    "on_sapevent

 

ENDCLASS.                    "cl_html_event_handler IMPLEMENTATION