设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[fmalv] 一个alv的刷新和双击交互实例

Twilight发表于 2014-08-12 20:03Twilight 最后回复于 2014-08-12 20:03 [复制链接] 4319 0


程序代码：
  1. *type pools for ALV declarations
  2. TYPE-POOLS: slis.
  3. *structure declaration for tstc table
  4. TYPES : BEGIN OF ty_tstc,
  5.           tcode TYPE tcode,
  6.           pgmna TYPE program_id,
  7.           dypno TYPE dynpronr,
  8.         END OF ty_tstc.
  9. * Internal table and workarea declarations for tstc
  10. DATA: it_tstc TYPE STANDARD TABLE OF ty_tstc,
  11.       wa_tstc TYPE ty_tstc.
  12. *data declarations for ALV
  13. DATA: it_layout TYPE slis_layout_alv,
  14.       wa_fieldcat TYPE slis_fieldcat_alv,
  15.       it_fieldcat TYPE slis_t_fieldcat_alv,
  16.       it_eventexit TYPE slis_t_event_exit,
  17.       wa_eventexit TYPE slis_event_exit.
  18. *initialisation event
  19. INITIALIZATION.
  20. *start of selection event
  21. START-OF-SELECTION.
  22. *subroutine to fetch data from the db table
  23.   PERFORM fetch_data.
  24. *subroutine for output display
  25.   PERFORM alv_output.
  26. *&---------------------------------------------------------------------*
  27. *&      Form  fetch_data
  28. *&---------------------------------------------------------------------*
  29. *       *subroutine to fetch data from the db table
  30. *----------------------------------------------------------------------*
  31. FORM fetch_data.
  32. *Internal table and work area declaratin for TSTC (local tables)
  33.   DATA : lt_tstc TYPE STANDARD TABLE OF ty_tstc,
  34.          ls_tstc TYPE ty_tstc.
  35. *Static field definition
  36. *Reads the last tcode and stores it in l_tstc that on refresh further data
  37. *beyond this value is fetched
  38.   STATICS l_tstc TYPE tcode.

  40. * Selection from the tstc table
  41. *we select till 25 rows and on further refresh next 25 are selected
  42. *we select transactions having screen numbers only
  43.   SELECT tcode
  44.          pgmna
  45.          dypno
  46.          FROM tstc
  47.          INTO CORRESPONDING FIELDS OF TABLE lt_tstc
  48.          UP TO 25 ROWS
  49.          WHERE tcode GT l_tstc
  50.          AND dypno NE '0000'.
  51. * Code for transferring the values of local table to output table
  52. * for 25 rows as sy-tfill is 25.
  53. *In case there are no records a message pops up.
  54.   IF sy-subrc EQ 0.
  55.     DESCRIBE TABLE it_tstc.
  56.     READ TABLE lt_tstc INTO ls_tstc INDEX sy-tfill."内部表格，当前行号
  57.     l_tstc = ls_tstc-tcode.
  58.     it_tstc[] = lt_tstc[].
  59.   ELSE.
  60.     MESSAGE 'No Records found ' TYPE 'i'.
  61.   ENDIF.
  62. ENDFORM.                    "read_data
  63. *&---------------------------------------------------------------------*
  64. *&      Form  alv_output
  65. *&---------------------------------------------------------------------*
  66. *       text
  67. *----------------------------------------------------------------------*
  68. FORM alv_output.
  69. *subroutine to refresh alv
  70.   PERFORM event_exits.
  71. *field catalogue
  72.   PERFORM build_fieldcat.
  73. *Layout for alv
  74.   PERFORM build_layout.
  75. *output display
  76.   PERFORM alv_display.
  77. ENDFORM.                    "alv_output
  78. *&---------------------------------------------------------------------*
  79. *&      Form  event_exits
  80. *&---------------------------------------------------------------------*
  81. *       text
  82. *----------------------------------------------------------------------*
  83. *subroutine to refresh alv
  84. FORM event_exits.
  85.   CLEAR wa_eventexit.
  86.   wa_eventexit-ucomm = '&REFRESH'.    " Refresh
  87.   wa_eventexit-after = 'X'.
  88.   APPEND wa_eventexit TO it_eventexit.
  89. ENDFORM.                     "event_exits
  90. *&---------------------------------------------------------------------*
  91. *&      Form  build_fieldcat
  92. *&---------------------------------------------------------------------*
  93. *       text
  94. *----------------------------------------------------------------------*
  95. *Field catalogue
  96. FORM build_fieldcat.
  97.   CLEAR wa_fieldcat.
  98.   wa_fieldcat-row_pos   = '1'.
  99.   wa_fieldcat-col_pos   = '1'.
  100.   wa_fieldcat-fieldname = 'TCODE'.
  101.   wa_fieldcat-tabname   = 'it_tstc'.
  102.   wa_fieldcat-seltext_m = 'TRANSACTION'.
  103.   APPEND wa_fieldcat TO it_fieldcat.
  104.   CLEAR wa_fieldcat.
  105.   wa_fieldcat-row_pos   = '1'.
  106.   wa_fieldcat-col_pos   = '2'.
  107.   wa_fieldcat-fieldname = 'PGMNA'.
  108.   wa_fieldcat-tabname   = 'it_tstc'.
  109.   wa_fieldcat-seltext_m = 'PROGRAM'.
  110.   APPEND wa_fieldcat TO it_fieldcat.
  111.   CLEAR wa_fieldcat.
  112.   wa_fieldcat-row_pos   = '1'.
  113.   wa_fieldcat-col_pos   = '3'.
  114.   wa_fieldcat-fieldname = 'DYPNO'.
  115.   wa_fieldcat-tabname   = 'it_tstc'.
  116.   wa_fieldcat-seltext_m = 'SCREEN'.
  117.   APPEND wa_fieldcat TO it_fieldcat.
  118. ENDFORM.                     "build_fieldcat
  119. *&---------------------------------------------------------------------*
  120. *&      Form  build_layout
  121. *&---------------------------------------------------------------------*
  122. *       text
  123. *----------------------------------------------------------------------*
  124. *Layout
  125. FORM build_layout.
  126.   it_layout-zebra = 'X'.
  127.   it_layout-colwidth_optimize = 'X'.
  128. ENDFORM.                     "build_layout
  129. *&---------------------------------------------------------------------*
  130. *&      Form  alv_display
  131. *&---------------------------------------------------------------------*
  132. *       text
  133. *----------------------------------------------------------------------*
  134. *ALV output
  135. FORM alv_display.
  136.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  137.     EXPORTING
  138.       i_callback_program       = sy-repid
  139.       i_callback_user_command  = 'USER_COMMAND'
  140.       i_callback_pf_status_set = 'PFSTATUS'
  141.       it_fieldcat              = it_fieldcat
  142.       is_layout                = it_layout
  143.       it_event_exit            = it_eventexit
  144.       i_screen_start_column    = 10
  145.       i_screen_start_line      = 20
  146.       i_screen_end_column      = 70
  147.       i_screen_end_line        = 45
  148.       i_grid_title             = 'Call Tcode Refresh ALV'
  149.     TABLES
  150.       t_outtab                 = it_tstc.
  151. ENDFORM.                    "alv_display
  152. *&---------------------------------------------------------------------*
  153. *&      Form  user_command
  154. *&---------------------------------------------------------------------*
  155. *       text
  156. *----------------------------------------------------------------------*
  157. *User actions on ALV
  158. FORM user_command USING r_ucomm TYPE sy-ucomm
  159.                         rs_selfield TYPE slis_selfield.
  160.   CASE r_ucomm.
  161. *User clicks a transaction code and that tcode is called from ALV
  162.     WHEN '&IC1'.
  163.       READ TABLE it_tstc INDEX rs_selfield-tabindex INTO wa_tstc.
  164.       IF sy-subrc = 0.
  165.         CALL TRANSACTION wa_tstc-tcode.
  166.       ENDIF.
  167. *user clicks the refresh button and the next 25 records are displayed
  168.     WHEN '&REFRESH'.
  169.       PERFORM fetch_data.
  170.       rs_selfield-refresh    = 'X'.
  171.       rs_selfield-col_stable = 'X' .
  172.       rs_selfield-row_stable = 'X' .
  173.   ENDCASE.
  174. ENDFORM.                    "user_command
  175. *---------------------------------------------------------------------*
  176. *       FORM PFSTATUS                                            *
  177. *---------------------------------------------------------------------*
  178. *Form for settings the pf status to the alv
  179. FORM pfstatus USING ut_extab TYPE slis_t_extab.
  180.   SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.
  181. ENDFORM.                               " PF_STATUS_SET
复制代码

单击刷新按钮，会显示下一个25条记录，双击任何的transaction，会跳进t-code里
Call Tcode Refresh ALV.png
alv, 刷新, 双击

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11239 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-21 21:19 , Processed in 0.057540 second(s), 8 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表