标签：sel gs SCREEN INITIAL 选择 ENDIF 屏幕 动态 ersda
1 *&---------------------------------------------------------------------* 2 *& Report ZR001 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT zrjyc001. 10 11 12 13 *定义一个工作区 14 DATA: BEGIN OF gs_sel, 15 werks TYPE marc-werks, 16 matnr TYPE mara-matnr, 17 mtart TYPE mara-mtart, 18 beskz TYPE marc-beskz, 19 ersda TYPE mara-ersda, 20 END OF gs_sel. 21 22 *定义选择屏幕块区域BLK1,其中包含两个radiobutton 和一个check box 23 24 SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. 25 PARAMETERS:p_but1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND cm1, 26 p_but2 RADIOBUTTON GROUP g1, 27 p_chek1 AS CHECKBOX DEFAULT 'X'. 28 SELECTION-SCREEN END OF BLOCK blk1. 29 30 *定义选择屏幕块区域BLk2。 31 32 SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002. 33 SELECT-OPTIONS: 34 s_werks FOR gs_sel-werks MODIF ID ty1 OBLIGATORY DEFAULT 9020, 35 s_matnr FOR gs_sel-matnr MODIF ID ty1, 36 s_mtart FOR gs_sel-mtart MODIF ID ty2, 37 s_beskz FOR gs_sel-beskz MODIF ID ty2, 38 s_ersda FOR gs_sel-ersda MODIF ID ty2. 39 SELECTION-SCREEN END OF BLOCK blk2. 40 41 AT SELECTION-SCREEN OUTPUT. 42 IF p_but2 IS NOT INITIAL . "当p_but2被选中的时候，调用函数获取当前日期。 43 PERFORM frm_get_date. 44 ENDIF. 45 46 LOOP AT SCREEN. 47 CASE screen-group1. 48 WHEN 'TY1'. 49 IF screen-name = 'S_MATNR-LOW'. 50 IF p_but1 IS NOT INITIAL. "当p_but1被选中时，设置S_MATNR-LOW必输项属性 51 screen-required = '2'. 52 * MESSAGE 'aa' type 'E'. 53 ENDIF. 54 ENDIF. 55 56 WHEN 'TY2'. 57 IF p_but2 IS INITIAL."当pub2未被选中时，不显示 58 screen-active = '0'. 59 ELSE. 60 screen-active = '1'. 61 IF screen-name = 'S_ERSDA-LOW'. 62 screen-required = '2'."当p_but2被选中时，设置S_ERSDA-LOW必输项属性 63 ENDIF. 64 ENDIF. 65 ENDCASE. 66 MODIFY SCREEN. 67 ENDLOOP. 68 69 AT SELECTION-SCREEN ON s_ersda. 70 IF p_but2 IS NOT INITIAL AND 71 sy-ucomm <> 'CM1' AND s_ersda IS INITIAL. 72 MESSAGE e001(00) WITH text-003. 73 ENDIF. 74 75 AT SELECTION-SCREEN ON s_matnr. 76 IF p_but1 IS NOT INITIAL AND 77 sy-ucomm <> 'CM1' AND s_matnr IS INITIAL. 78 MESSAGE e001(00) WITH text-003. 79 ENDIF. 80 81 *&---------------------------------------------------------------------* 82 *& FRM_GET_DATE 83 *&---------------------------------------------------------------------* 84 FORM frm_get_date. 85 * REFRESH:s_ersda. 86 DELETE s_ersda[] WHERE sign EQ space . 87 s_ersda-high = sy-datum. 88 CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL' 89 EXPORTING 90 date = s_ersda-high 91 days = '00' 92 months = 3 93 signum = '/' 94 years = '00' 95 IMPORTING 96 calc_date = s_ersda-low. 97 APPEND s_ersda. 98 99 ENDFORM.
标签：sel,gs,SCREEN,INITIAL,选择,ENDIF,屏幕,动态,ersda 来源： https://www.cnblogs.com/liuyutan/p/15165051.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。