ALV相关总结

女爷i 2022-09-30 06:15 204阅读 0赞

使用函数显示ALV格式报表

1）定义ALV

type-pools slis. "调用类型组  
data: myrepid like sy-repid. "程序为当前程序  
data: i\_layout type slis\_layout\_alv. "ALV显示格式内表  
data: allfields type slis\_t\_fieldcat\_alv. " ALV显示字段内表  
data: i\_fieldcat type line of slis\_t\_fieldcat\_alv. "ALV字段信息结构  
data: e\_status type slis\_formname value 'STANDARD\_ER01'. "ALV自定义非标准按钮  
myrepid = sy-repid.  
2）ALV 显示属性  
i\_layout-colwidth\_optimize = 'X'. "自动调整列宽  
i\_layout-zebra = 'X'. "变换行颜色  
2）ALV写法，有两种：  
（1）法一，写成块形式  
data: pos type i.  
define alv\_append\_field. "定义模块  
i\_fieldcat-col\_pos = pos. "列标志  
i\_fieldcat-fieldname = &1. "字段名  
i\_fieldcat-seltext\_l = &2. "字段描述  
i\_fieldcat-no\_zero = 'X'. "不显示值为0的数据和前导0  
... "其它的fieldcat属性  
append i\_fieldcat to allfields. "写进显示字段内表  
clear i\_fieldcat.  
pos = pos + 1. "下一列  
end-of-definition.  
refresh allfields.  
pos = 1.  
clear i\_fieldcat.  
alv\_append\_field 'FLDNAME' 'FLDTXT' .  
（2）法二：标准形式  
clear i\_fieldcat.  
i\_fieldcat-fieldname = 'FLDNAME'. "字段名  
i\_fieldcat-seltext\_l = 'FLDTXT'. "字段描述  
i\_fieldcat-no\_zero = 'X'.  
... "其它fieldcat属性  
append i\_fieldcat to allfields.  
... "循环同上  
3）调用ALV显示函数  
call function 'REUSE\_ALV\_GRID\_DISPLAY' "statt LIST  
exporting  
i\_callback\_program = myrepid  
i\_callback\_pf\_status\_set = e\_status "使用非标准按钮  
is\_layout = i\_layout  
i\_CALLBACK\_USER\_COMMAND = 'USER\_COMMAND' "非标准按钮动作  
it\_fieldcat = allfields "显示字段的内表  
i\_save = 'A' "是否打开保存  
tables  
t\_outtab = itab " 内表名  
exceptions  
program\_error = 1  
others = 2.

注：alv有两种显示格式的function：（1）REUSE\_ALV\_LIST\_DISPLAY（和 write到屏幕一样的样式）；（2）REUSE\_ALV\_GRID\_DISPLAY（单元格样式）。

ALV2：ALV列、行、单元格颜色设置  
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\_fieldname  
exa ：  
定义内表itab含字段FLDNAME type LVC\_S\_SCOL；  
定义单元格颜色结构cellcolor type LVC\_S\_SCOL；  
循环内表，当要设置单元格颜色所在的列字段 colname要设置颜色时  
fldname-FNAME = ‘ COLNAME ’  
fldname-COLOR-col = ‘ 2 ’ （颜色代码）  
fldname-COLOR-int = ‘ 1 ’  
fldname-COLOR-inv = ‘ 0 ’ 。

ALV3：ALV的html表头  
在ALV的function的exporting里添加属性：

I\_CALLBACK\_HTML\_TOP\_OF\_PAGE = 'HTML\_TOP\_OF\_PAGE  
定义form响应上述ALV属性  
form html\_top\_of\_page using document type ref to cl\_dd\_document.  
DATA: text TYPE SDYDO\_TEXT\_ELEMENT.  
 text = titlname  
 CALL METHOD DOCUMENT->ADD\_TEXT  
    EXPORTING  
      TEXT      = text  
      SAP\_STYLE = 'HEADING'.  
 "换行写另一标题  
 CALL METHOD DOCUMENT->NEW\_LINE.  
或使用空格  
CALL METHOD DOCUMENT->ADD\_GAP  
    EXPORTING  
      WIDTH = 10. "空格宽10  
...  
 endform.

ALV4：ALV里显示状态灯  
1）在alv引用类型池定义时加入icon，如type-pools: slis, icon.

2）给显示内表itab定义一字段statu存储状态灯；

3）循环内表itab给字段statu值赋：  
绿灯：itab-statu = icon\_led\_green.  
红灯：itab-statu = icon\_led\_red.  
4）alv的fieldcat属性i\_fieldcat-icon = 'X'.  
ALV5：ALV的layout属性  
ALV里的显示属性可通过定义i\_layout TYPE slis\_layout\_alv来使用不同的显示风格。可双击“slis\_layout\_alv”来查看类型组SLIS里的layout属性：

父类  子类  子类  主要属性（部分）  描述   
slis\_layout\_alv  slis\_layout\_main    dummy    
slis\_layout\_alv\_spec  slis\_layout\_alv\_spec0  no\_colhead(1) type c 没有标题  
zebra(1) type c 行颜色间隔改变  
no\_vline(1) type c 没有竖线，由空格代替  
no\_hline(1) type c 没有横线，由空格代替  
cell\_merge(1) type c 单元格复制形式  
edit(1) type c 可编辑仅为grid  
edit\_mode(1) type c 编辑模式仅为grid  
numc\_sum(1) type c 数值型字段汇总  
no\_input(1) type c 仅输出  
no\_keyfix(1) type c 不固定关键字列  
slis\_layout\_alv\_spec1  Display options 显示属性    
colwidth\_optimize(1) type c 自动调整列宽  
no\_min\_linesize(1) type c line size = width of the list  
min\_linesize like sy-linsz if initial min\_linesize = 80  
max\_linesize like sy-linsz, Default 250  
window\_titlebar like sy-title    
no\_uline\_hs(1) type c    
Exceptions 扩展    
lights\_fieldname type slis\_fieldname    
lights\_tabname type slis\_tabname    
lights\_rollname like dfies-rollname    
lights\_condense(1) type c    
Sums 合计    
no\_sumchoice(1) type c 不可选择总计  
no\_totalline(1) type c 没有合计行  
no\_subchoice(1) type c 不可选择小计  
no\_subtotals(1) type c 没有小计  
no\_unit\_splitting type c    
totals\_before\_items type c 在明细前显示合计  
totals\_only(1) type c 只显示合计  
totals\_text(60) type c 合计第一列文本行  
subtotals\_text(60) type c 小计第一列文本行  
Interaction 继承    
box\_fieldname type slis\_fieldname    
box\_tabname type slis\_tabname    
box\_rollname like dd03p-rollname    
key\_hotspot(1) type c keys as hotspot  
flexible\_key(1) type c key columns movable  
group\_buttons(1) type c buttons for COL1 - COL5  
get\_selinfos(1) type c read selection screen  
group\_change\_edit(1) type c Settings by user for new group  
no\_scrolling(1) type c no scrolling  
Detailed screen 屏幕详细    
detail\_popup(1) type c 弹出显示明细  
detail\_initial\_lines(1) type c 显示初始行  
detail\_titlebar like sy-title 详细标题栏  
Display variants 显示变量    
header\_text(20) type c 标题按钮文本  
default\_item(1) type c 默认明细  
colour 颜色    
info\_fieldname type slis\_fieldname    
coltab\_fieldname type slis\_fieldname    
others 其它（略）

ALV6：ALV的fieldcat属性  
ALV里的字段属性可通过定义i\_fieldcat TYPE slis\_t\_fieldcat\_alv来使用字段的属性。可双击“slis\_t\_fieldcat\_alv”来查看类型组SLIS里的fieldcat 属性，slis\_t\_fieldcat\_alv 来自类slis\_fieldcat\_alv，该类主要包含两个类：slis\_fieldcat\_main、 slis\_fieldcat\_alv\_spec，主要有以下属性：

父类  子类  子类  主要属性（部分）  描述   
Slis\_fieldcat\_alv  slis\_fieldcat\_main  slis\_fieldcat\_main0  row\_pos 输出行  
col\_pos 列位置  
fieldname    
tabname 标签名称  
currency(5) 货币单位  
cfieldname field with currency unit  
ctabname Table with currency unit  
ifieldname initial column  
quantity(3) 计量单位  
qfieldname 参考计量单位的字段名称  
qtabname Table with quantity unit  
round ROUND 值  
exponent(3) 流动表示的指数  
key(1) 关键字段  
icon(1) 作为图标输出  
symbol(1) 输出作为符号  
checkbox(1) 作为复选框输出  
just(1) 对齐  
lzero(1) 输出前导零  
no\_sign(1) 输出抑制符号  
no\_zero(1) 为输出隐藏零  
no\_convext(1)    
edit\_mask 为输出编辑掩码  
emphasize(4) 带有颜色的高亮列  
fix\_column(1) 固定列  
do\_sum(1) 总计列值  
no\_out(1) 列没有输出  
tech(1) 技术字段  
outputlen 列的字符宽度  
offset offset  
seltext\_l 长文本  
seltext\_m 中文本  
seltext\_s 短文本  
slis\_fieldcat\_main1  ref\_fieldname    
ref\_tabname    
roundfieldname    
roundtabname    
decimalsfieldn    
decimalstabnam    
decimals\_out(6) 控制小数点的位数  
text\_fieldname    
reptext\_ddic    
ddic\_outputlen    
slis\_fieldcat\_alv\_spec     key\_sel(1) field not obligatory  
no\_sum(1) do not sum up  
sp\_group(4) group specification  
reprep(1) selection for rep/rep  
input(1) input  
edit(1) internal use only  
hotspot(1) hotspot

ALV7：ALV式的弹出窗口  
在系统标准程序下，有不少屏幕在检查或过帐时会弹出一个小型的ALV窗口，上面记录着错误信息，这种ALV弹出式窗口可通过以下方法做成：  
（1）定义ALVBOX  
data:box\_container type ref to cl\_gui\_dialogbox\_container,  
     box\_alv type ref to cl\_gui\_alv\_grid.  
class lcl\_event\_handler definition.  
 public section.  
 class-methods:  
on\_close for event close of cl\_gui\_dialogbox\_container importing sender.  
endclass.  
class lcl\_event\_handler implementation.  
 method on\_close.  
   call method sender->free.  
    free: box\_container, box\_alv .  
 endmethod.  
endclass.  
data: ls\_fcat type lvc\_s\_fcat., "ALV的fieldcat属性行  
lt\_fieldcat type lvc\_t\_fcat. "ALV的fieldcat属性内表  
data: ls\_layout type lvc\_s\_layo. " ALV的layout属性内表  
可双击父类lvc\_t\_fcat、lvc\_s\_layo来查看所包含的属性  
（2）建立ALV对象  
    create object box\_container  
      exporting  
        width   = 600      " 窗口大小  
        height = 200  
        top     = 120  
        left    = 120  
        caption = ' 提示信息' "弹出窗口标题  
      exceptions  
        others = 1.  
set handler lcl\_event\_handler=>on\_close for box\_container.  
 create object box\_alv  
    exporting  
      i\_parent          = box\_container  
    exceptions  
      others           = 1.  
（3）输出ALV的fieldcat属性和layout属性  
call function 'LVC\_FIELDCATALOG\_MERGE'  
 exporting  
   i\_structure\_name          = 'ZSTAB'   " 输出格式对应的结构  
 changing  
   ct\_fieldcat                = lt\_fieldcat "ALV 的fieldcat属性内表  
 exceptions  
   inconsistent\_interface       = 1  
   program\_error             = 2  
   others                    = 3.  
注：要事先在se11创建一个和ALV 输出字段一致的结构ZSTAB；  
      " 写入fieldcat的属性  
loop at lt\_fieldcat into ls\_fcat.  
 ls\_fcat-icon = 'X '.  
 ...  
  modify lt\_fieldcat from ls\_fcat.  
endloop.  
"写入layout属性  
ls\_layout-cwidth\_opt = 'X '.  
...  
（4）调用方法显示ALV窗口  
call method box\_alv->set\_table\_for\_first\_display  
 exporting  
   i\_structure\_name              = 'ZBGER' " 输出格式对应的结构  
   is\_layout                   = ls\_layout "layout 属性  
   i\_default                   = 'X'  
 changing  
   it\_outtab                   = itab " 内表  
   it\_fieldcatalog               = lt\_fieldcat "fieldcat 属性  
 exceptions  
   others                        = 1.  
弹出式窗口另外做法：可使用write到屏幕的办法，如下：

（1）在程序中创建一个screen type 为“方式对话框”的屏幕；  
（2）在屏幕输出前，write要输出的数据：  
process before output.  
 modiule frm\_write\_out.  
（3）在module里写输出到屏幕的代码  
module frm\_write\_out output.  
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.  
NEW-PAGE NO-TITLE.  
write ...  
LEAVE SCREEN.  
endmodule.

本文来自CSDN博客，转载请标明出处：[http://blog.csdn.net/animalbe/archive/2010/05/12/5581263.aspx][http_blog.csdn.net_animalbe_archive_2010_05_12_5581263.aspx]

[http_blog.csdn.net_animalbe_archive_2010_05_12_5581263.aspx]: http://blog.csdn.net/animalbe/archive/2010/05/12/5581263.aspx