ABAP - Function ALV 06 红绿黄灯

HeathlX

已于 2024-03-04 05:10:06 修改

阅读量749

点赞数 11

分类专栏： ABAP-Function ALV 文章标签： ABAP

于 2024-02-25 22:19:42 首次发布

本文链接：https://blog.csdn.net/HeathlX/article/details/136288269

版权

ABAP-Function ALV 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

本文介绍了如何在实际开发中使用ABAP编程为ALV表格添加红绿黄灯状态显示，通过定义字段类型和使用图标名来表示不同状态，并通过分数区间判断显示不同的颜色。代码示例展示了如何在数据结构中添加状态字段并根据分数调整灯色。

摘要由CSDN通过智能技术生成

实际开发中会有一些需求要求添加红绿黄灯列，例如ALV中交货单是否已完成拣配、未拣配、未完成拣配等状态进行红绿灯的显示，以求达到ALV简洁明了的目的，显示效果如下图所示。

完成这一功能只需要在结构定义时添加一个字段然后赋值即可。字段类型参考ICONNAME。

TYPES:BEGIN OF ty_data,
        light  TYPE iconname,        
      END OF ty_data.

DATA gw_data TYPE ty_data.

gw_data-light =  icon_red_light.    "表示红灯

gw_data-light =  ICON_yellow_LIGHT. "表示黄灯

gw_data-light =  ICON_green_LIGHT.  "表示绿灯

完整代码

TYPES:BEGIN OF ty_data,
        sel    TYPE char1,
        light  TYPE iconname,
        name   TYPE char10,
        score  TYPE p LENGTH 2 DECIMALS 1,
        remark TYPE c LENGTH 20,
      END OF ty_data.

DATA gt_data TYPE TABLE OF ty_data.
DATA gw_data TYPE ty_data.

** Layout  变量定义
DATA gs_layout   TYPE lvc_s_layo.

** Fieldcat 变量定义
DATA:gt_fieldcat TYPE lvc_t_fcat,
     gs_fieldcat LIKE LINE OF gt_fieldcat.

** FieldCat的宏
DATA gv_pos TYPE i.

DEFINE %%add_fieldcat.
  gv_pos = gv_pos + 1.
  gs_fieldcat-col_pos = gv_pos.
  gs_fieldcat-fieldname = &1.
  gs_fieldcat-scrtext_m = &2.

  CASE &1.
    WHEN 'SEL'.
      gs_fieldcat-checkbox = 'X'. "当做选择框显示
      gs_fieldcat-edit     = 'X'. "该字段可以编辑
  ENDCASE.

  APPEND gs_fieldcat TO gt_fieldcat.CLEAR gs_fieldcat.
END-OF-DEFINITION.

START-OF-SELECTION.

  PERFORM get_data.
  PERFORM dis_falv.

FORM get_data.
  gt_data[] = VALUE #(
                     ( sel = '' light = '' name = 'TOM'    score = '58')
                     ( sel = '' light = '' name = 'JEERY'  score = '98')
                     ( sel = '' light = '' name = 'MASTER' score = '68')
                   ).

  LOOP AT gt_data INTO gw_data.
    IF gw_data-score < 60.
      gw_data-light =  icon_red_light.
      gw_data-remark = '不及格'.
    ELSEIF gw_data-score >= 60 AND  gw_data-score < 85.
      gw_data-light =  ICON_yellow_LIGHT.
      gw_data-remark = '良好'.
    ELSEIF gw_data-score >= 85.
      gw_data-light =  ICON_green_LIGHT.
      gw_data-remark = '优秀'.
    ENDIF.
    MODIFY gt_data FROM gw_data.
  ENDLOOP.
ENDFORM.

FORM dis_falv.
** Fieldcat字段映射处理
  %%add_fieldcat:'SEL'      '选择',  "( 前面字段值不可变 后面字段描述可变 每一行都是)
                 'LIGHT'    '状态',
                 'REMARK'   '备注',
                 'NAME'     '姓名',
                 'SCORE'    '分数'.

** Layout布局处理
  gs_layout-cwidth_opt = 'X'.     "自动优化列宽 （可以使用**在一行代码面前注释掉 看看ALV会有什么效果）
  gs_layout-zebra = 'X'.          "斑马纹输出

** 调用FunctionALV需要传入的参数：展示数据，FieldCat，Layout，Status
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'FRM_SET_STATUS'
      is_layout_lvc            = gs_layout
      it_fieldcat_lvc          = gt_fieldcat
    TABLES
      t_outtab                 = gt_data[]
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.

FORM frm_set_status USING p_extab TYPE slis_t_extab.
  SET PF-STATUS 'STANDARD'.
ENDFORM.