SAP SAP SALV REPORT LOGO

SAP SALV REPORT LOGO







  


*& Report ZSAP_SALV_REPORT_LOGO
 *&---------------------------------------------------------------------*
 
 *---------------------------------------------------------------------------------*
 * SAP SALV Report with header logo image footer events and default variant
 *---------------------------------------------------------------------------------*
 * Description:
 *---------------------------------------------------------------------------------*
 * This further builds on the basic SAP SALV and implements additional
 * functionality to the ALV report:
 * Display header
 * Display footer
 * Add images to header on left
 * Add logo to header on right without effecting the header text
 * Save and retrieve variant
 * Set default variant
 * Implement events double click, hotspot click
 *---------------------------------------------------------------------------------*
 REPORT zsap_salv_report_logo.
 
 PARAMETERS: p_param TYPE ekko-ebeln. "Example report parameter
 SELECTION-SCREEN SKIP.
 SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-f03.
 PARAMETERS:     p_layout TYPE disvariant-variant.           "ALV Variant
 SELECTION-SCREEN END OF BLOCK b3.
 
 
 *Data Declaration
 *---------------------------------------------------------------------------------*
 TYPES: BEGIN OF t_report_cust,
   ebeln TYPE ekpo-ebeln,
   ebelp TYPE ekpo-ebelp,
   statu TYPE ekpo-statu,
   aedat TYPE ekpo-aedat,
   matnr TYPE ekpo-matnr,
   menge TYPE ekpo-menge,
   meins TYPE ekpo-meins,
   netpr TYPE ekpo-netpr,
   peinh TYPE ekpo-peinh,
   line_color  TYPE lvc_t_scol,
  END OF t_report_cust.
 
 TYPES: BEGIN OF t_report.
         INCLUDE STRUCTURE ekpo.
 TYPES:        line_color TYPE lvc_t_scol,
 END OF t_report.
 DATA: gd_heading1 TYPE string VALUE 'SALV heading value1'.
 DATA: gd_heading2 TYPE string VALUE 'SALV heading value2'.
 DATA: lt_s_color TYPE lvc_t_scol.
 DATA: ls_s_color TYPE lvc_s_scol.
 DATA: it_report TYPE STANDARD TABLE OF t_report_cust INITIAL SIZE 0,
       wa_report LIKE LINE OF it_report.
 DATA alv_table    TYPE REF TO cl_salv_table.
 DATA alv_columns TYPE REF TO cl_salv_columns_table.
 DATA single_column  TYPE REF TO cl_salv_column.
 
 
 *---------------------------------------------------------------------------------*
 *       CLASS lcl_handle_events DEFINITION
 *---------------------------------------------------------------------------------*
 * Define a local class for handling events of cl_salv_table
 *---------------------------------------------------------------------------------*
 CLASS lcl_handle_events DEFINITION.
   PUBLIC SECTION.
     METHODS:
       on_user_command FOR EVENT added_function OF cl_salv_events
         IMPORTING e_salv_function,
 
       on_before_salv_function FOR EVENT before_salv_function OF cl_salv_events
         IMPORTING e_salv_function,
 
       on_after_salv_function FOR EVENT after_salv_function OF cl_salv_events
         IMPORTING e_salv_function,
 
       on_double_click FOR EVENT double_click OF cl_salv_events_table
         IMPORTING row column,
 
       on_link_click FOR EVENT link_click OF cl_salv_events_table
         IMPORTING row column.
 ENDCLASS.                    "lcl_handle_events DEFINITION
 
 
 *---------------------------------------------------------------------------------*
 *       CLASS lcl_handle_events IMPLEMENTATION
 *---------------------------------------------------------------------------------*
 * Implement the events for handling the events of cl_salv_table
 *---------------------------------------------------------------------------------*
 CLASS lcl_handle_events IMPLEMENTATION.
   METHOD on_user_command.
 *    perform show_function_info using e_salv_function 'user command event'.
   ENDMETHOD.                    "on_user_command
 
   METHOD on_before_salv_function.
 *    perform show_function_info using e_salv_function 'before salv function event'.
   ENDMETHOD.                    "on_before_salv_function
 
   METHOD on_after_salv_function.
 *    perform show_function_info using e_salv_function 'after salv function event'.
   ENDMETHOD.                    "on_after_salv_function
 
   METHOD on_double_click.
     PERFORM show_cell_info USING row column 'double click event'.
   ENDMETHOD.                    "on_double_click
 
   METHOD on_link_click.
     PERFORM show_cell_info USING row column 'double click event'.
   ENDMETHOD.                    "on_single_click
 ENDCLASS.                    "lcl_handle_events IMPLEMENTATION
 DATA: gr_events TYPE REF TO lcl_handle_events.
 
 
 *---------------------------------------------------------------------------------*
 * AT SELECTION-SCREEN ON VALUE-REQUEST                                 *
 *---------------------------------------------------------------------------------*
 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.
   PERFORM f4_layouts USING if_salv_c_layout=>restrict_none
                      CHANGING p_layout.
 
 
 *---------------------------------------------------------------------------------*
 * INITIALIZATION                                                       *
 *---------------------------------------------------------------------------------*
 INITIALIZATION.
   PERFORM get_default_layout USING    if_salv_c_layout=>restrict_none
                              CHANGING p_layout.
 
 
 ************************************************************************
 * START-OF-SELECTION
 START-OF-SELECTION.
   PERFORM data_retrieval.
 
 
 ************************************************************************
 * END-OF-SELECTION
 END-OF-SELECTION.
 
   IF NOT it_report[] IS INITIAL.
     PERFORM display_settings.
     PERFORM display_salv_report.
   ELSE.
     MESSAGE i006(zzz) WITH 'Not data Found'.
   ENDIF.
 
 
 *&---------------------------------------------------------------------*

*& Form get default layout

*&---------------------------------------------------------------------* * Get Default Layout * cl_salv_layout provides a method for retieving the valid default * layout. It is also possible to use the static class * cl_salv_layout_service. The rules for determinig the valid * default Layout is as follows: * (1) Check if user-dependant default layout exists if yes then * this layout is loaded * (2) Check if user-independant standard layout exists if yes then * this layout is loaded * (3) Check if user-independant SAP standard layout exists if yes * then this layout is loaded *---------------------------------------------------------------------------------* FORM get_default_layout USING i_restrict TYPE salv_de_layout_restriction CHANGING c_layout TYPE disvariant-variant. DATA: ls_layout TYPE salv_s_layout_info, ls_key TYPE salv_s_layout_key. ls_key-report = sy-repid. ls_layout = cl_salv_layout_service=>get_default_layout( s_key = ls_key restrict = i_restrict ). c_layout = ls_layout-layout. ENDFORM. " get_default_layout *&---------------------------------------------------------------------*

*& FORM data retrieval.

*&---------------------------------------------------------------------* FORM data_retrieval. SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh UP TO 10 ROWS FROM ekpo INTO CORRESPONDING FIELDS OF TABLE it_report. LOOP AT it_report ASSIGNING FIELD-SYMBOL(). ls_s_color-fname = 'EBELN'. ls_s_color-color-col = 5. ls_s_color-color-int = 1. ls_s_color-color-inv = 0. APPEND ls_s_color TO -line_color. ENDLOOP. ENDFORM. " DATA_RETRIEVAL *&---------------------------------------------------------------------*

*& FORM display settings.

*&---------------------------------------------------------------------* FORM display_settings. DATA: err_message TYPE REF TO cx_salv_msg. TRY. cl_salv_table=>factory( IMPORTING r_salv_table = alv_table CHANGING t_table = it_report ). alv_columns = alv_table->get_columns( ). alv_columns->set_optimize( 'X' ). "optimise colums of SALV grid alv_columns->set_color_column( 'LINE_COLOR' ). "set line colour of SALV report PERFORM build_salv_layout. PERFORM salv_sort_fields. PERFORM build_fieldcatalog. PERFORM build_toolbar. PERFORM hide_columns. PERFORM salv_display_settings. PERFORM salv_report_header. PERFORM salv_report_footer. PERFORM salv_report_events. PERFORM set_hotspot_fields. CATCH cx_salv_msg INTO err_message. * Add error processing ENDTRY. ENDFORM. *&---------------------------------------------------------------------*

*& FORM display alv report.

*&---------------------------------------------------------------------* FORM display_salv_report. alv_table->display( ). ENDFORM. *&---------------------------------------------------------------------*

*& FORM build layout.

*&---------------------------------------------------------------------* FORM build_salv_layout. DATA: layout TYPE REF TO cl_salv_layout. DATA: layout_key TYPE salv_s_layout_key. layout = alv_table->get_layout( ). layout_key-report = sy-repid. layout->set_key( layout_key ). layout->set_save_restriction( if_salv_c_layout=>restrict_none ). layout->set_initial_layout( p_layout ). layout->set_default( 'X' ). ENDFORM. "BUILD_LAYOUT *&---------------------------------------------------------------------*

*& FORM hide columns.

*&---------------------------------------------------------------------* * Code to hide any columns you do not wont to be shown by default, * these fields can be added manually by the user using the standard * SALV report functionality *&---------------------------------------------------------------------* FORM hide_columns. DATA: err_notfound TYPE REF TO cx_salv_not_found. TRY. single_column = alv_columns->get_column( 'KEY' ). single_column->set_visible( if_salv_c_bool_sap=>false ). CATCH cx_salv_not_found INTO err_notfound. * Add error processing ENDTRY. ENDFORM. *&---------------------------------------------------------------------*

*& FORM build fieldcatalog.

*&---------------------------------------------------------------------* * Your ALV report should get texts from the internal table used but you * can overwrite those values within here if you require. The code * below contains a few examples *&---------------------------------------------------------------------* FORM build_fieldcatalog. DATA: err_notfound TYPE REF TO cx_salv_not_found. TRY. single_column = alv_columns->get_column( 'EBELN' ). single_column->set_short_text( 'POrder' ). "Note: Will cause syntax error if text is too long single_column->set_medium_text( 'Purchase Order' ). single_column->set_long_text( 'Purchase Order' ). single_column->set_output_length( '15' ). "Force column to be wider to accomodate heading single_column = alv_columns->get_column( 'NETPR' ). single_column->set_short_text( 'Net Price' ). single_column->set_medium_text( 'Net Price' ). single_column->set_long_text( 'Net Price' ). CATCH cx_salv_not_found INTO err_notfound. * Add error processing ENDTRY. ENDFORM. *&---------------------------------------------------------------------*

*& FORM build toolbar.

*&---------------------------------------------------------------------* * The code below simply displays all available functions but you can * restrict this if you require *&---------------------------------------------------------------------* FORM build_toolbar. DATA: toolbar_functions TYPE REF TO cl_salv_functions_list. toolbar_functions = alv_table->get_functions( ). toolbar_functions->set_all( ). ENDFORM. *&---------------------------------------------------------------------*

*& FORM report settings.

*&---------------------------------------------------------------------* FORM salv_display_settings. DATA: report_settings TYPE REF TO cl_salv_display_settings. report_settings = alv_table->get_display_settings( ). report_settings->set_striped_pattern( if_salv_c_bool_sap=>true ). report_settings->set_list_header( 'SALV Report Title' ). ENDFORM. *&---------------------------------------------------------------------*

*& Form f4 layouts

*&---------------------------------------------------------------------* FORM f4_layouts USING i_restrict TYPE salv_de_layout_restriction CHANGING c_layout TYPE disvariant-variant. DATA: ls_layout TYPE salv_s_layout_info, ls_key TYPE salv_s_layout_key. ls_key-report = sy-repid. ls_layout = cl_salv_layout_service=>f4_layouts( s_key = ls_key restrict = i_restrict ). c_layout = ls_layout-layout. ENDFORM. *&---------------------------------------------------------------------*

*& Form REPORT HEADER

*&---------------------------------------------------------------------* * Add header to SAP SALV table report *---------------------------------------------------------------------------------* FORM salv_report_header . DATA: header TYPE REF TO cl_salv_form_layout_grid, label TYPE REF TO cl_salv_form_label, flow TYPE REF TO cl_salv_form_layout_flow, image TYPE REF TO cl_salv_form_picture, logo TYPE REF TO cl_salv_form_layout_logo. DATA: ld_txt TYPE string. DATA tz TYPE ttzz-tzone. CREATE OBJECT header. * Add text to SALAV report label = header->create_label( row = 1 column = 1 ). label->set_text( 'SALV Report heading' ). label = header->create_label( row = 1 column = 1 ). label->set_text( 'SALV fixed header text:' ). label = header->create_label( row = 1 column = 2 ). label->set_text( gd_heading1 ). ** Add Blank Line to SALV table report label = header->create_label( row = 2 column = 1 ). label->set_text( ' ' ). * Add date text to SALV_TABLE report label = header->create_label( row = 2 column = 1 ). label->set_text( 'Date:' ). label = header->create_label( row = 2 column = 2 ). label->set_text( sy-datum ). label = header->create_label( row = 5 column = 1 ). label->set_text( 'SALV Heading 2:' ). label = header->create_label( row = 5 column = 2 ). label->set_text( gd_heading2 ). * Add picture to SALV report CREATE OBJECT image EXPORTING picture_id = 'ENJOYSAP_LOGO'. CALL METHOD header->set_element EXPORTING row = 1 column = 6 r_element = image. ** Set header for display ** alv_table->set_top_of_list( header ). ** Or Add Logo to header and then display heaer and logo to SALV report CREATE OBJECT logo. logo->set_left_content( header ). logo->set_right_logo( 'ENJOYSAP_LOGO' ). * Set element top_of_list alv_table->set_top_of_list( logo ). * Set set header for Print alv_table->set_top_of_list_print( header ). ENDFORM. *&---------------------------------------------------------------------*

*& Form REPORT FOOTER

*&---------------------------------------------------------------------* * Create footer for SAP SALV table report *---------------------------------------------------------------------------------* FORM salv_report_footer . DATA: footer TYPE REF TO cl_salv_form_layout_grid, label TYPE REF TO cl_salv_form_label, flow TYPE REF TO cl_salv_form_layout_flow. DATA: ld_deploc(40) TYPE c, ld_txt TYPE string, ld_daycode TYPE scal-indicator, ld_day TYPE string. DATA tz TYPE ttzz-tzone. DATA: wa_t247 TYPE t247. CREATE OBJECT footer. * Add date as text to SALV report footer label = footer->create_label( row = 1 column = 1 ). SELECT SINGLE * FROM t247 INTO wa_t247 WHERE spras EQ sy-langu AND mnr EQ sy-datum+4(2). CALL FUNCTION 'DATE_COMPUTE_DAY' EXPORTING date = sy-datum IMPORTING day = ld_daycode. * Convert date into Day text i.e. Monday... CASE ld_daycode. WHEN 1. ld_day = 'Monday'. WHEN 2. ld_day = 'Tuesday'. WHEN 3. ld_day = 'Wednesday'. WHEN 4. ld_day = 'Thursday'. WHEN 5. ld_day = 'Friday'. WHEN 6. ld_day = 'Saturday'. WHEN 7. ld_day = 'Sunday'. ENDCASE. * Build custome date layout using inline string concatenate ld_txt = |{ ld_day }, { wa_t247-ltx(3) } { sy-datum+6(2) } { sy-datum(4) } { sy-uzeit(2) }:{ sy-uzeit+2(2) }|. label->set_text( ld_txt ). alv_table->set_end_of_list( footer ). ENDFORM. *&---------------------------------------------------------------------*

*& Form REPORT SORT

*&---------------------------------------------------------------------* * Add default sort fields to ALV report, this will also group * row togther if values are the same *---------------------------------------------------------------------------------* FORM salv_sort_fields. DATA: sort TYPE REF TO cl_salv_sorts. sort = alv_table->get_sorts( ). sort->add_sort( 'EBELN' ). ENDFORM. *&--------------------------------------------------------------------*

*& Form show cell info

*&--------------------------------------------------------------------* * Used to demonstrate event functionality to Show information * of the field that has been clicked on. also demonstrates how * to call sap tcode from ALV click *---------------------------------------------------------------------------------* FORM show_cell_info USING i_row TYPE i i_column TYPE lvc_fname i_text TYPE string. DATA: l_row_string TYPE string, l_col_string TYPE string, l_row TYPE char128. WRITE i_row TO l_row LEFT-JUSTIFIED. CONCATENATE text-i02 l_row INTO l_row_string SEPARATED BY space. CONCATENATE text-i03 i_column INTO l_col_string SEPARATED BY space. MESSAGE i000(0k) WITH i_text l_row_string l_col_string. * Set purchase order clicked and and call transaction code to display PO details IF i_column EQ 'EBELN'. READ TABLE it_report INDEX i_row ASSIGNING FIELD-SYMBOL(). SET PARAMETER ID 'BES' FIELD -ebeln. CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN. ENDIF. ENDFORM. " show_cell_info " call_tcode *&---------------------------------------------------------------------*

*& Form REPORT EVENTS

*&---------------------------------------------------------------------* * Setup SALV report events so that they are triggered from ALV report *---------------------------------------------------------------------------------* FORM salv_report_events . *ยง6 register to the events of cl_salv_table DATA: lr_events TYPE REF TO cl_salv_events_table. lr_events = alv_table->get_event( ). CREATE OBJECT gr_events. *event USER_COMMAND SET HANDLER gr_events->on_user_command FOR lr_events. *event BEFORE_SALV_FUNCTION SET HANDLER gr_events->on_before_salv_function FOR lr_events. *event AFTER_SALV_FUNCTION SET HANDLER gr_events->on_after_salv_function FOR lr_events. *event DOUBLE_CLICK SET HANDLER gr_events->on_double_click FOR lr_events. *event LINK_CLICK SET HANDLER gr_events->on_link_click FOR lr_events. ENDFORM. *&---------------------------------------------------------------------*

*& Form REPORT HOTSPOT

*&---------------------------------------------------------------------* * text *---------------------------------------------------------------------------------* FORM set_hotspot_fields . *...HotSpot DATA: lo_cols_tab TYPE REF TO cl_salv_columns_table, lo_col_tab TYPE REF TO cl_salv_column_table. * get Columns object lo_cols_tab = alv_table->get_columns( ). * TRY. lo_col_tab ?= lo_cols_tab->get_column( 'EBELN' ). CATCH cx_salv_not_found. ENDTRY. * Set the HotSpot for VBELN Column TRY. CALL METHOD lo_col_tab->set_cell_type EXPORTING value = if_salv_c_cell_type=>hotspot. . CATCH cx_salv_data_error . ENDTRY. ENDFORM.