Selection Screen

[Former Member]

Hi,

Here i am attaching my piece of code, I want an requirement like this.

If i click the radio button, it should disable plant , ANd vice versa.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_budat FOR /bic/azdac_o0100-doc_date OBLIGATORY.

PARAMETER:p_bukrs LIKE /bic/azdac_o0100-comp_code MODIF ID 001,

p_werks LIKE /bic/azdac_dis00-/bic/zplant_cd MODIF ID 002.

SELECT-OPTIONS: s_lifnr FOR /bic/azdac_o0100-vendor .

SELECTION-SCREEN END OF BLOCK block1.

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-090.

PARAMETER: r_but1 RADIOBUTTON GROUP rb1 USER-COMMAND sel,

r_but2 RADIOBUTTON GROUP rb1.

SELECTION-SCREEN END OF BLOCK block2.

Thanks

Manju

[Former Member]

check the below sample code... and accordingly u can modify ur code...

----

---

• 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]

U can see the below code.........

SELECTION-SCREEN BEGIN OF BLOCK download WITH FRAME TITLE text-001.

PARAMETERS : p_test AS CHECKBOX.

PARAMETERS : p_appser RADIOBUTTON GROUP serv DEFAULT

'X' USER-COMMAND sel.

PARAMETERS : p_afile LIKE rlgrap-filename MODIF ID 001. " app server path

PARAMETERS : p_preser RADIOBUTTON GROUP serv.

PARAMETERS : p_pfile LIKE rlgrap-filename MODIF ID 002. " pre server path

SELECTION-SCREEN END OF BLOCK download.

SELECTION-SCREEN BEGIN OF BLOCK details WITH FRAME TITLE text-002.

PARAMETERS :p_sessn LIKE apqi-groupid DEFAULT sy-uname OBLIGATORY.

SELECTION-SCREEN END OF BLOCK details.

AT SELECTION-SCREEN OUTPUT.

IF p_appser = 'X'.

*Disabling associated fields of presentation server if

*application server radio button is enabled

PERFORM field_disable USING 002.

ELSE.

*Disabling associated fields of application server if

*presentation server radio button is enabled

PERFORM field_disable USING 001.

ENDIF.

FORM field_disable USING p_group.

LOOP AT SCREEN .

IF screen-group1 = p_group.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDFORM. " field_disable

[Former Member]

Hi,

Check this...

at selection-screen output.

loop at screen.

if screen-group1 = '001'.

if r_but1 = 'X'.

screen-active = 0.

else.

screen-active = 1.

endif.

modify screen.

endif.

if screen-group1 = '002'.

if r_but1 = 'X'.

screen-active = 1.

else.

screen-active = 0.

endif.

modify screen.

endif.

endloop.

Regards,

Vidya.

[Former Member]

hi,

check this sample code.

PARAMETERS P_CREA AS CHECKBOX USER-COMMAND CRE.

PARAMETERS P_FILE(80) MODIF ID AAA.

AT SELECTION-SCREEN OUTPUT.

CHECK P_CREA = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'AAA'.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.