RADIO BUTTON

[Former Member]

Selection Screen

Selection should contain two radio buttons

One for Purchase Order

Another for Sales Order

Each radio button should have once text box associated to that

By default the Purchase Order Radio button should select

If purchase order radio button selected, text box associated for sales order should be input disable and text box associated for purchase order should be input enabled

If Sales Order radio button is selected, text box associated for sales order should be input enable and text box associated for purchase order should be input disable

[Former Member]

parameters: rb1 radiobutton group g1 user-command uc1,

rb2 radiobutton group g1 user-command uc1.

at selection-screen.

if rb1 = 'X'.

loop at screen.

if screen-name = 'P_PO'.

screen-input = 0.

modify screen.

endif.

endloop.

else.

if screen-name = 'P_SO'.

screen-input = 0.

modify screen.

endif.

endloop.

endif.

REgards,

Ravi

[Former Member]

check below code... which disables and enables as such....

----

---

• S E L E C T I O N S C R E E N

----

---

SELECTION-SCREEN BEGIN OF BLOCK FILE WITH FRAME TITLE TEXT-000.

SELECTION-SCREEN : BEGIN OF LINE.

PARAMETERS: RB_APPN RADIOBUTTON GROUP RAD1 DEFAULT 'X' USER-COMMAND RAD.

SELECTION-SCREEN COMMENT 3(25) TEXT-030.

PARAMETERS: RB_PRTN RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN COMMENT 32(20) TEXT-031.

SELECTION-SCREEN : END OF LINE.

PARAMETERS : P_LPATH TYPE FILEPATH-PATHINTERN MODIF ID Z1,

P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.

PARAMETERS : P_SUBGRP TYPE RLGRAP-FILENAME,

P_INVEN TYPE RLGRAP-FILENAME,

P_SALES TYPE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK FILE.

SELECTION-SCREEN BEGIN OF BLOCK FILE1 WITH FRAME TITLE TEXT-032.

SELECT-OPTIONS:

S_WERKS FOR T001W-WERKS OBLIGATORY DEFAULT 5210,

S_SPART FOR MARA-SPART,

S_MATNR FOR MARA-MATNR.

SELECTION-SCREEN END OF BLOCK FILE1.

----

---

• A T S E L E C T I O N - S C R E E N O U T P U T

----

---

AT SELECTION-SCREEN OUTPUT.

PERFORM F_MODIFY_SCREEN.

----

---

• A T S E L E C T I O N S C R E E N

----

---

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM VALIDATE_FILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SUBGRP.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_SUBGRP .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_INVEN.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_INVEN .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SALES.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_SALES .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

&----

---

*& Form F_MODIFY_SCREEN

&----

---

• text

----

---

FORM F_MODIFY_SCREEN .

*-- For Output Options

IF RB_PRTN = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1' .

SCREEN-INVISIBLE = 1.

SCREEN-ACTIVE = 0.

ELSE.

SCREEN-INVISIBLE = 0.

SCREEN-ACTIVE = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDFORM. " F_MODIFY_SCREEN

[Former Member]

YES THAT CAN BE POSSIBLE BY THIS CODE

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETER : P_WERKS LIKE MARC-WERKS VALUE CHECK MODIF ID S1.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN OBLIGATORY NO INTERVALS MODIF ID S2.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND UC1.

SELECTION-SCREEN COMMENT 5(20) TEXT-002 FOR FIELD R1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 5(20) TEXT-003 FOR FIELD R2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

******END OF SELECTION SCREEN DESIGN****************

*********INITIALIZATION OF SELECTION SCREEN ELEMENTS.*****

INITIALIZATION.

P_WERKS = '1000'.

S_EBELN-LOW = '4500016926'.

S_EBELN-OPTION = 'EQ'.

S_EBELN-SIGN = 'I'.

APPEND S_EBELN.

CLEAR S_EBELN.

************END OF INITIALIZATION***********************

************SCREEN MODIFICATIONS*******************

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN .

IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

********END OF SCREEN MODIFICATIONS*****************

REWARD IF USEFUL

REGARDS

NARESH

[Former Member]

THE ABOVE CODE IS EXACTLY AS PER YOUR REQUIREMENT

YOU CAN PUT THE COMMENTS BY DOUBLE CLICKING THAT TEXT ELEMENTS

THANKYOU

REWARD IF USEFUL

REGARDS

NARESH

[Former Member]

Hi,

see this code.

tables:sscrfields.

PARAMETERS:pur_ord RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND SEL,

sal_ord RADIOBUTTON GROUP rad1.

PARAMETERS:pur_ord1 LIKE ekko-ebeln,

sal_ord1 like vbak-vbeln.

AT SELECTION-SCREEN OUTPUT.

IF sal_ord = 'X'.

LOOP AT SCREEN.

IF screen-name = 'SAL_ORD1'.

screen-input = 1.

MODIFY SCREEN.

endif.

endloop.

LOOP AT SCREEN.

IF screen-name = 'PUR_ORD1'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF pur_ord = 'X'.

LOOP AT SCREEN.

IF screen-name = 'SAL_ORD1'.

screen-input = 0.

MODIFY SCREEN.

ELSEIF screen-name = 'PUR_ORD1'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

AT SELECTION-SCREEN.

IF sscrfields-ucomm = 'SEL' and sal_ord = 'X'.

LOOP AT SCREEN.

IF screen-name = 'SAL_ORD1'.

screen-input = 1.

MODIFY SCREEN.

endif.

endloop.

LOOP AT SCREEN.

IF screen-name = 'PUR_ORD1'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF sscrfields-ucomm = 'SEL' and pur_ord = 'X'.

LOOP AT SCREEN.

IF screen-name = 'SAL_ORD1'.

screen-input = 0.

MODIFY SCREEN.

ELSEIF screen-name = 'PUR_ORD1'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

<b>reward if helpful</b>

rgds,

bharat.