Icone et couleur

1- deux include standard à ajouter :

INCLUDE <icon>.

INCLUDE <color>.

2- dans votre structure l'icone sera de type icon_d

et les couleurs seont dans une structure de type lvc_t_scol.

TYPES: BEGIN OF ty_result, seuil_value TYPE p DECIMALS 0, gap_value TYPE p DECIMALS 0, gap_value0 TYPE p DECIMALS 0, icon_value TYPE icon_d, * seuil_qty TYPE p DECIMALS 0, gap_qty TYPE p DECIMALS 0, gap_qty0 TYPE p DECIMALS 0, icon_qty TYPE icon_d, t_color TYPE lvc_t_scol, END OF ty_result.

DATA: lt_s_color TYPE lvc_t_scol, ls_s_color TYPE lvc_s_scol.

DATA: gt_result TYPE STANDARD TABLE OF ty_result.

Perform à copier coller et à adapter

FORM color.
*.....Color for COLUMN.....
  DATA: lo_cols_tab TYPE REF TO cl_salv_columns_table,
        lo_col_tab  TYPE REF TO cl_salv_column_table.
  DATA: ls_color TYPE lvc_s_colo.    " Colors strucutre
  DATA : lt_salv_not_found TYPE REF TO   cx_salv_not_found,
*        lt_salv_msg         TYPE REF TO   cx_salv_msg,
*- Exception class
         lv_msg            TYPE          string.
  CONSTANTS:
          lc_error            TYPE symsgty VALUE 'E'.

*   get Columns object
  lo_cols_tab = go_alv->get_columns( ).
*
  INCLUDE <color>.
*
  DATA: lt_s_color TYPE lvc_t_scol,
        ls_s_color TYPE lvc_s_scol.
*
  LOOP AT gt_result ASSIGNING FIELD-SYMBOL(<fs_result>).
*=============================================================================
*= ICON FOR TREND
*=============================================================================
    DATA(lv_tendance) = <fs_result>-gap_value - <fs_result>-gap_value0.
    IF lv_tendance = 0.
      <fs_result>-icon_value     = icon_equal.
    ELSE.
      IF lv_tendance < 0.
        <fs_result>-icon_value     = icon_incoming_object.
      ELSE.
        <fs_result>-icon_value     = icon_outgoing_object.
      ENDIF.
    ENDIF.
* TENDANCE QTY
    lv_tendance = <fs_result>-gap_qty - <fs_result>-gap_qty0.
    IF lv_tendance = 0.
      <fs_result>-icon_qty     = icon_equal.
    ELSE.
      IF lv_tendance < 0.
        <fs_result>-icon_qty     = icon_incoming_object.
      ELSE.
        <fs_result>-icon_qty     = icon_outgoing_object.
      ENDIF.
    ENDIF.

*=============================================================================
*= COLOR FOR VALUE
*=============================================================================
    DATA(lv_max_orange) =  <fs_result>-seuil_value * ( 1 + p_percen / 100 ).

IF <fs_result>-gap_value > <fs_result>-seuil_value.

ls_s_color-fname     = 'GAP_VALUE'.
      IF <fs_result>-gap_value > lv_max_orange.
        ls_s_color-color-int = 0.
        ls_s_color-color-inv = 0.
        ls_s_color-color-col = col_negative.
      ELSE.
        ls_s_color-color-int = 1.
        ls_s_color-color-inv = 0.
        ls_s_color-color-col = col_group.
      ENDIF.

APPEND ls_s_color TO lt_s_color.
      CLEAR  ls_s_color.
    ENDIF.

IF <fs_result>-seuil_value > <fs_result>-gap_value.
      ls_s_color-fname     = 'GAP_VALUE'.
      ls_s_color-color-col = col_positive.
      ls_s_color-color-int = 0.
      ls_s_color-color-inv = 0.
      APPEND ls_s_color TO lt_s_color.
      CLEAR  ls_s_color.
    ENDIF.

*=============================================================================
*= COLOR FOR QTY
*=============================================================================
    lv_max_orange =  <fs_result>-seuil_qty * ( 1 + p_percen / 100 ).

IF <fs_result>-gap_qty > <fs_result>-seuil_qty.

ls_s_color-fname     = 'GAP_QTY'.
      IF <fs_result>-gap_qty > lv_max_orange.
        ls_s_color-color-int = 0.
        ls_s_color-color-inv = 0.
        ls_s_color-color-col = col_negative.
      ELSE.
        ls_s_color-color-int = 1.
        ls_s_color-color-inv = 0.
        ls_s_color-color-col = col_group.
      ENDIF.

APPEND ls_s_color TO lt_s_color.
      CLEAR  ls_s_color.
    ENDIF.

IF <fs_result>-seuil_qty > <fs_result>-gap_qty.
      ls_s_color-fname     = 'GAP_QTY'.
      ls_s_color-color-col = col_positive.
      ls_s_color-color-int = 0.
      ls_s_color-color-inv = 0.
      APPEND ls_s_color TO lt_s_color.
      CLEAR  ls_s_color.
    ENDIF.

*     Modify that data back to the output table
    <fs_result>-t_color = lt_s_color.
    CLEAR  lt_s_color.
  ENDLOOP.
*
*   We will set this COLOR table field name of the internal table to
*   COLUMNS tab reference for the specific colors
  TRY.
      lo_cols_tab->set_color_column( 'T_COLOR' ).
    CATCH cx_salv_data_error.                           "#EC NO_HANDLER
*****- Catch the Exceptions
      MESSAGE '**ERROR COLOR SALV**' TYPE lc_error.
  ENDTRY.
ENDFORM.

Pas si compliquez que cela...

Steeven

Vous allez entrer dans un monde que vous n'auriez jamais cru possible de créer.