如何在screen中加入select-options screen

1 、定义select-options screen 和事件处理于一个单元
data: number(4) type n value '1100'.
selection-screen begin of screen 1100 as subscreen.
selection-screen begin of block block_0 with frame title text-000.
selection-screen begin of line.
selection-screen comment 1(8) text-002.
selection-screen position pos_low.
parameters: p_date1 type dats default sy-datum obligatory.
selection-screen comment pos_high(8) text-003.
parameters: p_date2 type dats default sy-datum obligatory.
selection-screen end of line.
select-options  s_pq for zjw_bs_jg-zjgid_c no intervals .
select-options  s_psz for zjw_bs_jg-zjgid_c no intervals.
select-options  s_tjid for zjw_xq_swtj-zswtjid_c.
parameters: p_con   radiobutton group sc2.
parameters: p_fy   radiobutton group sc2  default 'X'.
parameters: p_blank  radiobutton group sc2.
selection-screen end of block block_0.
selection-screen end of screen 1100.
at selection-screen on value-request for s_psz-low.
  perform help_psz using 'low' '1100'.

2、定义屏幕100
在屏幕100加入一个子屏幕sub_screen

3、定义屏幕100 BPO
PROCESS BEFORE OUTPUT.
  MODULE show_logonscreen.     " 调用登录屏幕
  MODULE grid_list_init.      " 屏幕初始化
  MODULE status_0100.
  CALL SUBSCREEN sub_screen INCLUDING sy-repid  number.

4定义屏幕100 PAI
PROCESS AFTER INPUT.
  MODULE exec_exit_100 AT EXIT-COMMAND.
  MODULE exec_before_100.
  CALL SUBSCREEN sub_screen.
5 Module 定义

MODULE status_0100 OUTPUT.
* 根据操作状态设置工具栏各功能的状态并将
*当前操作状态需屏蔽的功能放入内表
  PERFORM before_set_100status.
* 调用工具栏并屏蔽内表包含的功能
  SET PF-STATUS '100' EXCLUDING excl_func.
  SET TITLEBAR '100'.
ENDMODULE.                 " STATUS_0100  OUTPUT
6Selection Screen Event

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_psz-low.
  PERFORM help_psz USING 'low' '1100'.
*&--------------------------------------------------------------------*
*&      Form  value_help_vkbur_low
*&--------------------------------------------------------------------*
*根据内表数据弹出品牌选择框
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_pq-low.
* 片区
  REFRESH it_pq.
  CLEAR it_pq.
  SELECT zjgid_c zjgname_c INTO TABLE it_pq
  FROM zjw_bs_jg
  WHERE zjglx_i = 5.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'ZJGID_C'
      dynpprog    = sy-repid
      dynpnr      = '1100'
      dynprofield = 'P_PQ'  "屏幕字段
      value_org   = 'S'
    TABLES
      value_tab   = it_pq.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_drpsz-low.
  PERFORM help_1200psz USING '1200'  'S_DRPSZ-LOW'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_dcpsz-low.
  PERFORM help_1200psz USING '1200' 'S_DCPSZ-LOW'.

AT SELECTION-SCREEN.
  IF sy-dynnr = 1100.
    IF ok_code = 'CACL'.
      IF p_date1 > p_date2.
        MESSAGE e040."起始日期大于截止日期,则提示信息退出
        EXIT.
      ENDIF.
    ENDIF.
  ELSEIF sy-dynnr = 1200.
    IF ok_code = 'SEAR'.
      IF p_dates > p_datee.
        MESSAGE e040."起始日期大于截止日期,则提示信息退出
        EXIT.
      ENDIF.
    ENDIF.
  ENDIF.

AT SELECTION-SCREEN OUTPUT.
  IF sy-dynnr = 1200.
    LOOP AT SCREEN.
      CASE screen-name.
        WHEN  'S_DRPSZ-LOW' or
         '%_S_DRPSZ_%_APP_%-VALU_PUSH' or
          'S_DCPSZ-LOW' or
         '%_S_DCPSZ_%_APP_%-VALU_PUSH' or
         'P_DATES' or
         'P_DATEE'.
          CASE status_mtn.
            WHEN 'A' OR 'U'.
              screen-input = '0'.
            WHEN OTHERS.
              screen-input  = '1'.
          ENDCASE.
          MODIFY SCREEN.
      ENDCASE.
    ENDLOOP.
  ENDIF.

posted on 2007-01-12 10:59  毛小娃  阅读(179)  评论(0编辑  收藏  举报

导航