ALV报表——选择屏幕选项卡
ALV选择屏幕选项卡
运行效果:
代码:
*&--------------------------------------------------------------------*
*& REPORT ZQMRTEST
*&--------------------------------------------------------------------*
*&
*&--------------------------------------------------------------------*
REPORT ZQMRTEST. TABLES: MARA,QALS,AFPO. DATA: BEGIN OF GT_DATA OCCURS ,
PRUEFLOS LIKE QALS-PRUEFLOS,
MSG TYPE STRING,
END OF GT_DATA. *-->ALV
TYPE-POOLS SLIS.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV. SELECTION-SCREEN BEGIN OF SCREEN AS SUBSCREEN.
PARAMETERS: P_WERKS LIKE MARC-WERKS DEFAULT '' OBLIGATORY,
P_TYPE LIKE QALS-HERKUNFT DEFAULT '' OBLIGATORY,
P_MATNR LIKE MARC-MATNR,
P_MENGE LIKE QALS-LOSMENGE,
P_KDAUF LIKE AFPO-KDAUF,
P_KDPOS LIKE AFPO-KDPOS.
SELECTION-SCREEN END OF SCREEN . SELECTION-SCREEN BEGIN OF SCREEN AS SUBSCREEN.
PARAMETERS: P_WERKS2 LIKE MARC-WERKS DEFAULT '' OBLIGATORY,
P_TYPE2 LIKE QALS-HERKUNFT DEFAULT '' OBLIGATORY,
P_MATNR2 LIKE MARC-MATNR,
P_MENGE2 LIKE QALS-LOSMENGE.
SELECTION-SCREEN END OF SCREEN . "定义一个TAB空间, 取名为MYTAB, 控件高10行, 共分为二个页签.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR LINES,
TAB () BUTTON1 USER-COMMAND PUSH1,
TAB () BUTTON2 USER-COMMAND PUSH2,
END OF BLOCK MYTAB. ************************************************************************
* INITIALIZATION
************************************************************************
"为TAB控件分配初始化值
INITIALIZATION.
BUTTON1 = TEXT-.
BUTTON2 = TEXT-.
MYTAB-PROG = SY-REPID.
MYTAB-DYNNR = . ************************************************************************
* AT SELECTION SCREEN
************************************************************************
"为控件页签单击事件, 选择不同页签显示不同子屏幕.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
WHEN 'PUSH1'.
MYTAB-DYNNR = .
MYTAB-ACTIVETAB = 'BUTTON1'.
WHEN 'PUSH2'.
MYTAB-DYNNR = .
MYTAB-ACTIVETAB = 'BUTTON2'.
ENDCASE. "处理各个屏幕的触发 ************************************************************************
* AT SELECTION SCREEN OUTPUT
************************************************************************
AT SELECTION-SCREEN OUTPUT. ************************************************************************
* REPORT FORMAT
************************************************************************
TOP-OF-PAGE. END-OF-PAGE.
************************************************************************
* MAIN PROCESS
************************************************************************
START-OF-SELECTION. END-OF-SELECTION.
补充:若是想要按不同屏幕执行PERFORM,可在START-OF-SELECTION处增加如下代码
START-OF-SELECTION.
CASE MYTAB-DYNNR.
WHEN '100'.
WRITE 1.
* PERFORM get_data.
* PERFORM display_data.
WHEN '200'.
WRITE 2.
* PERFORM get_data2.
* PERFORM display_data2.
ENDCASE.
END-OF-SELECTION.
原文:https://www.cnblogs.com/mingdashu/p/6824161.html
ALV报表——选择屏幕选项卡的更多相关文章
- ALV报表——选择屏幕变量赋值
ABAP选择屏幕变量赋值 运行效果: 代码: *&---------------------------------------------------------------------* ...
- 选择屏幕(Selection Screen)
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- ALV报表——基础(一)
目录 一.ALV的简介 二.程序实现 2.1.实现步骤 2.2.代码示例 三.Layout.Fieldcat相关属性,ALV输出函数 3.1.Layout相关属性 3.2.Fieldcat相关属性 3 ...
- ALV报表——ALV颜色设置(三)
目录 一.行 二.列 三.单元格 四.附ALV的颜色代码 一.行:用Layout相关属性设置 代码: *Report ZRFI001_XFL_TEST REPORT ZRFI001_XFL_TEST ...
- ALV报表——点击事件(二)
目录 一.ALV点击事件(双击) 一.ALV点击事件(双击) 代码: *Report ZRFI001_XFL_TEST REPORT ZRFI001_XFL_TEST . *定义ALV所需要用到的类型 ...
- abap 选择屏幕事件AT SELECTION-SCREEN
AT SELECTION-SCREEN (1).其实就像一个FORM,所以在这个事件里声明的变量都是局部变量. (2).根据SY-UCOMM这个系统变量可以判断用户的命令 (3).在这个事件里响应的是 ...
- [SAP ABAP开发技术总结]动态修改选择屏幕
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- [SAP ABAP开发技术总结]选择屏幕——按钮、单选复选框
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- [SAP ABAP开发技术总结]选择屏幕——SELECT-OPTIONS
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
随机推荐
- ArcPy python实例教程-条件平差-测量平差
ArcPy python实例教程-条件平差-测量平差 商务合作,科技咨询,版权转让:向日葵,135-4855__4328,xiexiaokui#qq.com 输入参数:条件方程的系数,观测值,常数项和 ...
- Chaos Engineering 混沌工程 Chaos Monkey vs Chaos xxx vs Chaos Blade
Chaos Engineering的历史.原则以及实践https://www.infoq.cn/article/chaos-engineering-the-history-principles-and ...
- linux内核中i2c驱动中slave模式接口的调用
1. 关注unreg_slave接口 1.1 这个接口在哪里被调用呢? 在drivers/i2c/i2c-core-slave.c中 int i2c_slave_unregister(struct i ...
- C++main函数命令行选项——学习笔记
atoi字符串的数转化为整数 atof转化为小数
- 小D课堂 - 零基础入门SpringBoot2.X到实战_第9节 SpringBoot2.x整合Redis实战_39、SpringBoot2.x整合redis实战讲解
笔记 3.SpringBoot2.x整合redis实战讲解 简介:使用springboot-starter整合reids实战 1.官网:https://docs.spring.io/spring-bo ...
- libfacedetection
libfacedetection测试 #include <stdio.h> #include <opencv2/opencv.hpp> #include <facedet ...
- osgViewer
/* -*-c++-*- OpenSceneGraph - Copyright (C) 1998-2006 Robert Osfield * * This library is open source ...
- linux安装6.5.3版本elastic search
到官网https://www.elastic.co/cn/downloads/elasticsearch下载压缩包,目前最新的版本是7.3.2,我想下6.5.3,点击下面的past release链接 ...
- lombok插件/slf4j中字符串格式化
大家在编写springboot项目的过程中可能会接触到lombok这个插件,这个插件可以在编译时帮我生成很多代码. 1.@Data生成Getter和Setter代码,用于类名注释 2.@Getter ...
- 【相机篇】从到FlyCapture2到Spinnaker
从FlyCapture2 到 Spinnaker SDK的变换,可参见FLIR公司机器视觉的相机产品:https://www.flir.com/iis/machine-vision/ Spinnake ...