ABAP DEMO篇21 选择屏幕显示说明TEXT
实现方式1:
*&---------------------------------------------------------------------*
*& Report YCX_006
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YDEMO_021.
TABLES: marc,ztpp0038,sscrfields.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS: p_file TYPE rlgrap-filename MODIF ID cj.
SELECT-OPTIONS: s_gc FOR marc-werks NO INTERVALS NO-EXTENSION MODIF ID cj."工厂
PARAMETERS: p_del TYPE c AS CHECKBOX DEFAULT abap_true MODIF ID cj.
SELECT-OPTIONS: s_werks FOR ztpp0038-werks MODIF ID cx,
s_ernam FOR ztpp0038-ernam MODIF ID cx,
s_ersda FOR ztpp0038-ersda DEFAULT sy-datum MODIF ID cx,
s_uzeit FOR ztpp0038-uzeit MODIF ID cx.
SELECTION-SCREEN:END OF BLOCK b1.
SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
PARAMETERS: p_cj TYPE c RADIOBUTTON GROUP gp1 DEFAULT 'X' USER-COMMAND flag1,
p_cx TYPE c RADIOBUTTON GROUP gp1.
SELECTION-SCREEN:END OF BLOCK b2.
SELECTION-SCREEN: FUNCTION KEY 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (12) s_text MODIF ID cj.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (60) s_text1 MODIF ID cj.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (60) s_text2 MODIF ID cj.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (60) s_text3 MODIF ID cj.
SELECTION-SCREEN END OF LINE.
........
INITIALIZATION.
PERFORM frm_init_text.
AT SELECTION-SCREEN OUTPUT.
PERFORM frm_control_field.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL METHOD zcl_jt=>f4_file_excel
CHANGING
cv_file_name = p_file.
START-OF-SELECTION.
WRITE:'hello world'.
*&---------------------------------------------------------------------*
*& Form FRM_CONTROL_FIELD
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_control_field .
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'CJ'.
screen-active = COND #( WHEN P_CJ IS NOT INITIAL THEN 1 ELSE 0 ).
WHEN 'CX'.
screen-active = COND #( WHEN P_CX IS NOT INITIAL THEN 1 ELSE 0 ).
WHEN OTHERS.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
IF p_cj IS NOT INITIAL.
sscrfields-functxt_01 = VALUE smp_dyntxt( icon_id = icon_export icon_text = |{ TEXT-003 }| ).
ELSE.
CLEAR: sscrfields-functxt_01.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_INIT_TEXT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_init_text .
s_text = |{ icon_message_warning }{ TEXT-T00 }|.
s_text1 = |{ TEXT-T01 }|.
s_text2 = |{ TEXT-T02 }|.
s_text3 = |{ TEXT-T03 }|.
ENDFORM.
实现方式2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(77) comm1.
SELECTION-SCREEN END OF LINE.
*----------------------------------------------------------------------*
* INITIALIZATION.
*----------------------------------------------------------------------*
INITIALIZATION.
PERFORM frm_init_data.
FORM frm_init_data .
DATA: lv_subscreen TYPE string .
comm1 = icon_message_warning && '!!!注意:导入前请先关闭Excel文件'(s10).
mytab-prog = sy-repid.
ENDFORM.
你盯着我
不关注
不点赞
不评论
难道是想暗算我 ???
卡忙on,用丘比特的箭暗算我吧!
笔芯准备 I'm ready!!
来不及解释了,快上车!!!
ABAP DEMO篇21 选择屏幕显示说明TEXT的更多相关文章
- 手把手制作一个简单的IDEA插件(环境搭建Demo篇)
新建IDEA插件File --> new --> Project--> Intellij PlatForm Plugin-->Next-->填好项目名OK 编写插件新建工 ...
- .NET Core CSharp 中级篇 2-1 装箱与拆箱
.NET Core CSharp 中级篇 2-1 本节内容为装箱与拆箱 简介 装箱和拆箱是一个相对抽象的概念.你可以想象一下一堆满载货物的大卡车,他是由许多工人将货物集中堆放装入的,对于我们而言在没有 ...
- Android学习小Demo(21)ListView的联动选择
在日常的App开发中,尤其是在开发生活服务的应用上,非常多时候,我们会须要联动地展现省市区的数据等,需求大概例如以下: 1)展现全部省份 2)当点击某省份的时候,在二级菜单上展现此省份以下所属的城市列 ...
- [SAP ABAP开发技术总结]选择屏幕——SELECT-OPTIONS
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- CSS基础篇之选择符2
属性选择符: 选择符 版本 描述 E[att] CSS2 选择具有att属性的E元素. E[att="val"] CSS2 选择具有att属性且属性值等于val的E元素. E[at ...
- CSS基础篇之选择符
关系选择符 E F 包含选择符(Descendant combinator) CSS1 选择所有被E元素包含的F元素. <html> <head> <meta chars ...
- 深入学习jQuery选择器系列第五篇——过滤选择器之内容选择器
× 目录 [1]contains [2]empty [3]parent[4]has[5]not[6]header[7]lang[8]root 前面的话 本文介绍过滤选择器中的内容选择器.内容选择器的过 ...
- 深入学习jQuery选择器系列第三篇——过滤选择器之索引选择器
× 目录 [1]通用形式 [2]首尾索引 [3]奇偶索引[4]范围索引 前面的话 上一篇介绍了过滤选择器中的子元素选择器部分,本文开始介绍极易与之混淆的索引选择器 通用形式 $(':eq(index) ...
- 深入学习jQuery选择器系列第二篇——过滤选择器之子元素选择器
× 目录 [1]通用形式 [2]反向形式 [3]首尾元素 [4]唯一元素 前面的话 在上一篇中已经介绍过基础选择器和层级选择器,本文开始介绍过滤选择器.过滤选择器是jQuery选择器中最为庞大也是最为 ...
随机推荐
- 14 webpack中url-loader的使用
默认情况下,webpack无法处理css文件中的url地址,不管是图片还是字体库,只要是URL地址,都处理不了,需要第三方loader 1.安装loader cnpm i url-loader fil ...
- flask中使用ajax 处理前端请求,结果展示在同一页面,不点击页面不展示
在同一页面点击按钮,后端处理后展示在同一页面,不点击隐藏该结果:与上一篇大同小异,需要在 html.flask.js微调 效果展示: (未点击查询) (点击查询) html: <html> ...
- mysql官方下载安装教程(centos)
Linux下Mysql 5.6.30 tar包安装 (2016-04-27 22:45:39) 转载▼ 环境:centos 6.4 x64 先下载mysql安装包 打开 http://dev.mysq ...
- selenium.webdriver获取结果转为json格式
from selenium import webdriver driver.get(requestUrl)html = driver.page_sourcesoup = BeautifulSoup(h ...
- redis--基于内存的高速缓存,NoSql的典型代表
NoSql入门和概述 入门概述 为什么要使用NoSql? 1.单机mysql的美好年代 在早些年以前,那时候网站的访问量不大,用单个数据库完全可以应付.而且那个时候,绝大部分都是LAMP架构:Linu ...
- MongoDB 查看chunk块大小
使用mongo shell连到mongos执行命令:AllChunkInfo("dbname.cellname",true) 点击(此处)折叠或打开 AllChunkInfo = ...
- Pycharm 的常用快捷键
pycharm常用快捷键 1.编辑(Editing) Ctrl + Space 基本的代码完成(类.方法.属性) Ctrl + Alt + Space 快速导入任意类 Ctrl + Shift ...
- 宏任务、微任务与Event Loop
说到宏任务和微任务,我们就不得不提 Event Loop 了 JS的本质是单线: 1. 一般来说,非阻塞性的任务采取同步的方式,直接在主线程的执行栈完成. 2. 一般来说,阻塞性的任务都会采用异步来执 ...
- 零基础Python入门(1)- python安装与预热
大家好,我是jacky,很高兴跟大家分享<Python数据科学之金融行业实操>,今天带大家学习我们这门课的操作工具,就是Python,为什么选用Python来作为金融行业数据科学的工具呢? ...
- tab切换里面做轮播图
这里的轮播图有三页,并且每页的数据有8个,只能将23个数据分割开来,这里要实现5个tab用一个轮播图 <div class="report_detail_class"> ...