screen input

[Former Member]

do you have an example of screen input

when i click radio butto parameter get input 1 and oposite

i get confused

[Former Member · Accepted solution]

Take a look at DEMO_DYNPRO_CHECK_RADIO.

There are quite few examples, you can search using DEMODYNPRO in SE38.

regards,

Ravi

[Former Member · Accepted solution]

do you have another example

it's good but i looking for something else

[athavanraja · Accepted solution]

<i>when i click radio butto parameter get input 1 and oposite</i>

its little bit confusing. what are you looking for?

Regards

Raja

[athavanraja · Accepted solution]

Hi rani umbro ,

thanks for the geneorosity, but i dont deserve the (10)points, (i dont understand in what way my answer helped you to solve the problem) i was only requesting you to clearly state your requirement.

Regards

Raja

[Former Member]

Hello Rani,

I am not sure what u r looking for but u can give try to this code..

SELECTION-SCREEN BEGIN OF BLOCK BLK_TEST WITH FRAME.

PARAMETERS: R2 RADIOBUTTON GROUP RAD1 DEFAULT 'X' USER-COMMAND RD1,

R1 RADIOBUTTON GROUP RAD1.

PARAMETERS: P_TEXT1(10) ,

P_TEXT2(10) .

SELECTION-SCREEN END OF BLOCK BLK_TEST.

DATA:

FLG_R1(1),

FLG_R2(1).

INITIALIZATION.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P_TEXT2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

CLEAR FLG_R1.

ENDIF.

ENDLOOP.

AT SELECTION-SCREEN OUTPUT.

IF FLG_R1 = 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P_TEXT1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

CLEAR FLG_R1.

ELSE.

SCREEN-INPUT = 1.

MODIFY SCREEN.

CLEAR FLG_R1.

ENDIF.

ENDLOOP.

ENDIF.

IF FLG_R2 = 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P_TEXT2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

CLEAR FLG_R2.

ELSE.

SCREEN-INPUT = 1.

MODIFY SCREEN.

CLEAR FLG_R1.

ENDIF.

ENDLOOP.

ENDIF.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD1.

CASE SY-UCOMM.

WHEN 'RD1'.

IF R1 = 'X'.

FLG_R1 = 'X'.

ELSEIF R2 = 'X'.

FLG_R2 = 'X'.

ENDIF.

ENDCASE.

[Former Member]

Dear Rani,

Please specify your requirement clearly.

Regards,

Reema.

[Former Member]

Hi,

Chek this sample code:

SELECTION-SCREEN BEGIN OF BLOCK 4 WITH FRAME TITLE text-013.
*START OF CFSE0001
*Selection for GL or Parked Invoice Posting
PARAMETERS: rb_gldoc RADIOBUTTON GROUP rg1 DEFAULT 'X' USER-COMMAND clck,
                        rb_pidoc RADIOBUTTON GROUP rg1.

SELECTION-SCREEN END OF BLOCK 4.



*---------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT                                 *
*---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

  IF rb_pidoc = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'M1'.
        screen-active = '1'.
        MODIFY SCREEN.
      ELSEIF screen-group1 = 'M2'.
        screen-active = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSEIF rb_gldoc = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'M1'.
        screen-active = '0'.
        MODIFY SCREEN.
      ELSEIF screen-group1 = 'M2'.
        screen-active = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

Regards,

Anjali