Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

regarding push button

Former Member

‎2006 Aug 21 6:57 AM

0 Likes
671

initially there are two push buttons and the parameters should not be displayed.

when any one push button is clicked on one parameter should be displayed.

TABLES : SSCRFIELDS.

PARAMETERS : P LIKE MARA-MATNR MODIF ID ABC.

PARAMETERS : P1 LIKE MARC-WERKS MODIF ID ABC.

SELECTION-SCREEN : begin of line,

PUSHBUTTON 2(10) PB1 USER-COMMAND A,

PUSHBUTTON 20(10) PB2 USER-COMMAND B,

end of line.

AT SELECTION-SCREEN ." OUTPUT.

CASE SSCRFIELDS-UCOMM.

WHEN 'A'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

endcase.

7 REPLIES 7
Read only

Former Member

‎2006 Aug 21 7:00 AM

0 Likes
639

Hai,

You can try with the following event,

AT SELECTION-SCREEN OUTPUT.

Read only

former_member186741
Active Contributor
In response to Former Member

‎2006 Aug 21 7:22 AM

0 Likes
639

REPORT znrw_pbut .

SELECTION-SCREEN PUSHBUTTON 15(5) pbut_1 USER-COMMAND pb1.

SELECTION-SCREEN PUSHBUTTON 35(5) pbut_2 USER-COMMAND pb2.

parameters: pbut1a type matnr MODIF ID pb1,

pbut1b type sydatum MODIF ID pb1.

parameters: pbut2a type vbeln MODIF ID pb2.

TABLES: sscrfields.

data l_button like sy-ucomm.

INITIALIZATION.

MOVE 'PB 1' TO pbut_1.

MOVE 'PB 2' TO pbut_2.

l_button = 'PB1'

...

AT SELECTION-SCREEN.

IF sscrfields-ucomm = 'PB1'

OR sscrfields-ucomm = 'PB2'.

l_button = sscrfields-ucomm.

ENDIF.

AT SELECTION-SCREEN OUTPUT.

loop at screen.

IF SCREEN-GROUP1 = 'PB1'

OR SCREEN-GROUP1 = 'PB2'.

IF SCREEN-GROUP1 <> L_BUTTON.

SCREEN-ACTIVE = '0'.

MODIFY SCREEN.

ENDIF.

ENDIF.

Read only

Former Member

‎2006 Aug 21 7:28 AM

0 Likes
639

Hi,

try that under the event <b>AT SELECTION-SCREEN OUTPUT</b>

AT SELECTION-SCREEN  OUTPUT.

CASE SSCRFIELDS-UCOMM.
WHEN 'A'.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P'.
SCREEN-INPUT = '0'.


MODIFY SCREEN.
ENDIF.
ENDLOOP.

regards

vijay

Read only

Former Member

‎2006 Aug 21 7:57 AM

0 Likes
639

Hi,

See the Example Program <b>DEMO_DYNPRO_MODIFY_SCREEN</b>

Thanks

Sudheer

Read only

Former Member
In response to Former Member

‎2006 Aug 21 8:09 AM

0 Likes
639

JUST COPY AND PASTE AND CHECK...

SELECTION-SCREEN PUSHBUTTON 15(15) KIS1 USER-COMMAND ID1.
SELECTION-SCREEN PUSHBUTTON 35(15) KIS2 USER-COMMAND ID2.

parameters: KISHAN1(15) MODIF ID ID1.


parameters: KISHAN2(15)  MODIF ID ID2.

TABLES: sscrfields.

data l_button like sy-ucomm.

INITIALIZATION.
 KIS1 =  'Pushbutton1'.
 KIS2 =  'Pushbutton2'.
l_button = 'ID1'.


AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'ID1'
OR sscrfields-ucomm = 'ID2'.
l_button = sscrfields-ucomm.
ENDIF.

AT SELECTION-SCREEN OUTPUT.

loop at screen.
IF SCREEN-GROUP1 = 'ID1'.
IF SCREEN-GROUP1 <> L_BUTTON.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

loop at screen.
IF SCREEN-GROUP1 = 'ID2'.
IF SCREEN-GROUP1 <> L_BUTTON.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

Read only

Former Member
In response to Former Member

‎2006 Aug 21 8:09 AM

0 Likes
639

JUST COPY AND PASTE AND CHECK...

SELECTION-SCREEN PUSHBUTTON 15(15) KIS1 USER-COMMAND ID1.
SELECTION-SCREEN PUSHBUTTON 35(15) KIS2 USER-COMMAND ID2.

parameters: KISHAN1(15) MODIF ID ID1.


parameters: KISHAN2(15)  MODIF ID ID2.

TABLES: sscrfields.

data l_button like sy-ucomm.

INITIALIZATION.
 KIS1 =  'Pushbutton1'.
 KIS2 =  'Pushbutton2'.
l_button = 'ID1'.


AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'ID1'
OR sscrfields-ucomm = 'ID2'.
l_button = sscrfields-ucomm.
ENDIF.

AT SELECTION-SCREEN OUTPUT.

loop at screen.
IF SCREEN-GROUP1 = 'ID1'.
IF SCREEN-GROUP1 <> L_BUTTON.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

loop at screen.
IF SCREEN-GROUP1 = 'ID2'.
IF SCREEN-GROUP1 <> L_BUTTON.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

Read only

Former Member
In response to Former Member

‎2006 Aug 21 8:10 AM

0 Likes
639 
SELECTION-SCREEN PUSHBUTTON 15(15) KIS1 USER-COMMAND ID1.
SELECTION-SCREEN PUSHBUTTON 35(15) KIS2 USER-COMMAND ID2.

parameters: KISHAN1(15) MODIF ID ID1.


parameters: KISHAN2(15)  MODIF ID ID2.

TABLES: sscrfields.

data l_button like sy-ucomm.

INITIALIZATION.
 KIS1 =  'Pushbutton1'.
 KIS2 =  'Pushbutton2'.
l_button = 'ID1'.


AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'ID1'
OR sscrfields-ucomm = 'ID2'.
l_button = sscrfields-ucomm.
ENDIF.

AT SELECTION-SCREEN OUTPUT.

loop at screen.
IF SCREEN-GROUP1 = 'ID1'.
IF SCREEN-GROUP1 <> L_BUTTON.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

loop at screen.
IF SCREEN-GROUP1 = 'ID2'.
IF SCREEN-GROUP1 <> L_BUTTON.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.