abap-ALV-功能.doc

ALV Simple Introduction 一、ALV相关概念ALVABAP LIST VIEWER，这里我们姑且称之为ABAP表单浏览器，用它可以标准化，简单化R/3系统中的表单，它可以提供给用户一个统一的表单格式以及用户接口。二、结合一个具体的实例来看ALV的功能 首先我们看下图中的这个ALV的布局（这是一般ALV程序表单的典型布局）：根据上面对ALV的直观形象，下面将屏幕上的区域划分成几块，分别来解释它的作用：1 快捷工具栏（如下图） 细节按钮，你首先必须选中列表中的一行，然后点击它的话，就会弹出一个窗口，显示选中行的细节内容。（另外：你双击你要选择的行，也可以显示细节） 按升序排列，首先选中一列，然后再点击它，就可以看到该列是按照升序重新排列。 按降序排列，首先选中一列，然后再点击它，就可以看到该列是按照降序重新排列。 设置过滤器，通过设置它可以达到筛选的目的，以列名称作为筛选的筛选标准，填入过滤器相应的标准值，然后就可以筛选出满足自己条件的记录。 打印预览，点击它之后，就可以预览一下将要打印内容的布局情况。 Microsoft Excel，调用MS的Excel到当前ALV的列表显示区域。（前提：必须安装了MS的Excel） 字处理，字处理的相关设置。 本地文件，将当前表单存储到本地机器上，有几种供选择的存储格式。 邮件收件人，给系统内用户发邮件 图形，点击它可以根据表单情况绘制相关图表。 更改布局，点击它可以对表单中的列项目排列次序的互换，删减等。 选择布局，从已经保存的布局中选择自己满意的布局。 保存布局，对于自己满意的布局，可以通过点击它来将布局保存起来。2 表单标题区这个区域主要是用来显示一些抬头信息（总揽信息），类似于WORD中的页眉。我们在使用的时候根据需要来进行相关填写。3 表单显示区 这个区域主要是用来显示我们通过代码筛选出来的数据，相关的操作在下面的程序编写部分详细介绍。三、程序的编写 1写一个ALV程序的基本流程： 第一步：定义将要用到的表，即TALBES定义部分，然后定义TYPE-POOLS: SLIS. 第二步：定义第一步中提到的这些数据类型或者内表的实体对象 第三步：定义一些需要用到的变量 第四步： 定义自己的选择屏幕 第五步： start-of-selection部分 用一个子函数完成自己所需要数据的抓取 用一个子函数完成要显示列表的列名行（第一行）的相关赋值（i_fieldcat_alv）以及设置 用一个子函数完成输出格式的设置(i_layout)，比如双击一条记录是否弹出对话框啊？是用哪个功能键触发等等 用一个子函数FORM DISPLAY_DATA来显示上面我们已经分别封装好的数据，需要调用两个常用的FUNCTION MODULE： FUNCTION REUSE_ALV_GRID_DISPLAY “用来显示表单数据 FUNCTION REUSE_ALV_COMMENTARY_WRITE “用来显示表单标题2在我们写ALV程序的时候，有一个类型组是肯定要用到的： TYPE-POOLS：SLIS。 在这个类型组中有很多ALV的自定义数据类型以及结构化数据类型（通过TYPE来定义的），我们在写ALV表单的时候需要调用的。我们常用的几个有（蓝色部分）：3. 两个重要的数据结构（1）catalogt属性 （每列对应一个这样的结构slis_fieldcat_alv，所有的列信息存储到内表中slis_t_fieldcat_alv）fieldname内表字段coltext显示的列头just对齐方式(R,L,C)seltext提示信息emphasize输入列的颜色, Cxyz 如果后面不设置那么前列后填充后列no_merging排序时不合并no_zero消除0输出no_sign消除正负号hotspot输入热区,小手+下划线 (填充后列)do_sum=X列合计(设置后初始化便出现合计了)no_sum=X 禁止列合计checkbox输出一个checkbox 不能更改col_pos列输出位置inttype列的数据类型col_pos输出列tabname标签名称currency(5)货币单位quantity(3)计量单位qfieldname参考计量单位的字段名称roundROUND 值exponent(3)流动表示的指数key(1)关键字段icon(1)作为图标输出symbol(1)输出作为符号checkbox(1)作为复选框输出lzero(1)输出前导零no_sign(1)输出抑制符号no_zero(1)为输出隐藏零edit_mask为输出编辑掩码fix_column(1)固定列do_sum(1)总计列值汇总，该字段在ALV的最底部汇总no_out(1)列没有输出tech(1)技术字段outputlen列的字符宽度decimals_out控制小数点的位数（2）Layout 属性（slis_layout_alv 仅是个扁平的结构，存储控制ALV样式的信息）no_colhead(1) type c, no headings 没有标题no_hotspot(1) type c, headings not as hotspot 标题不作为hotspot zebra(1) type c, striped pattern 镶边样式no_vline(1) type c, columns separated by space 行由空间隔线no_hline(1) type c,rows separated by space B20K8A0N5D 列由空间分隔线cell_merge(1) type c, not suppress field replication 不压制领域复制edit(1) type c, for grid only 仅为grid edit_mode(1) type c, for grid only 仅为grid numc_sum(1) type c, totals for NUMC-Fields possib. 数字型字段可集计no_input(1) type c, only display fields 仅显示f2code like sy-ucomm,设置触发弹出详细信息窗口的功能码reprep(1) type c, report report interface active 报告接口激活no_keyfix(1) type c, do not fix keycolumns 不固定关键字列expand_all(1) type c, Expand all positions 扩展所有位置no_author(1) type c, No standard authority check 没有标准用户检查* PF-status 菜单项def_status(1) type c, default status space or A 缺省状态空间或Aitem_text(20) type c, Text for item button 文本为项目按钮* Display options 显示属性colwidth_optimize(1) type c,no_min_linesize(1) type c, line size = width of the listmin_linesize like sy-linsz, if initial min_linesize = 80max_linesize like sy-linsz, Default 250window_titlebar like sy-title,no_uline_hs(1) type c,* Exceptions 扩展lights_fieldname type slis_fieldname, fieldname for exception 扩展字段名lights_tabname type slis_tabname, fieldname for exception 扩展字段名lights_rollname like dfies-rollname, rollname f. exceptiondocu lights_condense(1) type c, fieldname for exception 扩展字段名* Sums 合计no_sumchoice(1) type c, no choice for summing up 无可选择总计no_totalline(1) type c, no total line 没有合计行no_subchoice(1) type c, no choice for subtotals 无可选择子合计no_subtotals(1) type c, no subtotals possible 没有子合计no_unit_splitting type c, no sep. tot.lines by inh.unitstotals_before_items type c, diplay totals before the items 在明细前显示合计totals_only(1) type c, show only totals 只显示合计totals_text(60) type c, text for 1st col. in total line 合计行第一列文本subtotals_text(60) type c, text for 1st col. in subtotals 子合计行第一列文本* Interaction 继承box_fieldname type slis_fieldname, fieldname for checkbox box_tabname type slis_tabname, tabname for checkboxbox_rollname like dd03p-rollname, rollname for checkboxexpand_fieldname type slis_fieldname, fieldname flag expandhotspot_fieldname type slis_fieldname, fieldname flag hotspotconfirmation_prompt, confirm. prompt when leavingkey_hotspot(1) type c, keys as hotspot K_KEYHOTflexible_key(1) type c, key columns movable,.group_buttons(1) type c, buttons for COL1 - COL5get_selinfos(1) type c, read selection screengroup_change_edit(1) type c, Settings by user for new groupno_scrolling(1) type c, no scrolling* Detailed screen 屏幕详细detail_popup(1) type c, show detail in popup 弹出显示明细detail_initial_lines(1) type c, show also initial lines 显示初始行detail_titlebar like sy-title, Titlebar for detail 详细标题栏* Display variants 显示变量header_text(20) type c, Text for header button 标题按钮文本default_item(1) type c, Items as default 默认明细* colour 颜色info_fieldname type slis_fieldname, infofield for listoutput coltab_fieldname type slis_fieldname, colors * others 其它list_append(1) type c, no call screenxifunckey type aqs_xikey, eXtended interaction(SAPQuery)xidirect type flag, eXtended INTeraction(SAPQuery)dtc_layout type dtc_s_layo,Layout for configure the Tabstipallow_switch_to_list(1) type c,ACC: Switch Fullscreen to List4创建ALV的大概过程要在ABAP/4程序中呼叫ALV Function Module来产生输出画面，有几个事情是必需做的：* 数据变量(Data Area)宣告，主要针对ALV的控制信息数据（Layout & Fieldcat）* 宣告Internal Table来存放自定义数据文件的数据，用于显示* 自定义数据文件选取数据存放至Internal Table* 建立ALV显示样式（layout）* 建立显示字段清单(Field Catalogs)* 建立事件清单(Event Catalogs)* 呼叫ALV Function Module* 撰写User按键处理事件I就一个简单的ALV表单进行说明。*数据变量(Data Area)宣告* 在SAP上预设有一个数据群组(Data Pool) SLIS， *已预先定义好所有ALV所需之数据型态， 程序如下：program alvtest .TYPE-POOLS: SLIS.DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,FIELDCAT_LN LIKE LINE OF FIELDCAT,LAYOUT TYPE SLIS_LAYOUT_ALV,SORTCAT TYPE SLIS_T_SORTINFO_ALV,SORTCAT_LN LIKE LINE OF SORTCAT,EVENTCAT TYPE SLIS_T_EVENT,EVENTCAT_LN LIKE LINE OF EVENTCAT.DATA: COL_POS TYPE I.* 宣告Internal Table*宣告屏幕显示所需的Internal Table及包含的字段， 如报表要列出 VBAP数据， *Internal Table 定义如下：DATA: BEGIN OF IVBAP OCCURS 0,VBELN LIKE VBAP-VBELN,MATNR LIKE VBAP-MATNR,MATKL LIKE VBAP-MATKL,END OF IVBAP.* 自定义数据文件选取数据存放至Internal Table* 选取单号字段不为空白的所有数据记录插入至Internal Table IVBAP：SELECT VBELN POSNR MATNR MATKL KWMENG VRKMEINTO CORRESPONDING FIELDS OF TABLE IVBAPFROM VBAPWHERE VBELN NE SPACE.* 建立显示样式* 填充Layout信息LAYOUT-ZEBRA = X.LAYOUT-DETAIL_POPUP = X. “是否弹出详细信息窗口LAYOUT-F2CODE = &ETA. “设置触发弹出详细信息窗口的功能码，这里 是双击LAYOUT-NO_VLINE = X. “这个用来设置列间隔线LAYOUT-COLWIDTH_OPTIMIZE = X. “优化列宽选项是否设置LAYOUT-DETAIL_INITIAL_LINES = X.LAYOUT-DETAIL_TITLEBAR = 详细内容.“设置弹出窗口的标题栏* 建立显示字段清单(Field Catalogs)*例如显示的字段有 VBELN (Sales Doc.)， * MATNR(Material)及MAKTL(Material Group)* 三个字段， 必须依序设定其属性：ADD 1 TO COL_POS. FIELDCAT_LN-REF_TABNAME = VBAP.FIELDCAT_LN-FIELDNAME = VBELN.FIELDCAT_LN-KEY = X.FIELDCAT_LN-DO_SUM = SPACE.FIELDCAT_LN-COL_POS = COL_POS.FIELDCAT_LN-NO_OUT = SPACE.FIELDCAT_LN-QFIELDNAME = SPACE.FIELDCAT_LN-HOTSPOT = X.APPEND FIELDCAT_LN TO FIELDCAT.ADD 1 TO COL_POS.FIELDCAT_LN-REF_TABNAME = VBAP.FIELDCAT_LN-FIELDNAME = MATNR.FIELDCAT_LN-KEY = SPACE.FIELDCAT_LN-DO_SUM = SPACE.FIELDCAT_LN-COL_POS = COL_POS.FIELDCAT_LN-NO_OUT = SPACE.FIELDCAT_LN-QFIELDNAME = SPACE.FIELDCAT_LN-HOTSPOT = SPACE.APPEND FIELDCAT_LN TO FIELDCAT.ADD 1 TO COL_POS.FIELDCAT_LN-REF_TABNAME = VBAP.FIELDCAT_LN-FIELDNAME = MATKL.FIELDCAT_LN-KEY = SPACE.FIELDCAT_LN-DO_SUM = X.FIELDCAT_LN-COL_POS = COL_POS.FIELDCAT_LN-NO_OUT = SPACE.FIELDCAT_LN-QFIELDNAME = SPACE.FIELDCAT_LN-HOTSPOT = SPACE.APPEND FIELDCAT_LN TO FIELDCAT.SORTCAT_LN-SPOS = 1.SORTCAT_LN-FIELDNAME = MATNR.SORTCAT_LN-UP = X.SORTCAT_LN-DOWN = SPACE.SORTCAT_LN-SUBTOT = X.APPEND SORTCAT_LN TO SORTCAT.* 建立事件清单(Event Catalogs)EVENTCAT_LN-NAME = TOP_OF_PAGE.EVENTCAT_LN-form = PAGE_HEADER.APPEND EVENTCAT_LN TO EVENTCAT.* 呼叫ALV Function Module，进行显示DATA: PGM LIKE SY-REPID.PGM = SY-REPID.CALL FUNCTION REUSE_ALV_LIST_DISPLAYEXPORTINGI_CALLBACK_PROGRAM = PGMI_CALLBACK_PF_STATUS_SET = SET_STATUSI_CALLBACK_USER_COMMAND = USER_COMMANDIS_LAYOUT = LAYOUTIT_FIELDCAT = FIELDCATIT_SORT = SORTCATI_SAVE = AIT_EVENT = EVENTCATTABLEST_OUTTAB = IVBAPEXCEPTIONSPROGRAM_ERROR = 1OTHERS = 2.* 撰写User按键处理事件* 例如我们要加上让User可以连续按鼠标两次后可依游标所在值，如Sales *Doc*.或* Material进入 Sales Doc查询画面(T-Code VA03)或Material查询画面(T-CodeMM03)。form USER_COMMAND USING UCOMM LIKE SY-UCOMMSELFIELD TYPE SLIS_SELFIELD.READ TABLE IVBAP INDEX SELFIELD-TABINDEX.CHECK SY-SUBRC = 0.CASE UCOMM.WHEN &IC1. CASE SELFIELD-SEL_TAB_FIELD.WHEN IVBAP-VBELN.SET PARAMETER ID AUN FIELD IVBAP-VBELN.CALL TRANSACTION VA03 AND SKIP FIRST SCREEN.WHEN IVBAP-MATNR.SET PARAMETER ID MAT FIELD IVBAP-MATNR.CALL TRANSACTION MM03 AND SKIP FIRST SCREEN.ENDCASE.ENDCASE.ENDform.* 设置PF status，如果你自定义一些按钮的话。FORM SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.SET PF-STATUS STANDARD.ENDFORM. set_status附加说明：1。 I_CALLBACK_PF_STATUS_SET = SET_STATUS该项设定ALV LIST的菜单，你可以在Application toolbar自定义自己的buttons,然后加到ALV的列表上，通过用户单击按钮来触发相应的操作，具体方法： FORM SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.SET PF-STATUS STANDARD.ENDFORM. set_status上面的USING部分是必要的，Form的格式要像上面的一样，否则会出现系统错误。2。I_CALLBACK_USER_COMMAND = USER_COMMAND该项是实现对应菜单项以及你的双击等事件的功能，具体方法：FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMMRS_SELFIELD TYPE SLIS_SELFIELD.CASE R_UCOMM.WHEN &IC1.WRITE: double click.ENDCASE.ENDFORM.上面的USING参数也是必要的，Form的格式要像上面的一样，还有就是要捕捉到系统的SY-UCOMM的值， 自己定义的直接用就可以了，但是系统的就需要自己调查。例子中的双击时间的UCOMM好像有不确定性，因为我和其他人使用的是不同的，但是效果一样，思考中。3。IS_LAYOUT = LAYOUT该项很重要，是对LIST输出样式的设定，里面玄机很多，下一讲继续。4。IT_FIELDCAT = FIELDCAT该项也很重要，你要在LIST里面显示的项目的名称以及输出的设定要在这里 编辑，示例如下：CLEAR W_FIELDCAT.W_FIELDCAT-FIELDNAME = CARRID.W_FIELDCAT-SELTEXT_M = 航空会社.W_FIELDCAT-COL_POS = 1.APPEND W_FIELDCAT TO T_FIELDCAT.5。 IT_EVENTS = T_EVENTS该项目前了解到的就是设置LIST的抬头和结尾，可以把你想要输出的内容进项编辑，更新到相应的内表，然后调用函数：REUSE_ALV_COMMENTARY_WRITE，示例如下：CLEAR: W_EVENT, T_EVENTS.REFRESH T_EVENTS.W_EVENT-NAME = TOP_OF_PAGE.W_EVENT-FORM = TOP_OF_PAGE.APPEND W_EVENT TO T_EVENTS.下面是TOP_OF_PAGE的设定：FORM TOP_OF_PAGE.DATA: LS_LINE TYPE SLIS_LISTHEADER.CLEAR T_LIST_TOP_OF_PAGE.REFRESH T_LIST_TOP_OF_PAGE.CLEAR LS_LINE.LS_LINE-TYP = H.LS_LINE-INFO = TOP_OF_PAGE.APPEND LS_LINE TO T_LIST_TOP_OF_PAGE.CALL FUNCTION REUSE_ALV_COMMENTARY_WRITEEXPORTINGI_LOGO = ENJOYSAP_LOGOIT_LIST_COMMENTARY = T_LIST_TOP_OF_PAGE. ENDFORM. top_of_page这样在表头就会输出：“TOP_OF_PAGE”。6。 T_OUTTAB = IVBAP该项是LIST输出数据的来源，从数据表中取得的数据都保存在这个内部表里面。关于ALV LIST先总结到这里，还有几个项目没有具体研究。II另一个简单的ALV例子。data: i_fieldcat_alv type slis_t_fieldcat_alv with header line, i_layout type slis_layout_alv, alv的格式 i_fieldcat type slis_fieldcat_alv，w_repid like sy-repid. 它对应的start-of-selection中定义子函数如下： start-of-selection. perform getdata. “从数据库中取数据到相应内表中 perform layout_build. “用于定义ALV表单的相关格式、属性 perform fields. “用来定义表单中的各个列的相关信息，比如列名等 perform display_data. “用来显示ALV表单子函数定义如下： form layout_build. i_layout-zebra = X. i_layout-detail_popup = X. “是否弹出详细信息窗口 w_repid = sy-repid. “程序为当前程序 i_layout-f2code = &ETA.“设置触发弹出详细信息窗口的功能码，这里是双击i_layout-no_vline = X.“这个用来设置列间隔线 i_layout-colwidth_optimize = X. “优化列宽选项是否设置 i_layout-detail_initial_lines = X. i_layout-detail_titlebar = 详细内容. “设置弹出窗口的标题栏endform. form fields. refresh i_fieldcat_alv. pos = 1. clear i_fieldcat. i_fieldcat-col_pos = pos. “第几列 i_fieldcat-fieldname = NUM. i_fieldcat-seltext_l = 序号. “列名 append i_fieldcat to i_fieldcat_alv. clear i_fieldcat. pos = pos + 1. i_fieldcat-col_pos = pos. i_fieldcat-fieldname = AUFNR. i_fieldcat-seltext_l = 生产订单. append i_fieldcat to i_fieldcat_alv. clear i_fieldcat. Endform. form display_data. call function REUSE_ALV_GRID_DISPLAY exporting i_callback_program = w_repid “当前程序 i_save = is_layout = i_layout “子函数layout_build填充的格式定义 it_fieldcat = i_fieldcat_alv “子函数fields填充的各列 tables t_outtab = head1. “假设数据都在head1内表中endform.III对一个稍微复杂一点的ALV表单（有标题区和页脚区），我们需要定义下面几个data: i_fieldcat_alv type slis_t_fieldcat_alv,“用来存储我们将要在表单显示区域显示出来的表单的列名，每个列名对应的字段名以及列表头其他相关属性信息的数据类型 i_fieldcat type slis_fieldcat_alv, i_layout type slis_layout_alv. “ALV的格式data: i_events type slis_t_event, i_event_exit type slis_t_event_exit, i_list_comments type slis_t_listheader, “用来填充表单标题区域的数据类型 i_excluding type slis_t_extab.data: w_variant like disvariant, 显示变式结构 wx_variant like disvariant, w_variant_save(1) type c, w_exit(1) type c, w_user_specific(1) type c, w_callback_ucomm type slis_formname, 字符型 w_print type slis_print_alv, 类型组 w_layout type slis_layout_alv, 类型组 w_html_top_of_page type slis_formname, 字符型 w_fieldcat_alv like line of i_fieldcat_alv, w_excluding like line of i_excluding, w_events like line of i_events, w_event_exit like line of i_event_exit, w_list_comments like line of i_list_comments.*=*initialization. perform init_variant. “这个子函数很重要，没有它会出错*-*它对应的start-of-selection中定义子函数如下： start-of-selection. perform getdata. “从数据库中取数据到相应内表中 perform event_build. perform layout_build. “用于定义ALV表单的相关格式、属性 perform fields. “用来定义表单中的各个列的相关信息，比如列名等 perform display_data. “用来显示ALV表单*-*子函数定义如下：（这里只定义前面文档没有提到的子函数，其他同名的请参考前面）form init_variant. clear: w_variant. w_repid = sy-repid. “当前程序 w_variant-report = w_repid. w_variant-username = sy-uname. w_variant_save = A. All typesendform.form event_build. 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. “将标题区数据赋值给W_EVENTS 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.“将页尾数据赋值给W_EVENTS modify i_events from w_events index sy-tabix. endif. read table i_events with key name = slis_ev_end_of_page into w_events. if sy-subrc = 0. move ALV_END_OF_PAGE to w_events-form. “将页脚区数据赋值给W_EVENTS modify i_events from w_events index sy-tabix. endif.endform.*-*form event_build子函数中黑体字部分对应的几个子函数，我们需要定义如下：form alv_top_of_page. clear: i_list_comments. w_list_comments-typ = H. H=Header, S=Selection, A=Action供选择 w_list_comments-key = . w_list_comments-info = XX汽车有限公司变速箱废品率报表. append w_list_comments to i_list_comments. w_list_comments-typ = S. H = Header, S = Selection, A = Action w_list_comments-key = . concatenate 库位: werks-low into werks_t. w_list_comments-info = werks_t. append w_list_comments to i_list_comments. w_list_comments-typ = S. H = Header, S = Selection, A = Action w_list_comments-key = . concatenate 库位: werks-low into wer