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

[fmalv] REUSE_ALV_HIERSEQ_LIST_DISPLAY进行简单分层序列列表显示

Twilight发表于 2014-08-13 16:27yny038 最后回复于 2015-04-15 14:46 [复制链接] 5841 1

REUSE_ALV_HIERSEQ_LIST_DISPLAY函数是输出alv用多个表得时候使用,header是一个表,item也是一个表,根据header去找相应 得item,然后输出,可以参照标准程序mb51去看看
  1. *&-----------------------------------------------------------------------------
  2. *& AS : ALV code for simple hierarchical sequential list display(single child)
  3. *& List of SAP tables and their characteristics are displayed as the header
  4. *& table ( the parent table) and the list of fields and their characteristics
  5. *& form the item table(child table)
  6. *&----------------------------------------------------------------------------
  7. REPORT  ydamon_039.
  8. * type-pools declarations for alv and icon
  9. TYPE-POOLS: slis,icon.
  10. *structure declaration for table details
  11. TYPES : BEGIN OF ty_dd02l,
  12.         icon TYPE icon_d,
  13.         tabname TYPE tabname,
  14.         tabclass TYPE tabclass,
  15.         contflag TYPE contflag,
  16.         actflag TYPE actflag,
  17.         mainflag TYPE maintflag,
  18.         buffered TYPE buffered,
  19.         as4user TYPE as4user,
  20.         as4date TYPE as4date,
  21.         as4time TYPE as4time,
  22.         expand,
  23.         END OF ty_dd02l.

  25. *internal table and wa decln for table details
  26. DATA : it_dd02l TYPE STANDARD TABLE OF ty_dd02l,
  27.        wa_dd02l TYPE ty_dd02l.

  29. *structure declarations for field details
  30. TYPES : BEGIN OF ty_dd03l,
  31.         tabname TYPE tabname,
  32.         fieldname TYPE fieldname,
  33.         keyflag TYPE keyflag,
  34.         mandatory TYPE mandatory,
  35.         checktable TYPE checktable,
  36.         rollname TYPE rollname,
  37.         END OF ty_dd03l.
  38. *Internal table and wa decln for field details
  39. DATA : it_dd03l TYPE STANDARD TABLE OF ty_dd03l,
  40.        wa_dd03l TYPE ty_dd03l.
  41. *data declarations for ALV
  42. DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
  43.        wa_fieldcat TYPE slis_fieldcat_alv,
  44.        it_layout TYPE slis_layout_alv,
  45.        key TYPE slis_keyinfo_alv.
  46. *Input the tables.User cannot enter a range but can enter any number
  47. *of tables one by one in this select-options
  48. SELECT-OPTIONS : s_table FOR wa_dd02l-tabname NO INTERVALS.
  49. *initializatin event
  50. INITIALIZATION.
  51. *start-of-selection event
  52. START-OF-SELECTION.
  53. *subroutine to fetch the data from the tables
  54.   PERFORM fetch_tabledata.
  55. *subroutine to build alv hierarchy output
  56.   PERFORM hierarchyalv_build.
  57. *&---------------------------------------------------------------------*
  58. *&      Form  hierarchyalv_build
  59. *&---------------------------------------------------------------------*
  60. *       text
  61. *----------------------------------------------------------------------*
  62. *  -->  p1        text
  63. *  <--  p2        text
  64. *----------------------------------------------------------------------*
  65. FORM hierarchyalv_build .
  66. *fieldcatalogue
  67.   PERFORM build_fieldcat.
  68. *layout
  69.   PERFORM build_layout.
  70. *key information for hierarchy
  71.   PERFORM build_key.
  72. *output
  73.   PERFORM list_display.
  74. ENDFORM.                    " hierarchyalv_build
  75. *&---------------------------------------------------------------------*
  76. *&      Form  build_fieldcat
  77. *&---------------------------------------------------------------------*
  78. *       text
  79. *----------------------------------------------------------------------*
  80. *  -->  p1        text
  81. *  <--  p2        text
  82. *----------------------------------------------------------------------*
  83. FORM build_fieldcat .
  84.   CLEAR wa_fieldcat.
  85.   wa_fieldcat-col_pos = 1.
  86.   wa_fieldcat-fieldname = 'TABNAME'.
  87.   wa_fieldcat-tabname = 'IT_DD02L'.
  88.   wa_fieldcat-seltext_m = 'Tablename'.
  89.   wa_fieldcat-key = 'X'.
  90.   wa_fieldcat-emphasize = 'C610'.
  91.   APPEND wa_fieldcat TO it_fieldcat.

  93.   CLEAR wa_fieldcat.
  94.   wa_fieldcat-col_pos = 2.
  95.   wa_fieldcat-fieldname = 'TABCLASS'.
  96.   wa_fieldcat-tabname = 'IT_DD02L'.
  97.   wa_fieldcat-seltext_m = 'Tablecategory'.
  98.   wa_fieldcat-emphasize = 'C600'.
  99.   APPEND wa_fieldcat TO it_fieldcat.
  100.   CLEAR wa_fieldcat.


  103.   CLEAR wa_fieldcat.
  104.   wa_fieldcat-col_pos = 3.
  105.   wa_fieldcat-fieldname = 'CONTFLAG'.
  106.   wa_fieldcat-tabname = 'IT_DD02L'.
  107.   wa_fieldcat-seltext_m = 'DeliveryClass'.
  108.   wa_fieldcat-emphasize = 'C510'.
  109.   APPEND wa_fieldcat TO it_fieldcat.
  110.   CLEAR wa_fieldcat.

  112.   CLEAR wa_fieldcat.
  113.   wa_fieldcat-col_pos = 4.
  114.   wa_fieldcat-fieldname = 'ACTFLAG'.
  115.   wa_fieldcat-tabname = 'IT_DD02L'.
  116.   wa_fieldcat-seltext_m = 'Activationstatus'.
  117.   wa_fieldcat-emphasize = 'C500'.
  118.   APPEND wa_fieldcat TO it_fieldcat.
  119.   CLEAR wa_fieldcat.
  120.   wa_fieldcat-col_pos = 5.
  121.   wa_fieldcat-fieldname = 'MAINFLAG'.
  122.   wa_fieldcat-tabname = 'IT_DD02L'.
  123.   wa_fieldcat-seltext_m = 'MaintainenceFlag'.
  124.   wa_fieldcat-emphasize = 'C410'.
  125.   APPEND wa_fieldcat TO it_fieldcat.

  127.   CLEAR wa_fieldcat.
  128.   wa_fieldcat-col_pos = 6.
  129.   wa_fieldcat-fieldname = 'BUFFERED'.
  130.   wa_fieldcat-tabname = 'IT_DD02L'.
  131.   wa_fieldcat-seltext_m = 'BufferFlag'.
  132.   wa_fieldcat-emphasize = 'C400'.
  133.   APPEND wa_fieldcat TO it_fieldcat.
  134.   CLEAR wa_fieldcat.

  136.   CLEAR wa_fieldcat.
  137.   wa_fieldcat-col_pos = 7.
  138.   wa_fieldcat-fieldname = 'AS4USER'.
  139.   wa_fieldcat-tabname = 'IT_DD02L'.
  140.   wa_fieldcat-seltext_m = 'User'.
  141.   wa_fieldcat-emphasize = 'C310'.
  142.   APPEND wa_fieldcat TO it_fieldcat.
  143.   CLEAR wa_fieldcat.
  144.   CLEAR wa_fieldcat.
  145.   wa_fieldcat-col_pos = 8.
  146.   wa_fieldcat-fieldname = 'AS4DATE'.
  147.   wa_fieldcat-tabname = 'IT_DD02L'.
  148.   wa_fieldcat-seltext_m = 'Date'.
  149.   wa_fieldcat-emphasize = 'C300'.
  150.   APPEND wa_fieldcat TO it_fieldcat.
  151.   CLEAR wa_fieldcat.

  153.   CLEAR wa_fieldcat.
  154.   wa_fieldcat-col_pos = 9.
  155.   wa_fieldcat-fieldname = 'AS4TIME'.
  156.   wa_fieldcat-tabname = 'IT_DD02L'.
  157.   wa_fieldcat-seltext_m = 'Time'.
  158.   wa_fieldcat-emphasize = 'C210'.
  159.   APPEND wa_fieldcat TO it_fieldcat.
  160.   CLEAR wa_fieldcat.

  162.   CLEAR wa_fieldcat.
  163.   wa_fieldcat-col_pos = 10.
  164.   wa_fieldcat-fieldname = 'ICON'.
  165.   wa_fieldcat-tabname = 'IT_DD02L'.
  166.   wa_fieldcat-seltext_m = 'ICON'.
  167.   wa_fieldcat-icon = 'X'.
  168.   APPEND wa_fieldcat TO it_fieldcat.

  170.   CLEAR wa_fieldcat.
  171.   wa_fieldcat-col_pos = 11.
  172.   wa_fieldcat-fieldname = 'FIELDNAME'.
  173.   wa_fieldcat-tabname = 'IT_DD03L'.
  174.   wa_fieldcat-key = 'X'.
  175.   wa_fieldcat-seltext_m = 'Field'.
  176.   wa_fieldcat-emphasize = 'C600'.
  177.   APPEND wa_fieldcat TO it_fieldcat.


  180.   CLEAR wa_fieldcat.
  181.   wa_fieldcat-col_pos = 12.
  182.   wa_fieldcat-fieldname = 'KEYFLAG'.
  183.   wa_fieldcat-tabname = 'IT_DD03L'.
  184.   wa_fieldcat-seltext_m = 'Key'.
  185.   wa_fieldcat-emphasize = 'C500'.
  186.   APPEND wa_fieldcat TO it_fieldcat.



  190.   CLEAR wa_fieldcat.
  191.   wa_fieldcat-col_pos = 13.
  192.   wa_fieldcat-fieldname = 'CHECKTABLE'.
  193.   wa_fieldcat-tabname = 'IT_DD03L'.
  194.   wa_fieldcat-seltext_m = 'Checktable'.
  195.   wa_fieldcat-emphasize = 'C400'.
  196.   APPEND wa_fieldcat TO it_fieldcat.


  199.   CLEAR wa_fieldcat.
  200.   wa_fieldcat-col_pos = 14.
  201.   wa_fieldcat-fieldname = 'MANDATORY'.
  202.   wa_fieldcat-tabname = 'IT_DD03L'.
  203.   wa_fieldcat-seltext_m = 'Mandatory'.
  204.   wa_fieldcat-emphasize = 'C300'.

  206.   APPEND wa_fieldcat TO it_fieldcat.

  208.   CLEAR wa_fieldcat.
  209.   wa_fieldcat-col_pos = 15.
  210.   wa_fieldcat-fieldname = 'ROLLNAME'.
  211.   wa_fieldcat-tabname = 'IT_DD03L'.
  212.   wa_fieldcat-seltext_m = 'Dataelement'.
  213.   wa_fieldcat-emphasize = 'C200'.
  214.   APPEND wa_fieldcat TO it_fieldcat.
  215. ENDFORM.                    " build_fieldcat
  216. *&---------------------------------------------------------------------*
  217. *&      Form  build_layout
  218. *&---------------------------------------------------------------------*
  219. *       text
  220. *----------------------------------------------------------------------*
  221. *  -->  p1        text
  222. *  <--  p2        text
  223. *----------------------------------------------------------------------*
  224. FORM build_layout .
  225. *to expand the header table for item details
  226.   it_layout-expand_fieldname = 'EXPAND'.
  227.   it_layout-window_titlebar = 'Hierarchical ALV list display'.
  228.   it_layout-lights_tabname = 'IT_DD03L'.
  229.   it_layout-colwidth_optimize = 'X'.


  232. ENDFORM.                    " build_layout
  233. *&---------------------------------------------------------------------*
  234. *&      Form  build_key
  235. *&---------------------------------------------------------------------*
  236. *       text
  237. *----------------------------------------------------------------------*
  238. *  -->  p1        text
  239. *  <--  p2        text
  240. *----------------------------------------------------------------------*
  241. FORM build_key .
  242. *key infomation for the header and item table
  243.   key-header01 = 'TABNAME'.
  244.   key-item01 = 'TABNAME'.
  245. ENDFORM.                    " build_key
  246. *&---------------------------------------------------------------------*
  247. *&      Form  list_display
  248. *&---------------------------------------------------------------------*
  249. *       text
  250. *----------------------------------------------------------------------*
  251. *  -->  p1        text
  252. *  <--  p2        text
  253. *----------------------------------------------------------------------*
  254. FORM list_display .
  255. *ALV output
  256.   CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  257.     EXPORTING
  258.       i_callback_program = sy-cprog
  259.       is_layout          = it_layout
  260.       it_fieldcat        = it_fieldcat
  261.       i_tabname_header   = 'IT_DD02L'
  262.       i_tabname_item     = 'IT_DD03L'
  263.       is_keyinfo         = key
  264.     TABLES
  265.       t_outtab_header    = it_dd02l
  266.       t_outtab_item      = it_dd03l.
  267. ENDFORM.                    " list_display
  268. *&---------------------------------------------------------------------*
  269. *&      Form  fetch_tabledata
  270. *&---------------------------------------------------------------------*
  271. *       text
  272. *----------------------------------------------------------------------*
  273. *  -->  p1        text
  274. *  <--  p2        text
  275. *----------------------------------------------------------------------*
  276. FORM fetch_tabledata .
  277. *select table data
  278.   SELECT tabname
  279.           tabclass
  280.           contflag
  281.           actflag
  282.           mainflag
  283.           buffered
  284.           as4user
  285.           as4date
  286.           as4time
  287.           FROM dd02l
  288.           INTO CORRESPONDING FIELDS OF TABLE it_dd02l
  289.           WHERE tabname IN s_table.
  290. *select field data
  291.   IF it_dd02l[] IS NOT INITIAL.
  292.     SELECT tabname
  293.           fieldname
  294.           keyflag
  295.           mandatory
  296.           checktable
  297.           rollname
  298.           FROM dd03l
  299.           INTO CORRESPONDING FIELDS OF TABLE it_dd03l
  300.           FOR ALL ENTRIES IN it_dd02l
  301.           WHERE tabname EQ it_dd02l-tabname.
  302.   ENDIF.
  303. *adding icon to the header table
  304.   LOOP AT it_dd02l INTO wa_dd02l.
  305.     AT NEW tabname.
  306.       wa_dd02l-icon = '@3M@'.
  307.       MODIFY it_dd02l FROM wa_dd02l TRANSPORTING icon WHERE tabname EQ wa_dd02l-tabname.
  308.       CLEAR :  wa_dd02l.
  309.     ENDAT.
  310.   ENDLOOP.
  311. ENDFORM.                    " fetch_tabledata
复制代码


在选择屏幕填入表名，可多值
hierarchical sequential list 1.png
在相应表名前单击‘+’ ，我们就能获得这个表的全部字段的列表
hierarchical sequential list 2.png
分层, alv

相关帖子
回复

使用道具 举报

yny038
值得研究    谢谢楼主！！
回复 支持 反对

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 125 回帖
  3. 10821 积分
收听TA 发消息

Ta最近发表

快速回帖

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

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

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

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

平台客服 1204767879 无客服码

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