Author: coderobbot

TYPES : BEGIN OF tab, carrid TYPE sflight-carrid, connid TYPE sflight-connid, fldate TYPE sflight-fldate, price TYPE sflight-price, text1(20), ” FOR TOTAL TEXT text2(20), ” FOR SUBTOTAL TEXT END OF tab. DATA : it_flight TYPE TABLE OF tab, wa_flight TYPE tab, it_fcat  TYPE lvc_t_fcat, wa_fcat TYPE lvc_s_fcat, wa_layo TYPE lvc_s_layo, it_sort TYPE lvc_t_sort, wa_sort TYPE lvc_s_sort, o_cust TYPE REF TO cl_gui_custom_container, o_alv TYPE REF TO cl_gui_alv_grid, ok_code TYPE sy-ucomm. START-OF-SELECTION. PERFORM fetch_data. PERFORM build_text. PERFORM build_fieldcat. PERFORM build_layout. PERFORM build_sort. END-OF-SELECTION.

 DATA : it_spfli TYPE TABLE OF spfli, wa_spfli TYPE spfli, o_cust TYPE REF TO cl_gui_custom_container, o_spli TYPE REF TO cl_gui_splitter_container, o_ref1 TYPE REF TO cl_gui_container, o_ref2 TYPE REF TO cl_gui_container, o_alv TYPE REF TO cl_gui_alv_grid, o_docu TYPE REF TO cl_dd_document, ok_code TYPE sy-ucomm. *———————————————————————-* CLASS handle_event DEFINITION. PUBLIC SECTION. CLASSMETHODS : page_head FOR EVENT                      top_of_page OF cl_gui_alv_grid                      IMPORTING e_dyndoc_id table_index. ENDCLASS.                    “HANDLE_EVENT DEFINITION *———————————————————————-* CLASS handle_event IMPLEMENTATION. METHOD page_head. *—————-try this one———————————*

DATA : it_spfli TYPE TABLE OF spfli, wa_spfli TYPE spfli, it_sflight TYPE TABLE OF sflight, wa_sflight TYPE sflight, o_cust TYPE REF TO cl_gui_custom_container, o_spli TYPE REF TO cl_gui_splitter_container, o_ref1 TYPE REF TO cl_gui_container, o_ref2 TYPE REF TO cl_gui_container, o_alv1 TYPE REF TO cl_gui_alv_grid, o_alv2 TYPE REF TO cl_gui_alv_grid, ok_code TYPE sy-ucomm. CLASS handle_event DEFINITION. PUBLIC SECTION. CLASS-METHODS handle_double_click FOR EVENT double_click OF cl_gui_alv_grid                    IMPORTING e_row.

TYPES : BEGIN OF tab, carrid TYPE spfli-carrid, connid TYPE spfli-connid, countryfr TYPE spfli-countryfr, cityfrom TYPE spfli-cityfrom, airpfrom TYPE spfli-airpfrom, countryto TYPE spfli-countryto, cityto TYPE spfli-cityto, airpto TYPE spfli-airpto, END OF tab. DATA : it_spfli TYPE TABLE OF tab, wa_spfli TYPE tab, ok_code TYPE sy-ucomm, o_cust TYPE REF TO cl_gui_custom_container, o_alv TYPE REF TO cl_gui_alv_grid, it_fcat TYPE lvc_t_fcat, wa_fcat TYPE lvc_s_fcat . DATA : IT_SFLIGHT TYPE TABLE OF SFLIGHT. DATA : O_DOCK TYPE REF TO CL_GUI_DOCKING_CONTAINER, O_ALV1 TYPE REF TO CL_GUI_ALV_GRID. SELECT-OPTIONS : s_carr FOR wa_spfli-carrid. CLASS HANDLE_EVENT DEFINITION. PUBLIC SECTION. CLASSMETHODS : HANDLE_DOUBLE_CLICK    

DATA : o_cust TYPE REF TO cl_gui_custom_container, o_alv TYPE REF TO cl_gui_alv_grid, it_spfli TYPE TABLE OF spfli, wa_spfli TYPE spfli, ok_code TYPE sy-ucomm. SELECT-OPTIONS  : p_carr FOR wa_spfli-carrid. START-OF-SELECTION. PERFORM data_fetch. CALL SCREEN 100. FORM data_fetch . SELECT * FROM spfli INTO TABLE it_spfli WHERE carrid IN p_carr. ENDFORM.                    ” DATA_FETCH MODULE status_0100 OUTPUT. SET PF-STATUS ‘STATUS’. SET TITLEBAR ‘TITLE’. ENDMODULE.                 ” STATUS_0100  OUTPUT MODULE user_command_0100 INPUT. CASE ok_code. WHEN ‘BACK’ OR ‘EXIT’ OR ‘CANCEL’. LEAVE TO SCREEN 0. ENDCASE. ENDMODULE.                 ” USER_COMMAND_0100  INPUT MODULE display_alv OUTPUT. CREATE OBJECT o_cust EXPORTING

  data : o_dock type ref to cl_gui_docking_container, o_alv type ref to cl_gui_alv_grid, it_spfli type table of spfli, wa_spfli type spfli, ok_code type sy-ucomm. select-options  : p_carr for wa_spfli-carrid. start-of-selection. perform data_fetch. call screen 100. form DATA_FETCH . select * from spfli into table it_spfli where carrid in p_carr. endform.                    ” DATA_FETCH module STATUS_0100 output. SET PF-STATUS ‘STATUS’. SET TITLEBAR ‘TITLE’. endmodule.                 ” STATUS_0100  OUTPUT module USER_COMMAND_0100 input. case ok_code. when ‘BACK’ OR ‘EXIT’ OR ‘CANCEL’. LEAVE TO SCREEN 0. endcase. endmodule.                 ” USER_COMMAND_0100  INPUT module DISPLAY_ALV output. if  o_dock is initial.