赛跑网

 找回密码
 注册

QQ登录

只需一步,快速开始

快捷登录

查看: 1361|回复: 1

36,ABAP语法之选择屏幕(二)

[复制链接]
发表于 2015-9-6 21:41:54 | 显示全部楼层 |阅读模式
本帖最后由 SAPOK_ABAP 于 2015-9-6 21:43 编辑

35,ABAP语法之选择屏幕(一)介绍了一种选择屏幕的实例,继续介绍
屏幕1.png
选中的地方只能输入一个单值或者多个单值,这就是独特之处,在选用的时候,可根据这个特点选择使用。代码如下:
REPORT  z_screen_02.
TYPE-POOLS sscr.
TABLES : sflight.

SELECT-OPTIONS : s_carrid FOR sflight-carrid NO INTERVALS,
                 s_connid FOR sflight-connid.
DATA: restrict TYPE sscr_restrict,
      optlist  TYPE sscr_opt_list,
      ass      TYPE sscr_ass.

INITIALIZATION.

  optlist-name = 'OBJECTKEY1'.
  optlist-options-eq = 'X'.  " 单值部分起作用
* optlist-options-bt = 'X'.  "范围不起作用
  APPEND optlist TO restrict-opt_list_tab.
  ass-kind = 'S'.          "A(ll), B(lock), S(elect-Option)三种类型可选择
  ass-name = 'S_CARRID'.   "选择屏幕中SELET-OPTIONS定义的对象名称
  ass-sg_main = 'I'.       " (only)I,
  ass-sg_addy = space.
  ass-op_main = 'OBJECTKEY1'.
  APPEND ass TO restrict-ass_tab.

  CLEAR optlist.
  CLEAR ass.
  optlist-name = 'OBJECTKEY2'.
  optlist-options-cp = 'X'.
  optlist-options-ge = 'X'.

  APPEND optlist TO restrict-opt_list_tab.
  ass-kind = 'S'.
  ass-name = 'S_CONNID'.
  ass-sg_main = 'I'.
  ass-sg_addy = space.
  ass-op_main = 'OBJECTKEY2'.
  APPEND ass TO restrict-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      program                = sy-repid
      restriction            = restrict
    EXCEPTIONS
      too_late               = 1
      repeated               = 2
      selopt_without_options = 3
      selopt_without_signs   = 4
      invalid_sign           = 5
      empty_option_list      = 6
      invalid_kind           = 7
      repeated_kind_a        = 8
      OTHERS                 = 9.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.




上一篇:35,ABAP语法之选择屏幕(一)
下一篇:37,ABAP语法之选择屏幕(三)
本楼点评(0) 收起
高级模式
B Color Image Link Quote Code Smilies |上传

本版积分规则

小黑屋|联系我们|赛跑网 ( QQ:108519493QQfsq

GMT+8, 2024-3-28 23:24 , Processed in 0.408107 second(s), 35 queries .

Powered by 91SAP X3.4

© 2001-2023 91sap Team.

快速回复 返回顶部 返回列表