topic Re: Selection Screen Layout. in Application Development and Automation Discussions

Selection Screen Layout.

FranklinAsis — Thu, 06 Mar 2008 04:19:27 GMT

Hi,

I need to layout a selection screen like the one below:

RadioButton1

Parameter1

Select-Option1

RadioButton2

RadioButton3

Items (Parameter1 and Select-Option1) should be disabled when RadioButton1 is not selected.

I cant quite figure out how i would insert (Parameter1 and Select-Option1) between RadioButton1 and 2. I dont want to waste precious time to do research for this, so I opted to ask the experts(you..).

Thanks,

Frank

Re: Selection Screen Layout.

gopi_narendra — Thu, 06 Mar 2008 04:31:22 GMT


TABLES : vbak.
PARAMETERS : p_c1 RADIOBUTTON GROUP r1 USER-COMMAND m1.
PARAMETERS : p_1(10) TYPE c.
SELECT-OPTIONS : p_2 FOR vbak-vbeln.
PARAMETERS : p_c2 RADIOBUTTON GROUP r1.
PARAMETERS : p_c3 RADIOBUTTON GROUP r1 DEFAULT 'X'.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF p_c2 = 'X' OR p_c3 = 'X'.
      IF screen-name = 'P_2-LOW' OR
         screen-name = 'P_2-HIGH' OR
         screen-name = 'P_1'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.

Regards

Gopi

Re: Selection Screen Layout.

Former Member — Thu, 06 Mar 2008 04:33:03 GMT

&----

*& Report ZNNR_SAMPLE22

&----

REPORT ZNNR_SAMPLE22 NO STANDARD PAGE HEADING MESSAGE-ID ZNNR LINE-SIZE 100 LINE-COUNT 65(4).

******DATA DECLARATIONS**********

DATA : BEGIN OF IT_PLANT OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

PSTAT LIKE MARC-PSTAT,

EKGRP LIKE MARC-EKGRP,

END OF IT_PLANT.

DATA : BEGIN OF IT_PONO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

WERKS LIKE EKPO-WERKS,

LGORT LIKE EKPO-LGORT,

END OF IT_PONO.

TABLES EKKO.

********END OF DATA DECLARATIONS*********

********SELECTION SCREEN DESIGN ***********

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

SELECTION-SCREEN BEGIN OF LINE.

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

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

SELECTION-SCREEN END OF LINE.

PARAMETER : P_WERKS LIKE MARC-WERKS MODIF ID S1.

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

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1.

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 B1.

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

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

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

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

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

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

execute this one

Re: Selection Screen Layout.

mahaboob_pathan — Thu, 06 Mar 2008 04:36:26 GMT

HI,

CHECK THIS CODE.

THIS WORKS.

TABLES:MARA,MARC.

SELECTION-SCREEN: BEGIN OF BLOCK B3.

PARAMETERS:R_MARA RADIOBUTTON GROUP RD1 user-command KK,

P_MRA LIKE MARA-MATNR.

SELECT-OPTIONS:P_ERNAM FOR MARA-ERNAM.

PARAMETERS:R_MARC RADIOBUTTON GROUP RD1,

R_MARD RADIOBUTTON GROUP RD1.

SELECTION-SCREEN: END OF BLOCK B3.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF R_MARC = 'X' OR R_MARD = 'X'.

IF SCREEN-NAME = 'P_ERNAM-LOW' OR

SCREEN-NAME = 'P_ERNAM-HIGH' OR

SCREEN-NAME = 'P_MRA'.

SCREEN-NAME = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Edited by: Mahaboob Pathan on Mar 6, 2008 10:14 AM

Re: Selection Screen Layout.

Former Member — Thu, 06 Mar 2008 04:54:47 GMT

Hi,

TABLES : vbak.

PARAMETERS : p_c1 RADIOBUTTON GROUP r1 USER-COMMAND m1.

PARAMETERS : p_1(10) TYPE c.

SELECT-OPTIONS : p_2 FOR vbak-vbeln.

PARAMETERS : p_c2 RADIOBUTTON GROUP r1.

PARAMETERS : p_c3 RADIOBUTTON GROUP r1 DEFAULT 'X'.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_c2 = 'X' OR p_c3 = 'X'.

IF screen-name = 'P_2-LOW' OR

screen-name = 'P_2-HIGH' OR

screen-name = 'P_1'.

screen-INVISIBLE = 1.

MODIFY SCREEN.

ELSE.

IF screen-name = 'P_C1' OR

screen-name = 'P_1'.

screen-INVISIBLE = 0.

MODIFY SCREEN.

ENDIF.

ELSE.

IF screen-name = 'P_2-LOW' OR

screen-name = 'P_2-HIGH' OR

screen-name = 'P_1'.

screen-INVISIBLE = 0.

MODIFY SCREEN.

ELSE.

IF screen-name = 'P_C1' OR

screen-name = 'P_1'.

screen-INVISIBLE = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: Selection Screen Layout.

Former Member — Thu, 06 Mar 2008 14:34:00 GMT

Try the below code



TABLES : t001.
PARAMETERS : rb_1 RADIOBUTTON GROUP r1 USER-COMMAND ucom1.
PARAMETERS : p_param(10) TYPE c MODIF ID m1.
SELECT-OPTIONS : s_param FOR t001-bukrs MODIF ID m1.
PARAMETERS : rb_2 RADIOBUTTON GROUP r1.
PARAMETERS : rb_3 RADIOBUTTON GROUP r1 DEFAULT 'X'.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF rb_2 = 'X' OR rb_3 = 'X'.
*" ACTIVE = 0 removes the fields from screen display
*" INPUT = 0 just disables the input of the fields
      IF screen-group1 = 'M1'.
        screen-active = 0.
      ELSE.
        screen-active = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

Hope this helps.

Reward points for all helpful answers.

Thanks,

Balaji