Need help to disable input selection-screen - very urgent

Question

Hi SAP experts,
I have a requirement where in I need to disable ( Grey out ) the input fileds on the selection screen .
My problem is as I am using ABAP query I am not able to use any events ( AT SELECTION-SCREEN OUTPUT ).
My selection screen looks like this
MATERIAL NUMBER ( SELECT-OPTIONS)
MATERIAL TYPE ( PARAMETERS )
Now I want to add one more check box below the above fields on the selection-screen.When I click on the check-box,the MATERIAL NUMBER  must be greyed out and MATERIAL TYPE should remain the same.
Please let me know the coding for the same. All answers would be rewarded.
Thanks in Advance,
Suresh.

Answer 1

Hi,
Check out these codes.
1.
TABLES : mara, makt.
parameter: p_matnr type mara-matnr,
           p_maktx type makt-maktx.
at selection-screen output.
select single maktx
from makt
into p_maktx
where matnr = p_matnr
and spras = 'EN'.
loop at screen.
  if screen-name = 'P_MAKTX'.
    screen-input = 0.
    modify screen.
  endif.
endloop.
2.
TABLES : mara, makt.
TYPES:BEGIN OF tp_maktx,
      maktx TYPE makt-maktx,
      END OF tp_maktx.
DATA:t_maktx TYPE STANDARD TABLE OF tp_maktx,
     wa_maktx TYPE tp_maktx.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
SELECT-OPTIONS: s_maktx FOR makt-maktx.
INITIALIZATION.
  REFRESH s_maktx[].
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-name = 'S_MAKTX-LOW' or screen-name = 'S_MAKTX-HIGH'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
  REFRESH s_maktx[].
  if s_matnr[] is not initial.
  SELECT maktx FROM makt
  INTO TABLE t_maktx
  WHERE matnr IN s_matnr
  AND spras = 'EN'.
  endif.
  LOOP AT t_maktx INTO wa_maktx.
    s_maktx-low = wa_maktx-maktx.
    APPEND s_maktx.
    CLEAR:wa_maktx.
  ENDLOOP.
3.
TABLES : mara, makt.
parameter p_cb1 type c as checkbox.
parameter p_cb2 type c as checkbox.
parameter p_cb3 type c as checkbox.
initialization.
loop at screen.
if screen-name = 'P_CB3'.
screen-invisible = 1.
modify screen.
endif.
endloop.
at selection-screen output.
*loop at screen.
*if screen-name = 'P_CB3'.
*screen-invisible = 1.
*modify screen.
*endif.
*endloop.
loop at screen.
if p_cb1 = 'X'.
  if screen-name = 'P_CB2'.
  screen-invisible = 1.
  modify screen.
  endif.
  if screen-name = 'P_CB3'.
  screen-invisible = 0.
  modify screen.
  endif.
endif.
if p_cb2 = 'X'.
  if screen-name = 'P_CB3'.
  screen-invisible = 1.
  modify screen.
  endif.
  if screen-name = 'P_CB1'.
  screen-invisible = 0.
  modify screen.
  endif.
endif.
if p_cb3 = 'X'.
  if screen-name = 'P_CB1'.
  screen-invisible = 1.
  modify screen.
  endif.
  if screen-name = 'P_CB2'.
  screen-invisible = 0.
  modify screen.
  endif.
endif.
endloop.
Reward if helpful..
Regards.