selection-screen的示例

原创 2011年01月19日 09:21:00

TABLES: v_username, sscrfields.

DATA: BEGIN OF usr_tabl OCCURS 10.
INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.

DATA: opcode TYPE x,
slave_mode TYPE x,
loc_utid LIKE usr_tabl-tid.

CONSTANTS: c_fcode_slon LIKE sy-ucomm VALUE 'SLON',
c_fcode_slof LIKE sy-ucomm VALUE 'SLOF'.

SELECTION-SCREEN BEGIN OF BLOCK userid WITH FRAME title frTitle.
PARAMETERS: p_userid LIKE uinfo-bname.
SELECTION-SCREEN END OF BLOCK userid.
SELECTION-SCREEN BEGIN OF BLOCK show WITH FRAME.
SELECTION-SCREEN PUSHBUTTON /10(25) slon USER-COMMAND slon.
SELECTION-SCREEN PUSHBUTTON 45(25) slof USER-COMMAND slof.
SELECTION-SCREEN END OF BLOCK show.

INITIALIZATION.
MOVE 'On Screen Flow Show' TO slon.
MOVE 'Off Screen Flow Show' TO slof.
move 'Enter an online user.' to frTitle.

AT SELECTION-SCREEN ON p_userid.
IF NOT p_userid IS INITIAL.
SELECT SINGLE bname
INTO v_username-bname
FROM v_username
WHERE bname = p_userid.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'User not logged on'.
ENDIF.
ELSE.
 "MESSAGE E000 WITH 'UserID' display like 'E'.
 message id 'ZMSGCZW' type 'E' NUMBER '000' WITH 'UserID' display like 'E'.
ENDIF.

AT SELECTION-SCREEN.
refresh usr_tabl.
FREE usr_tabl.
opcode = 2.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'TAB' FIELD
usr_tabl-*sys*.

READ TABLE usr_tabl WITH KEY bname = p_userid TRANSPORTING tid.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Requested User Id is not available'.
ENDIF.

loc_utid = usr_tabl-tid.
slave_mode = 5.

IF sscrfields-ucomm = c_fcode_slon.
opcode = 14.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'S_TID' FIELD loc_utid
ID 'S_MODE' FIELD slave_mode.
ELSEIF sscrfields-ucomm = c_fcode_slof.
opcode = 15.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'S_TID' FIELD loc_utid.
ENDIF.

ABAP Screen的常用语句

ABAP Screen的常用语句 (1).Screen 设计 TABLES: SSCRFIELDS. PARAMETERS: P_EBLEN LIKE VBRK-EBLEN ...
  • champaignwolf
  • champaignwolf
  • 2015年12月24日 21:09
  • 1399

SAP-DYNPRO开发实例

SAP DYNPRO增删改查实例,用到了系统测试表SPFLI,若表SPFLI中没有数据,可以参考另一篇博文更新表中数据: http://blog.csdn.net/rztyzxzy/articl...
  • rztyzxzy
  • rztyzxzy
  • 2015年07月04日 18:30
  • 2316

【转载】ABAP开发顾问必备:SAP ABAP开发技术总结 BY SAP师太

声明:转载自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将追究法律责任!原文链接:...
  • hubaichun
  • hubaichun
  • 2016年05月12日 13:57
  • 1524

使用AT SELECTION-SCREEN事件验证用户输入条件的反思

回想一下,为什么要在AT SELECTION-SCREEN事件验证用户输入条件?好像是第一次做ABAP培训中老师提到的,当时也没有觉得有什么问题,以后在程序中也就按照这样的思路去写代码了.像下面简单的...
  • zhongguomao
  • zhongguomao
  • 2011年10月12日 10:12
  • 531

Selection Screen

先聊一下什么是Selection Screen。从资料上了解到SAP把程序屏幕分为3种,一种是Dialog Screen,一种是List,还有就是Selection Screen。从外观上来看,Dia...
  • yuqinying112
  • yuqinying112
  • 2012年05月05日 10:49
  • 1554

AT SELECTION-SCREEN OUTPUT 用法实例

在SAP中,报表程序基本离不开画面程序设计,也就是屏幕设计。简单来说,SAP屏幕中的各种button都有类似于控件的属性,这里我们简单介绍一下如何通过单选按钮radio button来控制其他组件是否...
  • sunnyonly1992
  • sunnyonly1992
  • 2016年06月08日 13:54
  • 735

AT SELECTION SCREEN的实例

在REPORT 程序中AT SELECTION SCREEN 事件经常用到以下三类事件对屏幕字段进行处理: 1、AT SELECTION-SCREEN第二屏幕之前触发(主要用于字段赋值和检验) 2...
  • liangziyisheng
  • liangziyisheng
  • 2011年01月28日 12:32
  • 3117

使用AT SELECTION-SCREEN事件验证用户输入条件的反思

回想一下,为什么要在AT SELECTION-SCREEN事件验证用户输入条件?好像是第一次做ABAP培训中老师提到的,当时也没有觉得有什么问题,以后在程序中也就按照这样的思路去写代码了.像下面简单的...
  • zhongguomao
  • zhongguomao
  • 2011年08月25日 22:26
  • 944

SELECTION-SCREEN选择界面字段值的实时获取-函数DYNP_VALUES_READ

项目中ABAP程序会遇到一种需求:实时获取屏幕字段的值。如下图所示: 根据销售组织/分销渠道/产品组来限制凭证类型的选择,类似与系统VA01操作。因为存在大量的必输字段,导致一个问题:只有把...
  • wanglei880526
  • wanglei880526
  • 2013年11月07日 16:35
  • 2037

ABAP中SELECTION-SCREEN用法

SAP-ABAP SELECT-SCREEN 的几个用法   实例1: SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN POSITIO...
  • wanglei880526
  • wanglei880526
  • 2013年08月31日 10:02
  • 6509
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:selection-screen的示例
举报原因:
原因补充:

(最多只允许输入30个字)