topic Re: regarding push button in Application Development and Automation Discussions

regarding push button

Former Member — Mon, 21 Aug 2006 05:57:43 GMT

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.

Re: regarding push button

Former Member — Mon, 21 Aug 2006 06:00:37 GMT

Hai,

You can try with the following event,

AT SELECTION-SCREEN OUTPUT.

Re: regarding push button

former_member186741 — Mon, 21 Aug 2006 06:22:13 GMT

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.

Re: regarding push button

Former Member — Mon, 21 Aug 2006 06:28:47 GMT

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

Re: regarding push button

Former Member — Mon, 21 Aug 2006 06:57:17 GMT

Hi,

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

Thanks

Sudheer

Re: regarding push button

Former Member — Mon, 21 Aug 2006 07:09:52 GMT

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.

Re: regarding push button

Former Member — Mon, 21 Aug 2006 07:09:57 GMT

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.

Re: regarding push button

Former Member — Mon, 21 Aug 2006 07:10:26 GMT

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.