ALV报表和SMARTFORM的结合
ALV报表和SMARTFORM的结合
编辑：www.fx114.net
本篇文章主要介绍了"ALV报表和SMARTFORM的结合"，主要涉及到ALV报表和SMARTFORM的结合方面的内容，对于ALV报表和SMARTFORM的结合感兴趣的同学可以参考一下。
ALV报表和SMARTFORM的结合
*&---------------------------------------------------------------------**&&Report&&ZALV_DGY*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT&&ZALV_DGY.TYPE-POOLS:&SLIS.TABLES:MARA.*DATA:&BEGIN&OF&IT_ST&OCCURS&10,&&&&&&&MATNR&LIKE&MARA-MATNR,&&&&&&&WESCH&LIKE&MARA-WESCH,&&&&&&&WRKST&LIKE&MARA-WRKST,&&&&&&&END&OF&IT_ST.*DATA&IT_ST&LIKE&MARA&OCCURS&0.PARAMETERS:P_ERSDA&LIKE&MARA-ERSDA.SELECT-OPTIONS:S_MATNR&FOR&MARA-MATNR.*&Internal&Tables&and&Variants&for&ALV&outputCONSTANTS:&&C_DDICTXT_M(1)&TYPE&C&VALUE&'M'.DATA:&IT_FIELDCAT&TYPE&SLIS_T_FIELDCAT_ALV.DATA:&WA_FIELDCAT&LIKE&LINE&OF&IT_FIELDCAT.DATA:&GS_LAYOUT&TYPE&SLIS_LAYOUT_ALV,&&&&&&GS_VARIANT&LIKE&DISVARIANT.DATA:&GT_LIST_TOP_OF_PAGE&TYPE&SLIS_T_LISTHEADER,&&&&&&G_TOP_OF_PAGE&TYPE&SLIS_FORMNAME&VALUE&'TOP_OF_PAGE'.DATA:&G_REPID&TYPE&SY-REPID,&&&&&&G_STATUS_FORM&TYPE&SLIS_FORMNAME&VALUE&'PF_STATUS_SET',&&&&&&G_COMMAND_FORM&TYPE&SLIS_FORMNAME&VALUE&'USER_COMMAND',&&&&&&G_SAVE(1).DATA:&IT_SORT_LINE&TYPE&SLIS_SORTINFO_ALV,&&&&&&IT_SORT_TAB&TYPE&SLIS_T_SORTINFO_ALV.START-OF-SELECTION.&&&PERFORM&READ_IT_ST.END-OF-SELECTION.&&&PERFORM&OUTPUT_RESULT_AS_ALV&TABLES&IT_ST&&&&&&&&&&&&&&&&&&&&&&&&&&USING&&'IT_ST'.*&---------------------------------------------------------------------*&&&&&&&Form&&READ_IT_ST*&---------------------------------------------------------------------*&&&&&&&text*----------------------------------------------------------------------*&&--&&&p1&&&&&&&&text*&&&--&&p2&&&&&&&&text*----------------------------------------------------------------------FORM&READ_IT_ST&.&&SELECT&MATNR&WESCH&WRKST&FROM&MARA&&&INTO&CORRESPONDING&FIELDS&OF&TABLE&IT_ST&&&&&WHERE&MATNR&IN&S_MATNR&&&&&&&&&&&AND&ERSDA&&&P_ERSDA.&&IF&SY-SUBRC&NE&0.&&&&EXIT.&&ENDIF.ENDFORM.&&&&&&&&&&&&&&&&&&&&&&READ_IT_ST*&---------------------------------------------------------------------*&&&&&&&Form&&OUTPUT_RESULT_AS_ALV*&---------------------------------------------------------------------*&&&&&&&Output&result&to&screen&using&ALV&format*----------------------------------------------------------------------*&&&&&&--&T_ITAB&&text*&&&&&&--&P_ITABNAME&&text*----------------------------------------------------------------------FORM&OUTPUT_RESULT_AS_ALV&TABLES&T_ITAB&&&&&&&&&&&&&&&&&&&&&&&&&&USING&&P_ITABNAME&TYPE&SLIS_TABNAME.&&G_REPID&=&SY-REPID.&&REFRESH&IT_FIELDCAT.*&pass&over&structure&for&output&list&&CALL&FUNCTION&'REUSE_ALV_FIELDCATALOG_MERGE'&&&&&&&EXPORTING&&&&&&&&&&&&I_PROGRAM_NAME&&&&&&&&&=&G_REPID&&&&&&&&&&&&I_INTERNAL_TABNAME&&&&&=&P_ITABNAME&&&&&&&&&&&&I_INCLNAME&&&&&&&&&&&&&=&G_REPID&&&&&&&CHANGING&&&&&&&&&&&&CT_FIELDCAT&&&&&&&&&&&&=&IT_FIELDCAT&&&&&&&EXCEPTIONS&&&&&&&&&&&&INCONSISTENT_INTERFACE&=&1&&&&&&&&&&&&PROGRAM_ERROR&&&&&&&&&&=&2&&&&&&&&&&&&OTHERS&&&&&&&&&&&&&&&&&=&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.&&LOOP&AT&IT_FIELDCAT&INTO&WA_FIELDCAT.&&&&CASE&WA_FIELDCAT-FIELDNAME.&&&&&&WHEN&'MATNR'&OR&'MAKTX'.&&&&&&&&WA_FIELDCAT-KEY&=&'X'.&&&&&&WHEN&'TOTAL'.&&&&&&&&WA_FIELDCAT-SELTEXT_S&=&TEXT-T01.&&&&&&&&WA_FIELDCAT-SELTEXT_M&=&TEXT-T01.&&&&&&&&WA_FIELDCAT-SELTEXT_L&=&TEXT-T01.&&&&&&&&WA_FIELDCAT-REPTEXT_DDIC&=&TEXT-T01.&&&&&&&&WA_FIELDCAT-DDICTXT&&&=&C_DDICTXT_M.&&&&ENDCASE.&&&&MODIFY&IT_FIELDCAT&FROM&WA_FIELDCAT.&&ENDLOOP.&&G_SAVE&=&'A'.&&GS_LAYOUT-zebra&=&'X'.*&&GS_LAYOUT-BOX_FIELDNAME&=&'SELKZ'.&&GS_LAYOUT-COLWIDTH_OPTIMIZE&=&'X'.*&Build&sort&info*&&REFRESH&IT_SORT_TAB.*&&CLEAR&IT_SORT_LINE.*&&IT_SORT_LINE-FIELDNAME&=&'EKGRP'.*&&IT_SORT_LINE-UP&=&'X'.*&&IT_SORT_LINE-SUBTOT&='X'.*&&APPEND&IT_SORT_LINE&TO&IT_SORT_TAB.*&List&Header&for&Top-Of-Page*&&PERFORM&COMMENT_BUILD&USING&GT_LIST_TOP_OF_PAGE[].*&Display&data&in&ALV&Grid&&CALL&FUNCTION&'REUSE_ALV_GRID_DISPLAY'&&&&EXPORTING&&&&&&I_CALLBACK_PROGRAM&&&&&&&&&&&&&&&&=&G_REPID&&&&&&I_CALLBACK_PF_STATUS_SET&&&&&&&&&&=&G_STATUS_FORM&&&&&&&I_CALLBACK_USER_COMMAND&&&&&&&&&&&=&G_COMMAND_FORM*&&&&&&I_CALLBACK_TOP_OF_PAGE&&&&&&&&&&&&=&G_TOP_OF_PAGE&&&&&&IS_LAYOUT&&&&&&&&&&&&&&&&&&&&&&&&&=&GS_LAYOUT&&&&&&IT_FIELDCAT&&&&&&&&&&&&&&&&&&&&&&&=&IT_FIELDCAT[]&&&&&&I_SAVE&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&G_SAVE&&&&&&IS_VARIANT&&&&&&&&&&&&&&&&&&&&&&&&=&GS_VARIANT&&&&&&IT_SORT&&&&&&&&&&&&&&&&&&&&&&&&&&&=&IT_SORT_TAB&&&&TABLES&&&&&&T_OUTTAB&&&&&&&&&&&&&&&&&&&&&&&&&&=&T_ITAB[]&&&&EXCEPTIONS&&&&&&PROGRAM_ERROR&&&&&&&&&&&&&&&&&&&&&=&1&&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&&&&&&&&=&2.&&IF&SY-SUBRC&&&&0.&&&&MESSAGE&ID&SY-MSGID&TYPE&SY-MSGTY&NUMBER&SY-MSGNO&&&&&&&&&&&&WITH&SY-MSGV1&SY-MSGV2&SY-MSGV3&SY-MSGV4.&&ENDIF.ENDFORM.&&&&&&&&&&&&&&&&&&&&&&OUTPUT_RESULT_AS_ALV*&---------------------------------------------------------------------*&&&&&&&Form&&TOP_OF_PAGE*&---------------------------------------------------------------------*&&&&&&&Top&of&page,&called&by&ALV&function*----------------------------------------------------------------------FORM&TOP_OF_PAGE.&&CALL&FUNCTION&'REUSE_ALV_COMMENTARY_WRITE'&&&&&&&EXPORTING&&&&&&&&&&&IT_LIST_COMMENTARY&=&GT_LIST_TOP_OF_PAGE.ENDFORM.&&&&&&&&&&&&&&&&&&&&&&TOP_OF_PAGE*&---------------------------------------------------------------------*&&&&&&&Form&&COMMENT_BUILD*&---------------------------------------------------------------------*&&&&&&&Filling&long&text&of&top&into&a&table*----------------------------------------------------------------------*&&&&&&&&--&LT_TOP_OF_PAGE&&text*----------------------------------------------------------------------FORM&COMMENT_BUILD&USING&LT_TOP_OF_PAGE&TYPE&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&SLIS_T_LISTHEADER.&&DATA:&LS_LINE&TYPE&SLIS_LISTHEADER.*&LIST&HEADING&LINE:&TYPE&H&&CLEAR&LS_LINE.&&LS_LINE-TYP&&=&'H'.*&LS_LINE-KEY:&&NOT&USED&FOR&THIS&TYPE&&LS_LINE-INFO&=&'TITLE'.&&APPEND&LS_LINE&TO&LT_TOP_OF_PAGE.*&STATUS&LINE:&TYPE&S&&CLEAR&LS_LINE.&&LS_LINE-TYP&&=&'S'.&&LS_LINE-KEY&&=&'Date:'.&&LS_LINE-INFO&=&SY-DATUM.&&APPEND&LS_LINE&TO&LT_TOP_OF_PAGE.&&LS_LINE-KEY&&=&'User:'.&&LS_LINE-INFO&=&SY-UNAME.&&APPEND&LS_LINE&TO&LT_TOP_OF_PAGE.*&ACTION&LINE:&TYPE&A&&CLEAR&LS_LINE.&&LS_LINE-TYP&=&'A'.&&LS_LINE-INFO&=&'Some&other&text'.&&APPEND&LS_LINE&TO&LT_TOP_OF_PAGE.ENDFORM.&&&&&&&&&&&&&&&&&&&&&&COMMENT_BUILD*以下是加按钮的过程.FORM&&PF_STATUS_SET&USING&rt_extab&TYPE&slis_t_extab.&&&SET&PF-STATUS&'1001'&.&ENDFORM.&FORM&user_command&&using&&r_ucomm&LIKE&sy-ucomm&&rs_selfield&TYPEslis_selfield.&&DATA&:&ld_sammg&LIKE&vbsk-sammg.&&CASE&r_ucomm.&&&&WHEN&'EXIT'.&&&&&&LEAVE&PROGRAM.&&&&WHEN&'ENTER'&OR&'CANCEL'.&&&&&&SET&SCREEN&0.&&&&&&LEAVE&SCREEN&.*&&&&WHEN&'UPDATE_RQ'.*&&&&&&LOOP&AT&itab.*&&&&&&ENDLOOP.&&&&WHEN&'ZU01'.*&&&&&&CALL&SCREEN&200.*&&&&&&WRITE:&'OUT'.&&&&&&&MESSAGE&'HI&你好这是按钮事件'&TYPE&'I'.&&&&&PERFORM&OutPutSmart&.&&ENDCASE.ENDFORM.FORM&OutPutSmart&.DATA:&LF_FM_NAME&&&&&&&&&&&&TYPE&RS38L_FNAM.DATA:&LF_FORMNAME&&&&&&&&&&&TYPE&TDSFNAME.*DATA:&BEGIN&OF&WA,*&&&&&&MATNR&LIKE&MARA-MATNR,*&&&&&&WESCH&LIKE&MARA-WESCH,*&&&&&&WRKST&LIKE&MARA-WRKST,*&&&&&&END&OF&WA.DATA&ITab&like&mara&OCCURS&0.data&lien&like&mara.LOOP&AT&IT_ST.&&&lien-matnr&=&it_st-matnr.&&&lien-WESCH&=&it_st-WESCH.&&&lien-wrkst&=&it_st-wrkst.&&&APPEND&lien&TO&itab.ENDLOOP.*DATA&ITab&LIKE&WA&OCCURS&0&WITH&HEADER&LINE.**SELECT&MATNR&WESCH&WRKST*&&&&into&CORRESPONDING&FIELDS&OF&TABLE&ITab*&&&&FROM&MARA.&&LF_FORMNAME&=&'ZSMARTFORM_DGY'.*&determine&smartform&function&module&for&delivery&note&&&&CALL&FUNCTION&'SSF_FUNCTION_MODULE_NAME'&&&&&&&&&EXPORTING&&FORMNAME&&&&&&&&&&&=&LF_FORMNAME*&&&&&&&&&&&&&&&&&variant&&&&&&&&&&&&=&'&'*&&&&&&&&&&&&&&&&&direct_call&&&&&&&&=&'&'&&&&&&&&&IMPORTING&&FM_NAME&&&&&&&&&&&&=&LF_FM_NAME&&&&&&&&&EXCEPTIONS&NO_FORM&&&&&&&&&&&&=&1&&&&&&&&&&&&&&&&&&&&NO_FUNCTION_MODULE&=&2&&&&&&&&&&&&&&&&&&&&OTHERS&&&&&&&&&&&&&=&3.&&&&CALL&FUNCTION&LF_FM_NAME&&&&&&EXPORTING*&&&&&&&ARCHIVE_INDEX&&&&&&&&&&&&&&=*&&&&&&&ARCHIVE_INDEX_TAB&&&&&&&&&&=*&&&&&&&ARCHIVE_PARAMETERS&&&&&&&&&=*&&&&&&&CONTROL_PARAMETERS&&&&&&&&&=*&&&&&&&MAIL_APPL_OBJ&&&&&&&&&&&&&&=*&&&&&&&MAIL_RECIPIENT&&&&&&&&&&&&&=*&&&&&&&MAIL_SENDER&&&&&&&&&&&&&&&&=*&&&&&&&OUTPUT_OPTIONS&&&&&&&&&&&&&=*&&&&&&&USER_SETTINGS&&&&&&&&&&&&&&=&'X'&&&&&&&&CODE&&&&&&&&&&&&&&&&&&&&&&&=&'AA'*&&&&&IMPORTING*&&&&&&&DOCUMENT_OUTPUT_INFO&&&&&&&=*&&&&&&&JOB_OUTPUT_INFO&&&&&&&&&&&&=*&&&&&&&JOB_OUTPUT_OPTIONS&&&&&&&&&=&&&&&&TABLES&&&&&&&&IT_TABLE1&&&&&&&&&&&&&&&&&&=&ITAB*&&&&&EXCEPTIONS*&&&&&&&FORMATTING_ERROR&&&&&&&&&&&=&1*&&&&&&&INTERNAL_ERROR&&&&&&&&&&&&&=&2*&&&&&&&SEND_ERROR&&&&&&&&&&&&&&&&&=&3*&&&&&&&USER_CANCELED&&&&&&&&&&&&&&=&4*&&&&&&&OTHERS&&&&&&&&&&&&&&&&&&&&&=&5&&&&&&&&&&&&&&.&&&&IF&SY-SUBRC&&&&0.*&MESSAGE&ID&SY-MSGID&TYPE&SY-MSGTY&NUMBER&SY-MSGNO*&&&&&&&&&WITH&SY-MSGV1&SY-MSGV2&SY-MSGV3&SY-MSGV4.&&&&ENDIF.ENDFORM.&&
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：ALV报表 - LeifChen的博客 - CSDN博客
报表过程事件
在报表运行过程中由系统自动控制、按照一定次序被触发的事件，其目的是从数据库中选择数据并整理，准备进行列表输出。
INITIALIZATION-初始化事件：用于程序初始化，例如选择屏幕中字段默认值的填充。
START-OF-SELECTION-选择开始事件：如果报表中含有选择屏幕，则在选择屏幕的处理结束后触发，是报表程序的默认事件块。
END-OF-SELECTION-选择结束事件：在所有逻辑数据库处理结束后触发，一般在该事件之中输出列表。
选择屏幕事件
AT SELECTION-SCREEN OUTPUT-选择屏幕PBO事件：显示选择屏幕之前触发。
AT SELECTION-SCREEN-选择屏幕PAI事件：用户在选择屏幕中执行某些功能后被触发。可用于输入不正确的提示。
一个函数、两个控制结构的使用
函数： REUSE_ALV_GRID_DISPLAY_LVC
调用此函数输出内表数据。
控制结构FIELD CATALOG（字段目录）
控制结构LAYOUT（布局控制）
两个触发事件
工具栏的自定义PF-STATUS
用户命令实现USER-COMMAND
输出ALV表头（实际项目较少使用）
以HTML的方式输出ALV表头。
调用函数: REUSE_ALV_GRID_DISPLAY_LVC
CALL FUNCTION
I_CALLBACK_PROGRAM
= SY-REPID
IT_FIELDCAT_LVC
= FIELDCAT
IS_LAYOUT_LVC
I_CALLBACK_PF_STATUS_SET =
I_CALLBACK_USER_COMMAND
FIELD CATALOG（字段目录）
FIELDCAT用来控制ALV显示的网格中每个字段的属性，如对应内表字段，输出长度
、可编辑状态、颜色、标签文本、样式等。
传入ALV函数的FIELDCAT参考系统表类型LVC_T_FCAT，其工作区参考结构LVC_S_FCAT。如：
DATA: FIELDCAT
TYPE LVC_T_FCAT.
DATA: FIELD TYPE LVC_S_FCAT.
LAYOUT（布局）
LAYOUT用来控制ALV显示的网格的整体布局，如选择模式、编辑状态、隐藏网格线、优化列宽、单元格和行颜色等。
传入ALV函数的LAYOUT参数系统结构LVC_S_LAYO，如：
DATA: LAYOUT TYPE LVC_S_LAYO.
转换例程（内部转换、外部转换）：导入程序需要特别注意。
ALV颜色的优先级：单元格&行&列。
我的热门文章使用ALV显示内表
我的图书馆
使用ALV显示内表
& REPORT&&zss_test1.TABLES:&mara.TYPE-POOLS:&slis.TYPES:&BEGIN&OF&wa_mara,&&matnr&TYPE&mara-matnr,&&meins&TYPE&mara-meins,&&END&OF&wa_mara.DATA:&it_mara&TYPE&TABLE&OF&wa_mara,&&&&&&l_pos&TYPE&i&VALUE&1.DATA:&gt_fieldcat&TYPE&slis_t_fieldcat_alv,&&&&&&wa_fieldcat&TYPE&slis_fieldcat_alv.SELECT&matnr&meins&FROM&mara&&INTO&CORRESPONDING&FIELDS&OF&TABLE&it_mara.*定义字段目录CLEAR&wa_fieldcat.l_pos&=&l_pos&+&1.wa_fieldcat-col_pos&&&&&&&=&&l_pos.wa_fieldcat-fieldname&&&&&=&'MATNR'.&&& "MATNR需要大写，Debug时验证系统默认为大写 wa_fieldcat-outputlen&&&&&=&10.wa_fieldcat-tabname&&&=&'IT_MARA'.wa_fieldcat-seltext_m&&&&&=&'物料号'.&&& "同上 APPEND&wa_fieldcat&TO&gt_fieldcat.CLEAR&wa_fieldcat.l_pos&=&l_pos&+&1.wa_fieldcat-col_pos&&&&&&&=&&l_pos.wa_fieldcat-fieldname&&&&&=&'MEINS'.wa_fieldcat-outputlen&&&&&=&18.wa_fieldcat-tabname&&&=&'IT_MARA'.wa_fieldcat-seltext_m&&&&&=&'单位'.APPEND&wa_fieldcat&TO&gt_fieldcat.& *&output CALL&FUNCTION&'REUSE_ALV_GRID_DISPLAY'&&EXPORTING&&&&i_callback_program&=&sy-repid&&&&it_fieldcat&&&&&&&&=&gt_fieldcat[]&&TABLES&&&&t_outtab&&&&&&&&&&&=&it_mara.
==========================================
输出模式有2种：
REUSE_ALV_GRID_DISPLAY
REUSE_ALV_LIST_DISPLAY
可以通过下列方式查看以上2种模式的区别：
1、Tcode se11
2、显式MARA
3、显示数据内容
4、“设置”——&“用户参数”
5、选择以下2种显示模式
喜欢该文的人也喜欢(window.slotbydup=window.slotbydup || []).push({
id: '2014386',
container: s,
size: '234,60',
display: 'inlay-fix'
&&|&&0次下载&&|&&总29页&&|
您的计算机尚未安装Flash，点击安装&
阅读已结束，如需下载到电脑，请使用积分（）
下载：10积分
相关分类推荐
0人评价2页
0人评价3页
0人评价3页
0人评价2页
0人评价2页
所需积分：（友情提示：大部分文档均可免费预览！下载之前请务必先预览阅读，以免误下载造成积分浪费！）
（多个标签用逗号分隔）
文不对题，内容与标题介绍不符
广告内容或内容过于简单
文档乱码或无法正常显示
文档内容侵权
已存在相同文档
不属于经济管理类文档
源文档损坏或加密
若此文档涉嫌侵害了您的权利，请参照说明。
我要评价：
下载：10积分第1页/共5页
ALV Report 是SAP 中一种常见的报表展现形式，它可以标准化、简单化R/3系统中的表单，可以提供给用户一个统一的表单格式以及用户接口。ALV 既能显示简单表单（SIMPLE LIST）又能显示有序表单（SEQUENTIAL LIST）在这里我给初学者示范一个实例，讲讲abap 开发报表的简单过程。程序的正确与否我们不与讨论，我们只关心这个程序的编写过程。
首先，在任何程序的开始阶段，我们都要确定将会用到的表。我们所讲的这个程序是查询采购订单是否完成的。将会用到以下三个表:EKKO,EKPO,EKET。 程序的开头为：
EKKO,EKET,EKPO.
现在我们已经定义了所要用到的表，接下来的工作就是定义内表和数据。内表是
用来存储我们从上述三个表中查询到的数据。相关定义如下：
DATA: BEGIN OF ITAB OCCURS 0,
EBELN LIKE EKKO-EBELN,
MENGE LIKE EKPO-MENGE,
WEMNG LIKE EKET-WEMNG,
END OF ITAB.
现在我们已经定义完了内表ITAB 。接着我们该定义数据了。数据就像C 语言里的
常量。其相关定义如下：
DATA: MATNR
LIKE EKPO-MATNR,
LIKE EKPO-MENGE,
LIKE EKET-WEMNG,
LIKE EKPO-EBELN.
到这里我们已经把程序里要用到的数据和内表都定义好了。接着我们要做的工作
就是选择屏幕。所谓选择屏幕是指程序运行时，你要从屏幕上输入的内容。比如
说一个程序运行时，你输入一个物料号，就可以得到该物料的当前的库存数，那
你就要编写一个屏幕以供查询者输入查询的条件。其相关定义如下：
SELECT-OPTIONS:
EBELN1 FOR
EKKO-EBELN,
EKKO-BEDAT,
EKKO-EKGRP.
PARAMETERS: R1 RADIOBUTTON GROUP RADI,
R2 RADIOBUTTON GROUP RADI,
R3 RADIOBUTTON GROUP RADI.
第1页/共5页
寻找更多 ""