sap icon alv 图标

本文介绍了一个使用 ABAP 编写的报表程序 YAPP02R223Q,该程序从 PA0002 表中选取数据,并利用 SAP List Viewer (SALV) 进行格式化显示。通过案例演示了如何根据选择条件筛选数据,以及如何为表格添加图标列来增强视觉效果。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

*&---------------------------------------------------------------------*
*& Report  YAPP02R223Q
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report  yapp02r223q.
tables: pa0002.

include <icon>.

typesbegin of  ty_outtab,
         pernr       like pa0002-pernr,
         begda       like pa0002-begda,
         endda       like pa0002-endda,
         vorna       like pa0002-vorna,
         nachn       like pa0002-nachn,
         icon        type icon_d,
       end   of ty_outtab.

data: gt_outtab     type standard table of ty_outtab.
data: gr_table      type ref to cl_salv_table.

constants: gc_true   type sap_bool value 'X',
           gc_false  type sap_bool value ' '.
*----------------------------------------------------------------------*
* SELECTION-SCREEN                                                     *
*----------------------------------------------------------------------*
selection-screen begin of block dsp with frame.
select-options:s_pernr for pa0002-pernr.
selection-screen end of block dsp.
*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
start-of-selection.

  perform select_data.
  perform display_data.

end-of-selection.
*---------------------------------------------------------------------*
*&amp;      Form  select_data
*----------------------------------------------------------------------*
form select_data .

  select * from pa0002
           into corresponding fields of table gt_outtab
           where pernr in s_pernr .

  field-symbols: <ls_outtab> type ty_outtab.
  data:       l_erg        type i.

  loop at gt_outtab assigning <ls_outtab>.

    l_erg = sy-tabix mod 3.
    case l_erg.
      when 1.
        <ls_outtab>-icon     = icon_okay.
      when 2.
        <ls_outtab>-icon     = icon_cancel.
      when 0.
        <ls_outtab>-icon     = icon_display.
    endcase.
  endloop.

endform.                    " select_data
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA
*----------------------------------------------------------------------*
form display_data .

  cl_salv_table=>factory(
    importing
      r_salv_table = gr_table
    changing
      t_table      = gt_outtab ).

  data: lr_columns type ref to cl_salv_columns_table,
        lr_column  type ref to cl_salv_column_table.

  lr_columns = gr_table->get_columns( ).
  lr_columns->set_optimize( gc_true ).

  lr_column ?= lr_columns->get_column( 'ICON' ).
  lr_column->set_icon( if_salv_c_bool_sap=>true ).
  lr_column->set_long_text( 'ICON' ).

  gr_table->display( ).

endform.                    "display_data
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值