对ALV， FM形式进行总结

 

**********************************************************************数据声明

 

 

 

TYPE-POOLS : SLIS. "ALV使用必须声明的

 

 

 

 

DATA： i_events type slis_t_event,

              w_events like line of i_evenets,

              i_list type slis_t_listheader,

              w_list like line of i_list.

 

 

 Define mc_add_fieldcat.
  clear l_wa_fieldcat.
  l_wa_fieldcat-fieldname = &1.
  l_wa_fieldcat-seltext_l = &2.
  l_wa_fieldcat-key       = &3.
  l_wa_fieldcat-outputlen = &4.
  l_wa_fieldcat-no_zero   = &5.
  l_wa_fieldcat-just      = &6.
  append l_wa_fieldcat to lt_fieldcat.
  End-of-definition.

 

 Data: l_wa_fieldcat type slis_fieldcat_alv,
       l_wa_layout   type slis_layout_alv,

               lt_fieldcat  TYPE TABLE OF slis_t_fieldcat_alv.

---

 

  call function 'REUSE_ALV_EVENTS_GET'
    exporting
      i_list_type = 0
    importing
      et_events   = i_events.

  read table i_events
       with key name = slis_ev_top_of_page
       into w_events.
  if sy-subrc = 0.
    move 'ALV_TOP_OF_PAGE' to w_events-form.     "ALV表头
    modify i_events from w_events index sy-tabix.
  endif.

  read table i_events
       with key name = slis_ev_end_of_list
       into w_events.
  if sy-subrc = 0.
    move 'ALV_END_OF_LIST' to w_events-form.     "ALV表尾
    modify i_events from w_events index sy-tabix.
  endif.

  mc_add_fieldcat: 'CARRNAME'    '航班名称'    ''  '20' '' 'L' ,   "ALV的显示字段
                   'FLDATE'      '航班日期'    ''  '20' '' 'L' ,
                   'CITYFROM'    '起飞城市'    ''  '20' '' 'L' ,
                   'AIRPFROM'    '起飞机场'    ''  '20' '' 'L' ,
                   'CITYTO'      '目标城市'    '' '20' '' 'L' ,
                   'AIRPTO'      '目的机场'    ''  '20' '' 'L' ,
                   'DEPTIME'     '启程时间'    ''  '20' '' 'C' ,
                   'ARRTIME'     '到达时间'    ''  '20' '' 'C' ,
                   'PAYMENTSUM'  '当前预定总数' '' '20' '' 'R' .

  l_wa_layout-colwidth_optimize = 'X'.  "宽度自动优化
  l_wa_layout-box_fieldname = 'SEL'.   "必须大写
  l_wa_layout-edit_mode = 'X'.         "
  l_wa_layout-zebra = 'X'.
  l_wa_layout-f2code  = '&ETA'.    " 双击事件(明细事件)
*  l_wa_layout-detail_popup = 'X'. "双击事件


  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'SET_STATUS'
      i_callback_user_command  = 'USER_COMMAND'
    is_layout                = l_wa_layout
      i_save                   = 'A'
      it_fieldcat              = lt_fieldcat
      it_events                = i_events
      i_grid_title             = '  航班信息表--子标题'
    tables
      t_outtab                 = t_alvdata  " 用于显示ALV数据的显示内表
    exceptions
      program_error            = 1
      others                   = 2.

---

 

  form alv_top_of_page.   "ALV表头设计
  user_name = sy-uname.
  perform get_user_name changing user_name.

  clear: i_list[].
  w_list-typ  = 'H'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.
  concatenate  '航班信息表' '' into w_list-info.
  append w_list to i_list.

  w_list-typ  = 'S'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.
  w_list-info = '查 询 人：'.
  concatenate  w_list-info user_name into w_list-info.

  w_list-typ  = 'S'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.
  concatenate  w_list-info '  查询日期：' sy-datum+0(4) '/' sy-datum+4(2) '/' 

                      sy-datum+6(2)  into w_list-info.

  append w_list to i_list.

  call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_list.
endform.       

 

---

 

 form alv_end_of_list.       "ALV表尾设定
  data count type i.
  describe table t_data lines count.
  clear: i_list[].
  w_list-typ = 'S'.
  w_list-info = count.
  condense w_list-info.
  concatenate '查询结果:总记录数为 ' w_list-info  into w_list-info.
  append w_list to i_list.
  clear w_list_.

  call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_list
      .
endform.    

---

 

  form get_user_name  changing p_name.  "获取使用者姓名
  select single * from usr21 where bname = p_name. 
  select single * from adrp where persnumber = usr21-persnumber.

  check sy-subrc = 0.
  concatenate adrp-name_last adrp-name_first into p_name.  "名字连在一起
  condense p_name  no-gaps.             "除去空格
endform.               

 

---

 

form get_data.

 

endform.

 

---

 

FORM set_status USING rt_extab TYPE slis_t_extab.  "对应ALV调用方法时的set_status参数设置
  SET PF-STATUS 'ZBUTTON'.
ENDFORM.

 

---

 

FORM user_command USING ok_code TYPE sy-ucomm rs_selfield TYPE slis_selfield.
  CASE ok_code.
    WHEN 'BACK'.
      SUBMIT zalv_fm.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'EXPORT'.

    WHEN 'PRINT'.
  ENDCASE.
ENDFORM.