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

[ooalv] 在alv的Field catalogue中使用OOPS方式设置格式

Twilight发表于 2014-08-19 17:47Twilight 最后回复于 2014-08-19 17:47 [复制链接] 4330 0

设置这些格式需要
*Include for ALV styles
INCLUDE <cl_alv_control>.

程序代码：
  1. *Include for ALV styles
  2. INCLUDE <cl_alv_control>.
  3. *Type ppols for alv
  4. TYPE-POOLS : slis.
  5. *structure for t582a tbale
  6. TYPES : BEGIN OF ty_table,
  7.         infty TYPE infty,
  8.         pnnnn TYPE pnnnn_d,
  9.         zrmkz TYPE dzrmkz,
  10.         zeitb TYPE dzeitb,
  11.         dname TYPE dianm,
  12.         edynr TYPE edynp,
  13.         ldynr TYPE ldynp,
  14.         stypt TYPE stypt,
  15.         sytxt TYPE sytxt,
  16.         davo TYPE davo,
  17.         davoe TYPE davoe,
  18.         END OF ty_table.
  19. *Structure for infotype text
  20. TYPES : BEGIN OF ty_itext,
  21.         infty TYPE infty,
  22.         itext TYPE intxt,
  23.         sprsl TYPE sprsl,
  24.         END OF ty_itext.
  25. *Structure for output display
  26. TYPES : BEGIN OF ty_output,
  27.         infty TYPE infty,
  28.         itext TYPE intxt,
  29.         pnnnn TYPE pnnnn_d,
  30.         zrmkz TYPE dzrmkz,
  31.         zeitb TYPE dzeitb,
  32.         dname TYPE dianm,
  33.         edynr TYPE edynp,
  34.         ldynr TYPE ldynp,
  35.         stypt TYPE stypt,
  36.         sytxt TYPE sytxt,
  37.         davo TYPE davo,
  38.         davoe TYPE davoe,
  39.         text(6) TYPE c,
  40.         sradio(6) TYPE c,
  41.         scheck(6) TYPE c,
  42.       END OF ty_output.
  43. *internal table and work area declarations
  44. DATA : it_table TYPE STANDARD TABLE OF ty_table INITIAL SIZE 0,
  45.        it_output TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,
  46.        it_ittext TYPE STANDARD TABLE OF ty_itext INITIAL SIZE 0,
  47.        wa_table TYPE ty_table,
  48.        wa_output TYPE ty_output,
  49.        wa_ittext TYPE ty_itext.
  50. *Data declarations for ALV
  51. DATA: c_ccont TYPE REF TO cl_gui_custom_container,   "Custom container
  52.       c_alvgd         TYPE REF TO cl_gui_alv_grid,   "ALV grid object
  53.       it_fcat            TYPE lvc_t_fcat,            "Field catalogue
  54.       it_layout          TYPE lvc_s_layo.           "Layout

  56. *Field symbols declarations for style
  57. FIELD-SYMBOLS : <wa_fcat> TYPE lvc_s_fcat.
  58. *initialization event
  59. INITIALIZATION.
  60. *start of selection event
  61. START-OF-SELECTION.
  62. *select the infotypes maintained
  63.   SELECT infty
  64.           pnnnn
  65.           zrmkz
  66.           zeitb
  67.           dname
  68.           edynr
  69.           ldynr
  70.           stypt
  71.           sytxt
  72.           davo
  73.           davoe
  74.           FROM t582a UP TO 25 ROWS
  75.           INTO CORRESPONDING FIELDS OF TABLE it_table.
  76. * *Select the infotype texts
  77.   IF it_table[] IS NOT INITIAL.
  78.     SELECT itext
  79.              infty
  80.              sprsl
  81.              FROM t582s
  82.              INTO CORRESPONDING FIELDS OF TABLE it_ittext
  83.              FOR ALL ENTRIES IN it_table
  84.              WHERE infty = it_table-infty
  85.              AND sprsl = 'E'.
  86.   ENDIF.
  87. *Apppending the data to the internal table of ALV output
  88.   LOOP AT it_table INTO wa_table.
  89.     wa_output-infty = wa_table-infty.
  90.     wa_output-pnnnn = wa_table-pnnnn.
  91.     wa_output-zrmkz = wa_table-zrmkz.
  92.     wa_output-zeitb = wa_table-zeitb.
  93.     wa_output-dname = wa_table-dname.
  94.     wa_output-edynr = wa_table-edynr.
  95.     wa_output-ldynr = wa_table-ldynr.
  96.     wa_output-stypt = wa_table-stypt.
  97.     wa_output-sytxt = wa_table-sytxt.
  98.     wa_output-davo = wa_table-davo.
  99.     wa_output-davoe = wa_table-davoe.
  100. * For texts
  101.     READ TABLE it_ittext INTO wa_ittext WITH KEY infty = wa_table-infty.
  102.     wa_output-itext = wa_ittext-itext.
  103.     wa_output-text = wa_ittext-sprsl.
  104.     APPEND wa_output TO it_output.
  105.     CLEAR wa_output.
  106.   ENDLOOP.
  107. * Calling the ALV screen with custom container
  108.   CALL SCREEN 0600.
  109. *On this statement double click  it takes you to the screen painter SE51.
  110. *Enter the attributes
  111. *Create a Custom container and name it CC_CONT and OK code as OK_CODE.
  112. *Save check and Activate the screen painter.
  113. *Now a normal screen with number 600 is created which holds the ALV grid.
  114. * PBO of the actual screen ,
  115. * Here we can give a title and customized menus
  116. *&---------------------------------------------------------------------*
  117. *&      Module  STATUS_0600  OUTPUT
  118. *&---------------------------------------------------------------------*
  119. *       text
  120. *----------------------------------------------------------------------*
  121. MODULE status_0600 OUTPUT.
  122. *  SET PF-STATUS 'xxxxxxxx'.
  123. *  SET TITLEBAR 'xxx'.
  124. ENDMODULE.                 " STATUS_0600  OUTPUT
  125. * calling the PBO module ALV_GRID.
  126. *&---------------------------------------------------------------------*
  127. *&      Module  ALV_GRID  OUTPUT
  128. *&---------------------------------------------------------------------*
  129. *       text
  130. *----------------------------------------------------------------------*
  131. MODULE alv_grid OUTPUT.
  132.   CREATE OBJECT c_ccont
  133.        EXPORTING
  134.           container_name = 'CC_CONT'.
  135.   CREATE OBJECT c_alvgd
  136.        EXPORTING
  137.           i_parent = c_ccont.

  139. *  SET field for ALV
  140.   PERFORM alv_build_fieldcat.
  141. * Setting the styles for the ALV grid control
  142. * using field-symbols
  143.   LOOP AT it_fcat ASSIGNING <wa_fcat>.
  144. *For Each and every line of the fieldcat
  145.     CASE sy-tabix.
  146. *Color Styles
  147. *Background/Font/Group/positive/negative
  148.       WHEN '1'.
  149.         <wa_fcat>-style = alv_style_color_inv_positive.
  150.       WHEN '2'.
  151.         <wa_fcat>-style = alv_style_color_int_negative.
  152.       WHEN '3'.
  153.         <wa_fcat>-style = alv_style_color_inv_negative.
  154.       WHEN '4'.
  155.         <wa_fcat>-style = alv_style_color_int_positive.
  156.       WHEN '5'.
  157.         <wa_fcat>-style = alv_style_color_background.
  158.         <wa_fcat>-style = alv_style_color_inv_background.
  159.       WHEN '6'.
  160.         <wa_fcat>-style = alv_style_color_group.
  161.         <wa_fcat>-style = alv_style_color_int_background.
  162. *Style for F4
  163.       WHEN '7'.
  164.         <wa_fcat>-style = alv_style_f4.
  165. *Style for Alignment(others are also possible)
  166.       WHEN '8'.
  167.         <wa_fcat>-style = alv_style_align_left_bottom.
  168. *Style for Font Underlined/Bold and Italic are possible
  169.       WHEN '9'.
  170.         <wa_fcat>-style = alv_style_font_underlined.
  171. *Style for button type
  172.       WHEN '10'.
  173.         <wa_fcat>-style = alv_style_button.
  174. *Style for Font Symbol
  175.       WHEN '11'.
  176.         <wa_fcat>-style = alv_style_font_symbol.
  177. *Style for Radiobutton
  178.       WHEN '12'.
  179.         <wa_fcat>-style = alv_style_radio_checked.
  180. *Style for  checkbox
  181.       WHEN '13'.
  182.         <wa_fcat>-style = alv_style_checkbox_checked.
  183. *Style for column style characteristics(highlighting the col)
  184.       WHEN '14'.
  185.         <wa_fcat>-style = alv_col_style_characteristic.
  186. *Styles for Enabling the column
  187.       WHEN '15'.
  188.         <wa_fcat>-style = alv_style_enabled.
  189.     ENDCASE.
  190.   ENDLOOP.
  191. * Set ALV attributes FOR LAYOUT
  192.   PERFORM alv_report_layout.
  193.   CHECK NOT c_alvgd IS INITIAL.
  194. * Call ALV GRID
  195.   CALL METHOD c_alvgd->set_table_for_first_display
  196.     EXPORTING
  197.       is_layout                     = it_layout
  198.     CHANGING
  199.       it_outtab                     = it_output
  200.       it_fieldcatalog               = it_fcat
  201.     EXCEPTIONS
  202.       invalid_parameter_combination = 1
  203.       program_error                 = 2
  204.       too_many_lines                = 3
  205.       OTHERS                        = 4.
  206.   IF sy-subrc <> 0.
  207.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  208.                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  209.   ENDIF.
  210. ENDMODULE.                 " ALV_GRID  OUTPUT
  211. *&---------------------------------------------------------------------*
  212. *&      Form  alv_build_fieldcat
  213. *&---------------------------------------------------------------------*
  214. *       text
  215. *----------------------------------------------------------------------*
  216. *      <--P_IT_FCAT  text
  217. *----------------------------------------------------------------------*
  218. *subroutine to build fieldcat
  219. FORM alv_build_fieldcat.
  220.   DATA lv_fldcat TYPE lvc_s_fcat.
  221.   CLEAR lv_fldcat.
  222.   lv_fldcat-row_pos   = '1'.
  223.   lv_fldcat-col_pos   = '1'.
  224.   lv_fldcat-fieldname = 'INFTY'.
  225.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  226.   lv_fldcat-outputlen = 8.
  227.   lv_fldcat-scrtext_m = 'Infotype'.
  228.   lv_fldcat-icon = 'X'.
  229.   APPEND lv_fldcat TO it_fcat.
  230.   CLEAR lv_fldcat.
  231.   lv_fldcat-row_pos   = '1'.
  232.   lv_fldcat-col_pos   = '2'.
  233.   lv_fldcat-fieldname = 'PNNNN'.
  234.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  235.   lv_fldcat-outputlen = 15.
  236.   lv_fldcat-scrtext_m = 'Structure'.
  237.   lv_fldcat-icon = ''.
  238.   APPEND lv_fldcat TO it_fcat.
  239.   CLEAR lv_fldcat.
  240.   lv_fldcat-row_pos   = '1'.
  241.   lv_fldcat-col_pos   = '3'.
  242.   lv_fldcat-fieldname = 'ITEXT'.
  243.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  244.   lv_fldcat-outputlen = 60.
  245.   lv_fldcat-scrtext_m = 'Description'.
  246.   lv_fldcat-icon = ''.
  247.   APPEND lv_fldcat TO it_fcat.
  248.   CLEAR lv_fldcat.

  250.   lv_fldcat-row_pos   = '1'.
  251.   lv_fldcat-col_pos   = '4'.
  252.   lv_fldcat-fieldname = 'TEXT'.
  253.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  254.   lv_fldcat-outputlen = 5.
  255.   lv_fldcat-scrtext_m = 'General'.
  256.   lv_fldcat-icon = ''.
  257.   APPEND lv_fldcat TO it_fcat.
  258.   CLEAR lv_fldcat.


  261.   lv_fldcat-row_pos   = '1'.
  262.   lv_fldcat-col_pos   = '5'.
  263.   lv_fldcat-fieldname = 'ZRMKZ'.
  264.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  265.   lv_fldcat-outputlen = 1.
  266.   lv_fldcat-scrtext_m = 'PERIOD'.
  267.   lv_fldcat-icon = ''.
  268.   APPEND lv_fldcat TO it_fcat.
  269.   CLEAR lv_fldcat.
  270.   lv_fldcat-row_pos   = '1'.
  271.   lv_fldcat-col_pos   = '6'.
  272.   lv_fldcat-fieldname = 'ZEITB'.
  273.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  274.   lv_fldcat-outputlen = 60.
  275.   lv_fldcat-scrtext_m = 'Time constraint'.
  276.   lv_fldcat-icon = ''.
  277.   APPEND lv_fldcat TO it_fcat.
  278.   CLEAR lv_fldcat.
  279.   lv_fldcat-row_pos   = '1'.
  280.   lv_fldcat-col_pos   = '7'.
  281.   lv_fldcat-fieldname = 'DNAME'.
  282.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  283.   lv_fldcat-outputlen = 15.
  284.   lv_fldcat-scrtext_m = 'Dialogmodule'.
  285.   lv_fldcat-icon = ''.
  286.   APPEND lv_fldcat TO it_fcat.
  287.   CLEAR lv_fldcat.
  288.   lv_fldcat-row_pos   = '1'.
  289.   lv_fldcat-col_pos   = '8'.
  290.   lv_fldcat-fieldname = 'EDYNR'.
  291.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  292.   lv_fldcat-outputlen = 10.
  293.   lv_fldcat-scrtext_m = 'Single screenno'.
  294.   lv_fldcat-icon = ''.
  295.   APPEND lv_fldcat TO it_fcat.
  296.   CLEAR lv_fldcat.
  297.   lv_fldcat-row_pos   = '1'.
  298.   lv_fldcat-col_pos   = '9'.
  299.   lv_fldcat-fieldname = 'LDYNR'.
  300.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  301.   lv_fldcat-outputlen = 10.
  302.   lv_fldcat-scrtext_m = 'List screenno'.
  303.   lv_fldcat-icon = ''.
  304.   APPEND lv_fldcat TO it_fcat.
  305.   CLEAR lv_fldcat.

  307.   lv_fldcat-row_pos   = '1'.
  308.   lv_fldcat-col_pos   = '10'.
  309.   lv_fldcat-fieldname = 'STYPT'.
  310.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  311.   lv_fldcat-outputlen = 10.
  312.   lv_fldcat-scrtext_m = 'SubtypeTable'.
  313.   lv_fldcat-icon = ''.
  314.   APPEND lv_fldcat TO it_fcat.
  315.   CLEAR lv_fldcat.
  316.   lv_fldcat-row_pos   = '1'.
  317.   lv_fldcat-col_pos   = '11'.
  318.   lv_fldcat-fieldname = 'SYTXT'.
  319.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  320.   lv_fldcat-outputlen = 10.
  321.   lv_fldcat-scrtext_m = 'Font Symbol'.
  322.   lv_fldcat-icon = ''.
  323.   APPEND lv_fldcat TO it_fcat.
  324.   CLEAR lv_fldcat.

  326.   lv_fldcat-row_pos   = '1'.
  327.   lv_fldcat-col_pos   = '12'.
  328.   lv_fldcat-fieldname = 'SRADIO'.
  329.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  330.   lv_fldcat-outputlen = 10.
  331.   lv_fldcat-scrtext_m = 'RADIO'.
  332.   lv_fldcat-icon = ''.
  333.   APPEND lv_fldcat TO it_fcat.
  334.   CLEAR lv_fldcat.
  335.   lv_fldcat-row_pos   = '1'.
  336.   lv_fldcat-col_pos   = '13'.
  337.   lv_fldcat-fieldname = 'SCHECK'.
  338.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  339.   lv_fldcat-outputlen = 10.
  340.   lv_fldcat-scrtext_m = 'CHECK'.
  341.   lv_fldcat-icon = ''.
  342.   APPEND lv_fldcat TO it_fcat.
  343.   CLEAR lv_fldcat.
  344.   lv_fldcat-row_pos   = '1'.
  345.   lv_fldcat-col_pos   = '14'.
  346.   lv_fldcat-fieldname = 'DAVO'.
  347.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  348.   lv_fldcat-outputlen = 10.
  349.   lv_fldcat-scrtext_m = 'Start Date'.
  350.   lv_fldcat-icon = ''.
  351.   APPEND lv_fldcat TO it_fcat.
  352.   CLEAR lv_fldcat.
  353.   lv_fldcat-row_pos   = '1'.
  354.   lv_fldcat-col_pos   = '15'.
  355.   lv_fldcat-fieldname = 'DAVOE'.
  356.   lv_fldcat-tabname   = 'IT_OUTPUT'.
  357.   lv_fldcat-outputlen = 10.
  358.   lv_fldcat-scrtext_m = 'End date'.
  359.   lv_fldcat-icon = ''.
  360.   APPEND lv_fldcat TO it_fcat.
  361.   CLEAR lv_fldcat.
  362. ENDFORM.                    " alv_build_fieldcat
  363. *&---------------------------------------------------------------------*
  364. *&      Form  alv_report_layout
  365. *&---------------------------------------------------------------------*
  366. *       text
  367. *----------------------------------------------------------------------*
  368. *      <--P_IT_LAYOUT  text
  369. *----------------------------------------------------------------------*
  370. *Subroutine for setting alv layout
  371. FORM alv_report_layout.
  372.   it_layout-cwidth_opt = 'X'.
  373.   it_layout-zebra = 'X'.
  374.   it_layout-col_opt = 'X'.

  376. ENDFORM.                    " alv_report_layout
  377. * PAI module of the screen created. In case we use an interactive ALV or
  378. *for additional functionalities we can create OK codes
  379. *and based on the user command we can do the coding.
  380. *&---------------------------------------------------------------------*
  381. *&      Module  USER_COMMAND_0600  INPUT
  382. *&---------------------------------------------------------------------*
  383. *       text
  384. *----------------------------------------------------------------------*
  385. MODULE user_command_0600 INPUT.
  386. ENDMODULE.                 " USER_COMMAND_0600  INPUT
复制代码


程序执行效果：
alv styles using oops.png
ooalv, oops, style, Field

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

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

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

平台客服 1204767879 无客服码

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