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='0' . ENDIF. ENDIF. MODIFY SCREEN. ENDLOOP. AT SELECTION-SCREEN OUTPUT .事件会被单选控件触发。 Screen的Group1是给用户编程使用的,在前面给控件编组以后,这里可以得到控件的组名称。 Group3是保留属性,通过跟踪,猜测它可能是控件的类型属性,对于TXT和OPU的控件,我们不需要改变它的INPUT属性,因...
(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、...
CALL SCREEN <SCREEN_NUMBER>.调用新的屏幕序列 LEAVE TO SCREEN 0. SET SCREEN 0. LEAVE SCREEN. (6)后台处理屏幕 可以使用SUPPRESS DIALOG 取消所有屏幕. *---PBO MODULE OF SCREEN 100. CALL SCREEN 110 STARTING AT 10 5. *---SCREEN 110 FLOW LOGIC MODULE DIALOG_WINDOWS OUTPUT. SUPPRESS DIALOG. L...
loop at screen. if ( order_extract-action = 'L' and screen-name = 'VIM_MARKED' ). screen-input = 0. modify screen. endif. if ( zfi017v-kostl ne space and screen-name = 'ZFI017V-KOSTL' ) or ( zfi017v-kstar ne space ...
ABAP 报表里每个输入参数都有一个专属于自己的 SCREEN 变量,通过 NAME 来区分。 我们可以在第 31 行设置断点。运行时当执行到这行语句时,说明当前 screen 变量的 name 字段值已经为 P_SHM 了,说明 LOOP AT SCREEN 循环体内正在处理 P_SHM 输入参数了,此时把 0 赋给 screen 变量的 input 字段,然后通过 ABAP...
EXPORTING i_date = lv_data IMPORTING e_date = lw_data-high. APPEND lw_data to lv_erdat. lv_auart = 'ZZY3'. (1)赋值可修改与不可修改:loop at screen. If screen-name eq ’LV_AUART’. Screen-input = 0. Modify screen.endif. endloop. ...
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 = '...
MODULE user_command_0100 INPUT. save_ok = ok_code. CLEAR ok_code. CASE save_ok. WHEN 'TOGGLE'. LOOP AT flights-cols INTO cols WHERE index GT 2. IF cols-screen-input = '0'. cols-screen-input = '1'. ELSEIF cols-screen-input = '1'. ...
运行 AI代码解释 MODULEstatus_0001OUTPUT.IFsy-tcode='MM02'ORsy-tcode='MM03'.CALLFUNCTION'MARA_GET_SUB'IMPORTINGwmara=mara xmara=*mara ymara=lmara.ENDIF.IFsy-tcode='MM03'.LOOPATSCREEN.screen-input='0'.MODIFYSCREEN.ENDLOOP.ENDIF.ENDMODULE.MODULEset_ztab_mara_01INPUT.DATA:ls_custTYPEztab...