第一次执行,两组控件都显示了:

点击 p_hide1, 界面马上隐藏了第一组控件:

点击 p_hide2, 界面又隐藏了第二组控件:

*&---------------------------------------------------------------------*
*& Report ZJAMES001
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZJAMES001.
PARAMETERS p_hide1 AS CHECKBOX USER-COMMAND flag.
PARAMETERS p_hide2 AS CHECKBOX USER-COMMAND flag.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1 TYPE c LENGTH 10 MODIF ID bl1,
p2 TYPE c LENGTH 10 MODIF ID bl1,
p3 TYPE c LENGTH 10 MODIF ID bl1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: p4 TYPE c LENGTH 10 MODIF ID bl2,
p5 TYPE c LENGTH 10 MODIF ID bl2,
p6 TYPE c LENGTH 10 MODIF ID bl2.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
"屏幕输出事件:
" 在输出前,这里可以关闭一些不需要的控件. 每一次选择后,这些屏幕控件又被重置了
LOOP AT SCREEN INTO DATA(screen_wa).
IF p_hide1 = 'X' and screen_wa-group1 = 'BL1'.
screen_wa-active = '0'.
ENDIF.
IF p_hide2 = 'X' and screen_wa-group1 = 'BL2'.
screen_wa-active = '0'.
ENDIF.
MODIFY SCREEN FROM screen_wa.
ENDLOOP.
这篇博客介绍了如何在SAP ABAP中通过参数和选择屏幕事件来控制界面元素的显示与隐藏。用户可以通过勾选 checkboxes p_hide1 和 p_hide2 来分别隐藏第一组和第二组控件,实现动态界面调整。
392

被折叠的 条评论
为什么被折叠?



