Need urgent response

Question

How to display the totals in the output list in general alv report ..condition negative totals will show red light icon otherwise for positive totals will show green light icon ?

Answer 1

Hi,
Debashish,
I am giving a sample program which fulfils ur requirements.
Try this one.
Note: U must create a Screen 100 with ALV Control with name 'ALVGRID'  in Element List in the Screen Painter.and PF-STATUS 100 to correctly run this pogram.
*& Report  ALV_TOT_COLORS
Report  ALV_TOT_COLORS
TYPE-POOLS slis.
DATA:
  w_grid TYPE REF TO cl_gui_alv_grid,
  w_container TYPE REF TO cl_gui_custom_container,
  t_fieldcat TYPE lvc_t_fcat,
t_fieldcat TYPE slis_t_fieldcat_alv,
  w_fieldcat LIKE LINE OF t_fieldcat,
  w_layout TYPE lvc_s_layo,
  w_diff TYPE i.
DATA:
  BEGIN OF fs_flight,
    INCLUDE TYPE SFLIGHT.
    fs_flight LIKE sflight.
DATA:
  light TYPE c,
END OF fs_flight.
DATA:
  w_sort TYPE lvc_s_sort,
  t_sort TYPE lvc_t_sort.
DATA:
fs_flight TYPE sflight,
  t_flight LIKE TABLE OF sflight WITH HEADER LINE.
START-OF-SELECTION.
  PERFORM get_flight_data.
*&      Form  get_flight_data
FORM get_flight_data .
  SELECT * FROM sflight
  INTO TABLE t_flight WHERE carrid = 'LH'.
  IF sy-subrc NE 0.
    MESSAGE s000(zdbmsg).
  ELSE.
    CALL SCREEN 100.
  ENDIF.                             
ENDFORM.                        
*&      Module  STATUS_0100  OUTPUT
MODULE status_0100 OUTPUT.
  SET PF-STATUS '100'.
  IF w_container IS NOT BOUND.
    CREATE OBJECT w_container
      EXPORTING
        container_name = 'ALVGRID'
    EXCEPTIONS
      OTHERS           = 6.
    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.                              
  IF w_grid IS NOT BOUND.
    CREATE OBJECT w_grid
      EXPORTING
        i_parent        = w_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
    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.
  PERFORM sort_criteria.
  PERFORM fieldcatalog_format.
  PERFORM  alv_layout.
  PERFORM display_alv_data.
ENDMODULE.                            
*&      Module  USER_COMMAND_0100  INPUT
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                            
*&      Form  display_alv_data
FORM display_alv_data .
  CALL METHOD w_grid->set_table_for_first_display
  EXPORTING
   I_BUFFER_ACTIVE               =
   I_BYPASSING_BUFFER            =
   I_CONSISTENCY_CHECK           =
    i_structure_name              = 'SFLIGHT'
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = 'X'
     is_layout                     = w_layout
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          =
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
    CHANGING
      it_outtab                    = t_flight[]
      it_fieldcatalog              = t_fieldcat
      it_sort                      = t_sort
   IT_FILTER                     =
    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.  
ENDFORM.                              
*&      Form  fieldcatalog_format
FORM fieldcatalog_format .
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
  I_BUFFER_ACTIVE              =
    i_structure_name             = 'SFLIGHT'
  I_CLIENT_NEVER_DISPLAY       = 'X'
  I_BYPASSING_BUFFER           =
  I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                = t_fieldcat
   EXCEPTIONS
     inconsistent_interface      = 1
     program_error               = 2
     OTHERS                      = 3.
*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
   I_PROGRAM_NAME               = SY-REPID
  I_INTERNAL_TABNAME           = 'SFLIGHT'
   I_STRUCTURE_NAME             = 'SFLIGHT'
  I_CLIENT_NEVER_DISPLAY       = 'X'
  I_INCLNAME                   =
  I_BYPASSING_BUFFER           =
  I_BUFFER_ACTIVE              =
CHANGING
   ct_fieldcat                  = t_fieldcat
EXCEPTIONS
  INCONSISTENT_INTERFACE       = 1
  PROGRAM_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.                               " IF sy-subrc <> 0.
  LOOP AT t_fieldcat INTO w_fieldcat.
    CASE w_fieldcat-fieldname.
      WHEN 'CARRID'.
        w_fieldcat-hotspot = 'X'.
        w_fieldcat-outputlen = 10.
        MODIFY t_fieldcat FROM w_fieldcat.
      WHEN 'PRICE'.
        w_fieldcat-no_sum = 'X'.
        w_fieldcat-decimals_o = 2.
        MODIFY t_fieldcat FROM w_fieldcat.
    ENDCASE.                            ENDLOOP.                             ENDFORM.                            
*&      Form  alv_layout
FORM alv_layout.
  w_layout-zebra = 'X'.
w_layout-NO_headers = 'X'.
  w_layout-cwidth_opt = 'X'.
  w_layout-sel_mode = 'C'.
  w_layout-grid_title = 'ALV GRID TITLE'.
  LOOP AT t_flight INTO fs_flight.
    w_diff = fs_flight-include-seatsocc_b -
             fs_flight-include-seatsmax_b.
    IF w_diff LE 0.
      fs_flight-light = '3'.
      w_layout-excp_led = 'X'.
    ELSE.
      fs_flight-light = '1'.
    ENDIF.
    MODIFY t_flight FROM fs_flight.
    w_layout-excp_fname = 'LIGHT'.
  ENDLOOP.
ENDFORM.                               " alv_layout
*&      Form  sort_criteria
FORM sort_criteria.
  w_sort-fieldname = 'CONNID'.
  w_sort-spos = 1.
  APPEND w_sort TO t_sort.
  w_sort-fieldname = 'FLDATE'.
  w_sort-down = 'X'.
  w_sort-spos = 2.
  APPEND w_sort TO t_sort.
  IF sy-subrc NE 0.
    WRITE: ' not sorted '.
  ENDIF.
ENDFORM.                               " sort_criteria
if  useful, reward points
Thank u,
Prasad G.V.K