zoukankan      html  css  js  c++  java
  • 如何限制SELECT-OPTIONS的选择屏幕的OPTION

    REPORT Z_CONECT_A.

    * Include type pool SSCR
    TYPE-POOLS sscr.

    TABLES : marc.

    *定义选择屏幕select-options :
      s_matnr for marc-matnr,
      s_werks for marc-werks.

    * Define the object to be passed to the RESTRICTION parameter
    DATA restrict TYPE sscr_restrict.

    * Auxiliary objects for filling RESTRICT
    DATA : optlist TYPE sscr_opt_list,
               ass type sscr_ass.

    INITIALIZATION.

    * 限制MATNR参数只能使用‘EQ’ 和‘BT’.
      optlist-name = 'OBJECTKEY1'.
      optlist-options-eq = 'X'.
      optlist-options-bt = 'X'.
      APPEND optlist TO restrict-opt_list_tab.

      ass-kind = 'S'.
      ass-name = 'S_MATNR'.
      ass-sg_main = 'I'.
      ass-sg_addy = space.
      ass-op_main = 'OBJECTKEY1'.
      APPEND ass TO restrict-ass_tab.

    * 限制 WERKS 参数只能使用CP, GE, LT, NE.
      optlist-name = 'OBJECTKEY2'.
      optlist-options-cp = 'X'.
      optlist-options-ge = 'X'.
      optlist-options-lt = 'X'.
      optlist-options-ne = 'X'.
      APPEND optlist TO restrict-opt_list_tab.

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

      CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
       EXPORTING
        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.

  • 相关阅读:
    数组优化 Dijkstra 最短路
    F
    树 (p155, 从中序和后续回复二叉树)
    矩阵连乘 LRJ白书 p141 栈 解析表达式
    Train Problem II HDU 1023 卡特兰数
    codevs 1166 矩阵取数游戏
    BZOJ 2754: [SCOI2012]喵星球上的点名
    2017.6.11 校内模拟赛
    HDU 2896 病毒侵袭
    UvaLive 4670 Dominating Patterns
  • 原文地址:https://www.cnblogs.com/xiaomaohai/p/6157564.html
Copyright © 2011-2022 走看看