选择屏幕字段动态隐藏和显示
TABLES : vbak,vbap,vbpa.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
SELECT-OPTIONS: s_vkorg FOR vbak-vkorg MODIF ID md1 DEFAULT'2100' OBLIGATORY,
s_vstel FOR vbap-vstel MODIF ID md1,
s_kunnr FOR vbak-kunnr MODIF ID md1,
s_vdatu FOR vbak-vdatu MODIF ID md1,
s_kunnrw FOR vbpa-kunnr MODIF ID md3,
s_land1 FOR vbpa-land1 MODIF ID md3,
s_vbeln FOR vbak-vbeln MODIF ID md1,
s_posnr FOR vbap-posnr MODIF ID md1,
s_matnr FOR vbap-matnr MODIF ID md1,
s_uname FOR sy-uname MODIF ID md2 DEFAULT sy-uname,
s_udate FOR sy-datum MODIF ID md2,
s_uzeit FOR sy-uzeit MODIF ID md2.
PARAMETERS: p_check TYPE char01 MODIF ID md3 AS CHECKBOX USER-COMMAND u1.
PARAMETERS: p_file LIKE rlgrap-filename MODIF ID md3 .
PARAMETERS: p_log TYPE char01 AS CHECKBOX USER-COMMAND u2 MODIF ID md1.
SELECTION-SCREEN END OF BLOCK b1 .
AT SELECTION-SCREEN OUTPUT.
***当P_LOG为‘x’时，MD1和MD2显示，其他的隐藏，当P_LOG不为’X’时，MD2隐藏，其他的显示
IF p_log = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'MD1' OR screen-group1 = 'MD2'.
screen-active = '1'. “显示
ELSE.
screen-active = '0'.”隐藏
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF screen-group1 = 'MD2'.
screen-active = '0'. ”隐藏
ELSE.
screen-active = '1'. “显示
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.