报表开发<ALV 显示设置>

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_interface_check           = ''                "接口一致性检查"
    i_callback_program          = sy-repid          "当前程序名"
    is_layout                   = layout            "输出样式"
    it_fieldcat                 = fieldcat[]        "字段定义描述"
    i_callback_pf_status_set    = 'PF_STATUS_SET'   "触发事件调用子程序"
    i_callback_user_command     = 'USER_COMMAND'    "鼠标事件操作子程序"
    it_events                   = it_events[]       "出口程序触发事件"
    i_callback_html_top_of_page = 'ALV_TOP_OF_PAGE' "ALV输出表头设置
    i_grid_setting              = wl_lvc_s_glay     "打印表头设置"
    is_sort                     = sortable[]        "排序设置"
  TABLES
    t_outtab                    = itab_out          "输出数据表"
  EXCEPTIONS
    program_error               = 1
    OTHERS                      = 2.

TYPE-POOLS:SLIS.
"REUSE_ALV_GRID_DISPLAY"
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_fieldcat TYPE slis_fieldcat_alv,
      layout   TYPE slis_layout_alv.
"REUSE_ALV_GRID_DISPLAY_LVC"
DATA: gt_lvc_fieldcat TYPE lvc_t_fcat,
      gs_lvc_fieldcat TYPE lvc_s_fcat,
      layout   TYPE lvc_s_layo.

DEFINE fieldcat.
  clear gs_fieldcat.
  gs_fieldcat-fieldname = &1.
  gs_fieldcat-seltext_l = &2.
  gs_fieldcat-seltext_m = &2.
  gs_fieldcat-seltext_s = &2.
  gs_fieldcat-col_pos = &3.
  gs_fieldcat-ref_tabname ='LSPFLI'.
  APPEND gs_fieldcat TO gt_fieldcat.
END-OF-DEFINITION.
fieldcat 'CARRID' '航线承运人' SY-TABIX.

TYPE-POOLS: SLIS.
DATA:gt_fieldcat TYPE TYPE slis_t_fieldcat_alv,
     gs_fieldcat TYPE slis_fieldcat_alv.
CLEAR gt_fieldcat.
CALL function 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    I_PROGRAM_NAME         =  SY-REPID
    I_INTERNAL_TABNAME     = 'INTERNAL_TABNAME' "显示输出的内表名，要大写"
" 如果定义的显示输出内表是参照的数据字典中的structure, table, view时，才需要指定 Structure"
    I_STRUCTURE_NAME       = 'ZALV_TB'  "ALV需要显示的字段结构"
    I_CLIENT_NEVER_DISPLAY = 'X'
  "I_BYPASSING_BUFFER     = I_BYPASSING_BUFFER"
  "I_BUFFER_ACTIVE        = ' '"
   CHANGING
      ct_fieldcat          = gt_fieldcat  "对应ALV显示的字段结构"
   EXCEPTIONS
      inconsistent_interface  = 1
      program_error           = 2
      others                  = 3.
* 若对某些字段有特殊设置，可循环内表按照要求更改参数值。
LOOP AT gt_fieldcat INTO gs_fieldcat.
  CASE gs_fieldcat-fieldname.
    WHEN 'MATNR'.
      ......
      MODIFY gt_fieldcat FROM gs_fieldcat.
      ......
    WHEN OTHERS.
  ENDCASE.
  CLEAR gs_fieldcat.
ENDLOOP.

DEFINE fieldcat.
   CLEAR gs_lvc_fieldcat.
   gs_lvc_fieldcat-FIELDNAME = &1.
   gs_lvc_fieldcat-SCRTEXT_L = &2.
   gs_lvc_fieldcat-SCRTEXT_M = &2.
   gs_lvc_fieldcat-SCRTEXT_S = &2.
   gs_lvc_fieldcat-COL_POS = &3.
   APPEND gs_lvc_fieldcat TO gt_lvc_fieldcat.
END-OF-DEFINITION.
fieldcat 'CARRID' '航线承运人' SY-TABIX.

DATA:gt_lvc_fieldcat TYPE LVC_T_FCAT,
     gs_lvc_fieldcat TYPE LVC_S_FCAT.
CLEAR gt_lvc_fieldcat.
CALL function 'LVC_FIELDCATALOG_MERGE'
  EXPORTING
    "I_BUFFER_ACTIVE        = I_BUFFER_ACTIVE"
    I_STRUCTURE_NAME       = 'ZALV_ST'  "ALV需要显示的字段结构"
    I_CLIENT_NEVER_DISPLAY = 'X'
    "I_BYPASSING_BUFFER     = I_BYPASSING_BUFFER"
    "I_INTERNAL_TABNAME     = 'INTERNAL_TABNAME' 
  CHANGING
    ct_fieldcat            = gt_lvc_fieldcat  "对应ALV显示的字段结构"
  EXCEPTIONS
    inconsistent_interface = 1
    program_error          = 2.

TYPES: BEGIN OF t_ekko,
  ebeln TYPE ekpo-ebeln,
  ebelp TYPE ekpo-ebelp,
  line_color(4) type c,     "Used to store row color attributes"
 END OF t_ekko.
DATA: gt_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      gs_ekko TYPE t_ekko.
DATA: layout type slis_layout_alv.
CLEAR layout.
layout-info_fieldname = 'LINE_COLOR'.
LOOP AT gt_ekko INTO gs_ekko.
  ld_color = ld_color + 1.
  IF ld_color = 8.
    ld_color = 1.
  ENDIF.
  CONCATENATE 'C' ld_color '10' INTO gs_ekko-line_color.
  MODIFY gt_ekko from gs_ekko.
  CLEAR gs_ekko.
ENDLOOP.

TYPES: BEGIN OF t_ekko,
  ebeln TYPE ekpo-ebeln,
  ebelp TYPE ekpo-ebelp,
  cellcolor TYPE lvc_t_scol,
 END OF t_ekko.
DATA: gt_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      gs_ekko TYPE t_ekko.
DATA: wa_cellcolor TYPE lvc_s_scol,
      lv_index TYPE sy-tabix.
DATA: layout type slis_layout_alv.
CLEAR layout.
layout-coltab_fieldname = 'CELLCOLOR'.
LOOP AT gt_ekko INTO gs_ekko.
  lv_index = sy-tabix.
  wa_cellcolor-fname = 'EBELN'.
  wa_cellcolor-color-col = '4'.
  wa_cellcolor-color-int = '1'.
  wa_cellcolor-color-inv = '0'.
  APPEND wa_cellcolor TO gs_ekko-cellcolor.
  MODIFY gt_ekko from gs_ekko INDEX ld_index TRANSPORTING cellcolor.
  CLEAR gs_ekko.
ENDLOOP.

TYPES: BEGIN OF t_ekko,
  ebeln TYPE ekpo-ebeln,
  ebelp TYPE ekpo-ebelp,
  field_style TYPE lvc_t_styl,
 END OF t_ekko.
DATA: gt_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      gs_ekko TYPE t_ekko.
DATA: it_fieldcat TYPE lvc_t_fcat,
      wa_fieldcat TYPE lvc_s_fcat,
      layout    TYPE lvc_s_layo.
DATA lt_styletab TYPE lvc_t_styl .
DATA ls_stylerow TYPE lvc_s_styl .
layout-stylefname = 'FIELD_STYLE'.
LOOP AT gt_ekko INTO gs_ekko.
  ls_stylerow-fieldname = 'NETPR' .
  ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled. "set field to disabled"
  INSERT ls_stylerow into table gs_ekko-field_style.
  MODIFY gt_ekko FROM gs_ekko.
  CLEAR gs_ekko.
ENDLOOP.

call function 'REUSE_ALV_GRID_DISPLAY_LVC'
  exporting
    i_callback_program       = sy-repid 
    i_callback_pf_status_set = 'PF_STATUS_SET'
    i_callback_user_command  = 'USER_COMMAND'
    is_layout_lvc            = layout
    it_fieldcat_lvc          = gt_fieldcat
    i_default                = 'X'
    i_save                   = 'X'
  tables
    t_outtab                 = gt_alv_data
  exceptions
    program_error            = 1.
      
GUI TITLE设置：
   GUI TITLE 用于定义Report标题栏内容.
 定义：
   Create-->GUI Titles：可以输入&符号作为Title,当程序运行时对其填充动态文本。
 在程序中调用：
   SET TITLEBAR 'TITLE_BAR' WITH SY-DATUM 'IFENER' 'BAR TEST'."设置TITLEBAR，并赋参数列表 

FORM pf_status_set using extab TYPE slis_t_extab.
  data: ls_slis_extab type slis_extab.
  "排除按钮不显示"
  ls_slis_extab-fcode = '&ABC'.
  APPEND ls_slis_extab TO extab.
  ......
  SET TITLEBAR 'TITLE' WITH text-t01.          "输入标题栏名称"
  SET PF-STATUS <STATUS_NAME> EXCLUDING extab. "输入自定义按钮工具的名称,并排除指定按钮"
ENDFORM.                    "pf_status_set"

Form user_command using p_ucomm type sy-ucomm
                     i_selfield type slis_selfield.
  data:ls_stable type lvc_s_stbl.
  data:lr_grid type ref to cl_gui_alv_grid.
  call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    importing
      e_grid = lr_grid.
  call method lr_grid->check_changed_data.
 CALL METHOD LR_GRID->REFRESH_TABLE_DISPLAY.
  i_selfield-refresh = 'X'.  "自动刷新"
  case p_ucomm.
    when 'ZPRT'.
      read table gt_disp into gs_disp with key check_box = 'X'.
      if sy-subrc = 0.
        perform frm_print_data.
      else.
        message e398(00) display like 'E'.
        return.
      endif.
    when '&IC1'. "对操作代码进行相应处理"
	  IF i_selfield-fieldname EQ 'FieldName' AND i_selfield-value NE space. "列名&单元格值"
      	DATA: ls_upload LIKE LINE OF gt_upload.
 		READ TABLE gt_upload INTO ls_upload INDEX rs_selfield-tabindex. "所在行"
  		CHECK sy-subrc EQ 0 AND ls_upload-aufnr NE space.
        "传入输入参数值并调用其他TCode"
 	    SET PARAMETER ID 'ANR' FIELD ls_upload-aufnr.
  	    CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN. "跳过第一屏屏幕"
      ENDIF.
  endcase.
 call method lr_grid->refresh_table_display.
ENDFORM.                    "user_command"

AT USER-COMMAND.  "当单击某个按钮时，触发该事件"
  CASE sy-ucomm.  "获取所操作按钮的功能代码(FUNCTION Code)"