ALV GRID

合集下载

ABAP ALV 总结整理

主题一：ABAP ALV 总结整理目录一、ALV简介1、简介2、ALV_GRID介绍3、其它描述二、开发ALV的基本流程三、ALV相关开发细节1、标准ALV与对象ALV的共同开发细节2、标准ALV开发相关细节3、对象ALV开发相关细节四、注意事项五、附属信息1、ALV快捷工具栏功能说明（如下图）2、类型SLIS_FIELDCAT_ALV常用参数说明3、类型SLIS_T_SORTINFO_ALV常用参数说明4、类型SLIS_LAYOUT_ALV常用参数说明5、类型SLIS_T_EVENT常用参数说明6、结构LVC_S_FCAT参数说明(清单观察器控制的字段目录)7、结构LVC_S_LAYO参数说明(ALV 控制: 布局结构)8、打印的参数控制请参考结构 [LVC_S_PRNT]9、排序的参数控制请参考结构[LVC_S_SORT]11、'REUSE_ALV_GRID_DISPLAY'函数常用参数12、'REUSE_ALV_LIST_DISPLAY'函数常用参数13、方法"set_table_for_first_display"的参数说明14、方法"REFRESH_TABLE_DISPLAY"的参数说明六、ALV常见问题七、示例程序一、ALV简介1、简介ALV――SAP LIST VIEWER是SAP中的一种报表方式，这里姑且称之为ABAP表单浏览器，用它可以标准化，简单化R/3系统中的表单，它可以提供给用户一个统一的表单格式及用户接口。

ALV是系统的一种网格的显示方式,这种方式带有汇总\排序\筛选等功能,ALV格式的数据是以单元格为单位显示，SAP提供了一套ALV的功能模块，可以对输出报表的样式作修饰，提高报表输出的可读性和功能性，对于动态报表程序是一个很有效率的工具。

ALV家族包含3中ALV工具:简易的,两层ALV,分等级连续的列表和树形结构的ALV。

ABAP ALV详解

ALV GRID参考文档SAP HELP对ALV的定义如下：The ALV grid control is a flexible tool for displaying lists. The tool provides common list operations as generic functions and can be enhanced by self-defined options。

ALV Grid控件用来创建非层次的友好的交互式报表。

作为一个控件，他被安装在本地机的客户端上。

ALV Grid控件提供了典型的常用功能，比如排序，筛选和总计等。

同时他也提供了自开发功能的接口。

它提供了大量与excel和水晶报表的接口。

类CL_GUI_GRID用来实现ALV GRID控件的各种功能。

还可以使用：REUSE_ALV….这些功能模块，来实现ALV报表。

当我们想通过ALV来实现报表时，我们通常需要准备一下几个部分：1)List data；就是你要显示的内表。

除排序功能之外，ALV GRID的控件只是读取所要显示的内表中的内容。

然而，排序将会改表内表的状态。

所要显示的内表可以包含任何flat type的数据。

如果要显示deep type的数据，那可能就要设定ALV GRID的某些特定功能。

2)Field Catalog: 使用另外一个内表来定义ALV报表的每一个字段的显示方式。

Fieldcatalog可以通过三种方式来实现：自动生成，半自动和手动生成。

这个内表的类型必须是LVC_T_FCAT3)Layout Structure: 我们可以通过这个结构来设置ALV的显示格式。

用这个结构我们可以用来设置ALV的常用选项，对GRID控件的配置，汇总选项已经颜色等。

这个结构的类型必须是LVC_S_LAYO4)Event Handler: 如果我们想在alv grid中触发时间，可以通过事件处理类来实现，必须注册一个事件处理类的实例来处理alv grid的事件。

ALV详解_SAP精华篇

ALV详解_SAP精华篇一.ALV介绍The ALV Grid Control (ALV = S A P L ist V iewer)是一个显示列表的灵活的工具,它提供了基本功能的列表操作,也可以通过自定义来进行增强,因此可以允许你可以在大型的应用程序中使用.SAP提示: 在SAP的开发项目中,ALV GRID也可以作为修改和创建数据的一种工具,然而,目前这个功能只在实验计划中使用,还没有向客户发布.下面是一个ALV GRID的图片:它包括3大部分,工具栏,标题,用于显示数据的网格控制器.如果有必要，用户可以隐藏标题和工具栏.ALV家族包含3中ALV工具:简易的,两层ALV,分等级连续的列表和树形结构的ALV.二.ALV GRID CONTROL (ALV网格控制器)ALV GRID CONTROL使用了控制器技术以实现艺术性的屏幕显示,象所有的控制器一样，ALV GRID CONTROL通过系统中的一个全局的类提供了方法,以响应它的动作.使用了ABAP的对象以后,列表是通过ALV的一个实例(INSTANCE)来显示的,程序员可以使用ABAP对象的事件管理.三.ALV GRID CONTROL 实例ALV GRID实例的定义,参照CL_GUI_ALV_GRID类data ALV_GRID1 type ref to cl_gui_alv_grid.ALV GRID继承结构:四、ALV GRID相关的几个控制结构1.字段目录[Field catalog]字段目录是用来控制ALV显示的网格中每个字段的属性的,比如字段的顺序,对齐方式,可编辑状态,颜色,等等.常用的控制字段如下:(下面的示例将说明这些字段的使用,参考STRUCTURE LVC_S_FCAT)2.布局控制[layout]布局是用来控制整个ALV的一个布局，比如ALV的标题,是否可编辑,行颜色,列颜色.参照ALV的控制结构[LVC_S_LAYO],以后的例子我将详细介绍如何设置行颜色和列颜色.详细的结构说明3.打印和排序,过滤控制打印的参数控制请参考结构[LVC_S_PRNT]排序的参数控制请参考结构[LVC_S_SORT]过滤的参数控制请参考结构[LVC_S_FILT]这里不再一一解释,进入中文版本,里面应该也有解释的,虽然一些不是很清楚.五.编写简单的ALV程序.首先这里就不详细介绍DIALOG的用法了.OO的ALV GRID必须存在于一个容器当中,就是FUNCTION的ALV,其实也是一样的,底层也是使用CL_GUI_ALV_GRID这个类的.首先ALV的显示需要有几个先决条件.1,字段目录,这个是必须的,如果没有这个参数,参考一个数据字典也是可以的,就是参数I_STRUCTURE_NAME.2.存放数据的内表,最好内表的结构和字段目录是一致的,否则可能会出现一些无法预知的错误,当然你说我非要不一样,那也不一定会出现错误.我建议是最好一样的.这2个是必须的,布局的话,应该是可以不设置的,使用默认的就可以了.第一步:创建个SCREEN,在屏幕上创建个容器,CONTAINER.定义变量.DATA:WCL_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,WCL_ALV TYPE REF TO CL_GUI_ALV_GRID .*--- 存放字段目录的内表DATA gt_fieldcat TYPE lvc_t_fcat .*--- 布局结构DATA gs_layout TYPE lvc_s_layo .*----声明需要显示的内表(以SFLIGHT为例)DATA BEGIN OF gt_list OCCURS 0 .INCLUDE STRUCTURE SFLIGHT .DATA END OF gt_list .第二步: 创建ALV这个对象，它的父组件是那个容器.在PBO中写入如下代码:PROCESS BEFORE OUTPUT .MODULE display_alv .创建DISPLAY_ALV的MODULE后,写下如下代码:MODULE display_alv OUTPUT .PERFORM display_alv .ENDMODULE .在FORM DISPLAY_ALV中,判断ALV实例是否存在,如果不存在,则创建:IF WCL_ALV IS INITIAL .CREATE OBJECT: WCL_CONTAINEREXPORTINGCONTAINER_NAME = 'ALV_CON'.CREATE OBJECT WCL_ALVEXPORTINGI_PARENT = WCL_CONTAINER.*-----准备获取字段目录PERFORM prepare_field_catalog CHANGING gt_fieldcat .*-----设置布局PERFORM prepare_layout CHANGING gs_layout .*-----显示ALVCALL METHOD gr_alvgrid->set_table_for_first_display EXPORTING* I_BUFFER_ACTIVE =* I_CONSISTENCY_CHECK =* I_STRUCTURE_NAME =* IS_VARIANT =* I_SAVE =* I_DEFAULT = 'X'is_layout = gs_layout* IS_PRINT =* IT_SPECIAL_GROUPS =* IT_TOOLBAR_EXCLUDING =* IT_HYPERLINK =CHANGINGit_outtab = gt_list[]it_fieldcatalog = gt_fieldcat* IT_SORT =* IT_FILTER =EXCEPTIONSinvalid_parameter_combination = 1program_error = 2too_many_lines = 3OTHERS = 4 .ELSE .*----刷新ALVCALL METHOD gr_alvgrid->refresh_table_display * EXPORTING* IS_STABLE =* I_SOFT_REFRESH =EXCEPTIONSfinished = 1OTHERS = 2 .IF sy-subrc <> 0.*--异常处理ENDIF.ENDIF .方法"set_table_for_first_display"的参数说明方法"REFRESH_TABLE_DISPLAY"的参数说明第三步,获取要显示数据的字段目录.有两种方式.1.手动创建FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat .DATA ls_fcat type lvc_s_fcat .ls_fcat-fieldname = 'CARRID' .ls_fcat-inttype = 'C' .ls_fcat-outputlen = '3' .ls_fcat-coltext = 'Carrier ID' .ls_fcat-seltext = 'Carrier ID' .APPEND ls_fcat to pt_fieldcat .CLEAR ls_fcat .ls_fcat-fieldname = 'CONNID' .ls_fcat-ref_table = 'SFLIGHT' .ls_fcat-ref_table = 'CONNID' .ls_fcat-outputlen = '3' .ls_fcat-coltext = 'Connection ID' .ls_fcat-seltext = 'Connection ID' .APPEND ls_fcat to pt_fieldcat .ENDFORM .2.半自动的创建FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat . DATA ls_fcat type lvc_s_fcat .CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'EXPORTINGi_structure_name = 'SFLIGHT'CHANGINGct_fieldcat = pt_fieldcat[]EXCEPTIONSinconsistent_interface = 1program_error = 2OTHERS = 3.IF sy-subrc <> 0.*--Exception handlingENDIF.LOOP AT pt_fieldcat INTO ls_fcat .CASE pt_fieldcat-fieldname .WHEN 'CARRID' .ls_fcat-outpulen = '10' .ls_fcat-coltext = 'Airline Carrier ID' .MODIFY pt_fieldcat FROM ls_fcat .WHEN 'PAYMENTSUM' .ls_fcat-no_out = 'X' .MODIFY pt_fieldcat FROM ls_fcat .ENDCASE .ENDLOOP .ENDFORM .第四步,设置布局FORM prepare_layout CHANGING ps_layout TYPE lvc_s_layo.ps_layout-zebra = 'X' .ps_layout-grid_title = 'Flights' .ps_layout-smalltitle = 'X' .ENDFORM. " prepare_layout第五步,排除不需要的标准按钮(可选,这个是第一种方法,还有另外一种，在添加自定义的按钮的时候介绍)在你的ALV上，如果你想排除一些你不想要的标准按钮,你可以把需要排除的按钮填入到表UI_FUNCTIONS中,然后传给set_table_for_first_display方法的参数"IT_TOOLBAR_EXCLUDING".这些按钮的功能码一般都可以通过查看类cl_gui_alv_grid的常量属性中获取到,或者自己加个断点，在after_user_command事件中.如果你要隐藏全部的工具条,你可以把layout中的no_toolbar设置为"X".FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .DATA ls_exclude TYPE ui_func.ls_exclude = cl_gui_alv_grid=>mc_fc_maximum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_minimum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_subtot .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_sum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_average .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_mb_sum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_mb_subtot .ENDFORM .按照上面的步骤,一个ALV的DEMO基本可以创建了.下面我们将讲述一些功能.功能一:在第一次显示以后,修改字段目录和布局.在运行的时候,很有可能需要在显示之后,需要设置一个新的布局或者字段目录.有下面这些方法去实现.字段目录: get_frontend_fieldcatalogset_frontend_fieldcatalog布局:get_frontend_layoutset_frontend_layout使用这些方法,你在执行的任何时候,可以获取这些内容,然后修改他们.DATA ls_fcat TYPE lvc_s_fcat .DATA lt_fcat TYPE lvc_t_fcat .DATA ls_layout TYPE lvc_s_layo .CALL METHOD gr_alvgrid->get_frontend_fieldcatalogIMPORTINGet_fieldcatalog = lt_fcat[] .LOOP AT lt_fcat INTO ls_fcat .IF ls_fcat-fieldname = 'PAYMENTSUM' .ls_fcat-no_out = space .MODIFY lt_fcat FROM ls_fcat .ENDIF .ENDLOOP .CALL METHOD gr_alvgrid->set_frontend_fieldcatalogEXPORTINGit_fieldcatalog = lt_fcat[] .CALL METHOD gr_alvgrid->get_frontend_layoutIMPORTINGes_layout = ls_layout .ls_layout-grid_title = 'Flights (with Payment Sums)' .CALL METHOD gr_alvgrid->set_frontend_layoutEXPORTINGis_layout = ls_layout .功能二:设置排序条件有时候我们需要使用到数据的排序.这个可以通过填充参考结构LVC_T_SORT创建的内表来实现，这个内表中包含了排序的标准.可以传递给set_table_for_first_display这个方法的IT_SORT参数来初始化一个排序.FORM prepare_sort_table CHANGING pt_sort TYPE lvc_t_sort .DATA ls_sort TYPE lvc_s_sort .ls_sort-spos = '1' .ls_sort-fieldname = 'CARRID' .ls_sort-up = 'X' . "A to Zls_sort-down = space .APPEND ls_sort TO pt_sort .ls_sort-spos = '2' .ls_sort-fieldname = 'SEATSOCC' .ls_sort-up = space .ls_sort-down = 'X' . "Z to AAPPEND ls_sort TO pt_sort .ENDFORM. " prepare_sort_table这有2点特别的说明:1.如果这边排序的字段名，不存在于字段目录中，那将出现DUMP.2.排序以后,垂直的网格中，如果出现相同的内容,就会合并，如果要避免,请在布局中设置"no_merging"为"X" .你可以通过使用方法“get_sort_criteria” 和“set_sort_criteria”来获取和设置排序的标准.功能三:设置过滤(和排序类似)ALV的标准按钮中已经有过滤的功能,我们也可以在初始显示的时候就设置过滤条件.我们需要把过滤条件填充到参考表类型"LVC_T_FILT"创建的内表中.过滤条件是类似一个RANGES结构的.然后把这个内表传递给方法"SET_TABLE_FOR_FIRST_DISPLAY"中的参数"IT_FILTER"FORM prepare_filter_table CHANGING pt_filt TYPE lvc_t_filt .DATA ls_filt TYPE lvc_s_filt .ls_filt-fieldname = 'FLDATE' .ls_filt-sign = 'E' .ls_filt-option = 'BT' .ls_filt-low = '20030101' .ls_filt-high = '20031231' .APPEND ls_filt TO pt_filt .ENDFORM. " preparefiltertable我们可以使用"get_filter_criteria" 和"set_filter_criteria"来获取过滤条件和设置过滤条件.功能四:选择方式有时候，我们需要选择一些单元格,行或者列,在布局中，有个参数"SEL_MODE"可以设置我们不同的选择方式.下面是参数的介绍.和不同的地方.注意:1.如果你设置了ALV是可编辑的,可能会覆盖你在布局中选择方式的设置的.2.设置了选择方式以后,我们可以使用很多方法来获取用户的选择.比如"GET_SELECTED_CELLS","GET_SELECTED_CELLS_ID","GET_SELECTED_R OWS","GET_SELECTED_COLUMNS"3.在执行PAI以后,用户所选择的单元格,行或者列可能丢失.你可以在PBO中,使用对应的SET方法来恢复这些选择.功能五:颜色设置有的时候,我们需要在ALV网格上绘上一些颜色.可以给特定的行，某个特定的列,某个特定的单元格绘制颜色.如果某列被设置为关键列,这列的颜色将被自动绘制,而不需要我们额外的指定.先介绍ALV里色码.就是颜色编码,4位CHAR型.Cx y z---Color | | || 1/0: 相反开/关1/0: 强化开/关其中C是固定的第一位,第二位代表是颜色编码(1到7),第三位是加强的设置,第四位是相反,个人理解,在强化关闭的情况下,相反的作用是背景和字体的变化.颜色编码:A)设置列的颜色.我们可以通过字段目录的"emphasize"控制字段来控制某列的颜色.这个字段同样是4位的CHAR型,传入上述的颜色编码.例如:LS_FCAT-EMPHASIZE = 'C701'.如果这列被设置为关键列,就是 LS_FCAT-KEY = 'X' ,那么颜色设置就不会起作用.请注意,自动产生的字段目录中，KEY的设置是自动获取的.B)设置行的颜色为某行设置颜色,是有点复杂的,我们需要在要显示的数据内表中增加一个字段,这个字段不需要在字段目录中存在.同样,这个字段也是4位的CHAR型,符合颜色编码的定义.那我们就需要这样来定义我们的数据内表:DATA BEGIN OF gt_list OCCURS 0 .INCLUDE STRUCTURE SFLIGHT .DATA rowcolor(4) TYPE c .DATA END OF gt_list .很明显，填入颜色编码以后,ALV怎么知道它是我们用来设置颜色的呢,在布局中，有个控制字段"INFO_FNAME",我们可以设置这个字段来告诉ALV,我们的颜色字段是哪个.ps_layout-info_fname = 'ROWCOLOR'.请注意,这个字段随便你起名字,但是记住,一定是数据内表里的字段，而且这边设置的时候一定要大写.你可以在任何时候设置行的颜色,只需要去修改内表里的这个字段的值,但是记得,一定要刷新以后才起作用.C)设置单元格的颜色设置单元格和设置行的颜色,本质上没有什么大的区别,但是定位单元格需要2个参数.我们需要在数据内表中插入一个表类型的字段，这样我们的数据内表就变成了DEEP结构了,不过ALV是可以处理的.不需要担心.插入的这个表类型的类型为"LVC_T_SCOL".里面有3个参数:FNAME告诉我们你需要设置的是哪个字段,如果为空，然后直接在COLOR中设置颜色,就是整行设置为这个颜色.如果具体到某个单元格,必须指定是哪个字段.COLOR字段是用来设置颜色的.NOKEYCOL字段比较关键了.设置为关键列的一些字段,我们的颜色设置可能被覆盖.通过这个字段的设置,可以避免被关键列覆盖.同样,ALV在布局中有个字段"CTAB_FNAME"告诉我们,数据内表中，哪个字段是用来设置单元格的颜色的.DATA BEGIN OF gt_list OCCURS 0 .INCLUDE STRUCTURE SFLIGHT .DATA rowcolor(4) TYPE c .DATA cellcolors TYPE lvc_t_scol .DATA END OF gt_list .DATA ls_cellcolor TYPE lvc_s_scol ....READ TABLE gt_list INDEX 5 .ls_cellcolor-fname = 'SEATSOCC' .ls_cellcolor-color-col = '7' .ls_cellcolor-color-int = '1' .APPEND ls_cellcolor TO gt_list-cellcolors .MODIFY gt_list INDEX 5 .注意:颜色设置中有优先级顺序,他们是单元格--->行--->列.功能六:插入超链接插入超链接是通过一个含有超级链接和句柄的表来实现的.这个表类型为"LVC_T_HYPE" ,句柄是一个INT4类型的字段,我们需要在数据显示的内表中，加入这样的字段，来告诉ALV,我们的字段指定的句柄,从而找到对应的超级链接.在字段目录中,WEB_FIELD是用来指定对应的句柄名的.下面举个例子来说明,我们要为字段CARRID,CONNID建立超级链接:首先,内表定义中，我们加入2个句柄字段:DATA BEGIN OF gt_list OCCURS 0 .INCLUDE STRUCTURE SFLIGHT .DATA rowcolor(4) TYPE c .DATA cellcolors TYPE lvc_t_scol .DATA carrid_handle TYPE int4 .DATA connid_handle TYPE int4 .DATA END OF gt_list .第二: 建立一个超级链接内表,里面存放句柄所对应的超级链接.创建的时候注意,它参考的表类型,一定是"LVC_T_HYPE".FORM prepare_hyperlinks_table CHANGING pt_hype TYPE lvc_t_hype .DATA ls_hype TYPE lvc_s_hype .ls_hype-handle = '1' .ls_hype-href = '/carrids/car1' .APPEND ls_hype TO pt_hype .ls_hype-handle = '2' .ls_hype-href = '/carrids/car1' .APPEND ls_hype TO pt_hype .ls_hype-handle = '3' .ls_hype-href = '/carrids/car1' .APPEND ls_hype TO pt_hype .ls_hype-handle = '4' .ls_hype-href = '/connids/con11' .APPEND ls_hype TO pt_hype .ls_hype-handle = '5' .ls_hype-href = '/connids/con12'APPEND ls_hype TO pt_hype ... ..ENDFORM .第三.通过字段目录FIELDCATLOG来指定相应的句柄字段.对于CARRID的field catalogLs_fieldcat-web_field = …CARRID_HANDLE‟.对于CONNID的field catalogLs_fieldcat-web_field = …CONNID_HANDLE‟.在方法"SET_TABLE_FOR_FIRST_DISPLAY"中把句柄内表传给参数it_hyperlink。

cl_gui_alv_grid例子

cl_gui_alv_grid例⼦*&---------------------------------------------------------------------**& Report ZTEST032*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT ZTEST032MESSAGE-ID 00.TABLES:SPFLI.CLASS cl_event_handle DEFINITION. "定义事件处理类PUBLIC SECTION."初始化ALV⼯具栏对象事件，如增加按钮并设定属性METHODS handle_toolbar FOR EVENT toolbar OF cl_gui_alv_gridIMPORTING e_object e_interactive."该事件⽤于在下ALV⼯具栏的下拉菜单按钮中增加选项METHODS handle_menu_button FOR EVENT menu_button OF cl_gui_alv_gridIMPORTING e_object e_ucomm."ALV⼯具栏按钮的点击事件METHODS handle_user_command FOR EVENT user_command OF cl_gui_alv_gridIMPORTING e_ucomm."ALV表格双击事件METHODS handle_double_click FOR EVENT double_click OF cl_gui_alv_gridIMPORTING e_row e_column es_row_no."BEFORE ALV⼯具栏按钮的点击事件METHODS handle_before_user_command FOR EVENT BEFORE_USER_COMMAND OF cl_gui_alv_grid IMPORTING e_ucomm."after ALV⼯具栏按钮的点击事件METHODS handle_after_user_command FOR EVENT AFTER_USER_COMMAND OF cl_gui_alv_gridIMPORTING e_ucomm.ENDCLASS.*DATA: gt_itab like TABLE OF spfli WITH HEADER LINE.DATA: BEGIN OF GT_ITAB OCCURS 0.INCLUDE STRUCTURE SPFLI.DATA: cellstyles TYPE lvc_t_styl,color(10).DATA END OF GT_ITAB."Docking容器最⼤特点是在代码中可以动态创建容器，不需要像创建⾃定义容器CL_GUI_CUSTOM_CONTAINER那样，"在创建时需要将其绑定到⼀个预先绘制好的⽤户⾃定义控件区域中DATA: LR_CONTAINER TYPE REF TO CL_GUI_DOCKING_CONTAINER,GR_GRID TYPE REF TO CL_GUI_ALV_GRID,GT_FIELD TYPE LVC_T_FCAT,GS_FIELD TYPE LVC_S_FCAT,GT_SORT TYPE LVC_T_SORT,GS_SORT TYPE LVC_S_SORT,GS_LAYOUT TYPE LVC_S_LAYO,GS_VARIANT TYPE DISVARIANT,gt_cells type LVC_T_CELL,gs_cells type LVC_S_CELL.DATA: event_handle TYPE REF TO cl_event_handle."定义类对象的引⽤DATA: GT_TOOLBAR TYPE UI_FUNCTIONS,L_EXECUTE TYPE UI_FUNC.DATA: gs_toolbar TYPE stb_button.DATA: FLAG(1)."防⽌重复创建容器和实例CALL SCREEN 0100.CLASS cl_event_handle IMPLEMENTATION."事件处理类实现部分METHOD handle_toolbar.gs_toolbar-function = 'B_SUM'."按钮的FunctionCodegs_toolbar-icon = icon_display."按钮图标gs_toolbar-text = '总⾏数'."按钮标签gs_toolbar-butn_type = '0'."定义按钮类型，0为标准按钮APPEND gs_toolbar TO e_object->mt_toolbar."添加按钮到⼯具栏中gs_toolbar-function = 'B_DIS'."按钮的FunctionCodegs_toolbar-icon = icon_display."按钮图标gs_toolbar-text = '选中'."按钮标签gs_toolbar-butn_type = '0'."定义按钮类型，0为标准按钮APPEND gs_toolbar TO e_object->mt_toolbar."添加按钮到⼯具栏中gs_toolbar-function = 'B_LIST'."按钮的FunctionCodegs_toolbar-quickinfo = '⾃定义下拉菜单按钮'."按钮的冒泡提⽰gs_toolbar-icon = icon_biw_report_view."按钮图标gs_toolbar-text = '下拉菜单按钮'."按钮标签gs_toolbar-butn_type = '1'."定义按钮类型，1为下拉菜单按钮APPEND gs_toolbar TO e_object->mt_toolbar."添加下拉菜单按钮到⼯具栏中ENDMETHOD.METHOD handle_menu_button.IF e_ucomm = 'B_LIST'."给下拉菜单按钮增加选项，可以多次调⽤该⽅法以增加多⾏CALL METHOD e_object->add_function EXPORTINGicon = icon_displayfcode = 'B_SUM'"字菜单按钮的FunCodetext = '显⽰ALV总⾏数'.ENDIF.ENDMETHOD.METHOD handle_user_command.DATA: sum TYPE i .IF e_ucomm = 'B_SUM'.DESCRIBE TABLE gt_itab[] LINES sum.MESSAGE i001(00) WITH '当前ALV表格中的数据总⾏数为：' sum.ENDIF.ENDMETHOD.METHOD handle_double_click.READ TABLE gt_itab INTO gt_itab INDEX es_row_no-row_id.MESSAGE i001(00) WITH '当前⾏：' es_row_no-row_id '，航线代码：' gt_itab-carrid.ENDMETHOD.METHOD handle_before_user_command."ALV 也给我们提供了修改标预置按钮功能的机会，为了实现这个⽬的，"我们需要在"before_user_command"事件中截取标准的功能，然后使⽤⽅法""set_user_command"来修改功能码，这样便可以指向⾃⼰定义的功能码DATA: sum TYPE i .if e_ucomm = 'B_SUM'.DESCRIBE TABLE gt_itab[] LINES sum.MESSAGE i001(00) WITH '不是原来的我了，当前ALV表格中的数据总⾏数为：' sum.CALL METHOD gr_grid->set_user_commandEXPORTINGi_ucomm = space.endif.* GR_GRID->REFRESH_TABLE_DISPLAY( )."刷新,不变时，⽆需更新ENDMETHOD.METHOD handle_after_user_command.DATA ls_stylerow TYPE lvc_s_styl.DATA lt_styletab TYPE lvc_t_styl.if e_ucomm = '&MB_VARIANT'.message i001(00) WITH '更改布局'.ELSEIF e_ucomm = 'B_DIS'.GR_GRID->get_frontend_layout(IMPORTINGES_LAYOUT = gs_layout ).GR_GRID->get_selected_cells(IMPORTINGET_CELL = gt_cells[] ).* READ TABLE gt_itab INTO gt_itab INDEX 7.* "需要对第7⾏的CITYFROM列单元格样式进⾏设置* ls_style-fieldname = 'CITYFROM'.* ls_style-style = cl_gui_alv_grid=>mc_style_button."显⽰成按钮形式* APPEND ls_style TO gt_itab-cellstyles.* MODIFY gt_itab FROM gt_itab INDEX 7.* LOOP AT gt_itab[] INTO gt_itab.* if gt_itab-distance < 1000.* gt_itab-color = 'C610'.* endif.* IF gt_itab-carrid = 'AZ'.* ls_stylerow-fieldname = 'DISTANCE'."需对哪列进⾏样式设置* ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled."样式设置* APPEND ls_stylerow TO lt_styletab.* ENDIF.* IF gt_itab-carrid = 'AA'.* ls_stylerow-fieldname = 'DISTANCE'.* ls_stylerow-style = cl_gui_alv_grid=>mc_style_enabled.* APPEND ls_stylerow TO lt_styletab.* ENDIF.* GT_ITAB-cellstyles = lt_styletab.* modify GT_ITAB[] from GT_ITAB.* clear:lt_styletab[],GT_ITAB.* ENDLOOP.endif.GR_GRID->REFRESH_TABLE_DISPLAY( )."刷新ENDMETHOD.ENDCLASS.*&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'Z0100'.ENDMODULE. " STATUS_0100 OUTPUT*&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* MODULE USER_COMMAND_0100 INPUT. CASE SY-UCOMM.WHEN 'EXECUTE'.if spfli-CARRID = space AND spfli-COUNTRYFR = SPACE.SELECT*FROM spfliINTO CORRESPONDING FIELDS OF TABLE gt_itab.else.SELECT*FROM spfliINTO CORRESPONDING FIELDS OF TABLE gt_itabWHERE CARRID = spfli-CARRID.* AND COUNTRYFR LIKE spfli-COUNTRYFR.endif.DATA ls_stylerow TYPE lvc_s_styl.DATA lt_styletab TYPE lvc_t_styl.LOOP AT gt_itab[] INTO gt_itab.if gt_itab-distance < 1000.gt_itab-color = 'C610'.endif.IF gt_itab-carrid = 'AZ'.ls_stylerow-fieldname = 'DISTANCE'."需对哪列进⾏样式设置ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled."样式设置APPEND ls_stylerow TO lt_styletab.ENDIF.IF gt_itab-carrid = 'AA'.ls_stylerow-fieldname = 'DISTANCE'.ls_stylerow-style = cl_gui_alv_grid=>mc_style_enabled.APPEND ls_stylerow TO lt_styletab.ENDIF.GT_ITAB-cellstyles = lt_styletab.modify GT_ITAB[] from GT_ITAB.clear:lt_styletab[],GT_ITAB.ENDLOOP.IF FLAG = ''."防⽌重复创建容器和实例PERFORM ALV_DISPLAY.FLAG = 'X'.ENDIF.WHEN 'EXIT'.LEAVE PROGRAM.WHEN 'BACK' OR 'CANCLE'.LEAVE TO SCREEN 0.ENDCASE.GR_GRID->REFRESH_TABLE_DISPLAY( )."刷新ENDMODULE. " USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------**& Form ALV_DISPLAY*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM ALV_DISPLAY .PERFORM GET_FIELD.CREATE OBJECT LR_CONTAINEREXPORTINGside = cl_gui_docking_container=>dock_at_RIGHTREPID = SY-REPIDDYNNR = '0100'EXTENSION = 1100.CREATE OBJECT GR_GRIDEXPORTINGI_PARENT = LR_CONTAINER.CREATE OBJECT :event_handle."为ALV按钮注册监听事件SET HANDLER :event_handle->handle_toolbar FOR GR_GRID,event_handle->handle_menu_button FOR GR_GRID,event_handle->handle_user_command FOR GR_GRID,event_handle->handle_double_click FOR GR_GRID,event_handle->handle_before_user_command FOR GR_GRID,event_handle->handle_after_user_command FOR GR_GRID."调⽤此⽅法才能激活⼯具栏上增加的⾃定义按钮* CALL METHOD GR_GRID->set_toolbar_interactive.GR_GRID->SET_TABLE_FOR_FIRST_DISPLAY(EXPORTING* I_STRUCTURE_NAME = 'SPFLI'I_SAVE = 'A'IS_VARIANT = GS_VARIANTIS_LAYOUT = GS_LAYOUT* IT_TOOLBAR_EXCLUDING = GT_TOOLBARCHANGINGIT_OUTTAB = gt_itab[]IT_FIELDCATALOG = GT_FIELD[]IT_SORT = GT_SORT[]).ENDFORM. " ALV_DISPLAY*&---------------------------------------------------------------------* *& Form GET_FIELD *&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM GET_FIELD . DEFINE GET_FIELD.GS_FIELD-FIELDNAME = &1.* GS_FIELD-TXT_FIELD = &2.GS_FIELD-REF_FIELD = &2.GS_FIELD-REF_TABLE = &3.APPEND GS_FIELD TO GT_FIELD.CLEAR:GS_FIELD.END-OF-DEFINITION.GET_FIELD 'MANDT' 'MANDT' 'SPFLI' .GET_FIELD 'CARRID' 'CARRID' 'SPFLI'.GET_FIELD 'CONNID' 'CONNID' 'SPFLI'.GET_FIELD 'COUNTRYFR' 'COUNTRYFR' 'SPFLI'.GET_FIELD 'CITYFROM' 'CITYFROM' 'SPFLI'.GET_FIELD 'AIRPFROM' 'AIRPFROM' 'SPFLI'.GET_FIELD 'COUNTRYTO' 'COUNTRYTO' 'SPFLI'.GET_FIELD 'CITYTO' 'CITYTO' 'SPFLI'.GET_FIELD 'AIRPTO' 'AIRPTO' 'SPFLI'.GET_FIELD 'FLTIME' 'FLTIME' 'SPFLI'.GET_FIELD 'DEPTIME' 'DEPTIME' 'SPFLI'.GET_FIELD 'ARRTIME' 'ARRTIME' 'SPFLI'.GET_FIELD 'DISTANCE' 'DISTANCE' 'SPFLI'.GET_FIELD 'DISTID' 'DISTID' 'SPFLI'.GET_FIELD 'FLTYPE' 'FLTYPE' 'SPFLI'.GET_FIELD 'PERIOD' 'PERIOD' 'SPFLI'."变式save保存模式GS_VARIANT-REPORT = sy-repid."选择⽅式GS_LAYOUT-SEL_MODE = 'D'.GS_LAYOUT-CWIDTH_OPT = 'X'.gs_layout-stylefname = 'CELLSTYLES'."cellstylesgs_layout-info_fname = 'COLOR'."指定存放颜⾊字段* "隐藏⼯具栏中预置按钮（IT_TOOLBAR_EXCLUDING参数接⼝）* L_EXECUTE = CL_GUI_ALV_GRID=>MC_FC_SAVE_VARIANT.* APPEND L_EXECUTE TO GT_TOOLBAR.* L_EXECUTE = CL_GUI_ALV_GRID=>MC_FC_MAINTAIN_VARIANT. * APPEND L_EXECUTE TO GT_TOOLBAR. ENDFORM. " GET_FIELD。

ALV GRID相关的布局控制[layout](LVC_S_LAYO)

Component Component Type Data Type Length Decimal PI .INCLUDE ALV_S_LAYO00 1ZEBRA LVC_ZEBRA CHAR10 2EDIT LVC_EDIT CHAR10 3EDIT_MODE LVC_EDMO CHAR10 4NO_KEYFIX LVC_NOKFIX CHAR10 5FRONTEND LVC_FRONT CHAR10 6OBJECT_KEY BDS_TYPEID CHAR700 7DOC_ID BDS_DOCID CHAR420 8TEMPLATE BDS_FILENA CHAR2550 9LANGUAGE LANG LANG10 10GRAPHICS GUID_32CHAR320 11SMALLTITLE LVC_TITSZ CHAR10 12NO_HGRIDLN LVC_HGRID CHAR10 13NO_VGRIDLN LVC_VGRID CHAR10 14NO_HEADERS LVC_HEADS CHAR10 15NO_MERGING LVC_MERGE CHAR10 16CWIDTH_OPT LVC_CWO CHAR10 17TOTALS_BEF LVC_TOTBEF CHAR10 18NO_TOTARR CHAR01CHAR10 19NO_TOTEXP CHAR01CHAR10 20NO_ROWMOVECHAR01CHAR10 21NO_ROWINS CHAR01CHAR10 22NO_COLEXPD CHAR01CHAR10 23NO_F4CHAR01CHAR10 24COUNTFNAME LVC_FNAME CHAR300 25COL_OPT CHAR01CHAR10 26VAL_DATA CHAR01CHAR10 27.INCLUDE LVC_S_L00100 28STYLEFNAME LVC_FNAME CHAR300 29.INCLUDE LVC_S_L00200 30NO_ROWMARKLVC_ROWMK CHAR10 31NO_TOOLBAR LVC_TOOLB CHAR10 32GRID_TITLE LVC_TITLE CHAR700 33SEL_MODE LVC_LIBOX CHAR10 34BOX_FNAME LVC_FNAME CHAR300 35SGL_CLK_HD LVC_SGLCLH CHAR10 36.INCLUDE LVC_S_L00300 37NO_TOTLINE LVC_NOTOTL CHAR10 38NUMC_TOTAL LVC_NUMCTO CHAR10 39NO_UTSPLIT LVC_UNITSP CHAR10 40.INCLUDE LVC_S_L00400 41EXCP_FNAME LVC_EXFNM CHAR300 42EXCP_ROLLN LVC_EXROL CHAR300 43EXCP_CONDS LVC_EXCON CHAR10 44EXCP_LED LVC_EXLED CHAR10 45EXCP_GROUP LVC_EXGRP CHAR10 46.INCLUDE LVC_S_L00500 47DETAILINIT LVC_DETINI CHAR1048DETAILTITL LVC_DETTIT CHAR600 49KEYHOT LVC_KEYHOT CHAR10 50NO_AUTHOR LVC_NOAUTH CHAR10 51XIFUNCKEY AQS_XIKEY CHAR300 52XIDIRECT FLAG CHAR10 53S_DRAGDROP LVC_S_DD0100 54.INCLUDE LVC_S_L00600 55INFO_FNAME LVC_CIFNM CHAR300 56CTAB_FNAME LVC_CTFNM CHAR300 57.INCLUDE LVC_S_LOO800 58WEBLOOK LVC_LOOK CHAR100 59WEBSTYLE LVC_STYLE RAW40 60WEBROWS LVC_WEBROW INT4100 61WEBXWIDTH INT4INT4100 62WEBXHEIGHT INT4INT4100 636465666768697071727374757677787980818283848586878889909192939495Short DescriptionLayout (for LVC and for KKBLO)ALV control: 可选行颜色,如果设置了,出现了间隔色带 SPACE, 'XALV control: Ready for inputALV control: Edit modeALV control: Do not fix key columnsALV control: Excel, Crystal or ALVBusiness Document Service: Object keyBusiness Document Service: Document IDBusiness Document Service: File names语言 IDGUID in 'CHAR' Format in UppercaseALV control: 小标题,如果设置了这个字段,则标题与列标题大小一样 SPACE, 'X' ALV control: 隐藏水平线 SPACE, 'X'ALV control: 隐藏垂直线 SPACE, 'X'ALV control: 如果被设置,列标题隐藏 SPACE, 'XALV control: 禁用单元格合并 SPACE, 'X'ALV control: 最优化宽度 SPACE, 'X'ALV control: 总计输出在第一行,小计在新的值之前 SPACE, 'X'Character Field Length 1Character Field Length 1Character Field Length 1Character Field Length 1Character Field Length 1Character Field Length 1ALV control: Field name of internal table fieldCharacter Field Length 1Character Field Length 1ALV control: General display optionsALV control: 设置单元格,比如PUSHBUTTON 最长30个字符ALV control: Grid customizingALV control: 如果被设置,选择列在选择模式:为D和A的时候隐藏 SPACE, 'X' ALV control: 隐藏工具条 SPACE, 'X'ALV Control: 标题,在网格和工具条之间最长70个字符ALV control: 选择模式 SPACE, 'A', 'B', 'C', 'D'ALV control: Field name of internal table fieldALV control: SingleClick on column headerALV control: Totals optionsALV control: 没有总计 SPACE, 'X'ALV control: 可以对NUMC字段进行合计 SPACE, 'X'ALV control: Split totals lines by unitALV control: ExceptionsALV control: 字段名称带有例外编码最长30个字符ALV control: 例外文档的数据元素 SPACE, 'X'ALV control: 合计例外 SPACE, 'X'ALV control: 例外作为 LED SPACE, 'X'ALV Control: Exception GroupALV control: Interactive controlALV control: Display initial values on detail screenALV control: Title bar of detail screenALV control: Key columns as hotspotALV control: Do not perform ALV standard authority checkSAP Query (S): Name of additional functionGeneral FlagALV control: Drag&Drop control settingsALV control: ColorsALV control: 带有简单行彩色代码的字段名称最长30个字符ALV control: 带有复杂单元格颜色编码的字段名称最长30个字符ALV control: Web optionsALV control: Web lookALV control: StyleALV control: Number of lines to be displayed in the WebNatural NumberNatural Number。

ALV_GRID_CONTROL详解

ALV_GRID_CONTROL详解⼀.ALV介绍 (2)⼆.ALV GRID CONTROL (ALV⽹格控制器) (2)三.ALV GRID CONTROL 实例 (2)四、ALV GRID相关的⼏个控制结构 (3)1.字段⽬录[Field catalog] (3)2.布局控制[layout] (5)3.打印和排序,过滤控制 (6)五.编写简单的ALV程序. (6)⾸先ALV的显⽰需要有⼏个先决条件. (7)第⼀步:创建个SCREEN,在屏幕上创建个容器,CONTAINER.定义变量 (7)第⼆步: 创建ALV这个对象，它的⽗组件是那个容器. (7)第三步,获取要显⽰数据的字段⽬录. (10)第四步,设置布局 (11)第五步,排除不需要的标准按钮 (11)⽅法: (12)功能⼀:在第⼀次显⽰以后,修改字段⽬录和布局. (12)功能⼆:设置排序条件 (12)功能三:设置过滤(和排序类似) (13)功能四:选择⽅式 (13)功能五:颜⾊设置 (14)功能六:插⼊超链接 (16)功能七:把字段设置为下拉 (17)基于事件的附加功能 (18)定义事件处理类. (19)类的实现的⼀些概要代码 (20)把事件管理类注册到ALV GRID的实例事 (21)1.热点事件(单击事件) (22)2.双击事件 (22)3.添加⾃定义的按钮和响应命令 (23)4.覆盖标准的功能. (25)5.设置单元格的风格 (25)6. 控制数据变化 (27)⼀.ALV介绍The ALV Grid Control (ALV = S A P L ist V iewer)是⼀个显⽰列表的灵活的⼯具,它提供了基本功能的列表操作,也可以通过⾃定义来进⾏增强,因此可以允许你可以在⼤型的应⽤程序中使⽤.SAP提⽰: 在SAP的开发项⽬中,ALV GRID也可以作为修改和创建数据的⼀种⼯具,然⽽,⽬前这个功能只在实验计划中使⽤,还没有向客户发布.下⾯是⼀个ALV GRID的图⽚:它包括3⼤部分,⼯具栏,标题,⽤于显⽰数据的⽹格控制器.如果有必要，⽤户可以隐藏标题和⼯具栏.ALV家族包含3种ALV⼯具:简易的,两层ALV,分等级连续的列表和树形结构的ALV.⼆.ALV GRID CONTROL (ALV⽹格控制器)ALV GRID CONTROL使⽤了控制器技术以实现艺术性的屏幕显⽰,象所有的控制器⼀样，ALV GRID CONTROL通过系统中的⼀个全局的类提供了⽅法,以响应它的动作.使⽤了ABAP的对象以后,列表是通过ALV的⼀个实例(INSTANCE)来显⽰的,程序员可以使⽤ABAP对象的事件管理. 三.ALV GRID CONTROL 实例ALV GRID实例的定义,参照CL_GUI_ALV_GRID类data ALV_GRID1 type ref to cl_gui_alv_grid.ALV GRID继承结构:四、ALV GRID相关的⼏个控制结构1.字段⽬录 [Field catalog]字段⽬录是⽤来控制ALV显⽰的⽹格中每个字段的属性的,⽐如字段的顺序,对齐⽅式,可编辑状态,颜⾊,等等.常⽤的控制字段如下:(下⾯的⽰例将说明这些字段的使⽤,参考STRUCTURE LVC_S_FCAT)2.布局控制[layout]布局是⽤来控制整个ALV的⼀个布局，⽐如ALV的标题,是否可编辑,⾏颜⾊,列颜⾊.参照ALV的控制结构[LVC_S_LAYO],以后的例⼦我将详细介绍如何设置⾏颜⾊和列颜⾊. 详细的结构说明3.打印和排序,过滤控制打印的参数控制请参考结构[LVC_S_PRNT]排序的参数控制请参考结构[LVC_S_SORT]过滤的参数控制请参考结构[LVC_S_FILT]这⾥不再⼀⼀解释,进⼊中⽂版本,⾥⾯应该也有解释的,虽然⼀些不是很清楚.五.编写简单的ALV程序.⾸先这⾥就不详细介绍DIALOG的⽤法了.OO的ALV GRID必须存在于⼀个容器当中,就是FUNCTION的ALV,其实也是⼀样的,底层也是使⽤CL_GUI_ALV_GRID 这个类的.⾸先ALV的显⽰需要有⼏个先决条件.1,字段⽬录,这个是必须的,如果没有这个参数,参考⼀个数据字典也是可以的,就是参数I_STRUCTURE_NAME.2.存放数据的内表,最好内表的结构和字段⽬录是⼀致的,否则可能会出现⼀些⽆法预知的错误,当然你说我⾮要不⼀样,那也不⼀定会出现错误.我建议是最好⼀样的.这2个是必须的,布局的话,应该是可以不设置的,使⽤默认的就可以了.第⼀步:创建个SCREEN,在屏幕上创建个容器,CONTAINER.定义变量.DATA: wcl_container TYPE REF TO cl_gui_custom_container,wcl_alv TYPE REF TO cl_gui_alv_grid .*--- 存放字段⽬录的内表DATA gt_fieldcat TYPE lvc_t_fcat .*--- 布局结构DATA gs_layout TYPE lvc_s_layo .*----声明需要显⽰的内表(以SFLIGHT为例)DATA BEGIN OF gt_list OCCURS0 .INCLUDE STRUCTURE sflight .DATA END OF gt_list .第⼆步: 创建ALV这个对象，它的⽗组件是那个容器.在PBO中写⼊如下代码:PROCESS BEFORE OUTPUT .MODULE display_alv .创建DISPLAY_ALV的MODULE后,写下如下代码:MODULE display_alv OUTPUT .PERFORM display_alv .ENDMODULE . "display_alv OUTPUT在FORM DISPLAY_ALV中,判断ALV实例是否存在,如果不存在,则创建:FORM display_alv .IF wcl_alv IS INITIAL .CREATE OBJECT: wcl_containerEXPORTINGcontainer_name = 'ALV_CON'.CREATE OBJECT wcl_alvEXPORTINGi_parent = wcl_container.*-----准备获取字段⽬录PERFORM prepare_field_catalog CHANGING gt_fieldcat .*-----设置布局PERFORM prepare_layout CHANGING gs_layout .*-----显⽰alvCALL METHOD gr_alvgrid->set_table_for_first_display EXPORTING * I_BUFFER_ACTIVE =* I_CONSISTENCY_CHECK =* I_STRUCTURE_NAME =* IS_VARIANT =* I_SAVE =* I_DEFAULT = 'X'is_layout = gs_layout* IS_PRINT =* IT_SPECIAL_GROUPS =* IT_TOOLBAR_EXCLUDING =* IT_HYPERLINK =CHANGINGit_outtab = gt_list[]it_fieldcatalog = gt_fieldcat* IT_SORT =* IT_FILTER =EXCEPTIONSinvalid_parameter_combination = 1program_error = 2too_many_lines = 3OTHERS = 4 .ELSE .*----刷新alvCALL METHOD gr_alvgrid->refresh_table_display* EXPORTING* IS_STABLE =* I_SOFT_REFRESH =EXCEPTIONSfinished = 1OTHERS = 2 .IF sy-subrc <> 0.*--异常处理ENDIF.ENDIF .ENDFORM. "display_alv⽅法"set_table_for_first_display"的参数说明⽅法"REFRESH_TABLE_DISPLAY"的参数说明第三步,获取要显⽰数据的字段⽬录.有两种⽅式.1.⼿动创建FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat . DATA ls_fcat type lvc_s_fcat .ls_fcat-fieldname = 'CARRID' .ls_fcat-inttype = 'C' .ls_fcat-outputlen = '3' .ls_fcat-coltext = 'Carrier ID' .ls_fcat-seltext = 'Carrier ID' .APPEND ls_fcat to pt_fieldcat .CLEAR ls_fcat .ls_fcat-fieldname = 'CONNID' .ls_fcat-ref_table = 'SFLIGHT' .ls_fcat-ref_table = 'CONNID' .ls_fcat-outputlen = '3' .ls_fcat-coltext = 'Connection ID' .ls_fcat-seltext = 'Connection ID' .APPEND ls_fcat to pt_fieldcat .ENDFORM .2.半⾃动的创建FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat . DATA ls_fcat type lvc_s_fcat .CALL FUNCTION'LVC_FIELDCATALOG_MERGE'EXPORTINGi_structure_name = 'SFLIGHT'CHANGINGct_fieldcat = pt_fieldcat[]EXCEPTIONSinconsistent_interface = 1program_error = 2OTHERS = 3.IF sy-subrc <> 0.*--Exception handlingENDIF.LOOP AT pt_fieldcat INTO ls_fcat .CASE pt_fieldcat-fieldname .WHEN'CARRID' .ls_fcat-outpulen = '10' .ls_fcat-coltext = 'Airline Carrier ID' .MODIFY pt_fieldcat FROM ls_fcat .WHEN'PAYMENTSUM' .ls_fcat-no_out = 'X' .MODIFY pt_fieldcat FROM ls_fcat .ENDCASE .ENDLOOP .ENDFORM . "prepare_field_catalog第四步,设置布局FORM prepare_layout CHANGING ps_layout TYPE lvc_s_layo.ps_layout-zebra = 'X' .ps_layout-grid_title = 'Flights' .ps_layout-smalltitle = 'X' .ENDFORM. " prepare_layout第五步,排除不需要的标准按钮(可选,这个是第⼀种⽅法,还有另外⼀种，在添加⾃定义的按钮的时候介绍)在你的ALV上，如果你想排除⼀些你不想要的标准按钮,你可以把需要排除的按钮填⼊到表UI_FUNCTIONS中,然后传给set_table_for_first_display⽅法的参数"IT_TOOLBAR_EXCLUDING".这些按钮的功能码⼀般都可以通过查看类cl_gui_alv_grid的常量属性中获取到,或者⾃⼰加个断点，在after_user_command事件中.如果你要隐藏全部的⼯具条,你可以把layout中的no_toolbar设置为"X".FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .DATA ls_exclude TYPE ui_func.ls_exclude = cl_gui_alv_grid=>mc_fc_maximum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_minimum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_subtot .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_sum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_fc_average .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_mb_sum .APPEND ls_exclude TO pt_exclude.ls_exclude = cl_gui_alv_grid=>mc_mb_subtot .ENDFORM .⽅法:按照上⾯的步骤,⼀个ALV的DEMO基本可以创建了.下⾯我们将讲述⼀些功能.功能⼀:在第⼀次显⽰以后,修改字段⽬录和布局.在运⾏的时候,很有可能需要在显⽰之后,需要设置⼀个新的布局或者字段⽬录.有下⾯这些⽅法去实现.字段⽬录: get_frontend_fieldcatalogset_frontend_fieldcatalog布局:get_frontend_layoutset_frontend_layout使⽤这些⽅法,你在执⾏的任何时候,可以获取这些内容,然后修改他们.DATA ls_fcat TYPE lvc_s_fcat .DATA lt_fcat TYPE lvc_t_fcat .DATA ls_layout TYPE lvc_s_layo .CALL METHOD gr_alvgrid->get_frontend_fieldcatalogIMPORTINGet_fieldcatalog = lt_fcat[].LOOP AT lt_fcat INTO ls_fcat .IF ls_fcat-fieldname = 'PAYMENTSUM' .ls_fcat-no_out = space .MODIFY lt_fcat FROM ls_fcat .ENDIF .ENDLOOP .CALL METHOD gr_alvgrid->set_frontend_fieldcatalogEXPORTINGit_fieldcatalog = lt_fcat[].CALL METHOD gr_alvgrid->get_frontend_layoutIMPORTINGes_layout = ls_layout.ls_layout-grid_title = 'Flights (with Payment Sums)' .CALL METHOD gr_alvgrid->set_frontend_layoutEXPORTINGis_layout = ls_layout.功能⼆:设置排序条件有时候我们需要使⽤到数据的排序.这个可以通过填充参考结构LVC_T_SORT创建的内表来实现，这个内表中包含了排序的标准.可以传递给set_table_for_first_display这个⽅法的IT_SORT参数来初始化⼀个排序.FORM prepare_sort_table CHANGING pt_sort TYPE lvc_t_sort .DATA ls_sort TYPE lvc_s_sort .ls_sort-spos = '1' .ls_sort-fieldname = 'CARRID' .ls_sort-up = 'X' . "A to Zls_sort-down = space .APPEND ls_sort TO pt_sort .ls_sort-spos = '2' .ls_sort-fieldname = 'SEATSOCC' .ls_sort-up = space .ls_sort-down = 'X' . "Z to AAPPEND ls_sort TO pt_sort .ENDFORM. " prepare_sort_table这有2点特别的说明:1.如果这边排序的字段名，不存在于字段⽬录中，那将出现DUMP.2.排序以后,垂直的⽹格中，如果出现相同的内容,就会合并，如果要避免,请在布局中设置"no_merging"为"X" .你可以通过使⽤⽅法“get_sort_criteria” 和“set_sort_criteria”来获取和设置排序的标准.功能三:设置过滤(和排序类似)ALV的标准按钮中已经有过滤的功能,我们也可以在初始显⽰的时候就设置过滤条件.我们需要把过滤条件填充到参考表类型"LVC_T_FILT"创建的内表中.过滤条件是类似⼀个RANGES结构的.然后把这个内表传递给⽅法"SET_TABLE_FOR_FIRST_DISPLAY"中的参数"IT_FILTER"FORM prepare_filter_table CHANGING pt_filt TYPE lvc_t_filt .DATA ls_filt TYPE lvc_s_filt .ls_filt-fieldname = 'FLDATE' .ls_filt-sign = 'E' .ls_filt-option = 'BT' .ls_filt-low = '20030101' .ls_filt-high = '20031231' .APPEND ls_filt TO pt_filt .ENDFORM. " preparefiltertable我们可以使⽤"get_filter_criteria" 和"set_filter_criteria"来获取过滤条件和设置过滤条件.功能四:选择⽅式有时候，我们需要选择⼀些单元格,⾏或者列,在布局中，有个参数"SEL_MODE"可以设置我们不同的选择⽅式.下⾯是参数的介绍.和不同的地⽅.注意:1.如果你设置了ALV是可编辑的,可能会覆盖你在布局中选择⽅式的设置的.2.设置了选择⽅式以后,我们可以使⽤很多⽅法来获取⽤户的选择.⽐如"GET_SELECTED_CELLS","GET_SELECTED_CELLS_ID", "GET_SELECTED_ROWS","GET_SELECTED_COLUMNS"3.在执⾏PAI以后,⽤户所选择的单元格,⾏或者列可能丢失.你可以在PBO中,使⽤对应的SET⽅法来恢复这些选择.功能五:颜⾊设置有的时候,我们需要在ALV⽹格上绘上⼀些颜⾊.可以给特定的⾏，某个特定的列,某个特定的单元格绘制颜⾊.如果某列被设置为关键列,这列的颜⾊将被⾃动绘制,⽽不需要我们额外的指定.先介绍ALV⾥⾊码.就是颜⾊编码,4位CHAR型.Cx y z------------------------------------------Color | | || 1/0: 相反开/关1/0: 强化开/关其中C是固定的第⼀位,第⼆位代表是颜⾊编码(1到7),第三位是加强的设置,第四位是相反,个⼈理解,在强化关闭的情况下,相反的作⽤是背景和字体的变化.颜⾊编码:A)设置列的颜⾊.我们可以通过字段⽬录的"emphasize"控制字段来控制某列的颜⾊.这个字段同样是4位的CHAR型,传⼊上述的颜⾊编码.例如:LS_FCAT-EMPHASIZE = 'C701'.如果这列被设置为关键列,就是 LS_FCAT-KEY = 'X' ,那么颜⾊设置就不会起作⽤.请注意,⾃动产⽣的字段⽬录中，KEY的设置是⾃动获取的.B)设置⾏的颜⾊为某⾏设置颜⾊,是有点复杂的,我们需要在要显⽰的数据内表中增加⼀个字段,这个字段不需要在字段⽬录中存在.同样,这个字段也是4位的CHAR型,符合颜⾊编码的定义.那我们就需要这样来定义我们的数据内表:DATA BEGIN OF gt_list OCCURS0 .INCLUDE STRUCTURE SFLIGHT .DATA rowcolor(4) TYPE c .DATA END OF gt_list .很明显，填⼊颜⾊编码以后,ALV怎么知道它是我们⽤来设置颜⾊的呢,在布局中，有个控制字段"INFO_FNAME",我们可以设置这个字段来告诉ALV,我们的颜⾊字段是哪个.ps_layout-info_fname = 'ROWCOLOR'.请注意,这个字段随便你起名字,但是记住,⼀定是数据内表⾥的字段，⽽且这边设置的时候⼀定要⼤写.你可以在任何时候设置⾏的颜⾊,只需要去修改内表⾥的这个字段的值,但是记得,⼀定要刷新以后才起作⽤.C)设置单元格的颜⾊设置单元格和设置⾏的颜⾊,本质上没有什么⼤的区别,但是定位单元格需要2个参数.我们需要在数据内表中插⼊⼀个表类型的字段，这样我们的数据内表就变成了DEEP结构了,不过ALV是可以处理的.不需要担⼼.插⼊的这个表类型的类型为"LVC_T_SCOL".⾥⾯有3个参数:FNAME告诉我们你需要设置的是哪个字段,如果为空，然后直接在COLOR中设置颜⾊,就是整⾏设置为这个颜⾊.如果具体到某个单元格,必须指定是哪个字段.COLOR字段是⽤来设置颜⾊的.NOKEYCOL字段⽐较关键了.设置为关键列的⼀些字段,我们的颜⾊设置可能被覆盖.通过这个字段的设置,可以避免被关键列覆盖.同样,ALV在布局中有个字段"CTAB_FNAME"告诉我们,数据内表中，哪个字段是⽤来设置单元格的颜⾊的.DATA BEGIN OF gt_list OCCURS0 .INCLUDE STRUCTURE SFLIGHT .DATA rowcolor(4) TYPE c .DATA cellcolors TYPE lvc_t_scol .DATA END OF gt_list .DATA ls_cellcolor TYPE lvc_s_scol ....READ TABLE gt_list INDEX5 .ls_cellcolor-fname = 'SEATSOCC' .ls_cellcolor-color-col = '7' .ls_cellcolor-color-int = '1' .APPEND ls_cellcolor TO gt_list-cellcolors .MODIFY gt_list INDEX5 .注意:颜⾊设置中有优先级顺序,他们是单元格--->⾏--->列.功能六:插⼊超链接插⼊超链接是通过⼀个含有超级链接和句柄的表来实现的.这个表类型为"LVC_T_HYPE" ,句柄是⼀个INT4类型的字段,我们需要在数据显⽰的内表中，加⼊这样的字段，来告诉ALV,我们的字段指定的句柄,从⽽找到对应的超级链接.在字段⽬录中,WEB_FIELD是⽤来指定对应的句柄名的.下⾯举个例⼦来说明,我们要为字段CARRID,CONNID建⽴超级链接:⾸先,内表定义中，我们加⼊2个句柄字段:DATA BEGIN OF gt_list OCCURS0 .INCLUDE STRUCTURE SFLIGHT .DATA rowcolor(4) TYPE c .DATA cellcolors TYPE lvc_t_scol .DATA carrid_handle TYPE int4 .DATA connid_handle TYPE int4 .DATA END OF gt_list .第⼆: 建⽴⼀个超级链接内表,⾥⾯存放句柄所对应的超级链接.创建的时候注意,它参考的表类型,⼀定是"LVC_T_HYPE". FORM prepare_hyperlinks_table CHANGING pt_hype TYPE lvc_t_hype .DATA ls_hype TYPE lvc_s_hype .ls_hype-handle = '1' .ls_hype-href = '/doc/92c7786f1eb91a37f1115c8d.html /carrids/car1' .APPEND ls_hype TO pt_hype .ls_hype-handle = '2' .ls_hype-href = '/doc/92c7786f1eb91a37f1115c8d.html /carrids/car1' .APPEND ls_hype TO pt_hype .ls_hype-handle = '3' .ls_hype-href = '/doc/92c7786f1eb91a37f1115c8d.html /carrids/car1' .APPEND ls_hype TO pt_hype .ls_hype-handle = '4' .ls_hype-href = '/doc/92c7786f1eb91a37f1115c8d.html /connids/con11' .APPEND ls_hype TO pt_hype .ls_hype-handle = '5' .ls_hype-href = '/doc/92c7786f1eb91a37f1115c8d.html /connids/con12'APPEND ls_hype TO pt_hype ... ..ENDFORM .第三.通过字段⽬录FIELDCATLOG来指定相应的句柄字段.对于CARRID的field catalogLs_fieldcat-web_field = 'CARRID_HANDLE'.对于CONNID的field catalogLs_fieldcat-web_field = 'CONNID_HANDLE’.在⽅法"SET_TABLE_FOR_FIRST_DISPLAY"中把句柄内表传给参数it_hyperlink。

ABAP颜色设置

1)颜色含义1:海蓝;2:浅清;3:黄色;4:浅蓝;5:青色;6:红色;7:橙色。

(1)首位为主颜色;(2)次位为辅助颜色;(3)末位为0时,表示首位数字表为表格的底色;末位为1时,则表示以1为底色,首位数字则表为表格字体的颜色;末位为其它颜色时,则表示底色为ALV的默认颜色;以上三条是本人大概总结出来的规律,本人发现的现象基本如上,但也不一定全部正确。

其中C200与系统标准ALV底色比较相似;C410与系统标准关键字颜色比较相似。

2)列颜色:设置ALV字段fieldcat属性:i_fieldcat-emphasize = &3. "颜色把fieldcat属性写入属性内表allfields:alv_append_field 'WERKS' '工厂' 'C110'.C110:为颜色代码; 3)行颜色:(1)在内表itab定义一个字段line_color来存储颜色;loop内表itab,在需要显示颜色的行其值赋为颜色'C110';(2)在定义alv显示格式定义:设置ALV显示layout属性:i_layout-info_fieldname = 'LINE_COLOR',line_color为内表定义的存储颜色的列名。

4)单元格颜色单元格颜色属性:LVC_S_SCOL,该属性为一结构,含三个字段:FNAME(30)、COLOR(颜色结构,含三个字段:col(10)、int(3)、inv(10))、NOKEYCOL(1)(覆盖码颜色)ALV列属性: coltab_fieldnameexa:定义内表itab含字段FLDNAME type LVC_S_SCOL;定义单元格颜色结构cellcolor type LVC_S_SCOL;循环内表,当要设置单元格颜色所在的列字段colname要设置颜色时fldname-FNA ME = ‘COLNAME’fldname-COLOR-col = ‘2’(颜色代码)fldname-COLOR-int = ‘1’fldname-COLOR-inv = ‘0’。

SAP_ALV_详细使用方法

ALV学习资料SAP提供一组ALV（ABAP LIST VIEWER）功能模块，这些功能模块可以修饰报表输出。

这些设置的ALV功能可以提高报表的可读性。

首先呢，我先跟大家说一下ALV是什么东西？ALV=SAP LIST VIEWER，SAP列表显示器。

就目前ALV技术主要分ALV GRID 和ALV TREE。

先跟大家说一下目前本人用的比较多的ALV GRID技术，ALV GRID 的效果见图（1.1）。

图（1.1）第一步在使用ALV时，需要定义一个SAP标准TYPE-POOLS，具体语法为：TYPE-POOLS: SLIS.然后需要定义一个LAYOUT式样，和一个FIELDCAT字段格式，具体语法为：DATA: LIT_FCAT TYPE SLIS_T_FIELDCAT_ALV,LT_LAYO TYPE SLIS_LAYOUT_ALV,GIT_EVENTS TYPE SLIS_T_EVENT,GIT_LISTHEADER TYPE SLIS_T_LISTHEADER.,LIT_EXTAB TYPE SLIS_T_EXTAB.第二步（可选）可以为需要为最初的目录显示选择参数。

在这里需要使用函数‘'REUSE_ALV_V ARIANT_DEFAULT_GET’Sample code:CALL FUNCTION 'REUSE_ALV_V ARIANT_DEFAULT_GET'EXPORTINGi_save = variant save condition ( A=all, U = user-specific )CHANGINGcs_variant = internal table containing the program name (and the defaultvariant---optional )EXCEPTIONSnot_found = 2.使用者也可以使用现有的变量中选择，使用函数‘REUSE_ALV_V ARIANT_F4’。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

CODE SAMPLE – ALV GRIDThe code submitted below enables the display of ALV GRID with additionaloptions such as:1)Coloring of individual cells.2)Making the cell contents invisible.3)Layout selection at the selection screen level before displayingthe grid.Summary:1)The subroutine PERFORM INVISIBLE_CELL_CONTENTS atpage 4 – line 38 of this text document performs the necessaryroutine to make the cell contents invisible.2) The subroutines INIT_VARIANT, VARIANT_SELECT,VARIANT_FILL at lines 54 to 59 in page 2 of this documentPerforms the necessary routine to select a previously saved Layouts of the ALV GRID.I have attached the screen shots of the above mentioned operations in the ALVGRID. Please do review the content and provide feedback.report zc9_alvgrid_final_now .*-----------------------------------------------------------------------*PROGRAM ON ALV-GRID.*-----------------------------------------------------------------------*-----------------------------------------------------------------------*TABLE DECLARATION.*-----------------------------------------------------------------------*tables:zc9_employee, zc9_empspec.type-pools: slis. "ALV Declarationsdata: celcol1 type slis_specialcol_alv.data: syprindex type i value 1.*-----------------------------------------------------------------------*INTERNAL TABLE DECLARATION.*-----------------------------------------------------------------------data: begin of itab_alv1 OCCURS 0,emp_id(5) TYPE C,emp_name(20) TYPE C,certified(3) TYPE C,celcol type slis_t_specialcol_alv,selected(1) type c,end of itab_alv1.data: begin of itab_alv3 OCCURS 0,emp_id(5) TYPE C,emp_name(20) TYPE C,certified(3) TYPE C,end of itab_alv3.data: mulrowtab1 like line of itab_alv1.data: mulrowtab like table of itab_alv1.data: wa_emp_name like zc9_employee-emp_name.data: mulrowindex type i value 1.data: maxlines type i.*----------------------------------------------------------------------- data: wa like line of itab_alv1.data: wa_itab like line of itab_alv1.data: ok-code like sy-ucomm.data: ok-code1 like sy-ucomm.data: ind type i.data: newvar type disvariant.data: tempvar type i value 0.data: gd_repid like sy-repid.*----------------------------------------------------------------------- *ALV-GRID DATA DECLARATION.*----------------------------------------------------------------------- data: fieldcatalog type slis_t_fieldcat_alv.* FIELD CATALOG.data: fieldcatalog1 type slis_fieldcat_alv.data: gd_layout type slis_layout_alv.* LAYOUT DECLARATION.data: id_color type c.data: eventtable type slis_t_event.data: wa_event type slis_alv_event.data: newvariant type disvariant.data: i_exclude type slis_t_extab, "ALV Exclusion Tablewa_exclude type slis_extab. "ALV Exclusion Structure*--------------------------------------------------------------------- *VARIANT DECLARATION.*--------------------------------------------------------------------- data: vartype like disvariant.data: var_save(1) type c.data: w_exit(1) type c.data: wx_variant like disvariant.data: variant_para like disvariant-variant.data: itab_emp like table of zc9_employee.data: itab_emp1 like line of itab_emp.data: itab_spec like table of zc9_empspec.data: itab_spec1 like line of itab_spec.data: ls_sort type slis_sortinfo_alv.data: lt_sort type slis_t_sortinfo_alv.parameter: LAYOUT like disvariant-variant.*----------------------------------------------------------------------- * INITIALIZATION.*----------------------------------------------------------------------- gd_repid = sy-repid.*----------------------------------------------------------------------- *CALLING SELECTION SCREEN-SUBROUTINES.*----------------------------------------------------------------------- *----------------------------------------------------------------------- *AT SELECTION SCREEN*---------------------------------------------------------------------- at selection-screen output.perform init_variant.perform variant_default using LAYOUT.at selection-screen on value-request for LAYOUT.perform variant_select using LAYOUT.at selection-screen.perform variant_fill.newvar = vartype.*-----------------------------------------------------------------------* LAYOUT DECLARATION.*----------------------------------------------------------------------- gd_layout-zebra = 'X'.gd_layout-no_input = 'X'.gd_layout-colwidth_optimize = 'X'.gd_layout-box_fieldname = 'SELECTED'.gd_layout-box_tabname = 'ITAB_ALV1'.gd_layout-totals_text = 'Totals'(201).gd_layout-coltab_fieldname = 'CELCOL'.gd_layout-f2code = 'DISP'. "Sets fcode for when double* "click(press f2)call function 'REUSE_ALV_FIELDCATALOG_MERGE'exportingi_program_name = gd_repidi_internal_tabname = 'ITAB_ALV3'i_inclname = gd_repidchangingct_fieldcat = fieldcatalog.*----------------------------------------------------------------------- *FIELD-CATALOG DECLARATION.*----------------------------------------------------------------------- loop at fieldcatalog into fieldcatalog1.case fieldcatalog1-fieldname.when 'EMP_ID'.fieldcatalog1-seltext_m = 'EMP-ID'.fieldcatalog1-col_pos = 0.fieldcatalog1-outputlen = 10.fieldcatalog1-emphasize = 'C2'.fieldcatalog1-key = 'X'.fieldcatalog1-do_sum = 'X'.fieldcatalog1-sp_group = 'A'.when 'EMP_NAME'.fieldcatalog1-fieldname = 'EMP_NAME'.fieldcatalog1-seltext_m = 'EMPLOYEE_NAME'.fieldcatalog1-col_pos = 1.fieldcatalog1-emphasize = 'C2'.fieldcatalog1-hotspot = 'X'.fieldcatalog1-key = 'X'.fieldcatalog1-outputlen = 20.fieldcatalog1-sp_group = 'B'.when 'CERTIFIED'.fieldcatalog1-fieldname = 'CERTIFIED'.fieldcatalog1-seltext_m = 'CERTIFIED'.fieldcatalog1-col_pos = 2.fieldcatalog1-emphasize = 'C2'.fieldcatalog1-key = 'X'.fieldcatalog1-sp_group = 'C'.endcase.modify fieldcatalog from fieldcatalog1.endloop.*----------------------------------------------------------------------- *SORTING FIELD CATALOG FIELD.*----------------------------------------------------------------------- ls_sort-spos = 1.ls_sort-fieldname = 'EMP_ID'.ls_sort-up = 'X'.ls_sort-subtot = 'X'.append ls_sort to lt_sort.*----------------------------------------------------------------------- *POPULATING THE INTERNAL TABLE.*----------------------------------------------------------------------- ITAB_ALV1-EMP_ID = '15530'.ITAB_ALV1-EMP_NAME = 'THILAKJI'.ITAB_ALV1-CERTIFIED = 'YES'.APPEND ITAB_ALV1.ITAB_ALV1-EMP_ID = '15531'.ITAB_ALV1-EMP_NAME = 'MATHEWS'.ITAB_ALV1-CERTIFIED = 'NO'.APPEND ITAB_ALV1.ITAB_ALV1-EMP_ID = '15532'.ITAB_ALV1-EMP_NAME = 'JAISI'.ITAB_ALV1-CERTIFIED = 'YES'.APPEND ITAB_ALV1.ITAB_ALV1-EMP_ID = '15533'.ITAB_ALV1-EMP_NAME = 'ADAMS'.ITAB_ALV1-CERTIFIED = 'YES'.APPEND ITAB_ALV1.ITAB_ALV1-EMP_ID = '15534'.ITAB_ALV1-EMP_NAME = 'PAUL'.ITAB_ALV1-CERTIFIED = 'NO'.APPEND ITAB_ALV1.************************************************************************ * FORM TO MAKE THE CELL CONTENTS INVISIBLE.PERFORM INVISIBLE_CELL_CONTENTS.************************************************************************* *----------------------------------------------------------------------- *EXCLUDE-DECLARATION.*----------------------------------------------------------------------- clear wa_exclude.wa_exclude-fcode = '&VEXCEL'.append wa_exclude to i_exclude.*----------------------------------------------------------------------- * FUNCTION MODULE CALL-REUSE-ALV-GRID-DISPLAY.*----------------------------------------------------------------------- call function 'REUSE_ALV_GRID_DISPLAY'exportingi_callback_program = gd_repidi_callback_top_of_page = 'TOP-OF-PAGE2' "see FORMi_callback_user_command = 'USER_COMMAND'i_grid_title = 'ALV GRID-EMPLOYEE'is_layout = gd_layoutit_fieldcat = fieldcatalog[]it_sort = lt_sortit_excluding = i_excludei_callback_pf_status_set = 'SET_PF_STATUS' "see FORMi_save = 'A'is_variant = newvartablest_outtab = itab_alv1exceptionsprogram_error = 1others = 2.*-------------------------------------------------------------------** Form TOP-OF-PAGE **-------------------------------------------------------------------** ALV Report Header **-------------------------------------------------------------------* form top-of-page2.data: header type slis_t_listheader,wa type slis_listheader,infield like wa-info,nline type i,nlinechar(2) type c.*TITLE AREAwa-typ = 'H'.wa-info = 'EMPLOYEE-DETAILS'.append wa to header.*BELOW AREA.wa-typ = 'S'.wa-key = 'DATE'.concatenate sy-datum+6(2) '.' sy-datum+4(2) '.' sy-datum(4) into wa-info .append wa to header.*NEXT LINE.wa-typ = 'S'.describe table itab_alv1 lines nline.nlinechar = nline.wa-key = 'TABLE DETAILS'.concatenate 'NO.of.Lines:' nlinechar into wa-info separated by space. append wa to header.call function 'REUSE_ALV_COMMENTARY_WRITE'exportingit_list_commentary = headeri_logo = 'ALVLOGO'.endform.*------------------------------------------------------------------** FORM SET_PF_STATUS **------------------------------------------------------------------* form set_pf_status using rt_extab type slis_t_extab.set pf-status 'NEWSTATUS123'.endform.*------------------------------------------------------------------** FORM USER_COMMAND **------------------------------------------------------------------** --> R_UCOMM ** --> RS_SELFIELD **------------------------------------------------------------------* form user_command using r_ucomm like sy-ucommrs_selfield type slis_selfield.* Check function codecase r_ucomm.when 'SELM'.loop at itab_alv1 where selected = 'X'.move-corresponding itab_alv1 to mulrowtab1.append mulrowtab1 to mulrowtab.endloop.message i029(zmc).clear mulrowtab1.when 'DISP'.* Check field clicked on within ALVgrid reportif rs_selfield-fieldname = 'EMP_ID'.* Read data table, using index of row user clicked onread table itab_alv1 into wa index rs_selfield-tabindex.ind = rs_selfield-tabindex.message i025(zmc) with rs_selfield-fieldname .elseif rs_selfield-fieldname = 'EMP_NAME'.read table itab_alv1 into wa index rs_selfield-tabindex.ind = rs_selfield-tabindex.message i028(zmc) with rs_selfield-fieldname wa-emp_name .endif.when 'EXIT'.* MESSAGE I026(ZMC).leave program.when 'CHAN'.* READ TABLE itab_alv1 INTO wa INDEX rs_selfield-tabindex.read table itab_alv1 into wa index rs_selfield-tabindex.call screen 1551.tempvar = 1.*------------------------------------------------------------*CALLING THE GRID DISPLAY FUNCTION AGAIN.*------------------------------------------------------------*----------------------------------------------------------------------- * FUNCTION MODULE CALL-REUSE-ALV-GRID-DISPLAY.*----------------------------------------------------------------------- call function 'REUSE_ALV_GRID_DISPLAY'exportingi_callback_program = gd_repidi_callback_top_of_page = 'TOP-OF-PAGE' "see FORMi_callback_user_command = 'USER_COMMAND'i_grid_title = 'ALV GRID-EMPLOYEE'is_layout = gd_layoutit_fieldcat = fieldcatalog[]it_events = eventtablei_save = 'X'it_excluding = i_excludei_callback_pf_status_set = 'SET_PF_STATUS' "see FORMis_variant = newvartablest_outtab = itab_alv1exceptionsprogram_error = 1others = 2.r_ucomm = '&F03'.when '&F03'.* IF TEMPVAR = 1.leave program.endcase.clear r_ucomm.endform.*&---------------------------------------------------------------------* *& Module USER_COMMAND_1551 INPUT*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* module user_command_1551 input.data: syprtabix type i.case ok-code.when 'QUIT'.set screen 0.leave screen.clear itab_alv1.sy-tabix = 0.when 'UPDA'.loop at itab_alv1 where emp_id = wa-emp_id.syprtabix = sy-tabix.endloop.modify itab_alv1 from wa index syprtabix transporting emp_id emp_name certified.message i027(zmc).leave screen.endcase.endmodule. " USER_COMMAND_1551 INPUT*&---------------------------------------------------------------------* *& Module STATUS_1551 OUTPUT*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* module status_1551 output.set pf-status 'ZNEWSTATUS'.* SET TITLEBAR 'xxx'.endmodule. " STATUS_1551 OUTPUT*----------------------------------------------------------------------- *FORM FOR SELECTING LAYOUT.*----------------------------------------------------------------------- form variant_select using form_varpar.call function 'LVC_VARIANT_F4'exportingis_variant = vartype* IT_DEFAULT_FIELDCAT =i_save = var_saveimportinge_exit = w_exites_variant = wx_variantexceptionsnot_found = 1program_error = 2others = 3.if sy-subrc <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.endif.if w_exit is initial.vartype-variant = wx_variant-variant.form_varpar = wx_variant-variant.endif.endform.*&---------------------------------------------------------------------* *& Form init_variant*&---------------------------------------------------------------------* form init_variant.clear: vartype.gd_repid = sy-repid.vartype-report = sy-repid.vartype-username = sy-uname.var_save = 'A'. "All typesendform.*&---------------------------------------------------------------------* *& Form variant_default*&---------------------------------------------------------------------* form variant_default using p_variant.wx_variant = vartype.if not p_variant is initial.wx_variant-variant = p_variant.endif.call function 'LVC_VARIANT_DEFAULT_GET'exportingi_save = var_savechangingcs_variant = wx_variantexceptionswrong_input = 1not_found = 2program_error = 3others = 4.case sy-subrc.when 0.p_variant = wx_variant-variant.when 2.clear: p_variant.endcase.endform.*&---------------------------------------------------------------------* *& Form variant_fill*&---------------------------------------------------------------------*form variant_fill.clear: vartype.if LAYOUT is initial.vartype-variant = 'STANDARD'.vartype-report = sy-repid.else.vartype-variant = LAYOUT.vartype-report = sy-repid.call function 'LVC_VARIANT_EXISTENCE_CHECK'exportingi_save = var_savechangingcs_variant = vartypeexceptionsothers = 01.if sy-subrc ne 0.message i000(zz) with text-g02.endif.endif.endform.*&---------------------------------------------------------------------* *& Module STATUS_1234 OUTPUT*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* module status_1234 output.* SET PF-STATUS 'xxxxxxxx'.* SET TITLEBAR 'xxx'.endmodule. " STATUS_1234 OUTPUT*&---------------------------------------------------------------------* *& Module USER_COMMAND_1234 INPUT*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* module user_command_1234 input.sort mulrowtab.describe table mulrowtab lines maxlines.case ok-code1.when 'OUT1'.set screen 0.leave screen.when 'PUSH'.clear mulrowtab1.if mulrowindex <= maxlines.read table mulrowtab into mulrowtab1 index mulrowindex.mulrowindex = mulrowindex + 1.else.message i030(zmc).endif.endcase.endmodule. " USER_COMMAND_1234 INPUT*---------------------------------------------------------------------- * CEL COLOR TABLE POPULATION.*---------------------------------------------------------------------- FORM INVISIBLE_CELL_CONTENTS.loop at itab_alv1 INTO WA.IF WA-EMP_ID = ' '.EXIT.ENDIF.clear itab_alv1.move-corresponding WA to itab_alv1.clear celcol1.celcol1-fieldname = 'EMP_ID'.celcol1-color-col = syprindex.append celcol1 to itab_alv1-celcol.celcol1-fieldname = 'EMP_NAME'.celcol1-color-col = syprindex + 2.append celcol1 to itab_alv1-celcol.************************************************************************ * CODE FOR MAKING THE GRID CELL CONTENTS INVISIBLE BASED ON THE VALUE OF *THE CELL.THE CONDITION CHECKED IS WHETHER* CERTIFIED FIELD HAS VALUE 'NO'.************************************************************************ celcol1-fieldname = 'CERTIFIED'.if itab_alv1-certified = 'NO'.itab_alv1-emp_name = ' '.endif.celcol1-color-col = syprindex + 3.append celcol1 to itab_alv1-celcol.MODIFY ITAB_ALV1.syprindex = celcol1-color-col - 1.CLEAR ITAB_ALV1.endloop.ENDFORM.SCREEN SHOTSDescription:This screen shot displays the ALV GRID with each cells having different color i.e., coloring of Individual ALV GRID cells.The cell contents are made invisible.Description:This screen shot displays the layout selection option that could be done before the display of the grid.Content submitted by,Prabaharan Gnanasekaran,Project – Engineer – Wipro Technologies,Sholinganallur,Chennai.。