Colour a particular cell dynamically in ALV

Question

Hi,
What class and method to be used to colour a particular cell dynamically in ALV?
Thanks,
Ronita.

Answer 1

U can use the below class to colour a particular cell dynamically in ALV:
class:cl_gui_alv_grid
See below code. It definitely helps u.
Provide Reward Points...:-)
types : begin of ty.        include structure MARA.
types : rowcolor(4) TYPE c,
        end of ty.
data : itab type standard table of ty,"Output Internal table
       i_fieldcat type standard table of lvc_s_fcat,"Field catalog
       wa type ty,
       w_variant type disvariant,
       w_layout  TYPE lvc_s_layo,"Layout structure
       o_docking type ref to cl_gui_docking_container,"Docking Container
       o_grid type ref to cl_gui_alv_grid."Grid
select * from mara into corresponding fields of table itab up to 10 rows.
call screen 9000.
*&      Module  STATUS_9000  OUTPUT
      text
module STATUS_9000 output. if o_docking is initial.
  SET PF-STATUS 'ZSTATUS'. "GUI Status
  SET TITLEBAR 'ZTITLE'.   "TitleCreating Docking Container
  CREATE OBJECT o_docking
         EXPORTING
           RATIO                       = '95'.
  IF sy-subrc eq 0.Creating Grid
     CREATE OBJECT o_grid
         EXPORTING
            i_parent          = o_docking.
  ENDIF.Filling the fieldcatalog table
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
       I_STRUCTURE_NAME             = 'MARA'
    CHANGING
       ct_fieldcat                  =  i_fieldcat
    EXCEPTIONS
          INCONSISTENT_INTERFACE       = 1
          PROGRAM_ERROR                = 2
          OTHERS                       = 3.
      w_variant-report = sy-repid.Setting layout
  w_layout-info_fname = 'ROWCOLOR'."For row coloringColouring a row
    CLEAR wa.
    READ TABLE itab INTO wa INDEX 3.
    IF sy-subrc EQ 0.
      wa-rowcolor = 'C311'.
    MODIFY itab FROM wa TRANSPORTING rowcolor WHERE matnr = wa-matnr.
    ENDIF.Displaying the output
   CALL METHOD o_grid->set_table_for_first_display
     EXPORTING
        IS_VARIANT                    = w_variant
        I_SAVE                        = 'A'
        is_layout                     = w_layout
     CHANGING
        it_outtab                     = itab
        IT_FIELDCATALOG               = i_fieldcat
         EXCEPTIONS
           INVALID_PARAMETER_COMBINATION = 1
           PROGRAM_ERROR                 = 2
           TOO_MANY_LINES                = 3
           others                        = 4.
    IF sy-subrc <> 0.
       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.endif.endmodule.                 " STATUS_9000  OUTPUT
*&      Module  USER_COMMAND_9000  INPUT
      PAI
module USER_COMMAND_9000 input.
data lv_ucomm type sy-ucomm.
lv_ucomm = sy-ucomm.
  CASE lv_ucomm.
    WHEN 'CANCEl' OR 'EXIT'.
      perform free_objects.
      LEAVE PROGRAM.
    when 'BACK'.
      perform free_objects.
     set screen '0'.
     leave screen.
  ENDCASE.
endmodule.                 " USER_COMMAND_9000  INPUT
*&      Form  free_objects
      Free Objects
form free_objects .
CALL METHOD o_grid->free
  EXCEPTIONS
    CNTL_ERROR        = 1
    CNTL_SYSTEM_ERROR = 2
    others            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD o_docking->free
  EXCEPTIONS
    CNTL_ERROR        = 1
    CNTL_SYSTEM_ERROR = 2
    others            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.                    " free_objects
Provide Reward Points...:-)