topic Re: selection screen vallidation in Application Development and Automation Discussions

selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:15:55 GMT

Hi Friends ,

I have one radio button group which is having 2 radio buttons and 2 parameters on selection screen .what i want to do is if i select a radio button then parameter 1 should be active and Prameter 2 should be inactive . if i select radio button 2 then parameter2 should be active and parameter 1 should be inactive.

How to do this one

i am doing like this but it is not working.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP GRP1.

LOOP AT SCREEN.

IF BW = 'X'.

screen-group1 = 'BK2'.

screen-INVISIBLE = 1.

ELSEIF APP_SER = 'X' .

screen-group1 = 'BK1'.

screen-INVISIBLE = 1.

ENDIF.

MODIFY SCREEN .

ENDLOOP.

Thanks

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:18:04 GMT

Hi,

you are doing that in wrong event.

<b>AT SELECTION-SCREEN output.</b>

LOOP AT SCREEN.

IF BW = 'X'.
screen-group1 = 'BK2'.
screen-INVISIBLE = 1.


ELSEIF APP_SER = 'X' .

screen-group1 = 'BK1'.
screen-INVISIBLE = 1.
ENDIF.
MODIFY SCREEN .
ENDLOOP.

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:19:37 GMT

Hi,

Use ModIF id along with parameter.

apply logic in at selection-screen output.

eg.

PARAMETERS       : p_sumfl TYPE char255 <b>modif id ABC  .</b>
PARAMETERS       : p_detfl TYPE char255 <b>modif id ABC.</b>

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF p_sumrep = 'X'.
      IF screen-group1  = 'ABC'.
        screen-input  = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.

Code for ur case

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

  IF BW = 'X' and screen-group1 = 'BK2'.
        screen-input  = '0'.
        MODIFY SCREEN.

  ELSEIF APP_SER = 'X' and screen-group1 = 'BK1'.
        screen-input  = '0'.
        MODIFY SCREEN.
  ENDIF.

ENDLOOP.

dont use Invisible ---> it will make invisible instead of deactivating it.

Also assign modif id for the parameters

Mark Helpful Answers

Message was edited by: Manoj Gupta

Re: selection screen vallidation

abdul_hakim — Tue, 20 Jun 2006 07:20:06 GMT

hi raju

apply ur logic in AT SELECTION-SCREEN OUTPUT.

Cheers,

Abdul Hakim

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:21:10 GMT

Try this code.

report ztest.

tables: mara.

data : flag.

selection-screen begin of block b1 with frame title

text-001.

parameters: r_matgrp radiobutton group g1

default 'X' user-command rad1,

r_prdgrp radiobutton group g1.

selection-screen end of block b1.

selection-screen begin of block b2 with frame title

text-002.

select-options: s_matgrp for mara-matkl modif id mat,

s_prdgrp for pgmi-prgrp modif id prd.

selection-screen end of block b2.

at selection-screen output.

if r_matgrp eq 'X'.

flag = '1'.

elseif r_prdgrp eq 'X'.

flag = '2'.

endif.

For Material Type

case flag.

when '1'.

loop at screen.

case screen-group1.

when 'MAT'.

screen-invisible = '0'.

screen-active = '1'.

modify screen.

when 'PRD'.

screen-invisible = '1'.

screen-active = '0'.

modify screen.

endcase.

endloop.

For product type

when '2'.

loop at screen.

case screen-group1.

when 'MAT'.

screen-invisible = '1'.

screen-active = '0'.

modify screen.

when 'PRD'.

screen-invisible = '0'.

screen-active = '1'.

modify screen.

endcase.

endloop.

endcase.

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:21:36 GMT

Use this code.

REPORT z_test .

SELECTION-SCREEN BEGIN OF BLOCK selscr.
PARAMETERS: p_rad1   RADIOBUTTON GROUP rad1 USER-COMMAND a DEFAULT 'X'.
PARAMETERS: p_rad2   RADIOBUTTON GROUP rad1.
SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) text-001 FOR FIELD p_sfile MODIF ID mo1.
PARAMETERS : p_sfile(100) TYPE c MODIF ID mo1
    DEFAULT '\SERVERNAMEDATATABLE.TXT'.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-001 FOR FIELD p_gfile MODIF ID mo2
.
PARAMETERS : p_gfile(100) TYPE c MODIF ID mo2
    DEFAULT 'C:TEMPDATATABLE.TXT'.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK selscr.


* At selection Screen Output Event
AT SELECTION-SCREEN OUTPUT.

  IF p_rad1 EQ 'X'.
    LOOP AT SCREEN.
      IF ( screen-group1 = 'MO2' ) .
        screen-input = 0.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF screen-group1 = 'MO1'.
        screen-input = 0.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

rgds,

TM.

Please mark points if helpful.

Re: selection screen vallidation

ashok_kumar24 — Tue, 20 Jun 2006 07:22:58 GMT

Hi Prithvi raju Rudraraju ,

Validation of selection screen can be performed in the

AT SELECTION SCREEN event.

Example:

************************************************************************

AT SELECTION SCREEN *

************************************************************************

at selection-screen.

perform validate_selection_screen using g_returkode.

if g_returkode = c_returkode_error.

exit.

endif.

&----

*& Form validate_selection_screen

&----

Validation of selection screen

----

-->P_G_RETURKODE text

----

form validate_selection_screen using p_returkode.

if s_framd > 12 or s_framd < 1 or s_tilmd > 12 or s_tilmd < 1.

message e998.

p_returkode = c_returkode_error.

exit.

endif.

if s_framd > s_tilmd.

message e997.

p_returkode = c_returkode_error.

exit.

endif.

if s_fraaar < s_tilaar.

message e996.

p_returkode = c_returkode_error.

exit.

endif.

ENDFORM.

Good Luck and reward me for the same

Thanks

Ashok.N

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:24:57 GMT

Hi prithvi,

1. I have slightly modified your code.

2. Secondly we have to use the event

AT SELECTION-SCREEN OUTPUT.

3. JUST COPY PASTE.

(I just tried, and now it works fantastic)

INITIALIZATION.

BW = 'X'.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF BW = 'X'.

if screen-group1 = 'BK2'.

screen-INVISIBLE = 1.

screen-input = 0.

endif.

ELSEIF APP_SER = 'X' .

if screen-group1 = 'BK1'.

screen-INVISIBLE = 1.

screen-input = 0.

ENDIF.

endif.

MODIFY SCREEN .

ENDLOOP.

regards,

amit m.

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:25:34 GMT

Hi,

Try to run this program. U just copy and paste it your report. It will work.

report abc.

DATA : FLAG VALUE '1'.

tables : mara .

tables : pgmi.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE

TEXT-001.

PARAMETERS: R_MATGRP RADIOBUTTON GROUP G1

DEFAULT 'X' USER-COMMAND RAD1,

R_PRDGRP RADIOBUTTON GROUP G1.

SELECTION-SCREEN : eND OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE

TEXT-002.

SELECT-OPTIONS: S_MATGRP FOR MARA-MATKL MODIF ID A,

S_PRDGRP FOR PGMI-PRGRP MODIF ID B.

SELECTION-SCREEN END OF BLOCK B2.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP G1.

IF R_MATGRP EQ 'X'.

FLAG = '1'.

ELSEIF R_PRDGRP EQ 'X'.

FLAG = '2'.

ENDIF.

AT SELECTION-SCREEN OUTPUT.

For Material Type

CASE FLAG.

WHEN '1'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'B'.

SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDCASE.

CASE FLAG.

WHEN '2'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'A'.

SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDCASE.

Cheers.

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:27:35 GMT

Hi,

just check this code...


REPORT ZTEST.
parameter: r radiobutton group g1 user-command ABC,
           r1  radiobutton group g1.
parameters: p_matnr like mara-matnr,
            p_vbeln like vbak-vbeln.

at selection-screen output.

if r = 'X'.
loop at screen.
if screen-name = 'P_MATNR'.
screen-input = '0'.
clear p_matnr.
modify screen.
endif.
endloop.

endif.

if r1 = 'X'.
loop at screen.
if screen-name = 'P_VBELN'.
screen-input = '0'.
clear p_VBELN.
modify screen.
endif.
endloop.
endif.

Regards

vijay

Re: selection screen vallidation

Former Member — Tue, 20 Jun 2006 07:34:08 GMT

Hi,

REPORT ZTEST2

NO STANDARD PAGE HEADING LINE-SIZE 255.

PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT 'X',

R2 RADIOBUTTON GROUP RAD1.

PARAMETERS: TEST1(10) MODIF ID SC1,

TEST2(10) MODIF ID SC2.

AT SELECTION-SCREEN OUTPUT.

IF R1 = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'SC1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'SC2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Thanks,

Pramod

Re: selection screen vallidation

aris_hidalgo — Tue, 20 Jun 2006 07:54:07 GMT

Hi,

I had the same problem a few days ago. Please try the code below.

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