ITPub博客

首页 > Linux操作系统 > Linux操作系统 > alv动态显示列

alv动态显示列

原创 Linux操作系统 作者:weilish 时间:2011-06-17 15:45:00 0 删除 编辑
report  z_zxp_test05.
tables: sflight.

data: t_sflight like table of sflight with header line.

data: begin of t_connid occurs 0,
        connid like sflight-connid,
      end of t_connid.

data: i_fieldcat like table of lvc_s_fcat,
      w_fieldcat like line of i_fieldcat.

field-symbols: type standard table.

parameters: p_carrid like sflight-carrid.

start-of-selection.

  perform. sub_calc_column.
  perform. sub_generate_itab.
  perform. sub_display.
*&---------------------------------------------------------------------*
*&      Form  sub_calc_column
*&---------------------------------------------------------------------*
*       1、取数并计算动态列
*----------------------------------------------------------------------*
form. sub_calc_column .

  select *
    from sflight
    into corresponding fields of table t_sflight
   where carrid = p_carrid.

  loop at t_sflight.
    t_connid-connid = t_sflight-connid.
    collect t_connid.
  endloop.

endform.                    " sub_calc_column
*&---------------------------------------------------------------------*
*&      Form  sub_generate_itab
*&---------------------------------------------------------------------*
*       2、生成动态列表,并填充数据
*----------------------------------------------------------------------*
form. sub_generate_itab .

  data: ep_table type ref to data,
        w_table type ref to data,
        p_connid(4).

  field-symbols: type any,
                 .

  define append_fieldcat.
    w_fieldcat-fieldname = &1.
    w_fieldcat-datatype  = &2.
    w_fieldcat-intlen    = &3.
    w_fieldcat-decimals  = &4.
    w_fieldcat-just      = &5.
    append w_fieldcat to i_fieldcat.
    clear: w_fieldcat.
  end-of-definition.

  append_fieldcat 'CARRID' 'CHAR' '3' '' 'L'.
  loop at t_connid.
    append_fieldcat t_connid-connid 'CURR' '13' '2' 'R'.
  endloop.

* 注:这里的EXPORTING、IMPORTING相对于程序来说,it_fieldcatalog是程序的输出参数,ep_table是程序得到的参数;
* 对于类方法来说it_fieldcatalog是输入参数,ep_table是输出参数(进到方法里可以看到it_fieldcatalog是EXPORTING
* 参数,ep_table是IMPORTING参数)
  call method cl_alv_table_create=>create_dynamic_table
    exporting
      it_fieldcatalog = i_fieldcat
    importing
      ep_table        = ep_table.

  assign ep_table->* to .
  create data w_table like line of .
  assign w_table->* to .

  loop at t_sflight.
    move-corresponding t_sflight to .
    read table t_connid with key connid = t_sflight-connid.
* 把结构的字段名为“t_sflight-connid的值”的数据参考变量赋值给字段符号(Field sysmbol,指针)
* 通过访问指针来访问数据参考变量的值,同理,也可以改变指针的值来修改数据参考变量的值。
* 注:ASSIGN COMPONENT + fieldname 中,fieldname字段类型必须为字符型。
    p_connid = t_sflight-connid.

    assign component p_connid of structure to .
    = t_sflight-price.
    at end of carrid.
      append to .
      clear: .
    endat.
  endloop.

endform.                    " sub_generate_itab
*&---------------------------------------------------------------------*
*&      Form  sub_display
*&---------------------------------------------------------------------*
*       3、显示动态列表的数据
*----------------------------------------------------------------------*
form. sub_display .

  type-pools: slis.

  data: g_variant like disvariant.                             "(不知道用途,有待研究)
  data: g_layout type slis_layout_alv.                         "优化设置
  data: i_fieldcat type slis_t_fieldcat_alv with header line.  "输出字段情况(必输项)
  data: git_event_exit type slis_t_event_exit,
        gw_event_exit like line of git_event_exit.             "Events for Callback(需了解的功能)

  data: p_mdvname like m_crama-ktext,
        p_connid(4).

  define add_it_alv.
    i_fieldcat-fieldname    = &1.
    i_fieldcat-seltext_l    = &2.
    i_fieldcat-outputlen    = &3.      "控制输出的宽度(在设置g_layout-colwidth_optimize = 'X'后,失效。)
    i_fieldcat-fix_column   = &4.
    i_fieldcat-key          = &5.
    i_fieldcat-just         = &6.
    i_fieldcat-decimals_out = &7.      "控制小数位
    i_fieldcat-round        = &8.
    i_fieldcat-no_zero      = &9.      "控制是否输出“0”
    append i_fieldcat.
    clear i_fieldcat.
  end-of-definition.

  refresh i_fieldcat.
  add_it_alv 'CARRID' '公司代码' '10' 'X' 'X' 'L' '' '' 'X'.
  loop at t_connid.
    concatenate '航班' t_connid-connid '价格' into p_mdvname.
    p_connid = t_connid-connid.
    add_it_alv p_connid p_mdvname '20' 'X' 'X' 'R' '2' '0' 'X'.
  endloop.

  g_layout-colwidth_optimize = 'X'.

  gw_event_exit-ucomm  = 'SUNTEST'.
  gw_event_exit-before = 'X'.
  gw_event_exit-ucomm  = '&IC1'.             "标准功能CODE:DOUBLE CLICK
  gw_event_exit-before = 'X'.                "标准功能前执行USER COMMAND
  append gw_event_exit to git_event_exit.

  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program      = sy-repid
      it_fieldcat             = i_fieldcat[]                  "必输项
      is_variant              = g_variant
      i_save                  = 'X'
      is_layout               = g_layout
      i_grid_title            = 'Sun Test Assign的动态用法'
      it_event_exit           = git_event_exit
      i_callback_user_command = 'FRM_UCOMM'                   "注:FRM_UCOMM是子程序的名称
    tables
      t_outtab                =                     "必输项
    exceptions
      program_error           = 1
      others                  = 2.

endform.                    " sub_display
*&---------------------------------------------------------------------*
*&      Form  FRM_UCOMM
*&---------------------------------------------------------------------*
*       4、自定义ALV的双击事件(i_callback_user_command = 'FRM_UCOMM')
*----------------------------------------------------------------------*
form. frm_ucomm using r_ucomm like sy-ucomm
                     rs_selfield type slis_selfield.

  case r_ucomm.
    when 'SUNTEST'. "双击

    when '&IC1'.
      if rs_selfield-fieldname eq 'MAKTX'.

      else.
        r_ucomm = '&ETA'.                    "强行将双击事件关联到F2,及界面上的查看按钮
      endif.
  endcase.

endform.                    "FRM_UCOMM

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/16794144/viewspace-700139/,如需转载,请注明出处,否则将追究法律责任。

上一篇: alv 帮助(转)
请登录后发表评论 登录
全部评论

注册时间:2009-11-20

  • 博文量
    66
  • 访问量
    137379