ABAP SCREEN 选择屏幕相关用法,屏幕假必输,屏幕检查等

一, 屏幕基本元素(单值输入框,RANGE输入,单选按钮,复选框定义) 

TABLES: SFLIGHT.

SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
  PARAMETERS: P_CARRID  LIKE SFLIGHT-CARRID  ." 单值输入框


  SELECT-OPTIONS:     "定义RANGE输入
  S_CARRID FOR SFLIGHT-CARRID ,
  S_CONNID FOR SFLIGHT-CONNID , 
  S_1  FOR SCARR-CARRID DEFAULT 'AA' TO 'AZ' OPTION BT SIGN E . "设置默认值
                  
  SELECTION-SCREEN SKIP 1. "屏幕换行
  PARAMETERS: PR_01 RADIOBUTTON GROUP gp1 DEFAULT 'X',  "定义RADIOBUTTON
                            PR_02 RADIOBUTTON GROUP  gp1.
  PARAMETERS: p_old TYPE c  AS CHECKBOX.   "定义复选框

  SELECTION-SCREEN ULINE.
  SELECTION-SCREEN SKIP 1. "屏幕换行
 
  SELECTION-SCREEN COMMENT 1(65) TEXT-T02 ."屏幕上输出文本
  SELECTION-SCREEN SKIP 1. "屏幕换行

  SELECTION-SCREEN PUSHBUTTON 30(10) PHB_01 USER-COMMAND PB1 . "添加按钮


SELECTION-SCREEN END OF BLOCK bk1.

PARAMETERS 附加项
DEFAULT 'A' 设置初始值
LENGTH N 定义长度,只适用于C,N,X,P
DECIMALS des 指定小数点位数
MEMORY ID pid 指定SAP内存参数ID
MATCHCODE OBJECT mobj 设定使用的Search Help (SE11 中定义搜索帮助)
MODIF ID 通过screen-group1为屏幕元素分组
NO-DISPLAY 不显示在画面上
LOWER CASE 区分大小写(默认大写)

SELECT-OPTIONS 附加项
DEFAULT 'A' 始值初始值
DEFAULT g... OPTION op... SIGN s 设置初始的option和sign
DEFAULT g TO h

设置初始的LOW值和HIGH值 ,SIGN为 ‘BT’

DEFAULT g TO h OPTION op... SIGN s 设置初始的OPTION,SIGN, LOW值和HIGH值 ,SIGN只能为BT 或 NB
MEMORY ID pid 指定SAP内存参数ID
MATCHCODE OBJECT mobj 设定使用的Search Help
OBLIGATORY 设定必输项,画面上显示?,不输入时自动报错
VISIBLE LENGTH vlen 设置显示长度
NO-EXTENSION 隐藏多指输入按钮
NO INTERVALS 隐藏HIGH 输入部分

1.2  添加 FUNCTION KEY .

TABLES: SSCRFIELDS .
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.

DATA LS_DYNTXT TYPE SMP_DYNTXT .

CLEAR LS_DYNTXT .
LS_DYNTXT-ICON_ID = ICON_CREATE .
LS_DYNTXT-QUICKINFO = 'CREATE' .
SSCRFIELDS-FUNCTXT_02 = LS_DYNTXT .

CLEAR LS_DYNTXT .
LS_DYNTXT-ICON_ID = ICON_DISPLAY .
LS_DYNTXT-QUICKINFO = 'DISPLAY' .
SSCRFIELDS-FUNCTXT_02 = LS_DYNTXT .

CLEAR LS_DYNTXT .
LS_DYNTXT-ICON_ID = ICON_DELETE .
LS_DYNTXT-QUICKINFO = 'DELETE' .
SSCRFIELDS-FUNCTXT_02 = LS_DYNTXT .

二,SELECTION-SCREEN BEGIN OF LINE 应用, 将多个参数组合后显示在一行中,在行组中不能使用SELECT-OPTIONS,           SELECTION-SCREEN SKIP N 语句 

 SELECTION-SCREEN BEGIN OF LINE.
   PARAMETERS: P_BOX AS CHECKBOX.
   "指定关于参数的描述 SELECTION-SCREEN COMMENT fmt name 
   SELECTION-SCREEN COMMENT 5(29) text-001. 
   PARAMETERS: P_TEXT TYPE string.
 SELECTION-SCREEN END OF LINE.

 SELECTION-SCREEN BEGIN OF LINE. "list 带描述
   SELECTION-SCREEN COMMENT 1(31) TEXT-L01 FOR FIELD P_LIST.
   PARAMETERS: P_LIST TYPE T001-BUKRS AS LISTBOX VISIBLE LENGTH 10 USER-COMMAND LS1.
   PARAMETERS: P_BUTXT TYPE T001-BUTXT.
 SELECTION-SCREEN END OF LINE.

 SELECT SINGLE BUTXT FROM T001 INTO P_BUTXT WHERE BUKRS = P_LIST .

为下拉框赋值 CALL FUNCTION 'VRM_SET_VALUES'

  TYPE-POOLS VRM.
  DATA: VID    TYPE VRM_ID VALUE 'xxx', "下拉框的名称
        VLIST  TYPE VRM_VALUES,
        VALUES LIKE LINE OF VLIST.

  SELECT ZKEY AS KEY
         TEXT
    FROM ZSTU_SALARY
    INTO CORRESPONDING FIELDS OF TABLE VLIST[]
    ORDER BY KEY
    .


  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = VID
      VALUES          = VLIST
    EXCEPTIONS
      ID_ILLEGAL_NAME = 1
      OTHERS          = 2.
  IF SY-SUBRC <> 0.
    MESSAGE '下拉框出错,请联系管理员!' TYPE 'I' DISPLAY LIKE 'S'.
  ENDIF.

三, 动态修改选择屏幕

3.1 SCRENN 参数

ABAP SCREEN 选择屏幕相关用法,屏幕假必输,屏幕检查等_第1张图片

选择屏幕、对话屏幕都有对应的SCREEN内表,下面是几个重要属性:

 Name : Name of the screen field。如果参数是select-options类型参数,则参数名以LOW与HIGH后缀来区分。

GROUP: 选择屏幕元素通过MODIF ID 选项设置GROUP1(对话屏幕通过属性设置),将屏幕元素分为一组,方便屏幕的元素的批量修改

REQUIRED:控制文本框、下拉列表屏幕元素的必输性,使用此属性后会忽略OBLIGATORY选项。取值如下:

0:不必输,框中前面也没有钩
1:必输,框中前面有钩,系统会自动检验是否已输入,相当于OBLIGATORY选项
2:不必输,但框中前面有钩,系统不会检查是否已输入,此时需要手动检验

INPUT:控制屏幕元素(包括复选框、单选框、文本框)的可输性

ACTIVE:控制屏幕元素的可见性

3.2  屏幕假必输,将输入框的REQUIRED属性设置为2(显示必须的钩,但系统不会自动进行必输验证),去掉OBLIGATORY选         项(不去掉也会被忽略),并在AT SELECTION-SCREEN ON field事件里时手动进行为空验证

PARAMETERS P_INPUT(128) MODIF ID  mxy  .
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN  .
    "的必输性:外观上打钩,但不自动校验
    IF screen-group1 = 'MXY'.
      screen-required = '2'."外观上打钩,但不自动校验
      MODIFY SCREEN.
  ENDLOOP.

AT SELECTION-SCREEN ON P_INPUT.
  IF P_INPUT IS INITIAL
    MESSAGE e055(00).
  ENDIF.

 3.3 屏幕隐藏字段

PARAMETERS: RB_01 RADIOBUTTON GROP G1 USER-COMMAND RA1,
            RB_02 RADIOBUTTON GROP G1 .

LOOP AT SCREEN .
  CASE 'X' .
  WHEN RB_01 .
    IF SCREEN-GROUP1 = '***'
      SCREEN-ACTIVE = 1 .
      MODIFY SCREEN .
    ENDIF.
  WHEN RB_02 .
    IF SCREEN-GROUP1 = '***'
      SCREEN-ACTIVE = 0 .
      MODIFY SCREEN .
    ENDIF.
ENDLOOP.

四, 屏幕事件

       INITIALIZATION  "初始化屏幕字段(SET TITLEBAR ,GUI STATUS, SET PF-STATUS),主要用于显示SELECTION-SCREEN之前

       AT SELECTION-SCREEN " 屏幕跳出之前

       START-OF-SELECTION "取数据,在 START-OF-SELECTION 事件处,也 处理没有附 加到事件关 键字的所有 语句,或在                                                   FORM-ENDFORM 块后写这些 语句

       END-OF-SELECTION  "展示数据,要在系统读取和处理完 逻辑数据库的所有数据库表之后定过程块

       TOP-OF-PAGE  "普通报表输出页头

        END-OF-PAGE "普通报表输出页尾

AT SELECTION-SCREEN(类似一个FORM),在屏幕中INPUT FIELD的值有变更时执行的事件,例如CHECKBOX的选择与否,RADIOBUTTON的选择,LISTBOX的选择等等。

所以分为以下几个方面:

1. ... ON field :对SELECTION SCREEN具体的字段进行校验,若错误则重新输入,其他字段变灰

2. ... ON END OF sel :SELECT-OPTION触发的事件,用于整个选择表输入结束后各行的检查

3. ... OUTPUT :设置屏幕上画面布局

4. ... ON HELP-REQUEST FOR psel_low_high :当光标位于某屏幕字段时,选择的帮助(F1)

5. ... ON RADIOBUTTON GROUP radi :单选按钮事件,必须进行整体输入检查

6. ... ON BLOCK block :抑制块内输入值

7. ... ON VALUE-REQUEST FOR psel_low_high :当光标位于某屏幕字段时,选择的帮助(F4)

4.2 START-OF-SELECTION中的事件,STOP关键字终止过程块,转向 END-OF-SELECTION, 而EXIT关键字终止程序块后不执行 END-OF-SELECTION 过程块

 WRITE 'Test Program for STOP'.
  DO 3 TIMES.
    WRITE : / 'STOP' , SY-INDEX.
    STOP .
  ENDDO.
END-OF-SELECTION.
   WRITE: / 'End of selection'.

ABAP SCREEN 选择屏幕相关用法,屏幕假必输,屏幕检查等_第2张图片

START-OF-SELECTION .
  WRITE 'Test Program for exit'.
  DO 3 TIMES.
    WRITE : / 'EXIT' , SY-INDEX.
  ENDDO.
  EXIT .
END-OF-SELECTION.
   WRITE: / 'End of selection'.

 ABAP SCREEN 选择屏幕相关用法,屏幕假必输,屏幕检查等_第3张图片

五、屏幕数据检查

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE."常用于F4搜索帮助
   
AT SELECTION-SCREEN ON RADIOBUTTON GROUP G1."对单选按钮的检查
  CASE 'X'.
    WHEN R1.
      MESSAGE '默认R1 已被选择' TYPE 'I' .
    WHEN R2.
      MESSAGE 'R2 已被选择' TYPE 'I' .
    WHEN R3.
      MESSAGE 'R3 已被选择' TYPE 'I' .
    WHEN OTHERS.
  ENDCASE.
AT SELECTION-SCREEN ON BLOCK B1.
  IF NUM3 GT 1000 or num2 GT 1000 or num1 GT 1000.
    MESSAGE '请输入小于1000的数字' TYPE 'E'.

  ENDIF.

你可能感兴趣的:(ABAP开发回顾总结,SAP,abap)