topic Check in selection-screen in Application Development and Automation Discussions

Check in selection-screen

Former Member — Fri, 06 Mar 2009 09:55:22 GMT

Hi Experts,

In Selection screen, i have one input field for project. Now my requirement is that

When i enter the project and press enter and if it belongs to a particluar company code , for e.g. '1000'

then i should see two radio buttons below it. But if the project does not

belong to this CCode, then the radiobuttons should not be displayed.

Re: Check in selection-screen

Former Member — Fri, 06 Mar 2009 09:59:31 GMT

Hi,

Make use of LOOP AT screen.

If the project meets ur criterion then screen-name = 'Radi_1' and rad_2

screen-invisible = 0.

MODIFY screen.

ENDLOOP.

Initially keep the radiobuttons hidden.

You can code this in selection-screen output.

Re: Check in selection-screen

I355602 — Fri, 06 Mar 2009 10:02:22 GMT

Hi,

Use :-


parameters : p_rb1 radiobutton group1 modif if abc,
        p_rb2 radiobutton group1 modif if abc.

AT SELECTION-SCREEN OUTPUT.
  "select query
  if sy-subrc ne 0. "no record found
    loop at screen.
      if screen-group1 = 'ABC'.
        screen-invisible = 1. "hide radiobuttons
      endif.
      modify screen.
    endloop.
  else.
    loop at screen.
      if screen-group1 = 'ABC'.
        screen-invisible = 0. "display radiobuttons
      endif.
      modify screen.
    endloop.
  endif.

Regards,

Tarun

Re: Check in selection-screen

Former Member — Fri, 06 Mar 2009 10:02:43 GMT

Hi Priti,

You can achieve it by using LOOP AT SCREEN,

check its syntax for that.

Regrds

Mansi

Re: Check in selection-screen

Former Member — Fri, 06 Mar 2009 10:09:13 GMT

hi,

i have put the following code but yet when i execute i can see both the radiobuttons.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.

parameters : rb1 radiobutton group g2 modif id abc,

rb2 radiobutton group g2 modif id abc.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

SELECT SINGLE * FROM PROJ WHERE

PSPNR IN S_PSPNR.

if proj-vbukr = '5800'.

loop at screen.

if screen-group1 = 'ABC'.

screen-invisible = 1. "hide radiobuttons

endif.

modify screen.

endloop.

else.

loop at screen.

if screen-group1 = 'ABC'.

screen-invisible = 0. "display radiobuttons

endif.

modify screen.

endloop.

endif.

Re: Check in selection-screen

Mohamed_Mukhtar — Fri, 06 Mar 2009 10:11:18 GMT

hi,

Try with the below code...

PARAMETERS : p_proj(4),
             r1 RADIOBUTTON GROUP g1 USER-COMMAND x modif id mod,
             r2 RADIOBUTTON GROUP g1 modif id mod.


AT SELECTION-SCREEN OUTPUT.
  IF p_proj ='1000'.
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.
        screen-invisible = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.
        screen-invisible = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

Thanks & Regards

Re: Check in selection-screen

Former Member — Fri, 06 Mar 2009 10:12:58 GMT

thanks all. its working

Re: Check in selection-screen

kamesh_g — Fri, 06 Mar 2009 10:13:03 GMT

use following code .

parameters : p_rb1 radiobutton group grp1 modif id abc,

p_rb2 radiobutton group grp1 modif id abc.

data : i_var like mara-matnr value '0001'.

AT SELECTION-SCREEN OUTPUT.

select matnr from mara

into i_var WHERE matnr = i_var.

endselect.

if sy-subrc ne 0. "no record found

loop at screen.

if screen-group1 = 'ABC'.

screen-invisible = 1.

endif.

modify screen.

endloop.

else.

loop at screen.

if screen-group1 = 'ABC'.

screen-invisible = 0.

endif.

modify screen.

endloop.

endif.

Re: Check in selection-screen

Former Member — Fri, 06 Mar 2009 10:13:45 GMT

Hi Priti,


if proj-vbukr = '5800'. 

loop at screen.
if screen-group1 = 'ABC'.
screen-invisible = 1. "hide radiobuttons  "Just check if this is even getting executed.
modify screen.
endif.
endloop.
else.
loop at screen.
if screen-group1 = 'ABC'.
screen-invisible = 0. "display radiobuttons
modify screen.
endif.
endloop.
endif.

Re: Check in selection-screen

Former Member — Sat, 07 Mar 2009 05:12:26 GMT

Hi experts,

But it is not working the other way. The condition is that if company code is '1000' then it should not display the radiobuttons else for all other company codes it should display

Re: Check in selection-screen

I355602 — Sat, 07 Mar 2009 05:32:18 GMT

Hi,


> Hi experts,
> But it is not working the other way. The condition is that if company code is '1000' then it should not display the radiobuttons else for all other company codes it should display

As your requirement, if company code is 1000, then it should not display those radiobuttons, else the radiobuttons need to be displayed.

So use code:-


parameters : p_rb1 radiobutton group gp1 modif id abc,
             p_rb2 radiobutton group gp1 modif id abc.

data : v_bukrs type bukrs.
 
AT SELECTION-SCREEN OUTPUT.
  "select query (select sinlge bukrs into v_bukrs where <condition>.)
  if sy-subrc = 0. "if company code found
    if v_bukrs = '1000'. "if company code is 1000
      loop at screen.
        if screen-group1 = 'ABC'.
          screen-invisible = 1. "hide radiobuttons
        endif.
        modify screen.
      endloop.
    else. "if company code is not 1000
      loop at screen.
        if screen-group1 = 'ABC'.
          screen-invisible = 0. "display radiobuttons
        endif.
        modify screen.
      endloop.
    endif.
  else. "if no company code found
    loop at screen.
      if screen-group1 = 'ABC'.
        screen-invisible = 0. "display radiobuttons
      endif.
      modify screen.
    endloop.
  endif.

Hope this helps you.

Regards,

Tarun

Re: Check in selection-screen

Former Member — Sat, 07 Mar 2009 05:38:32 GMT

resolved