SAP: ALV GRID行顏色

samrv發表於2024-05-23

在ALV GRID中可以修改想要強調的行顏色。首先內表中追加 linecolor欄位。

結構:

DATA: BEGIN GT_OUTTAB OCCURS 0.

  INCLUDE STRUCTURE <DDIC-Struktur>.

DATA: linecolor(4) TYPE c. " 用於指定顏色的欄位

DATA: END OF GT_OUTTAB.

主要程式碼如下

~~省略~~
DATA: begin of gt_sflight OCCURS 0 .
        INCLUDE STRUCTURE sflight.
DATA: light TYPE c.  " 訊號燈
DATA: linecolor(4) TYPE c. "行顏色, 注意欄位名與長度沒有空格。
DATA: END OF gt_sflight.

~~省略~~
  "訊號燈"
  LOOP AT gt_sflight.
~~~~省略~~
    "設定行顏色
    CASE gt_sflight-carrid.
      WHEN 'AA' .  " 藍色
        gt_sflight-linecolor = 'C100'.
      WHEN 'AZ'. " 黃色
        gt_sflight-linecolor = 'C300'.
      WHEN 'DL' . " 綠色
        gt_sflight-linecolor = 'C500'.
    ENDCASE. "設定行顏色
    MODIFY gt_sflight.
  ENDLOOP.   " 訊號燈
  CALL SCREEN 100.
~~省略~~
FORM setting_layout CHANGING p_layout type lvc_s_layo.
~~~~~省略~~
  p_layout-info_fname = 'LINECOLOR'. "顏色行
ENDFORM. " setting_layout.

  

詳細程式碼如下:

*&---------------------------------------------------------------------*
*& Report  Z15_21
*& 可執行程式
*&---------------------------------------------------------------------*
*&
*& 建立 ALV GRID 容器
*& 注意每個程式都需要啟用方可執行
*&  實現重新整理按鈕的 重新整理事件。
*&  實現使用欄位目錄
*&  使用FIELD SYMBOL 功能設定欄位顯示背景顏色
*&  DATA: LIGHT TYPE C. 訊號燈。
*&  COLORING ROWS: 顏色行
*&---------------------------------------------------------------------*

REPORT Z15_21.

TYPE-POOLS: icon. "" 宣告圖示

*& 內表結構型別 :開始
TYPES: BEGIN OF t_str.
        INCLUDE STRUCTURE sflight.
TYPES: company type c LENGTH 6.
TYPES: END OF t_str.
*& 內表結構型別  :結束

DATA: CON1_REF TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
" 定義容器, 參照 自定義控制元件"其中自定義控制元件命名為CON1

DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID. "定義ALV變數,
*& 參照 CL_GUI_ALV_GRID類"

DATA: GS_VARIANT like DISVARIANT, "" 列表變數
      gs_cs_variant like disvariant.
*& DATA: GT_SFLIGHT TYPE TABLE OF SFLIGHT.  " 要顯示在螢幕上的內表
DATA: gs_layout  type lvc_s_layo .
DATA: gt_toolbar TYPE  ui_functions .
DATA: gt_sort TYPE lvc_t_sort.  " 排序

DATA: gt_fieldcat type lvc_t_fcat. " 宣告欄位目錄變數

*DATA: gt_sflight TYPE  TABLE OF T_STR.
*DATA: gt_sflight like sflight occurs 0 WITH HEADER LINE.
DATA: begin of gt_sflight OCCURS 0 .
        INCLUDE STRUCTURE sflight.
DATA: light TYPE c.  " 訊號燈
DATA: linecolor(4) TYPE c. "行顏色, 注意欄位名與長度沒有空格。
DATA: END OF gt_sflight.


TYPES: BEGIN OF TY_SFLIGHT,
  CARRID TYPE SFLIGHT-CARRID,
  CONNID TYPE SFLIGHT-CONNID,
  FLDATE TYPE SFLIGHT-FLDATE,
  PRICE TYPE SFLIGHT-PRICE,
  CURRENCY TYPE SFLIGHT-CURRENCY,
  PLANETYPE TYPE SFLIGHT-PLANETYPE,
  SEATSMAX TYPE SFLIGHT-SEATSMAX,
  SEATSOCC TYPE SFLIGHT-SEATSOCC,
  PAYMENTSUM TYPE SFLIGHT-PAYMENTSUM,
  SEATSMAX_B TYPE SFLIGHT-SEATSMAX_B,
  SEATSOCC_B TYPE SFLIGHT-SEATSOCC_B,
  SEATSMAX_F TYPE SFLIGHT-SEATSMAX_F,
  SEATSOCC_F TYPE SFLIGHT-SEATSOCC_F,
  END OF TY_SFLIGHT.

PARAMETERS: p_var like disvariant-variant.  " 引數變數


*& 設定GRID佈局
PERFORM setting_layout CHANGING gs_layout .

*& 根據使用者顯示或隱藏佈局按鈕
PERFORM setting_toolbar.

*& 排序
PERFORM setting_sort.

PERFORM getting_catalog.
*& 呼叫設定欄位目錄 setting_catalog
PERFORM setting_catalog.



*& 顯示檢索幫助
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var.
*&
  gs_variant-report = sy-repid.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      IS_VARIANT    = gs_variant
*     I_TABNAME_HEADER          =
*     I_TABNAME_ITEM            =
*     IT_DEFAULT_FIELDCAT       =
      I_SAVE        = 'A'
*     I_DISPLAY_VIA_GRID        = ' '
    IMPORTING
*     E_EXIT        =
      ES_VARIANT    = gs_variant
    EXCEPTIONS
      NOT_FOUND     = 1
      PROGRAM_ERROR = 2
      OTHERS        = 3.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
    p_var = gs_variant-variant .
  ENDIF.



FORM setting_layout CHANGING p_layout type lvc_s_layo.
  p_layout-cwidth_opt = 'X' . "自動調節長度
  p_layout-grid_title = 'Exception Test'.  "標題欄"
  p_layout-sel_mode = 'D'.  " 選擇模式:可選擇多行"
  p_layout-zebra = 'X'.   "指定條紋(STRIPE)屬性"

  p_layout-excp_fname = 'LIGHT'. " 訊號燈 欄位
  p_layout-info_fname = 'LINECOLOR'. "顏色行
ENDFORM. " setting_layout.


*& 根據使用者顯示或隱藏佈局按鈕
FORM setting_toolbar.
  DATA : l_exclude TYPE UI_FUNC.

  l_exclude = cl_gui_alv_grid=>mc_fc_save_variant.
  APPEND l_exclude TO gt_toolbar.

  l_exclude = cl_gui_alv_grid=>mc_fc_maintain_variant.
  APPEND l_exclude TO gt_toolbar.
ENDFORM.  " SETTING_TOOLBAR

*& 排序 子程式
FORM setting_sort.
  DATA: ls_sort TYPE lvc_s_sort.
  ls_sort-spos = '1'.  " 排序順序 ,整形數字
  ls_sort-fieldname = 'CARRID'.  " 排序欄位名稱
  ls_sort-up = 'X' . "  升序  或  LS_SORT-DOWN = 'X'  "降序
  ls_sort-subtot = 'X' .   " 顯示合計

  APPEND ls_sort to gt_sort .
ENDFORM. " setting_sort.

*& 獲取欄位目錄的子程式
FORM getting_catalog.
  DATA: lt_fieldcat type kkblo_t_fieldcat.


*& 呼叫函式 (函式組:SKBH)
  CALL FUNCTION 'K_KKB_FIELDCAT_MERGE'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      I_TABNAME          = 'GT_SFLIGHT'
*     I_STRUCNAME        =
      I_INCLNAME         = SY-REPID
*     I_BYPASSING_BUFFER =
*     I_BUFFER_ACTIVE    =
    CHANGING
      CT_FIELDCAT        = LT_FIELDCAT[]
* EXCEPTIONS
*     INCONSISTENT_INTERFACE       = 1
*     OTHERS             = 2
    .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

  IF SY-SUBRC EQ 0.
    "呼叫函式,   函式組:SLVC"
    CALL FUNCTION 'LVC_TRANSFER_FROM_KKBLO'
      EXPORTING
*       I_TECH_COMPLETE   =
*       I_STRUCTURE_NAME  =
        IT_FIELDCAT_KKBLO = lt_fieldcat[]
*       IT_SORT_KKBLO     =
*       IT_FILTER_KKBLO   =
*       IT_SPECIAL_GROUPS_KKBLO         =
*       IT_FILTERED_ENTRIES_KKBLO       =
*       IT_GROUPLEVELS_KKBLO            =
*       IS_SUBTOT_OPTIONS_KKBLO         =
*       IS_LAYOUT_KKBLO   =
*       IS_REPREP_ID_KKBLO              =
*       I_CALLBACK_PROGRAM_KKBLO        =
*       IT_ADD_FIELDCAT   =
*       IT_EXCLUDING_KKBLO              =
*       IT_EXCEPT_QINFO_KKBLO           =
      IMPORTING
        ET_FIELDCAT_LVC   = gt_fieldcat[]
*       ET_SORT_LVC       =
*       ET_FILTER_LVC     =
*       ET_SPECIAL_GROUPS_LVC           =
*       ET_FILTER_INDEX_LVC             =
*       ET_GROUPLEVELS_LVC              =
*       ES_TOTAL_OPTIONS_LVC            =
*       ES_LAYOUT_LVC     =
*       ES_VARIANT_LVC    =
*       E_VARIANT_SAVE_LVC              =
*       ES_PRINT_INFO_LVC =
*       ES_REPREP_LVC     =
*       E_REPREP_ACTIVE_LVC             =
*       ET_EXCLUDING_LVC  =
*       ET_EXCEPT_QINFO_LVC             =
*     TABLES
*       IT_DATA           =
*     EXCEPTIONS
*       IT_DATA_MISSING   = 1
*       OTHERS            = 2
      .
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.

  ENDIF.


ENDFORM ." getting_catalog. "

*& 設定欄位目錄的子程式
FORM setting_catalog.
  DATA: ls_fieldcat type lvc_s_fcat.  " 宣告 欄位目錄變更
  FIELD-SYMBOLS: <ls_fcat> TYPE lvc_s_fcat.

*  ls_fieldcat-fieldname = 'COMPANY'.
*  ls_fieldcat-coltext = 'Company Info'.
*  ls_fieldcat-just = 'C'.
*  ls_fieldcat-key = 'X'.
*  ls_fieldcat-outputlen = '6'.
*ls_fieldcat-no_out = 'X'.  " 不在ALV GRID
*中顯示,注意在第一列設定不顯示,而第二列以後的列需要顯示,則需要在第二列
*&說明顯示欄位,否則後面欄位不顯示。
*  APPEND ls_fieldcat to gt_fieldcat.
*
*  ls_fieldcat-fieldname = 'CARRID'.  "" 欄位名稱
*  ls_fieldcat-coltext = 'Carrid ID'.  "" 欄位顯示名稱  ,承運方
*  ls_fieldcat-just = 'L'.  "" 居左
*  ls_fieldcat-KEY = 'X'.  "" 主鍵標記
*  ls_fieldcat-outputlen = '2'.  "" 輸出寬度
*  ls_fieldcat-no_out = ''. " 顯示欄位"
*  APPEND ls_fieldcat TO gt_fieldcat .
*
*  ls_fieldcat-fieldname = 'CONNID'.
*  ls_fieldcat-coltext = 'Flight Number'. ""航班號 (連線號)
*  ls_fieldcat-just = 'C'.  "" 居中
*  ls_fieldcat-KEY = 'X'.
*  ls_fieldcat-outputlen = '4'.
*  APPEND ls_fieldcat TO gt_fieldcat .
*
*  ls_fieldcat-fieldname = 'PRICE'.
*  ls_fieldcat-coltext = 'Airfare'."" 文字說明(即:欄位說明)
*  ls_fieldcat-just = 'R'.  " 居右
*  ls_fieldcat-KEY = ''.
*  ls_fieldcat-outputlen = '15'.
*  APPEND ls_fieldcat TO gt_fieldcat .

*& 迴圈內表所有欄位
*  LOOP AT gt_fieldcat INTO ls_fieldcat.
*    if ls_fieldcat-fieldname = 'PRICE'.
*      ls_fieldcat-coltext = 'AIR PRICE'.
*      ls_fieldcat-just = 'C'.
*      ls_fieldcat-emphasize = 'X'." 設定單元格背景色
*      MODIFY gt_fieldcat FROM ls_fieldcat.
*    ENDIF.
*  ENDLOOP.

*& 在ALV GRID中的前四個欄位是主鍵,顏色指定為藍色且固定了下面主鍵對應的
*&   捲軸。
  LOOP AT gt_fieldcat ASSIGNING <ls_fcat>.

    if <ls_fcat>-fieldname EQ 'PRICE'.
      <ls_fcat>-key = 'X'.  " 將單價欄位 設定為主鍵
    ENDIF.

    IF <ls_fcat>-fieldname EQ 'FLDATE'.
      <ls_fcat>-edit_mask = '____/__/__' . "設定日期格式為: YYYY/MM/DD

    ENDIF.

    IF <ls_fcat>-fieldname EQ 'CURRENCY'.
      <ls_fcat>-fix_column = 'X'. "將 幣種 欄位設定為固定列
      <ls_fcat>-just = 'R'. " 設定對齊方式,R:右對齊,L:左對齊,C:中間對齊。
    ENDIF.
  endloop.





ENDFORM. " setting_catalog.


*&
*CLASS lcl_dragdrop DEFINITION.
*  PUBLIC SECTION.
*    DATA: wa type ty_sflight,
*          index type i.  " index of line to be move.
*ENDCLASS. " LCL_dragdrop DEFINITION

*&
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    " 宣告雙擊事件方法
    METHODS: handle_double_click
     FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
    IMPORTING e_row e_column.
    " 宣告 工具欄事件方法
    METHODS: handle_toolbar
      FOR EVENT toolbar OF CL_GUI_ALV_GRID
      IMPORTING e_object  e_interactive .

    ""&宣告工具欄的重新整理按鈕事件方法
    METHODS: handle_command
      FOR EVENT user_command OF CL_GUI_ALV_GRID
      IMPORTING e_ucomm.

    ""& 宣告 拖放方法(Drag & Drop)
    METHODS:
     handle_alv_drag
     FOR EVENT ondrag OF CL_GUI_ALV_GRID
     IMPORTING e_row e_column e_dragdropobj,

     handle_alv_drop
      FOR EVENT ondrop OF CL_GUI_ALV_GRID
      IMPORTING e_row e_column e_dragdropobj.

  PRIVATE SECTION. "

ENDCLASS.

CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_double_click. "雙擊事件方法的實現"
    LEAVE TO SCREEN 0 .
  ENDMETHOD.

  " 工具欄事件方法的實現
  METHOD handle_toolbar .
    DATA: ls_toolbar TYPE stb_button.

    CLEAR ls_toolbar.
    ls_toolbar-butn_type = 3.
    APPEND ls_toolbar TO e_object->mt_toolbar.

    CLEAR ls_toolbar.
    ls_toolbar-function = 'RESH'.
    ls_toolbar-icon = icon_refresh.
    ls_toolbar-quickinfo = 'Refresh'.
    ls_toolbar-text = ''.
    ls_toolbar-disabled = ''.
    APPEND ls_toolbar TO e_object->mt_toolbar.  " 增加一個 重新整理按鈕

  ENDMETHOD.  "" handle_toolbar  ”


  "& 工具欄重新整理按鈕的重新整理方法的實現
  METHOD handle_command.
    DATA: l_scroll type lvc_s_stbl.

    CASE e_ucomm.
      WHEN 'RESH'.
        SELECT * FROM SFLIGHT INTO TABLE gt_sflight UP TO 40 ROWS .
        "" 重新整理時全表查詢
        l_scroll-row = 'X'.
        l_scroll-col = 'X'.

        CALL METHOD g_grid->refresh_table_display
          EXPORTING
            i_soft_refresh = ''
            is_stable      = l_scroll.
    ENDCASE.
  ENDMETHOD. " handle_command.

  METHOD handle_alv_drag.
*    DATA: l_dragdrop TYPE REF TO lcl_dragdrop.


  ENDMETHOD. " handle_alv_drag.

  METHOD handle_alv_drop.
*    DATA: l_dragdrop TYPE REF TO lcl_dragdrop,
*          l_drop_index type i,
*          l_scroll type lvc_s_stbl.

    " 重新整理 ALV GRID 元件
*    l_scroll-row = 'X'.
*    l_scroll-col = 'X'.

*     CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
*       l_dragdrop ?= e_dragdropobj->object.
*       CALL METHOD g_grid->refresh_table_display
*       EXPORTING
*         i_soft_refresh = 'X'
*         is_stable = l_scroll.
*     ENDCATCH.
    IF sy-subrc <> 0.
      " if anything went wrong aborting the drap and drop operation:
      CALL METHOD e_dragdropobj->abort.
    ENDIF.
  ENDMETHOD. " handle_alv_drop

ENDCLASS.      " LCL_event_receiver.

DATA: event_receiver type ref to lcl_event_receiver .



*& 查詢資料,然後呼叫螢幕100.
START-OF-SELECTION.
  SELECT * FROM SFLIGHT
    INTO TABLE GT_SFLIGHT UP TO 90 ROWS.
  "訊號燈"
  LOOP AT gt_sflight.
    IF gt_sflight-seatsocc <= 30.
      gt_sflight-light = '1'.   " 1: 紅燈
    ELSEIF gt_sflight-seatsocc <= 50.
      gt_sflight-light = '2'.  "2: 黃燈
    ELSE.
      gt_sflight-light = '3'. ""3:綠燈

    ENDIF.

    "設定行顏色
    CASE gt_sflight-carrid.
      WHEN 'AA' .  " 藍色
        gt_sflight-linecolor = 'C100'.
      WHEN 'AZ'. " 黃色
        gt_sflight-linecolor = 'C300'.
      WHEN 'DL' . " 綠色
        gt_sflight-linecolor = 'C500'.
    ENDCASE. "設定行顏色
    MODIFY gt_sflight.
  ENDLOOP.   " 訊號燈
  CALL SCREEN 100.

  gs_variant-report = sy-repid.
  gs_variant-username = sy-uname.

*&
*& 建立 AVL控制元件
  INCLUDE Z15_21_PBO.
*  INCLUDE Z15_20_PBO.




*&
*& PAI
MODULE user_command_0100 INPUT.
  DATA: l_row type i,
        l_value type c,
        l_col type i,
        ls_row type lvc_s_row,
        ls_col type lvc_s_col,
        ls_roid type lvc_s_roid.

  DATA: ls_scroll type lvc_s_stbl.
  ls_scroll-row = 'X'.
  ls_scroll-col = 'X'.

*& 模式-> 選擇:ABAP物件模式 ,(繼續)-> 呼叫方法,
*&    在"例項"欄=G_GRID, 類/介面欄= CL_GUI_ALV_GRID,
*方法欄= get_current_cell
  CALL METHOD G_GRID->GET_CURRENT_CELL
    IMPORTING
      E_ROW     = l_row
      E_VALUE   = l_value
      E_COL     = l_col
      ES_ROW_ID = ls_row
      ES_COL_ID = ls_col
      ES_ROW_NO = ls_roid.

*&   重新查詢已經顯示在ALV的輸出表時使用的方法。
  CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY
    EXPORTING
      IS_STABLE      = ls_scroll
      I_SOFT_REFRESH = 'X'
*    EXCEPTIONS
*     FINISHED       = 1
*     others         = 2
    .
  IF SY-SUBRC <> 0.
*   Implement suitable error handling here
  ENDIF.


ENDMODULE. " user_command_0100.

  

包含檔案:Z15_21_PBO

*----------------------------------------------------------------------*
***INCLUDE Z15_21_PBO.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  INIT_CON  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE INIT_CON OUTPUT.
*& 1、建立容器物件
  IF CON1_REF IS INITIAL.  " 如果容器是空的,建立容器物件"
    CREATE OBJECT CON1_REF
      EXPORTING
        CONTAINER_NAME = 'CON1'.

*& 2、建立 ALV GRID 控制元件 物件
    CREATE OBJECT G_GRID
      EXPORTING
        I_PARENT = CON1_REF.
*      EXCEPTIONS
*        error_cnt1_create = 1
*        error_cnt1_init   = 2
*        error_cnt1_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. "  CON1_REF"

*& #REGION: 註冊事件
  CREATE OBJECT event_receiver.
* 註冊事件Handler方法
  SET HANDLER event_receiver->handle_double_click FOR g_grid .
*&
*& 註冊重新整理按鈕事件 方法
  SET HANDLER event_receiver->handle_toolbar FOR g_grid.

*& 註冊工具欄重新整理按鈕的重新整理事件 方法
  SET HANDLER event_receiver->handle_command FOR g_grid.

*& 註冊 拖放事件 方法
  SET HANDLER event_receiver->handle_alv_drop for g_grid.
  SET HANDLER event_receiver->handle_alv_drag for g_grid.

*& #ENDREGION: 註冊事件

*& 模式-> 選擇:ABAP物件模式 ,(繼續)-> 呼叫方法, 在介面欄=G_GRID,
*&  類/介面欄= CL_GUI_ALV_GRID, 方法欄= SET_TABLE_FOR_FIRST_DISPLAY
*& 3、 ALV GRID顯示資料方法
  CALL METHOD g_grid->set_table_for_first_display
    EXPORTING
      I_STRUCTURE_NAME     = 'SFLIGHT'
      i_save               = 'A'
      is_variant           = gs_variant
      i_default            = ' '
      is_layout            = gs_layout
      it_toolbar_excluding = gt_toolbar
    CHANGING
      It_OUTTAB            = GT_SFLIGHT[] " 若不帶表頭,則直接使用內表即可(即:GT_SFLGITH),
*& 定義內表時若帶有表頭,則呼叫ALV時需要傳遞表體。
      it_fieldcatalog      = gt_fieldcat   " 欄位目錄
      it_sort              = gt_sort.

ENDMODULE.                 " INIT_CON  OUTPUT

*CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
*  EXPORTING
*    I_BUFFER_ACTIVE               =
*    I_BYPASSING_BUFFER            =
*    I_CONSISTENCY_CHECK           =
*    I_STRUCTURE_NAME              =
*    IS_VARIANT                    =
*    I_SAVE                        =
*    I_DEFAULT                     = 'X'
*    IS_LAYOUT                     =
*    IS_PRINT                      =
*    IT_SPECIAL_GROUPS             =
*    IT_TOOLBAR_EXCLUDING          =
*    IT_HYPERLINK                  =
*    IT_ALV_GRAPHICS               =
*    IT_EXCEPT_QINFO               =
*    IR_SALV_ADAPTER               =
*  CHANGING
*    IT_OUTTAB                     =
*    IT_FIELDCATALOG               =
*    IT_SORT                       =
*    IT_FILTER                     =
*  EXCEPTIONS
*    INVALID_PARAMETER_COMBINATION = 1
*    PROGRAM_ERROR                 = 2
*    TOO_MANY_LINES                = 3
*    others                        = 4
*        .
*IF SY-SUBRC <> 0.
** Implement suitable error handling here
*ENDIF.

  

效果圖:

相關文章