SAP ALV简单使用

作者: leslie_tta | 来源:发表于2020-04-15 14:19 被阅读0次

SAP ALV简单使用
ABAP-ALV-GRID
ALV( SAP List Viewer)报表
浅谈 SAP ABAP 系统里的 ALV 输出方式实现
ALV的控件使用
ABAP报表开发：ALV运用
ALV基础知识(一)
如何给 SAP ABAP ALV 报表的修改功能添加自定义校验逻
abap alv 事件
27 行代码开发一个最简单的 SAP ALV 报表试读版

简介

ALV（SAP List Viewer）是SAP显示列表的工具，通过传递内表显示数据。
在调用 ALV 函数前，需要引入一个类型池：TYPE-POOLS:SLIS
Layout 主要用于设定 ALV 的输出格式，为 ALV 输出的可选项
Fieldcat 主要用于ALV的结构定义，包括具体的栏位及名称、类型、格式等属性，为 ALV 输出的必选项

使用

输出Function有两种，他们对应的全局变量对应：

REUSE_ALV_GRID_DISPLAY

wa_fieldcat TYPE slis_fieldcat_alv ,    " 相当于工作区
i_fieldcat  TYPE slis_t_fieldcat_alv ,  " 存放输出栏位名称的内表
i_layout    TYPE slis_layout_alv .      " 负责整个ALV的全局属性

REUSE_ALV_GRID_DISPLAY_LVC

gt_fieldcat     TYPE STANDARD TABLE OF lvc_s_fcat,  "内表
wa_fieldcat     TYPE lvc_s_fcat,        "工作区，结构体，存放栏位等
wa_layout       TYPE lvc_s_layo,        "输出格式，如列颜色设置

REUSE_ALV_GRID_DISPLAY 的Fieldcat的类型为slis_fieldcat_alv，Layout类型为slis_layout_alv
REUSE_ALV_GRID_DISPLAY_LVC的,Fieldcat的类型为lvc_s_fcat，Layout类型为lvc_s_layo

相关的layout与fieldcat的属性介绍(省略)

示例REUSE_ALV_GRID_DISPLAY_LVC（更好的和ALV容器结合）

REPORT  ztest1.
"引入类型池
TYPES: slis.
TYPES:
  BEGIN OF ty_customer,
    id   TYPE char10,
    name TYPE char10,
    city TYPE char30,
  END OF ty_customer .

TYPES: ty_t_customer TYPE STANDARD TABLE OF ty_customer WITH EMPTY KEY.
"数据源
DATA(gt_customer) =
  VALUE ty_t_customer(
    ( id = 'C01' name = 'zhangsan' city = 'CSC')
    ( id = 'C02' name = 'lishi' city = 'CDC')
    ( id = 'C03' name = 'wangwu' city = 'SHC')
  ).

DATA: wa_fieldcat_lvc   TYPE lvc_s_fcat ,       " 相当于工作区
      gt_fieldcat  TYPE STANDARD TABLE OF  lvc_s_fcat,       " 内表
      wa_layout      TYPE lvc_s_layo ，      " 负责整个ALV的全局属性、格式
      wa_grid_setting TYPE lvc_s_glay.
 
DEFINE mcr_set_fieldcat.
    wa_fieldcat-fieldname  = &1.
    wa_fieldcat-scrtext_m  = &2.
    wa_fieldcat-scrtext_s  = &2.
    wa_fieldcat-scrtext_l  = &2.
    wa_fieldcat-colddictxt = 'L'.
    wa_fieldcat-edit = &3.
    wa_fieldcat-lowercase = &4 .
    wa_fieldcat-no_out = &5 .
    wa_fieldcat-ref_field = &6 .
    wa_fieldcat-ref_table = &7 .
    wa_fieldcat-fix_column = &8.
    APPEND wa_fieldcat to gt_fieldcat.
    CLEAR wa_fieldcat.
END-OF-DEFINITION.
 "定义全局格式
 wa_layout-cwidth_opt = c_flag_x.
 wa_layout-box_fname = 'MARK'.
 wa_layout-sel_mode = c_flag_d.
 wa_layout-zebra = c_flag_x.
 wa_layout-excp_fname = 'LIGHT' .
 wa_grid_setting-edt_cll_cb = 'X'.

  "调用宏定义列
  mcr_set_fieldcat:
  'ID'        'ID' '' '' '' '' '' 'X',
  'NAME'    '名字'  '' '' '' '' '' 'X',
  'CITY'       '城市'  '' '' '' '' '' 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  EXPORTING
    i_callback_program = sy-repid          " 当前程序
    i_callback_pf_status_set = 'FRM_SET_PFSTATUS'  "工具栏,见下
    i_callback_user_command  = 'FRM_ACTION_COMMAND' "实现对应菜单项及相应事件功能，见下
    is_layout_lvc            = wa_layout
    i_grid_settings          = wa_grid_setting
    it_fieldcat_lvc          = gt_fieldcat[]
    i_default                = 'X'
    i_save                   = 'A'
  TABLES
    t_outtab                 = gt_customer             " 数据内表
  EXCEPTIONS
    program_error      = 1
    OTHERS             = 2.
    
""""附
FORM frm_set_pfstatus USING pu_extab TYPE slis_t_extab.
    lt_fcode =  VALUE #( ( |APPROVE| )
                     ( |PAPAY| )
                     ( |TLPAY| )
                     ( |VENREFUND| )
                     ( |STSPUSH| )
                     ) .
    SET PF-STATUS 'STATUS_ALV' EXCLUDING lt_fcode .  "lt_fcode内表可自定义
    SET TITLEBAR 'TITLE_ALV'  . "TITLE_ALV可动态设置使用&1占位符
ENDFORM.

FORM frm_action_command  USING pu_r_ucomm LIKE sy-ucomm
                         ps_selfield TYPE slis_selfield.
  ps_selfield-refresh = c_flag_x.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
          e_grid = gv_grid.

  CALL METHOD gv_grid->check_changed_data.
  CASE pu_r_ucomm .
    WHEN 'xxx' .
    WHEN '&IC1'.  "双击穿透-----单击实现则需设置wa_fieldcat-hotpost = 'X'
    ENDCASE.
  CALL METHOD gv_grid->refresh_table_display.
ENDFORM.