regarding push button

[Former Member]

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.

[Former Member]

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.

[Former Member]

Hai,

You can try with the following event,

AT SELECTION-SCREEN OUTPUT.

[former_member186741]

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.

[Former Member]

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

[Former Member]

Hi,

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

Thanks

Sudheer

[Former Member]

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.

[Former Member]

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.

[Former Member]

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.