Conditionally Assign a color to a cell In ALV report using Class CL_GUI_ALV_GRID

[former_member188685]

The Blog explains How to color a cell Conditionally in an ALV Grid control report.

This Blog explains how to apply color conditionally to a cell in an ALV Report using CL_GUI_ALV_GRID class. I developed a small report

Here is the Simple Report with the Steps.

1.Data Declarations part.In Data declaration part include the extra field of type lvc_t_scol which is a deep structure. It is used to assign the colors dynamically. *-Data DeclarationsTYPES: ty_flight TYPE sflight.TYPES: BEGIN OF ty_flights.INCLUDE TYPE ty_flight.TYPES: color TYPE lvc_t_scol.     "This is used for coloring the cellTYPES: END OF ty_flights.*-Output Internal Table DeclarationDATA: it_flight TYPE STANDARD TABLE OF ty_flights.*-Controls Declarations foa ALVDATA: o_grid TYPE REF TO cl_gui_alv_grid,      o_cont TYPE REF TO cl_gui_custom_container,      w_layout TYPE lvc_s_layo.

2.Populate the Internal table and modify the color field conditionally, In this example i am checking the condition seats occupied < 0 then assigin the Red color to the cell
*-Get the Data from SFLIGHT  SELECT * FROM sflight    INTO CORRESPONDING FIELDS OF TABLE it_flight    UP TO 100 ROWS.*-Logic to Color the cell conditionallyFORM assign_color_condition.  DATA: wa_flight TYPE ty_flights,        wa_col    TYPE lvc_s_scol,  "Color structure        wa_colo   TYPE lvc_s_colo,  "Color Attributes        t_col     TYPE lvc_t_scol.  "Color Table*-  Population of color and Attributes*-Color Code* Yellow  = 3* Blue    = 4* Green   = 5* Red     = 6* Orange  = 7  wa_colo-col = 6.              "Color Code  wa_colo-int = 1.              "Intenisfy On/Off  wa_colo-inv = 0.              "Inverse On/Off  LOOP AT it_flight INTO wa_flight.*-Conditionally Assign the color    IF wa_flight-seatsocc < 0.*-Assigin the color to the cell      wa_col-color = wa_colo.      wa_col-fname = 'SEATSOCC'.      APPEND wa_col TO t_col.      wa_flight-color = t_col.      CLEAR t_col.      MODIFY it_flight FROM wa_flight.      CLEAR wa_flight.    ENDIF.  ENDLOOP.ENDFORM.                    "ASSIGN_COLOR_CONDITION

3.Create the Screen 100, and place the Custom Control in the Screen and Name it as FLIGHT.

4.Using the PBO Module set the PF-status and Title Bar. Initialize the Grid , Assign the color field declared in step#1 to ctab_fname of layout before calling the set_table_for_first_display. MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'FLIGHT'. SET TITLEBAR 'FLIGHT'.*-here we initialize the Container and Grid *-Call the method set_table_for_first_display PERFORM DISPLAY_DATA.ENDMODULE.                 " STATUS_0100  OUTPUT

5. Call the screen in END-OF-SELECTION to Display the data END-OF-SELECTION.*-Conditionally Assign the Colors  PERFORM assign_color_condition.*-Display the Output  CALL SCREEN 100.

6.Check the sample output of the Report.
 

7.The complete coding
*---------------------------------------------------------------------** PROGRAM         : Z_ALV_GRID_CELL_COLOR                             ** PROGRAM TITLE   : Conditonally Coloring a Cell in ALV Grid Control  ** AUTHOR          : Vijay Dudla                                       ** CREATED ON      : 02/12/2008                                        ** OBJECT TYPE     : ALV                                               **---------------------------------------------------------------------** DESCRIPTION     : This program will Demonstrate How to Color a Cell **                   Conditonally in ALV Grid Control                  **---------------------------------------------------------------------*REPORT  z_alv_grid_cell_color.*-Data DeclarationsTYPES: ty_flight TYPE sflight.TYPES: BEGIN OF ty_flights.INCLUDE TYPE ty_flight.TYPES: color TYPE lvc_t_scol.     "This is used for coloring the cellTYPES: END OF ty_flights.*-Output Internal Table DeclarationDATA: it_flight TYPE STANDARD TABLE OF ty_flights.*-Controls DeclarationsDATA: o_grid TYPE REF TO cl_gui_alv_grid,      o_cont TYPE REF TO cl_gui_custom_container,      w_layout TYPE lvc_s_layo.*----------------------------------------------------------------------**      Start of Selection*----------------------------------------------------------------------*START-OF-SELECTION.*-Get the Data from SFLIGHT  SELECT * FROM sflight    INTO CORRESPONDING FIELDS OF TABLE it_flight    UP TO 100 ROWS.*----------------------------------------------------------------------**      End of Selection*----------------------------------------------------------------------*END-OF-SELECTION.*-Conditionally Assign the Colors  PERFORM assign_color_condition.*-Display the Output  CALL SCREEN 100.*&---------------------------------------------------------------------**&      Form  ASSIGN_COLOR_CONDITION*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM assign_color_condition.  DATA: wa_flight TYPE ty_flights,        wa_col    TYPE lvc_s_scol,  "Color structure        wa_colo   TYPE lvc_s_colo,  "Color Attributes        t_col     TYPE lvc_t_scol.  "Color Table*-  Population of color and Attributes*-Color Code* Yellow  = 3* Blue    = 4* Green   = 5* Red     = 6* Orange  = 7  wa_colo-col = 6.              "Color Code  wa_colo-int = 1.              "Intenisfy On/Off  wa_colo-inv = 0.              "Inverse On/Off  LOOP AT it_flight INTO wa_flight.*-Conditionally Assign the color    IF wa_flight-seatsocc < 0.*-Assigin the color to the cell      wa_col-color = wa_colo.      wa_col-fname = 'SEATSOCC'.      APPEND wa_col TO t_col.      wa_flight-color = t_col.      CLEAR t_col.      MODIFY it_flight FROM wa_flight.      CLEAR wa_flight.    ENDIF.  ENDLOOP.ENDFORM.                    "ASSIGN_COLOR_CONDITION*&---------------------------------------------------------------------**&      Form  display_data*&---------------------------------------------------------------------**       Display the Data*----------------------------------------------------------------------*FORM display_data.*-Create the Container Object  CREATE OBJECT o_cont   EXPORTING     container_name = 'FLIGHT'.*-Create Grid Object  CREATE OBJECT o_grid    EXPORTING     i_parent = o_cont.*-Indicate the Column to Assign the color using layout  w_layout-zebra = 'X'.  w_layout-ctab_fname = 'COLOR'.* Display  CALL METHOD o_grid->set_table_for_first_display    EXPORTING      i_structure_name = 'SFLIGHT'      is_layout        = w_layout    CHANGING      it_outtab        = it_flight.ENDFORM.                    "display_data*&---------------------------------------------------------------------**&      Module  STATUS_0100  OUTPUT*&---------------------------------------------------------------------**       PF-Status and Initializing the Controls*----------------------------------------------------------------------*MODULE status_0100 OUTPUT.  SET PF-STATUS 'FLIGHT'.  SET TITLEBAR  'FLIGHT'.  PERFORM display_data.ENDMODULE.                 " STATUS_0100  OUTPUT*&---------------------------------------------------------------------**&      Module  USER_COMMAND_0100  INPUT*&---------------------------------------------------------------------**       User Command*----------------------------------------------------------------------*MODULE user_command_0100 INPUT.  CASE sy-ucomm.    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.      LEAVE TO SCREEN 0.  ENDCASE.ENDMODULE.                 " USER_COMMAND_0100  INPUT