sap abap查询透明表、表结构 显示方式为ALV(主要用于快速复制表、结构的字段用)
abap 中快速调用alv显示的方法
abap 中快速调用alv显示的方法全文共四篇示例，供读者参考第一篇示例：在ABAP开发中，经常需要通过ALV（Application List Viewer）显示数据表格，以便更直观、友好地展示数据给用户。
有时候我们需要在程序中快速调用ALV显示数据，而不需要太多繁琐的操作。
本文将介绍一种快速调用ALV显示数据的方法，帮助开发者更高效地展示数据。
在ABAP中，我们可以使用几种方法来显示ALV，比如使用函数模块、类库等。
但是如果我们只需要快速显示一个简单的表格，并且不想在程序中定义太多冗余的内容，可以使用以下方法来快速调用ALV显示数据。
我们需要在程序中定义一个内表和一个字段符号。
内表用来存储我们需要展示的数据，字段符号用来代表内表中的字段。
```ABAPDATA: lt_data TYPE TABLE OF mara,fs_field TYPE ANY.```接下来，我们需要获取数据并填充到内表中。
这里以从表MARA 中获取数据为例，我们可以使用SELECT语句获取数据并填充到内表中。
然后，我们可以调用函数模块REUSE_ALV_GRID_DISPLAY来显示ALV表格。
这个函数模块会自动创建一个ALV显示表格，并展示我们所填充的数据。
这样，我们就可以快速调用ALV显示数据了。
值得注意的是，在调用REUSE_ALV_GRID_DISPLAY函数模块前，我们需要确保内表lt_data已经填充了数据，并且字段符号fs_field已经对应了内表中的字段。
通过这种方法，我们可以快速、简便地在ABAP程序中调用ALV 显示数据。
当我们只需要展示一个简单的表格时，这种方法可以帮助我们避免繁琐的定义和配置，提高开发效率。
快速调用ALV显示数据的方法虽然简单，但在实际开发中却很实用。
当我们需要快速展示一个简单的表格时，善用这种方法可以让我们更专注于业务逻辑的实现，提高开发效率，也给用户提供更好的交互体验。
ABAP开发者可以根据自己的实际需求，选择适合的方法来显示ALV表格，提高开发效率，为用户提供更好的体验。
abap屏幕显示调用总结-alv双击打开窗口和弹出窗
sap abap屏幕显示调用总结-alv双击打开窗口和弹出窗1）alv及其事件定义CLASS lcl_event_receiver DEFINITION.PUBLIC SECTION.METHODS handle_f4FOR EVENT onf4 OF cl_gui_alv_gridIMPORTING e_fieldnamees_row_noer_event_dataet_bad_cells.METHODS catch_doubleclickFOR EVENT double_click OF cl_gui_alv_gridIMPORTING e_rowe_columnes_row_no .ENDCLASS. "lcl_event_receiver DEFINITION *---------------------------------------------------------------------* * CLASS lcl_event_receiver IMPLEMENTATION*---------------------------------------------------------------------* CLASS lcl_event_receiver IMPLEMENTATION. METHOD handle_f4.PERFORM f4 USING e_fieldnamees_row_noer_event_dataet_bad_cells.ENDMETHOD. "handle_f4 METHOD catch_doubleclick.PERFORM atdoubleclick USING e_rowe_columnes_row_no.ENDMETHOD. "catch_doubleclickENDCLASS. "lcl_event_receiver IMPLEMENTATIONFORM atdoublec lick USING p_e_rowp_e_columnp_es_row_no.* MESSAGE '双击' TYPE 'I'.READ TABLE itab INDEX p_e_row.IF p_e_column = 'EBELN'.SET PARAMETER ID 'BES' FIELD itab-ebeln.CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT' "相应双击事件，根据双击列进行调用相应的方法EXPORTINGi_ebeln = itab-ebelni_enjoy = 'X'.ELSEIF p_e_column = 'LIFNR'.CALL FUNCTION 'MMPUR_VENDOR_DISPLAY'EXPORTINGim_lifnr = itab-lifnrim_ekorg = 'B000'.else.CALL SCREEN 200."（弹出窗口）ENDIF.ENDFORM. " atdoubleclickMODULE status_0100 OUTPUT.SET PF-STATUS 'MAIN200'.gs_variant-report = sy-repid."注册事件到alvIF g_custom_container IS INITIAL.CREATE OBJECT g_custom_containerEXPORTING container_name = g_container.IF go_grid IS INITIAL.CREATE OBJECT go_gridEXPORTINGi_parent = g_custom_container."cl_gui_container=>screen0."CREATE OBJECT event_receiver.SET HANDLER event_receiver->handle_f4 FOR go_grid.CALL METHOD go_grid->register_f4_for_fieldsEXPORTINGit_f4 = gt_f4."gt_f4用于保存产生f4事件的字段SET HANDLER event_receiver->catch_doubleclick FOR go_grid.IF sy-batch IS INITIAL.CALL METHOD go_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_enter.ENDIF.PERFORM load_data_into_grid.ENDIF.ENDIF.ENDMODULE.（2）弹出窗口200显示：CLASS lcl_event_handler DEFINITION.PUBLIC SECTION.CLASS-METHODS:on_close FOR EVENT close OF cl_gui_dialogbox_container IMPORTING sender.ENDCLASS. "lcl_event_handler DEFINITION*----------------------------------------------------------------------** CLASS lcl_event_handler IMPLEMENTATION*----------------------------------------------------------------------* CLASS lcl_event_handler IMPLEMENTATION.METHOD on_close.CALL METHOD sender->free.FREE: con_diabox, l_alv.CALL SCREEN '100'.ENDMETHOD. "on_closeENDCLASS.MODULE STATUS_0200 OUTPUT.SELECT * FROM sflight INTO TABLE lt_sflight.IF con_diabox IS INITIAL.CREATE OBJECT con_diaboxEXPORTINGwidth = 600height = 200top = 70left = 140caption = 'Title'EXCEPTIONSOTHERS = 1.SET HANDLER lcl_event_handler=>on_close FOR con_diabox .CREATE OBJECT l_alvEXPORTINGi_parent = con_diabox.ENDIF.CALL METHOD l_alv->set_table_for_first_display EXPORTINGi_structure_name = 'SFLIGHT'CHANGINGit_outtab = lt_sflight.ENDMODULE.。
abap alv字段 值描述 -回复
abap alv字段值描述-回复ABAP是一种面向对象的编程语言，用于SAP系统的开发。
在ABAP中，ALV是模块化的列表显示工具，用于在SAP系统中显示表格格式的数据。
ALV的字段描述用于提供用户对显示的数据进行解释和理解的信息。
本文将详细介绍ABAP ALV字段值描述的概念、作用、实现方法以及在SAP 系统中的应用。
首先，我们来了解一下ABAP ALV字段值描述的概念。
在ALV表格中，每个列都有一个字段描述，该描述用于提供关于该列的详细信息，包括该列表示的含义、数据类型、取值范围等。
字段值描述是字段描述的补充，用于解释字段的具体取值。
例如，在一个销售订单的ALV表格中，有一列是"订单状态"，可能取值为"未处理"、"进行中"和"已完成"，字段值描述可以为每个具体的取值提供详细的说明，比如"未处理：订单尚未被处理"、"进行中：订单正在进行中"和"已完成：订单已经完成"。
接下来，我们来探讨一下ABAP ALV字段值描述的作用。
字段值描述可以在ALV表格中提供更加友好和易于理解的数据展示，帮助用户更加准确地理解表格中数据的含义。
对于那些有特定业务规则和含义的字段，字段值描述可以起到解释和澄清的作用，减少用户对数据的困惑和误解。
此外，通过字段值描述，用户还可以直观地了解每个字段值的含义，从而更好地进行数据分析和决策。
那么，我们该如何在ABAP中实现ALV字段值描述呢？ABAP提供了一些特定的函数和方法来实现这个功能。
首先，我们需要在数据字典中为每个字段值创建描述，可以使用数据元素或者域来做到这一点。
然后，在程序中，使用函数模块"REUSE_ALV_COMMENTARY_WRITE"将描述信息和字段值关联起来，并将其显示在ALV表格中的相应列中。
ALV详细说明
一.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显示的网格中每个字段的属性的,比如字段的顺序,对齐方式,可编辑状态,颜色,等等.常用的控制字段如下:(下面的示例将说明这些字段的使用,参考STRUCTURELVC_S_FCAT)2ROW_POS ALV 控制: 输出行(内部使用)3COL_POS ALV 控制: 输出列列的位置,第几列,例如1,2,…..4FIELDNAME ALV 控制: 内部表字段的字段名称字段名称5TABNAME LVC 标签名称表名，如果是内表，是1 6CURRENCY ALV 控制: 货币单位7CFIELDNAME ALV 控制: 参考的当前单位的字段名称8QUANTITY ALV 控制: 计量单位9QFIELDNAME ALV 控制: 参考计量单位的字段名称10IFIELDNAME ALV 控制: 内部表字段的字段名称11ROUND ALV 控制: ROUND 值12EXPONENT ALV 控制：流动表示的指数13KEY ALV 控制: 关键字段关键字段,前面变蓝色14KEY_SEL ALV 控制: 可以被隐藏的关键列可以被隐藏的关键列15ICON ALV 控制: 作为图标输出此列作为图标输出16SYMBOL ALV 控制: 输出作为符号17CHECKBOX ALV 控制: 作为复选框输出复选框输出18JUST ALV 控制: 对齐对齐方式:'R': right justified 'L': left justified 'C': centered19LZERO ALV 控制: 输出前导零X'20NO_SIGN ALV 控制：输出抑制符号X',不输出符号21NO_ZERO ALV 控制: 为输出隐藏零X',隐藏022NO_CONVEXT ALV 控制: 不考虑输出的转换退出23EDIT_MASK ALV 控制: 为输出编辑掩码格式24EMPHASIZE ALV 控制: 带有颜色的高亮列列的颜色25FIX_COLUMN ALV 控制: 固定列26DO_SUM ALV 控制: 总计列值X',合计27NO_SUM ALV 控制: 没有总计列值X' ,没有合计28NO_OUT ALV 控制: 列没有输出X' ,隐藏此列29TECH ALV 控制: 技术字段X'.也是隐藏，但是有点不一样30OUTPUTLEN ALV 控制: 列的字符宽度输出的长度31CONVEXIT转换例程32SELTEXT ALV 控制: 对话功能的列标识符33TOOLTIP ALV 控制: 列抬头的工具提示34ROLLNAME ALV 控制: F1 帮助的数据元素35DATATYPE ABAP 字典中的数据类型ABAP 字典中的数据类型36INTTYPE ABAP 数据类型(C,D,N,...)ABAP 数据类型(C,D,N,...) 37INTLEN以字节计的内部长度内容的长度38LOWERCASE允许/不允许小写字母X' 允许大小写39REPTEXT标题40HIER_LEVEL ALV 控制: 内部使用41REPREP ALV 控制: 价值是补充/补充接口的选择标准42DOMNAME定义域名43SP_GROUP组代码44HOTSPOT ALV 控制: 单击敏感X',下面出现下划线,响应单击45DFIELDNAME ALV 控制: 数据库中列组的字段名称46COL_ID ALV 控制: 列 ID47F4AVAILABL字段有输入帮助吗X'.此列有搜索帮助48AUTO_VALUE ALV 控制: 自动复制值49CHECKTABLE表名50VALEXI固定值存在51WEB_FIELD ALV 控制: 内部表字段的字段名称52HREF_HNDL自然数热点连接的句柄53STYLE ALV 控制: 样式下面有例子会介绍,比如PUSHBUTTION54STYLE2ALV 控制: 样式55STYLE3ALV 控制: 样式56STYLE4ALV 控制: 样式57DRDN_HNDL自然数下拉的句柄58DRDN_FIELD ALV 控制: 内部表字段的字段名称下拉的字段59NO_MERGING字符字段长度1相同的值不合并60H_FTYPE ALV 树控制: 功能类型(总计,平均,最大.最小, ...)61COL_OPT可选列优化的条目62NO_INIT_CH字符字段长度163DRDN_ALIAS字符字段长度164REF_FIELD ALV 控制: 内部表字段的参考字段名称65REF_TABLE ALV 控制: 内部表字段的参考表名称66TXT_FIELD ALV 控制: 内部表字段的字段名称67ROUNDFIELD ALV 控制: 带有 ROUND 说明的字段名称68DECIMALS_O ALV 控制: 输出小数位的编号69DECMLFIELD ALV 控制: 带有 DECIMALS 说明的字段名称70DD_OUTLEN ALV 控制: 输出字符长度71DECIMALS小数点后的位数设置小数的位数72COLTEXT ALV 控制: 列标题列标题73SCRTEXT_L长字段标签74SCRTEXT_M中字段标签75SCRTEXT_S短字段标签76COLDDICTXT ALV 控制: 确定 DDIC 文本参考77SELDDICTXT ALV 控制: 确定 DDIC 文本参考78TIPDDICTXT ALV 控制: 确定 DDIC 文本参考79EDIT ALV 控制: 准备输入输出状态.'X'可输入80TECH_COL ALV 控制: 内部使用81TECH_FORM ALV 控制: 内部使用82TECH_COMP ALV 控制: 内部使用83HIER_CPOS ALV 控制: 层次列位置84H_COL_KEY树控制: 列名称/项目名称85H_SELECT标识是否可以选择树控制中的列86DD_ROLL数据元素(语义域)87DRAGDROPID ALV 控制: 拖&放处理拖放对象88MAC字符字段长度189INDX_FIELD自然数90INDX_CFIEL自然数91INDX_QFIEL自然数92INDX_IFIEL自然数93INDX_ROUND自然数94INDX_DECML自然数95GET_STYLE字符字段长度196MARK字符字段长度12.布局控制[layout]布局是用来控制整个ALV的一个布局，比如ALV的标题,是否可编辑,行颜色,列颜色. 参照ALV的控制结构[LVC_S_LAYO],以后的例子我将详细介绍如何设置行颜色和列颜色.详细的结构说明字段名描述 Value range CWIDTH_OPT最优化宽度SPACE, 'X'SMALLTITLE 小标题,如果设置了这个字段，则标题与列标题大小一样SPACE, 'X'GRID_TITLE标题,在网格和工具条之间最长70个字符NO_HEADERS如果被设置,列标题隐藏SPACE, 'X' NO_HGRIDLN隐藏水平线SPACE, 'X' NO_MERGING禁用单元格合并SPACE, 'X'NO_ROWMARK 如果被设置,选择列在选择模式为D和A的时候隐藏SPACE, 'X'NO_TOOLBAR隐藏工具条SPACE, 'X'NO_VGRIDLN隐藏垂直线SPACE, 'X'SEL_MODE选择模式SPACE, 'A', 'B', 'C', 'D' EXCP_CONDS合计例外SPACE, 'X'EXCP_FNAME字段名称带有例外编码最长30个字符EXCP_LED例外作为 LED SPACE, 'X'EXCP_ROLLN例外文档的数据元素SPACE, 'X'CTAB_FNAME带有复杂单元格颜色编码的字段名称最长30个字符INFO_FNAME带有简单行彩色代码的字段名称最长30个字符ZEBRA可选行颜色,如果设置了，出现了间隔色带SPACE, 'X'NO_TOTLINE没有总计SPACE, 'X'NUMC_TOTAL可以对NUMC字段进行合计SPACE, 'X'TOTALS_BEF总计输出在第一行,小计在新的值之前SPACE, 'X' STYLEFNAME设置单元格,比如PUSHBUTTON最长30个字符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"的参数说明参数含义I_BUFFER_ACTIVE 如果方法调用是静态的,可以设置这个标记,这表示,如果每次显示ALV都相同的字段目录.既然这样，那么字段目录会被放到一个特殊的缓存里,这样加速了ALV的显示I_STRUCTURE_NAME 输出数据参考的数据字典的结构名,例如'SFLIGHT'.如果指定了这个参数目录会自动生成,下面的参数IT_FIELDCATALOG不需要传值.IS_VARIANT决定布局显示的变式I_SAVE 决定用户是否可以保存变式: 'X' 只能保存全局变式'U' 只能保存特定变式'A' 都可以保存SPACE 不可以保存变式I_DEFAULT 决定用户是否可以定义默认的布局:'X' 可以定义默认布局,这个参数是默认的SPACE 不可以定义默认布局IS_LAYOUT布局参数,传递布局控制的一些信息IS_PRINT后台打印属性的参数IT_SPECIAL_GROUPS 如果在字段目录中，一些字段通过SP_GROUP被分组在一起.我们就必须组传递一个组的文本内表进去IT_TOOLBAR_EXCLUDING需要隐藏的标准的按钮的内表IT_HYPERLINK 为每个句柄分配了超连接的内表,LVC_S_HYPE中的HREF存放了超连接的HANDLE指定了句柄,使用这些句柄，你可以在GRID中使用超连接IT_ALV_GRAPHICS比较复杂，没有用过,意思好象是可以在图表中显示ALV. IT_OUTTAB输出数据存放的内表,数据都是存放在这个内表里IT_FIELDCATALOG字段目录IT_SORT排序的标准IT_FILTER过滤的标准方法"REFRESH_TABLE_DISPLAY"的参数说明参数含义IS_STABLE 刷新的稳定性，有2个参数，一个是行，一个是列.如果设置了相应的值那么对应的行，或者列，在刷新的时候,将会保持稳定，就是滚动条保持I_SOFT_REFRESH 这个参数只是在异常情况下被使用,如果设置了这个参数,任何创建的合任何排序次序,任何为了显示数据而设置的过滤都将保持不变.这个是非有意义的.例如:当然你没有修改数据内表里的数据而想刷新ALV,仅仅只改变一下布局和字段目录.第三步,获取要显示数据的字段目录.有两种方式.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"可以设置我们不同的选择方式.下面是参数的介绍.和不同的地方.值模式可能的选择注释SPACE等同于B参考B默认设置'A'行和列的选择,无法选择单元格多行，多列用户可以使用'B'单选,不可以多选行,不可以多选单元格多行，多列'C'多选,可以多选行,不可以多选单元格多行，多列'D'单元格的选择,可以多选单元格多行，多列,任何单元格多选用户可以使用注意: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),第三位是加强的设置,第四位是相反,个人理解,在强化关闭的情况下,相反的作用是背景和字体的变化.颜色编码:x颜色主要使用在1Gray-blue headers2Light gray List bodies3yellow totals4Blue-green Key columns5green Positive threshold value6red Negative threshold value7orange Control levelsA)设置列的颜色.我们可以通过字段目录的"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。
abap alv f4 标准
ABAP ALV F4标准一、概述ABAP ALV（Advanced List Viewer）是SAP系统中用于生成、显示和修改表格数据的一套标准工具。
而F4标准则是ALV的一个重要功能，用于提供字段值的可选择清单。
本文将从ABAP ALV和F4标准的基本概念介绍开始，逐步深入到具体的实践应用和案例分析，帮助读者全面了解和掌握这一重要功能。
二、ABAP ALV的基本概念1. ABAP ALV是什么ABAP ALV是SAP系统中的一套标准工具，用于生成、显示和修改表格数据。
它不仅提供了丰富的表格显示和编辑功能，还具有灵活的定制能力，可根据用户需求进行定制开发。
2. ABAP ALV的使用场景ABAP ALV广泛应用于SAP系统中的各个模块，如采购管理、生产管理、财务会计等领域。
它可以用于显示各种业务数据，如订单信息、库存数据、财务报表等，并支持用户对数据的查看、编辑和导出等操作。
三、F4标准的基本概念1. F4标准是什么F4标准是ABAP ALV的一个重要功能，用于提供字段值的可选择清单。
它在输入字段时，可通过F4键或按下候选按钮，弹出可选择清单供用户选择，从而减少用户的输入工作并提高数据准确性。
2. F4标准的使用场景F4标准通常用于需要输入字段值的场景，如订单创建、物料信息维护等。
它可以弹出各种可选择清单，如物料清单、供应商清单、客户清单等，为用户提供便捷的数值选择功能。
四、ABAP ALV F4标准的实践应用1. 如何在ABAP程序中使用F4标准在ABAP程序中使用F4标准，首先需要定义输入字段的参数和事件处理逻辑。
然后通过调用相应的函数模块或方法，将F4标准与输入字段关联起来，实现字段值的可选择清单功能。
2. F4标准的定制开发除了使用标准的F4功能外，ABAP开发人员还可以根据具体需求进行定制开发。
他们可以通过修改F4帮助事件、使用自定义帮助对象等方式，实现更灵活、个性化的F4功能。
3. F4标准与其他功能的结合应用F4标准还可以与其他功能结合应用，如输入带有F4帮助的字段值后，自动填充相关字段信息、触发特定的逻辑处理等。
abap-ALV-功能
ALV Simple Introduction一、ALV相关概念ALV――ABAP 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.。
SAP常用的透明表
表名表名PROJ项目定义PRPS WBS(工作中断结构) 元素主数据AUFK订单主数据（网络）COAS控制的订单主记录(AUFK表所有字段)AFPO订单项EBKN采购申请帐户设置RESB预定/相关需求AFKO订单表头数据 PP 订单（网络）AFVC订单的工序（作业的主数据）AFVV工序中数量/日期/值的DB结构AFRU订单确认ESLH服务包的头数据ESLL服务包的行EBAN采购申请RSDBS单独客户库存采购文档索引EKKO采购凭证抬头EKPO采购凭证项目EKBE采购凭证历史EKKN采购凭证中的帐户设置MSEG凭证段：物料RSEG凭证项目：收款发票COOI履约管理：行项目BPIG预算对象索引（总计预算）BPGE总计值的总计记录 成本控制对象BPTR对象数据 成本控制对象BPJA年总计的总计记录 成本控制对象RPSCO项目信息数据库: 成本, 销售收入,财务COSP CO 对象：外部记帐的成本总计COSS CO 对象:内部过帐成本总计BSAK会计核算：供应商的第二个索引（已结算项目）EKET计划协议计划行ESKN服务包中的帐户分配ESKL科目编码分配：服务行COEP成本控制对象：与期间相关的各行项目ACCTCR FI/CO 凭证的压缩数据 - 货币ESSR服务输入表的表头数据LFA1供应商主数据 (一般地区)ADRC地址 (业务地址服务)LFBK供应商主数据 (银行细目)LFB1供应商主数据 (公司代码)LFAT供应商主记录（税务分组）LFC3主供应商 (特殊总分类帐交易图表)KONP条件（项目）NRIV号码范围间隔EKBZ每个采购凭证的历史：交货费用RBKP凭证表头：发票收据VBSEGS凭证预制的凭证段 - 总帐科目数据库BP_V_EG所有凭证MARA常规物料数据MAKT物料描述T023物料组PRTE为项目项的排产数据JSTO状态对象信息TCJ1“项目类型”TJ02系统状态TJ30用户状态JEST单独对象状态COKA成本控制对象：成本要素控制数据FDM1凭证的现金管理和预测：现金管理和预测CSKA成本要素 (数据与科目表相关)BSIS会计核算: 总帐科目的次级索引S174ServicesCSKB成本要素 (数据与成本控制范围相关) COBK成本控制对象：凭证标题DRAW文档信息记录DRAT文档信息记录文本CEPC利润中心主数据表KNA1客户主文件的一般数据CSKS成本中心主数据SKB1总帐科目主记录 (公司代码)T001W工厂/分支机构BNKA银行主记录T001公司代码KLAH类表头数据KSML类的特性CABN特性CAWN特性值KSSK分配表： 对象到单个类AUSP特征值FDM2资金管理承诺凭证FMFCTR基金中心主记录ASMD服务主数据：基本数据COBRA订单结算的结算规则COBRB分配规则结算规则订单结算QBEW项目库存评估EORD采购货源清单FMCI承诺项目主数据表关系网络和WBS关系AUFK相同网络号、WBS号对应关系查看采购申请明细 关联WBS和网络项目上挂了物料后需求即在此表中查看。
转载：ABAP-ALV报表开发实例
ABAP-ALV报表开发ALV相关概念ALV是系统的一种网格的显示方式,这种方式带有汇总\排序\筛选等功能,ALV格式的数据是以单元格为单位显示,不象一般的写屏方式拷出来或是导出成文件不同列的内容粘在一块,这种方式便于数据导出来放在电子表格里进行加工。
ALV即能显示简单表单（SIMPLE LIST）又能显示有序表单（SEQUENTIAL LIST）：ALV实现方式：ALV 可以通过两种方式实现：Two ApproachesConventional (Using SAP Standard Function Modules).Object Oriented (Using SAP Standard Classes and Methods).以下我们要讲的为Function Modules方式。
ALV实现流程：第一步：定义将要用到的表，即TALBES定义部分，然后定义TYPE-POOLS: SLIS.第二步：定义数据类型或者内表的实体对象.第三步：定义一些需要用到的变量.第四步：定义自己的选择屏幕.第五步：start-of-selection部分.1)用一个子函数完成对ALV表单标题区域的赋值(i_list_comments).2)用一个子函数完成自己所需要数据的抓取.3)用一个子函数完成要显示列表的列名行(第一行)的相关赋值(i_fieldcat_alv)以及设置.4)用一个子函数完成输出格式的设置(i_layout)，比如双击一条记录是否弹出对话框啊?是用哪个功能键触发等等.5)用一个子函数FORM DISPLAY_DATA来显示上面我们已经分别封装好的数据，需要调用两个常用的FUNCTION MODULE.下面根据一个普通的例子(purchase order)来具体解释各步骤：*第一步：TABLES:EKKO,EKPO,T001,LFA1.TYPE-POOLS SLIS."有时可以还要包含*第二步：TYPES : BEGIN OF TYP_PURORDER, "TYPE OF Purchase Order InformationAEDAT TYPE EKKO-AEDAT, "Date on Which Record Was CreatedEBELN TYPE EKKO-EBELN, "Purchasing Document NumberMATNR TYPE EKPO-MATNR, "Material NumberTXZ01 TYPE EKPO-TXZ01,MENGE TYPE EKPO-MENGE, "Purchase Order QuantityMEINS TYPE EKPO-MEINS, "Purchase Order Unit of MeasureNETPR TYPE EKPO-NETPR, "Net Price in Purchasing DocumentWAERS TYPE EKKO-WAERS, "Currency KeyNETWR TYPE EKPO-NETWR, "Net Order Value in PO CurrencyEND OF TYP_PURORDER.DATA: ST_PURORDER TYPE TYP_PURORDER, "MAIN STRUCTERTD_PURORDER TYPE STANDARD TABLE OF TYP_PURORDER. "MAIN TABLE*第三步：*----------------------------------------------------------------------** COUNTER DEF*----------------------------------------------------------------------*DATA: W_BUKRS TYPE T001-BUKRS, "用于公司代码的检索W_LIFNR TYPE LFA1-LIFNR, "用于购买者代码的检索W_DATUM TYPE EKKO-AEDAT,W_DATE(10) TYPE C.*----------------------------------------------------------------------** FOR ALV DEF*----------------------------------------------------------------------*DATA: ST_LAYO TYPE SLIS_LAYOUT_ALV, "ALV LAYOUT STRTD_EVENT TYPE SLIS_T_EVENT, "ALV EVENT TABST_EVENT TYPE SLIS_ALV_EVENT, "ALV EVENT STRTD_COMMENT TYPE SLIS_T_LISTHEADER, "SET HEADER TABST_COMMENT LIKE LINE OF TD_COMMENT, "SET HEADER STRST_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "ALV FIELDCAT STRTD_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "ALV FIELDCAT TABST_SORT TYPE SLIS_SORTINFO_ALV, "ALV SORT STRTD_SORT TYPE SLIS_T_SORTINFO_ALV. "ALV SORT TAB*1)SLIS_LAYOUT_ALV是一个类型，它用来定义ALV报表的整体属性例如：*ST_LAYO-ZEBRA = 'X'.“显示成斑马纹样式*ST_LAYO-DETAIL_POPUP = 'X'.“是否弹出详细信息窗口*ST_LAYO-F2CODE = '&ETA'. “设置触发弹出详细信息窗口的功能码，这里是双击*ST_LAYO-COLWIDTH_OPTIMIZE = 'X'. “优化列宽选项是否设置*ST_LAYO-DETAIL_INITIAL_LINES = 'X'.*ST_LAYO -no_vline = 'X'.“这个用来设置列间隔线*ST_LAYO -detail_titlebar = '详细内容'. “设置弹出窗口的标题栏*2)SLIS_T_EVENT是一个取得事件的内表，通过函数REUSE_ALV_EVENTS_GET取得多个事件(包括操作页眉页脚的事件).*3)SLIS_T_LISTHEADER操作页眉页脚的内表.*4)SLIS_T_FIELDCAT_ALV操作ALV报表列的内表.*5)SLIS_T_SORTINFO_ALV对显示数据排序的内表。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
注意：本程序只能用于方便查看和导出透明表、表结构的结构。
在使用的时候，只需要输入表名或结构名即可，其他不用输入。
REPORT: z_test1.TABLES:tadir,trdirt,tstc,dd03l,dd02l,dd04l,dd02t,dd03t,dd04t. DATA: BEGIN OF ytadir OCCURS 0.INCLUDE STRUCTURE tadir.INCLUDE STRUCTURE trdirt.DATA: END OF ytadir.DATA:prog(72) TYPE c OCCURS 0 WITH HEADER LINE.*表结构DATA:BEGIN OF tab OCCURS 0.INCLUDE STRUCTURE dd03l.DATA:text(40).DATA:END OF tab.DATA:BEGIN OF t1 OCCURS 0,tabname LIKE dd02l-tabname,ddtext LIKE dd02t-ddtext,END OF t1.DATA:BEGIN OF itab OCCURS 0,field(15), "字段key(6), "关键字elment(15), "字段类型type(10), "数据类型leng(8) , "长度decimals(8) , "小数chk(10), "表检查can(10), "参考表cfi(10), "参考字段text(40), "字段描述END OF itab.DATA wa_itab LIKE LINE OF itab.DATA: yyname(150).DATA: tt(500) OCCURS 0 WITH HEADER LINE.DATA: rn(72).DATA: f_dir TYPE string.DATA:fields(40),lin TYPE i,val(30),rep(40).SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.PARAMETERS:dow AS CHECKBOX. "是否下载PARAMETERS:p_dir TYPE localfile DEFAULT 'D:\SAP开发程序'. "下载路径PARAMETERS:stype(6) DEFAULT 'TXT'.PARAMETERS:r1 RADIOBUTTON GROUP r ,r2 RADIOBUTTON GROUP r DEFAULT 'X'.SELECTION-SCREEN END OF BLOCK blk1.SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME.SELECT-OPTIONS:author FOR tadir-author. "开发人SELECT-OPTIONS:devclass FOR tadir-devclass. "开发类SELECT-OPTIONS:obj FOR tadir-obj_name . "下载程序名称SELECT-OPTIONS:tabname FOR dd02l-tabname . "下载表名称SELECTION-SCREEN END OF BLOCK blk2.INITIALIZATION .START-OF-SELECTION .IF r1 = 'X'.PERFORM get_data.ENDIF.IF r2 = 'X'.IF tabname IS INITIAL.MESSAGE i000(znyj13) WITH '请输入要下载的表名!'.ELSE.PERFORM get_table_data.ENDIF.ENDIF.AT LINE-SELECTION.CLEAR: fields, lin.GET CURSOR FIELD fields LINE lin VALUE val.lin = lin - 1.IF lin >= 1.READ TABLE ytadir INDEX lin.IF sy-subrc = 0.CLEAR rep.CLEAR prog.rep = ytadir-obj_name.READ REPORT rep INTO prog.EDITOR-CALL FOR prog.* SET PARAMETER ID 'RID' FIELD REP.* CALL TRANSACTION 'SE38' AND SKIP FIRST SCREEN.ENDIF.ENDIF.END-OF-SELECTION.*---------------------------------------------------------------------** FORM GET_DATA **---------------------------------------------------------------------** ........ **---------------------------------------------------------------------*FORM get_data.SELECT * INTO CORRESPONDING FIELDS OF TABLE ytadirFROM tadirINNER JOIN trdirt ON tadir~obj_name = trdirt~nameWHERE object = 'PROG'AND obj_name IN objAND devclass IN devclassAND author IN author.SORT ytadir BY obj_name.WRITE:/ '开发类','开发人','程序名称','程序标题'.LOOP AT ytadir.IF dow = 'X'.REFRESH tt.rn = ytadir-obj_name.READ REPORT rn INTO tt.CONCATENATE p_dir ytadir-author '_' ytadir-obj_name'_' ytadir-text '.' stypeINTO yyname.CALL FUNCTION 'WS_DOWNLOAD'EXPORTINGfilename = yynamefiletype = 'ASC'TABLESdata_tab = tt.IF sy-subrc = 0.WRITE:/1(10) ytadir-devclass,(8) ytadir-author,(15) ytadir-obj_name,(40) ytadir-text.FORMAT COLOR 5.WRITE: '已下载'.FORMAT COLOR OFF.ELSE.WRITE:/ ytadir-devclass,ytadir-author,ytadir-obj_name,ytadir-text.FORMAT COLOR 4.WRITE: '无法下载'.FORMAT COLOR OFF.ENDIF.ELSE.WRITE:/ ytadir-devclass,ytadir-author,ytadir-obj_name,ytadir-te xt.ENDIF.ENDLOOP.ENDFORM. "GET_DATA*---------------------------------------------------------------------** FORM GET_TABLE_DATA **---------------------------------------------------------------------** ........ **---------------------------------------------------------------------*FORM get_table_data.SELECT DISTINCT * INTO CORRESPONDING FIELDS OF TABLE t1FROM dd02t WHERE tabname IN tabnameAND ddlanguage EQ '1'.SELECT * INTO CORRESPONDING FIELDS OF TABLE tab FROM dd03l AS a WHERE a~tabname IN tabname.SORT tab BY tabname position.* uline.* write:/ sy-vline, at 2(10) '字段名',* sy-vline,at 14(10)'关键字',* sy-vline,at 26(10) '数据元素',* sy-vline,at 38(10) '数据类型',* sy-vline,at 50(10)'长度',* sy-vline,at 62(10)'小数',* sy-vline,at 74(10)'表检查',* sy-vline,at 86(10)'参考表',* sy-vline,at 98(10)'参考字段',* sy-vline,at 110(30)'字段描述',* at 142 sy-vline.* uline.LOOP AT t1.REFRESH itab.CLEAR yyname.IF dow = 'X'.itab-field = '字段名'.itab-key = '关键字'.itab-elment = '数据元素'.itab-type = '数据类型'.itab-leng = '长度'.itab-decimals = '小数'.itab-text = '字段描述'.itab-chk = '表检查'.itab-can = '参考表'.itab-cfi = '参考字段'.APPEND itab.CLEAR itab.ENDIF.CONCATENATE t1-tabname '_' t1-ddtext '的表结构如下:'INTO yyname.FORMAT COLOR 3.* WRITE:/ yyname.FORMAT COLOR OFF.LOOP AT tab WHERE tabname = t1-tabname.itab-field = tab-fieldname.itab-key = tab-keyflag.itab-elment = tab-rollname.itab-type = tab-datatype.itab-leng = tab-leng.itab-chk = tab-checktable.itab-can = tab-reftable.itab-cfi = tab-reffield.itab-decimals = tab-decimals.IF tab-rollname NE space.SELECT SINGLE * FROM dd04t WHERE rollname = tab-rollnameAND ddlanguage = '1'.IF sy-subrc = 0.itab-text = dd04t-ddtext.ELSE.CLEAR itab-text.ENDIF.ELSE.SELECT SINGLE * FROM dd03t WHERE tabname = tab-tabnameAND ddlanguage = '1'AND fieldname = tab-fieldname.IF sy-subrc = 0.itab-text = dd03t-ddtext.ELSE.CLEAR itab-text.ENDIF.ENDIF.APPEND itab.* write: /* sy-vline,at 2(10) itab-field,* sy-vline,at 14(10) itab-key,* sy-vline,at 26(10) itab-elment,* sy-vline,at 38(10) itab-type,* sy-vline,at 50(10) itab-leng,* sy-vline,at 62(10) itab-decimals,* sy-vline,at 74(10) itab-chk,* sy-vline,at 86(10) itab-can,* sy-vline,at 98(10) itab-cfi,* sy-vline,at 110(30) itab-text,* at 142 sy-vline.* clear itab.* uline.ENDLOOP.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTING* I_INTERFACE_CHECK = ' '* I_BYPASSING_BUFFER =* I_BUFFER_ACTIVE =* I_CALLBACK_PROGRAM = ' '* I_CALLBACK_PF_STATUS_SET = ' '* I_CALLBACK_USER_COMMAND = ' '* I_CALLBACK_TOP_OF_PAGE = ' '* I_CALLBACK_HTML_TOP_OF_PAGE = ' '* I_CALLBACK_HTML_END_OF_LIST = ' 'i_structure_name = 'ZTEST_ITAB' * I_BACKGROUND_ID = ' '* I_GRID_TITLE =* I_GRID_SETTINGS =* IS_LAYOUT_LVC =* IT_FIELDCAT_LVC =* IT_EXCLUDING =* IT_SPECIAL_GROUPS_LVC =* IT_SORT_LVC =* IT_FILTER_LVC =* IT_HYPERLINK =* IS_SEL_HIDE =* I_DEFAULT = 'X'* I_SAVE = ' '* IS_VARIANT =* IT_EVENTS =* IT_EVENT_EXIT =* IS_PRINT_LVC =* IS_REPREP_ID_LVC =* I_SCREEN_START_COLUMN = 0* I_SCREEN_START_LINE = 0* I_SCREEN_END_COLUMN = 0* I_SCREEN_END_LINE = 0* I_HTML_HEIGHT_TOP =* I_HTML_HEIGHT_END =* IT_ALV_GRAPHICS =* IT_EXCEPT_QINFO_LVC =* IR_SALV_FULLSCREEN_ADAPTER =* IMPORTING* E_EXIT_CAUSED_BY_CALLER =* ES_EXIT_CAUSED_BY_USER =TABLESt_outtab = itab.* EXCEPTIONS* PROGRAM_ERROR = 1* OTHERS = 2.IF sy-subrc <> 0.* Implement suitable error handling hereENDIF.IF dow = 'X'.CONCATENATE p_dir t1-tabname '_' t1-ddtext '.' stypeINTO yyname.CALL FUNCTION 'WS_DOWNLOAD'EXPORTINGfilename = yynamefiletype = 'ASC'TABLESdata_tab = itab.ELSE.ENDIF.ENDLOOP.ENDFORM. "GET_TABLE_DATA*&---------------------------------------------------------------------**& Form checkdir*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->DIR text* -->RET text*----------------------------------------------------------------------*FORM checkdir USING dir TYPE localfile CHANGING ret TYPE c.CALL FUNCTION 'WS_QUERY'EXPORTINGfilename = dirquery = 'DE'IMPORTINGreturn = retEXCEPTIONSinv_query = 1no_batch = 2frontend_error = 3OTHERS = 4.ENDFORM. "checkdir。