AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. IF SCREEN-NAME = 'P_NAME'. SCREEN-INPUT = '1'. "可输入 MODIFY SCREEN. ELSEIF SCREEN-NAME = 'P_AGE'. SCREEN-INPUT = '0'. "禁止输入 MODIFY SCREEN. ENDIF. ENDLOOP.
screen-input='1' . ELSE. screen-input='0' . ENDIF. ENDIF. MODIFY SCREEN. ENDLOOP. AT SELECTION-SCREEN OUTPUT .事件会被单选控件触发。 Screen的Group1是给用户编程使用的,在前面给控件编组以后,这里可以得到控件的组名称。 Group3是保留属性,通过跟踪,猜测它可能是控件的类型属性,对于TXT和OPU的控件,我...
SELECTION-SCREEN SKIP 1. "产生空行 SELECTION-SCREEN BEGIN OF LINE . "将元素排列到一行 SELECTION-SCREEN END OF LINE. SELECTION-SCREEN ULINE. "画直线 SELECTION-SCREEN COMMENT 10(20) TEXT-001."屏幕上输出文本 SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-002. SELECTION-SCREEN END OF...
(5)屏幕代码 通过loop at screen表来控制显示的值是否可编辑状态 MODULE STATUS_0111 OUTPUT. IF GV_MODE = 'A'. "A-显示状态打开采购订单 LOOP AT SCREEN.”控制数据是否可输入 IF screen-group1 = 'GP1'. screen-input = 0. ENDIF. MODIFY SCREEN. ENDLOOP. ENDIF. ENDMODULE. 四、第三代增强 1、...
screen-input = '0'. ELSEIF flag = 'X'. screen-input = '1'. ENDIF. MODIFY SCREEN. ENDIF. ENDLOOP. ENDMODULE.MODULE cancel. LEAVE PROGRAM. ENDMODULE.MODULE user_command_0100 INPUT. save_ok = ok_code. CLEAR ok_code. CASE save_ok. WHEN 'TOGGLE'. IF flag = ' '. flag = '...
ymara=lmara.ENDIF.IFsy-tcode='MM03'.LOOPATSCREEN.screen-input='0'.MODIFYSCREEN.ENDLOOP.ENDIF.ENDMODULE.MODULEset_ztab_mara_01INPUT.DATA:ls_custTYPEztab_mara_01.MOVE-CORRESPONDINGmaraTOls_cust.CALLFUNCTION'MARA_GET_SUB'IMPORTINGwmara=mara ...
IF screen-name = *P_STR0* . screen-input = *0*. "灰掉,只输出 ENDIF. IF screen-name = *P_STR1*. screen-invisible = *1*. "*做掩码,适合输入密码 ENDIF. IF screen-name = *P_STR2*. screen-active = *0*. "不显示 ENDIF. MODIFY SCREEN. ENDLOOP.ENDFORM . 一拖鞋飞死ni 无名之...
showeqactionmode.loopatscreen.casescreen-name.when'V_BUKRS'.screen-input=1.modifyscreen.when'V_GJAHR'.screen-input=1.modifyscreen.when'V_ZMON'.screen-input=1.modifyscreen.endcase.endloop.readtabletctrl_order-colsintocolwithkeyscreen-name='ZFI017V-KOSTL'.ifsy-subrc=0.col-screen-input='0...
ERR_MAX_LINEWIDTH = 1 ERR_FORMAT = 2 ERR_CONV_NOT_POSSIBLE = 3 THERS = 4. DATE_GET_WEEK – 返回一个日期所在的周数。 DATE_CHECK_PLAUSIBILITY – 检查一个日期是否是SAP的有效格式。 DYNP_VALUES_READ – 读取SCREEN字段的值,也可以用来读取报表SELECTION SCREEN。
IF screen-group1 = 'MOD'. CASE flag. WHEN 'X'. screen-input = '1'. WHEN ' '. screen-input = '0'. ENDCASE. MODIFY SCREEN. ENDIF. ENDLOOP. ENDMODULE.MODULE user_command_0100 INPUT. MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr. CASE sy-ucomm. WHEN 'TOGGLE'. IF flag =...