SAP ABAP/4学习---ALV的简单例子2-单击某行调用事务码
来源:互联网 发布:出版社知乎 编辑:程序博客网 时间:2024/05/23 18:25
Report ZTEST .
TYPE-POOLS: SLIS.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF FIELDCAT,
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.
Tables: MARA.
data: begin of itab occurs 10,
MATNR like MARA-MATNR,
MTART LIKE MARA-MTART,
BISMT LIKE MARA-BISMT,
end of itab.
SELECT-OPTIONS: P_MATNR FOR MARA-MATNR.
START-OF-SELECTION.
SELECT MATNR
MTART
BISMT
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM MARA
WHERE MATNR IN P_MATNR.
ADD 1 TO COL_POS.
FIELDCAT_LN-REF_TABNAME = 'MARA'.
FIELDCAT_LN-FIELDNAME = 'MTART'.
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 = 'MARA'.
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 = 'MARA'.
FIELDCAT_LN-FIELDNAME = 'BISMT'.
FIELDCAT_LN-KEY = SPACE.
*DEFINE AN SUM
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.
* DEFINE AN SORT TABLE
* ADD SORT INTO SORT INTERNAL TABLE.
SORTCAT_LN-SPOS = '1'.
* DEFINE AN SORT FIELD
SORTCAT_LN-FIELDNAME = 'BISMT'.
SORTCAT_LN-UP = 'X'.
SORTCAT_LN-DOWN = SPACE.
SORTCAT_LN-SUBTOT = 'X'.
APPEND SORTCAT_LN TO SORTCAT.
* DEFINE EVENT LIST(Event Catalogs)
EVENTCAT_LN-NAME = 'TOP_OF_PAGE'.
EVENTCAT_LN-form = 'PAGE_HEADER'.
APPEND EVENTCAT_LN TO EVENTCAT.
* DEFINE ALV CALL Function Module
DATA: PGM LIKE SY-REPID.
PGM = SY-REPID.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = PGM
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = FIELDCAT
IT_SORT = SORTCAT
I_SAVE = 'A'
IT_EVENT = EVENTCAT
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
* DEFINE EVENT OF THE USER CLICKED KEYBOARD.
form USER_COMMAND USING UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
READ TABLE ITAB INDEX SELFIELD-TABINDEX.
CHECK SY-SUBRC = 0.
CASE UCOMM.
WHEN '&IC1'.
CASE SELFIELD-SEL_TAB_FIELD.
WHEN 'ITAB-MATNR'.
SET PARAMETER ID 'MAT' FIELD ITAB-MATNR.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDCASE.
ENDform.
- SAP ABAP/4学习---ALV的简单例子2-单击某行调用事务码
- SAP ABAP/4学习---ALV的简单例子2-单击某行调用事务码
- SAP ABAP/4学习---ALV的简单例子3-单击某行调用事务码
- SAP ABAP/4学习---ALV的简单例子1-写入EXCEL自动
- SAP ABAP/4学习---ALV的简单例子1-写入EXCEL自动
- abap 双击alv调用事务码
- 关于ALV双击 调用事务的一个例子
- SAP ABAP ALV进阶
- ABAP中ALV使用HTML的例子
- SAP ABAP/4学习--如何调用SAP SCRIPT
- SAP ABAP 常用事务码
- 【SAP ABAP】动态显示ALV
- ABAP 简单的ALV使用经验
- 一个简单ALV的例子
- 一个简单ALV的例子
- SAP ABAP/4学习---如何给写好的一个程序分配事务代码,用户可以直接通过事务码来访问程序.或者加入收藏夹(9)
- SAP ABAP开发者 使用频率比较高的事务码
- SAP ABAP同时显示多个ALV的方法
- SAP ABAP/4学习---在SCRIPT中使用图片
- struts中文的解决
- SAP ABAP/4学习---上传下载SAP SRCIPT文件
- 今天真是高兴啊
- SAP ABAP/4学习---ALV的简单例子1-写入EXCEL自动
- SAP ABAP/4学习---ALV的简单例子2-单击某行调用事务码
- SAP ABAP/4学习---ALV的简单例子3-单击某行调用事务码
- SAP ABAP/4学习---BDC批量输入写成内表程序
- Firefox (or mozilla)的一点方便设置
- 关于SCN的理解,未完成....(摘自IT_PUB)
- 消费电子世界采访联众总裁鲍岳桥完全版
- JAVA哲学 -- 前言
- 让你的DBGrid竖着站(1)
- Some Thoughts And Feelings