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!!
来不及解释了,快上车!!!
最新文章
- n 后问题
- wangEditor——轻量化web富文本框
- 求大于整数m且紧靠m的k个素数 及 判断一个数是否为素数的方法
- 企业移动互联网O2O微信支付流程图
- Java基础知识强化之IO流笔记70:Properties练习之 如何让猜数字小游戏只能玩5次的案例
- Lua类和类继承实现
- 转载:C#实现接口回调
- 两种方法将oracle数据库中的一张表的数据导入到另外一个oracle数据库中
- my discipline life
- [Swift]LeetCode327. 区间和的个数 | Count of Range Sum
- bash基础特性2
- 正在学习的Java大学教程
- Redis 学习之路 (011) - redis 多数据库
- 从0移植uboot(三) _编译最小可用uboot
- 爬虫----爬虫请求库selenium
- 【转】你必须知道的EF知识和经验
- 福尔摩斯基本演绎法第一季/全集Elementary迅雷下载
- Codeforces.547C.Mike and Foam(容斥/莫比乌斯反演)
- Scrapy 抓取股票行情
- Nodejs第一天-{Nodejs基础 深刻理解浏览器 环境变量 基础语法}