选择画面中有两个radio button，点击不同的radio button,显示不同的选择条件，并且做必输项检查，如下：
选择download，显示plant和sales Document两个条件
选择Upload，显示File name，
实现代码，
注意：屏幕字段必输属性设置时，要赋值2(screen-required = '2'.)，这样仅仅是外观显示有勾，当触发单选按钮的USER-COMMAND sel时，不触发系统的必输项检查。
REQUIRED各个值含义如下：
REQUIRED：控制文本框、下拉列表屏幕元素的必输性，使用此属性后会忽略OBLIGATORY选项。取值如下：
0：不必输，框中前面也没有钩
1：必输，框中前面有钩，系统会自动检验是否已输入，相当于OBLIGATORY选项
2：不必输，但框中前面有钩，系统不会检查是否已输入，此时需要手动检验
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 |
REPORT ztest_radiobutton. DATA:g_werks TYPE vbap-werks, g_vbeln TYPE vbak-vbeln. DATA:g_field(11) TYPE c. SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001 . PARAMETERS: r_down TYPE c RADIOBUTTON GROUP c1 USER-COMMAND sel DEFAULT 'X'. "download PARAMETERS: r_upld TYPE c RADIOBUTTON GROUP c1. "upload SELECTION-SCREEN END OF BLOCK blk1. * download condition SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002 . SELECT-OPTIONS: s_werks FOR g_werks MODIF ID m1 NO INTERVALS. "plant SELECT-OPTIONS: s_vbeln FOR g_vbeln MODIF ID m1. "sales order SELECTION-SCREEN END OF BLOCK blk2. * upload condition SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-002 . PARAMETERS p_file TYPE rlgrap-filename MODIF ID m2. SELECTION-SCREEN END OF BLOCK blk3. AT SELECTION-SCREEN OUTPUT. * set screen fields attributes PERFORM frm_screen_output. AT SELECTION-SCREEN. * check mandatory input fields PERFORM frm_check_input. *&---------------------------------------------------------------------* *& Form FRM_SCREEN_OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_screen_output . LOOP AT SCREEN . CASE screen-group1. WHEN 'M1' . IF r_down = 'X' . screen-active = 1 . IF screen-name = 'S_WERKS-LOW' OR "PLANT screen-name = 'S_VBELN-LOW' . screen-required = '2'. "2-显示为必输项，但是系统不做检查，需要自己写检查逻辑 ENDIF. ELSE . screen-active = 0 . ENDIF . WHEN 'M2' . IF r_upld = 'X' . screen-active = 1 . screen-required = '2'. ELSE . screen-active = 0 . ENDIF . ENDCASE . MODIFY SCREEN . ENDLOOP . * 设定光标 CASE ''. WHEN s_werks-low. SET CURSOR FIELD 'S_WERKS-LOW'. WHEN s_vbeln-low. SET CURSOR FIELD 'S_VBELN-LOW'. ENDCASE. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_CHECK_INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_check_input . IF sy-ucomm <> 'SEL' AND sy-ucomm <> '%011'. IF r_down = 'X'. "download IF s_werks-low IS INITIAL. MESSAGE ID '00' TYPE 'S' NUMBER '55' DISPLAY LIKE 'E'. STOP. ENDIF. IF s_vbeln-low IS INITIAL. MESSAGE ID '00' TYPE 'S' NUMBER '55' DISPLAY LIKE 'E'. STOP. ENDIF. ELSE. IF p_file IS INITIAL. "upload MESSAGE ID '00' TYPE 'S' NUMBER '55' DISPLAY LIKE 'E'. STOP. ENDIF. ENDIF. ENDIF. ENDFORM. |
以上。
发表评论