【无标题】
1.选择屏幕代码
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TEXT-s01.
PARAMETERS: r1 RADIOBUTTON GROUP r1 DEFAULT 'X' USER-COMMAND cid, "
r2 RADIOBUTTON GROUP r1, "
r3 RADIOBUTTON GROUP r1, "
r4 RADIOBUTTON GROUP r1. "
SELECTION-SCREEN END OF BLOCK bk1.
SELECTION-SCREEN BEGIN OF BLOCK bk2 WITH FRAME TITLE TEXT-s02.
SELECT-OPTIONS: s_bukrs FOR xxx-bukrs MODIF ID md3, "公司代码
s_zzffs FOR xxx-zzffs MODIF ID md1, "支付方式
s_zpdlx FOR xxx-zpdlx MODIF ID md2, "派单类型
s_pernr FOR xxx-pernr MATCHCODE OBJECT zyksh_append_sp MODIF ID md3, "服务请求人
s_thry FOR xxx-pernr MATCHCODE OBJECT zyksh_append_sp MODIF ID md4 NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK bk2.
2.动态显示
AT SELECTION-SCREEN OUTPUT.
"选择屏幕动态显示
PERFORM frm_set_screen.
FORM frm_set_screen .
LOOP AT SCREEN.
CASE abap_true.
WHEN r1.
IF screen-group1 = 'MD1'.
screen-active = '1'.
ELSEIF screen-group1 = 'MD2'.
screen-active = '0'.
ELSEIF screen-group1 = 'MD4'.
screen-active = '0'.
ENDIF.
WHEN r2.
IF screen-group1 = 'MD1'.
screen-active = '0'.
ELSEIF screen-group1 = 'MD2'.
screen-active = '1'.
ELSEIF screen-group1 = 'MD4'.
screen-active = '0'.
ENDIF.
WHEN r3.
IF screen-group1 = 'MD1' OR
screen-group1 = 'MD2' OR
screen-group1 = 'MD3'.
screen-active = '0'.
ELSEIF screen-group1 = 'MD4'.
screen-active = '0'.
ENDIF.
WHEN r4.
IF screen-group1 = 'MD1' OR
screen-group1 = 'MD3' OR
screen-group1 = 'MD4'.
screen-active = '1'.
ELSEIF screen-group1 = 'MD2'.
screen-active = '0'.
ENDIF.
WHEN OTHERS.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
post SAP-Garson
原文链接:https://blog.csdn.net/tao273849019/article/details/128099336文章来自于网络,如果侵犯了您的权益,请联系站长删除!