ABAP ALV 写法功能
百里落云 人气:0先导
记得刚学ABAP的时候问这问那,问东问西,常常一个可能不怎么用的东西,扣了好久好久.群里的大佬就说,学那么多没必要,以后是会天天写ALV , 讲真 因为 SAP 很多东西都已经通过配置就可以实现, 我们还真就是做表单相关的东西比较多,不能说全部,也是大部分. 好巧今天看到群友问ALV 相关的内容,这里整理一下,希望帮助更多的人 ヾ(◍°∇°◍)ノ゙.
流程顺序
开发ALV的基本流程:
第1步:声明变量
定义ALV所要用到的类型池:TYPE-POOLS: SLIS
针对ALV的控制信息数据(Layout & Fieldcat)
第2步:定义内表
存放自定义数据文件的数据,以及在ALV中显示
第3步:读取数据
读取数据存放至Internal Table
第4步:ALV格式控制
建立ALV显示样式(layout)和显示字段清单(Field Catalogs)
第5步:定义事件
建立事件清单(Event Catalogs)
第6步:显示ALV
调用ALV Function Module
第7步:用户事件
定义User按键处理事件
普通的ALV的流程如上图,包含所有常规流程.本质上是展示数据的报表. 以及常用语法的熟练使用,数据转换,逻辑计算等.
ALV 界面介绍
ALV组成3大部分
工具栏
标题栏
显示数据的网格控制器 (必要时可以隐藏工具栏和标题栏)
ALV 开发注意事项
注意事项:
1、在ALV中,需要注意所有需要显示的列,都必须在相应的内表中有对应的字段, 字段名字不能写错。
2、在SAP ABAP程序中,字符串的大小写很重要,在单引号包围的字符串中, 一般来说都应该用大写,特别是在调用一些系统的方法时传入字符串参数时。
3、传入到ALV中的列对应的字段名称也必须使用大写字母,否则数据不会显示出来。
4、使用宏定义或者子例程可以减少代码量,并且尽可能实现代码的复用。
5、注意在FORM里定义的变量在离开FORM后,就会被系统释放掉,回收内存空间。
ALV 基本参数
ALV 对象参数
ALV开发中两个重要的对象——FIELDCAT和LAYOUT:
在调用ALV的函数中,除了定义所输出使用的内表之外,
还有两个部分是必需确认的:列栏位属性和布局属性。
列栏位属性FIELDCAT :
设置输出中具体字段的名称、类型、格式等属性;
对于系统结构表,函数可参照此结构自动创建列属性,可以没有调用列栏位属性
布局属性LAYOUT:
设置输出ALV列表的整体布局的属性,如输出字段的颜色、表格中的线条等。
没有调用布局属性时,系统按默 认布局输出,不做任何调整。
两对象同属于类型组SLIS,在ALV开发中必须声明类型组SLIS
ALV 参数控制Layout
布局控制[layout]
布局是用来控制整个ALV的一个布局,比如ALV的标题,是否可编辑,行颜色,列颜色.
参照ALV的控制结构[LVC_S_LAYO],以后的例子我将详细介绍如何设置行颜色和列颜色.
详细的结构说明(注意这些字段的取值,单引号内,' '空格代表否,'X' 代表是)
字段名 描述 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 禁用系统自带的行选择'X'为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个字符
ALV 参数控制Fieldcat
Fieldcat
data: fieldcat type slis_t_fieldcat_alv with header line.
it_fieldcat = fieldcat[]
属性
(用来定义表单中的各个列的相关信息)
Fieldcat-col_pos = n. 输出列
Fieldcat-tabname = ‘FIELDNAME’. 对应的内表字段名
Fieldcat-seltext_s/m/l = ‘列名’. 输出列文本( _s:短文本 _l:长文本)
Fieldcat-emphasize = ‘CX10’. 带有颜色的高亮列(其中X=(1-7)颜色同format)
Fieldcat-hotspot = ‘X’. 作为热点显示可触发鼠标触发事件
Fieldcat-currency = ‘CURRKEY’. 表 TCURX 中的货币名称
Fieldcat-quantity(3) 计量单位
Fieldcat-qfieldname 参考计量单位的字段名称
Fieldcat-round = n. 四舍五入至小数位数下n 位
Fieldcat-exponent = n. 浮点数的幂指数为n
Fieldcat-key = ‘X’. 关键字段
Fieldcat-icon = ‘X’. 作为图标输出
Fieldcat-symbol = ‘X’. 输出作为符号
Fieldcat-checkbox = ‘X’. 作为复选框输出
Fieldcat-just = SPACE, 'R', 'L', 'C'. 对齐方式
Fieldcat-lzero = ‘X’. 输出前导零
Fieldcat-no_sign = ‘X’. 输出抑制符号
Fieldcat-no_zero = ‘X’. 为输出隐藏零
Fieldcat-edit_mask = SPACE, mask.. 输出为mask的模式
Fieldcat-fix_column = ‘X’. 固定列
Fieldcat-do_sum = ‘X’. 总计列值总和
Fieldcat-no_out = ‘X’. 列不输出
Fieldcat-tech = ‘X’. 该字段为技术字段
Fieldcat-outputlen = n 列的字符宽度为n
Fieldcat-decimals_out = n 能控制小数点的位数为n
Fieldcat-datatype = C,I,N… 定义数据类型
ALV定义事件
* 建立事件清单(Event Catalogs) *需定义事件块,否则出错 eventcat_ln-name = 'TOP_OF_PAGE'.eventcat_ln-form = 'PAGE_HEADER'. APPEND eventcat_ln TO eventcat. 事件块: FORM PAGE_HEADER. ENDFORM.
ALV DEMO
1:声明alv
代码
REPORT YALVDEMO1. *第一步 :声明alv相关 变量 TYPE-POOLS:SILS. "引入slis 包 定义 使用专门alv data:LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "存储fieldcat 内表, 列表标签相关 LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV, *WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "定义使用工作区 *ls_fieldcat like LINE OF LT_FIELDCAT, LS_LAYOUT TYPE SLIS_LAYOUT_ALV, "ALV格式控制的结构体 LT_EVENT TYPE slis_T_event , " 事件的内表 LS_EVENT TYPE slis_alv_event. "事件的工作区 DATA: pgm LIKE sy-repid. DATA LT_SORT TYPE SLIS_T_SORTINFO_ALV . DATA WA_SORT TYPE SLIS_SORTINFO_ALV. DATA LS_SETTING TYPE LVC_S_GLAY. DATA : LV_COLPOS TYPE INT2 .
着重解释
主要是生命变量
引入slis 包,
建立内表,
定义变量
2:定义内表
代码
*第二部:定义内表 *定义类型. TYPES:BEGIN OF ty_alvshow, CARRID TYPE SPFLI-CARRID, "航线代码 CITYFROM type SPFLI-CITYFROM , "起飞城市. CITYTO TYPE SPFLI-CITYTO , "目标城市 FLDATE type SFLIGHT-FLDATE ,"起飞时间 PLANETYPE TYPE SFLIGHT-PLANETYPE ,"飞机类型 SEATSMAX TYPE SFLIGHT-SEATSMAX ,"飞机容量 END OF ty_alvshow. *定义内表和工作区 data : LT_ALVSHOW TYPE TABLE OF ty_alvshow, "定义内表 WA_ALVSHOW TYPE ty_alvshow.
着重解释
类型 可以直接写入字段类型中的 类型
或者干脆 直接写表名-字段 也可以.
3:读取数据
代码
*第三部:读取数据 select a~CARRID CITYFROM CITYTO FLDATE PLANETYPE SEATSMAX FROM spfli as a inner join SFLIGHT as b on a~CARRID = b~CARRID into table LT_ALVSHOW "内表需要增加table UP TO 10 ROWS.
4:字段配置 ALV格式控制.
代码
*第四部: ALV 的格式控制. layout LS_LAYOUT-zebra = 'X'. "列输出位置 LS_LAYOUT-detail_popup = 'X' ."是否弹出详细明细窗口 LS_LAYOUT-detail_TITLEBAR = '详细信息'. LS_LAYOUT-f2code = '&ETA' . "设置触发弹窗信息功能 LS_LAYOUT-colwidth_optimize = 'X' . "设置自动优化列宽. "fieldcat 界面配置 lv_colpos = 1 . "字段显示为第几行 ls_FIELDCAT-fieldname = 'CARRID'. "那个字段 LS_FIELDCAT-col_pos = LV_COLPOS. LS_FIELDCAT-key = 'X'. LS_FIELDCAT-DATATYPE = 'CHAR' . LS_FIELDCAT-OUTPUTLEN = '10'. LS_FIELDCAT-SELTEXT_M = '飞机id'. APPEND LS_FIELDCAT to LT_FIELDCAT. clear LS_FIELDCAT . "fieldcat 界面配置 lv_colpos = LV_COLPOS + 1 . "字段显示为第几行 ls_FIELDCAT-fieldname = 'CITYFROM'. "那个字段 LS_FIELDCAT-col_pos = LV_COLPOS. LS_FIELDCAT-key = 'X'. LS_FIELDCAT-DATATYPE = 'CHAR' . LS_FIELDCAT-OUTPUTLEN = '30'. LS_FIELDCAT-SELTEXT_M = '出发城市'. APPEND LS_FIELDCAT to LT_FIELDCAT. clear LS_FIELDCAT . "fieldcat 界面配置 lv_colpos = LV_COLPOS + 1 . "字段显示为第几行 ls_FIELDCAT-fieldname = 'CITYTO'. "那个字段 LS_FIELDCAT-col_pos = LV_COLPOS. LS_FIELDCAT-key = 'X'. LS_FIELDCAT-DATATYPE = 'CHAR' . LS_FIELDCAT-OUTPUTLEN = '30'. LS_FIELDCAT-SELTEXT_M = '到达城市'. APPEND LS_FIELDCAT to LT_FIELDCAT. clear LS_FIELDCAT . "fieldcat 界面配置 lv_colpos = LV_COLPOS + 1 . "字段显示为第几行 ls_FIELDCAT-fieldname = 'FLDATE'. "那个字段 LS_FIELDCAT-col_pos = LV_COLPOS. LS_FIELDCAT-key = 'X'. LS_FIELDCAT-DATATYPE = 'DATS' . LS_FIELDCAT-OUTPUTLEN = '8'. LS_FIELDCAT-SELTEXT_M = '到达时间'. APPEND LS_FIELDCAT to LT_FIELDCAT. clear LS_FIELDCAT . "fieldcat 界面配置 lv_colpos = LV_COLPOS + 1 . "字段显示为第几行 ls_FIELDCAT-fieldname = 'PLANETYPE'. "那个字段 LS_FIELDCAT-col_pos = LV_COLPOS. LS_FIELDCAT-key = 'X'. LS_FIELDCAT-DATATYPE = 'char' . LS_FIELDCAT-EDIT = 'X'. LS_FIELDCAT-OUTPUTLEN = '20'. LS_FIELDCAT-SELTEXT_M = '飞机类型'. APPEND LS_FIELDCAT to LT_FIELDCAT. clear LS_FIELDCAT . "fieldcat 界面配置 *lv_colpos = LV_COLPOS + 1 . "字段显示为第几行 *ls_FIELDCAT-fieldname = 'SEATSMAX'. "那个字段 *LS_FIELDCAT-col_pos = LV_COLPOS. *LS_FIELDCAT-key = 'X'. *LS_FIELDCAT-DATATYPE = 'int4' . *LS_FIELDCAT-OUTPUTLEN = '20'. *LS_FIELDCAT-SELTEXT_M = '飞机容量'. *APPEND LS_FIELDCAT to LT_FIELDCAT. *clear LS_FIELDCAT . "fieldcat 界面配置 lv_colpos = LV_COLPOS + 1 . "字段显示为第几行 ls_FIELDCAT-fieldname = 'SEATSMAX'. "那个字段 LS_FIELDCAT-col_pos = LV_COLPOS. LS_FIELDCAT-ref_fieldname = 'SFLIGHT' . LS_FIELDCAT-do_sum = 'X' . LS_FIELDCAT-SELTEXT_M = '飞机容量'. APPEND LS_FIELDCAT to LT_FIELDCAT. Clear LS_FIELDCAT .
着重解释
首先需要配置layout 相关内容
在配置每个字段的fieldcat .
注意:显示列数要设置逐级增加,并且要把内表数据覆盖内表 ,并清空内表数据.
5:定义事件
代码
LS_EVENt-name = 'USER_COMMAND' ."用户响应事件 LS_EVENT-FORM = 'FORM_USER_COMMAND' . APPEND LS_EVENT TO LT_EVENT . CLEAR LS_EVENT . LS_EVENT-name = 'TOP_OF_PAGE' ."显示标题 LS_EVENT-form = 'FORM_TOP_OF_PAGE' . APPEND LS_EVENT TO LT_EVENT . CLEAR LS_EVENT . LS_EVENt-name = 'PF_STATUS_SET' ."显示状态栏 LS_EVENT-FORM = 'FORM_PF_STATUS_SET' . APPEND LS_EVENT TO LT_EVENT . CLEAR LS_EVENT .
6:排序(常用功能)
代码
*------第六步 排序 WA_SORT-fieldname = 'SEATSMAX' . WA_SORT-DOWN = 'X'. APPEND WA_SORT TO LT_SORT . CLEAR wa_sort . "清空工作区
7:显示alv数据
操作
光标要留在数据的位置,然后点 模式-->调用功能输入-->REUSE_ALV_GRID_DISPLAY
-->按回车.-->自动生成代码
代码
*第七部分显示alv LS_SETTING-EDT_CLL_CB = 'X' . "编辑单元格之后, 返回给程序编辑后的值. pgm = sy-repid. "回调对象 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' I_CALLBACK_PROGRAM = pgm I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET' I_CALLBACK_USER_COMMAND = 'USER_COMMAND' I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = * I_BACKGROUND_ID = ' ' * I_GRID_TITLE = I_GRID_SETTINGS = LS_SETTING "编辑单元格之后, 返回给程序编辑后的值. IS_LAYOUT = LS_LAYOUT IT_FIELDCAT = LT_FIELDCAT * IT_EXCLUDING = * IT_SPECIAL_GROUPS = IT_SORT = LT_SORT * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * I_SAVE = ' ' * IS_VARIANT = IT_EVENTS = LT_EVENT * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES T_OUTTAB = LT_ALVSHOW EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF.
解释
1:生成的代码都是注释的
2:选择使用的解除注释并赋值
8:按钮操作标题栏等配置
代码
*按钮 gui FORM FORM_PF_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB . SET PF-STATUS 'YALVDEMO1_GUI'. ENDFORM. *标题 FORM FORM_TOP_OF_PAGE. *定义数据 内表和工作区 DATA LT_COMMENTARY TYPE SLIS_T_LISTHEADER. DATA WA_COMMENTARY TYPE SLIS_LISTHEADER. WA_COMMENTARY-TYP = 'H' . WA_COMMENTARY-INFO = '飞机飞行清单' . APPEND WA_COMMENTARY TO LT_COMMENTARY . WA_COMMENTARY-TYP = 'S' . WA_COMMENTARY-INFO = '中号标题' . APPEND WA_COMMENTARY TO LT_COMMENTARY . CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING IT_LIST_COMMENTARY = LT_COMMENTARY. * I_LOGO = * I_END_OF_LIST_GRID = * I_ALV_FORM = ENDFORM. *用户操作按钮 FORM FORM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD . data : lt_SFLIGHT TYPE table of SFLIGHT , "内表 wa_SFLIGHT type SFLIGHT. "工作区 IF R_UCOMM = 'ZYDD1' . MESSAGE '你触发了按钮' TYPE 'I'. ELSEIF R_UCOMM = 'Z_SAVE1' . select * from SFLIGHT into table lt_SFLIGHT for ALL ENTRIES IN LT_ALVSHOW where CARRID = lt_alvshow-CARRID . ENDIF . loop at lt_SFLIGHT into wa_SFLIGHT . "从工作区取数 循环 READ TABLE LT_ALVSHOW into WA_ALVSHOW WITH KEY CARRID = wa_SFLIGHT-CARRID . if sy-SUBRC = 0 . *MESSAGE WA_ALVSHOW-PLANETYPE TYPE 'I'. wa_SFLIGHT-PLANETYPE = WA_ALVSHOW-PLANETYPE . MODIFY lt_SFLIGHT from wa_SFLIGHT. "内表更新 ENDIF . CLEAR wa_SFLIGHT . CLEAR WA_ALVSHOW. ENDLOOP. update SFLIGHT from table lt_SFLIGHT. if sy-subrc = 0 . commit work . "数据库提交 MESSAGE '保存成功' TYPE 'I'. else . ROLLBACK work . MESSAGE '保存失败' TYPE 'I'. ENDIF. ENDFORM .
总结
这个demo 是最简单的DEMO 使用的是 系统内置表(飞机表) , 其中包含了用户操作,排序,求和等常规用户操作和界面优化 .
常规语法的通俗使用. 此demo还可以进一步优化,把常规重复性操作写入到函数或者宏中,后续会发更优化版本.
作为入门demo 可以让你充分了解ALV ,及ALV 常规用到的属性.
加载全部内容