ABAP CHECKBOX 选中事件

最新推荐文章于 2024-10-08 15:03:28 发布

原创最新推荐文章于 2024-10-08 15:03:28 发布 · 1.1w 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#sap #SAP

ABAP 专栏收录该内容

52 篇文章

订阅专栏

本文介绍了一种使用ABAP编程语言实现的功能：当用户选中特定的勾选框后，原本可编辑的输入字段变为只读状态。通过修改屏幕控制属性，实现了对用户输入行为的有效控制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

当用户选中勾选框后，原本可以输入的field 变为不可输入。

REPORT ZTEST_N.
DATA screen_wa TYPE SCREEN.

SELECTION-SCREEN BEGIN OF SCREEN 100.

SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME TITLE TEXT-001.
PARAMETERS field(10) TYPE c ."OBLIGATORY.
SELECTION-SCREEN END OF BLOCK part1.

SELECTION-SCREEN BEGIN OF BLOCK part2 WITH FRAME TITLE TEXT-002.
PARAMETERS: a AS CHECKBOX USER-COMMAND flag.
SELECTION-SCREEN END OF BLOCK part2.

SELECTION-SCREEN END OF SCREEN 100.

AT SELECTION-SCREEN OUTPUT.

LOOP AT screen INTO screen_wa.
IF a = 'X' AND screen_wa-NAME = 'FIELD'.
screen_wa-active = '0'.
MODIFY screen FROM screen_wa.
ENDIF.
ENDLOOP.

CLASS start DEFINITION.
PUBLIC SECTION.
CLASS-METHODS main.
ENDCLASS.

CLASS start IMPLEMENTATION.
METHOD main.
CALL SELECTION-SCREEN 100 STARTING AT 10 10.
IF sy-subrc <> 0.
RETURN.
ENDIF.
ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
start=>main( ).