Code: Alles auswählen.
data: l_cbvalue(1) type c.
* Wert aus dem Radiobutton auslesen
call method <pub__service>->api__get_value
EXPORTING
i_alias = 'ZKODIRADIO'
IMPORTING
e_value = l_cbvalue.
CASE l_cbvalue.
when 'Z'.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGT2'.
SCREEN-INVISIBLE = 0.
SCREEN-ACTIVE = 1.
REG_ZKODIREGIS-activetab = 'PUS_ZKODIREGT2'.
crd_ZKODIREGIS = '0004'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGT1'.
SCREEN-INVISIBLE = 1.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
when 'E'.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGT1'.
SCREEN-INVISIBLE = 0.
SCREEN-ACTIVE = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGT2'.
SCREEN-INVISIBLE = 1.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
when 'K'.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGB'.
SCREEN-INVISIBLE = 0.
SCREEN-ACTIVE = 1.
REG_ZKODIREGIS-activetab = 'PUS_ZKODIREGB'.
crd_ZKODIREGIS = '0002'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGT1'.
SCREEN-INVISIBLE = 1.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF SCREEN-NAME = 'PUS_ZKODIREGT2'.
SCREEN-INVISIBLE = 1.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
endcase.
Code: Alles auswählen.
data: l_cbvalue(1) type c.
* Wert aus dem Radiobutton auslesen
call method <pub__service>->api__get_value
EXPORTING
i_alias = 'ZKODIRADIO'
IMPORTING
e_value = l_cbvalue.
CASE l_cbvalue.
when 'Z'.
if <pub__this_alias> = 'ZKODIREGT2'.
<pub__field_visible> = true.
else.
<pub__field_visible> = false.
endif.
if <pub__this_alias> = 'ZKODIREGT1'.
<pub__field_visible> = true.
else.
<pub__field_visible> = false.
endif.
endcase.
Code: Alles auswählen.
CALL METHOD o__pmd->('API__SET_FOCUS')
EXPORTING
p_alias = alias1.
Code: Alles auswählen.
call method <pub__service>->api__set_focus
exporting
i_alias = '.....'.
Code: Alles auswählen.
* Wert aus dem Radiobutton auslesen
call method <pub__service>->api__get_value
EXPORTING
i_alias = 'ZKODIRADIO'
IMPORTING
e_value = l_cbvalue.
CASE l_cbvalue.
when 'Z'.
CALL METHOD <pub__service>->API__SET_FUNCTION
EXPORTING
I_FUNCTION = 'PUS_ZKODIREGT2'.
*
when 'E'.
CALL METHOD <pub__service>->API__SET_FUNCTION
EXPORTING
I_FUNCTION = 'PUS_ZKODIREGT1'.
when 'K'.
CALL METHOD <pub__service>->API__SET_FUNCTION
EXPORTING
I_FUNCTION = 'PUS_ZKODIREGB'.
endcase.
Code: Alles auswählen.
data: number(20) type c.
number = sy-ucomm.
if number = 'OK-Code'.
CASE ....
endcase.
endif.