selection screen error message question

[Former Member]

On a selection screen, I have a selection-options for kunnr. If the user enters other than 100001 or 100002 or 100003 for this field, I want to display a error message. How do you do that? Can you please provide a sample code for this?

Thanks a lot.

[Former Member]

AT SELECTION-SCREEN.

PERFORM check_selection_screen_data.

&----

---

*& Form check_selection_screen_data

&----

---

• Check for the selection screen data

----

---

CLEAR but000.

SELECT SINGLE * INTO but000

FROM but000

WHERE partner IN s_cust.

IF sy-subrc NE 0.

MESSAGE e001(zesspa) WITH text-002.

"Business Partner entered is not valid

ENDIF.

Regards,

Prakash.

[Former Member]

Also define your select-option with no-intervals.

if s_kunnr-low = '10001' or s_kunnr-low = '10002' or

s_kunnr-low = '10003'.

else.

Error message.

endif.

[Former Member]

hi Krishen,

do this way ..

at selection-screen.
if s_kunnr-low = '10001' or 
   s_kunnr-low = '10002' or
   s_kunnr-low = '10003'.

<do something>

else.

 message e001 ' Enter Correct Details '.
endif.

[Former Member]

Hi Krishen,

try this

SELECT-OPTIONS s_kunnr for kna1-kunnr.

RANGES: r_kunnr type kna1-kunnr.

r_kunnr-sign = 'I'.

r_kunnr-option = 'EQ'.

r_kunnr-Low = '100001'

append r_kunnr.

r_kunnr-sign = 'I'.

r_kunnr-option = 'EQ'.

r_kunnr-Low = '100002'

append r_kunnr.

r_kunnr-sign = 'I'.

r_kunnr-option = 'EQ'.

r_kunnr-Low = '100003'

append r_kunnr.

if s_kunnr IN r_kunnr.

• do nothing

ELSE.

MESSAGE e000 with 'Other Values Not Permitted'.

ENDIF.

Cheers

VJ

[Former Member]

hi,

Try this code

 tables : kna1.
 data: begin of it_kna1 occurs 0,
          kunnr like kna1-kunnr,
       end of it_kna1,
       v_fnd.
 select-options : s_kunnr for kna1-kunnr.

 at selection-screen on s_kunnr.

   select kunnr from kna1
                into table it_kna1
               where kunnr in s_kunnr.
   if sy-subrc = 0.
      read table it_kna1 with key kunnr = '0000100001'
                         binary search.
      if sy-subrc <> 0.
        read table it_kna1 with key kunnr = '0000100002'
                           binary search.
        if sy-subrc <> 0.
          read table it_kna1 with key kunnr = '0000100003'
                             binary search.
          if sy-subrc = 0.
            v_fnd = 'X'.
          endif.
        else.
          v_fnd = 'X'.
        endif.
      else.
        v_fnd = 'X'.
      endif.
   endif.
  if v_fnd = ' '.
    message e000(zz) with 'Invalid customer'.
  endif.

regards,

Sailaja.

Message was edited by: Sailaja N.L.

[Former Member]

Hi,

at selection-screen.

r_kunnr for kna1-kunnr.

r_kunnr-sign = 'I'.

r_kunnr-option = 'EQ'.

r_kunnr-low = '100001'.

append r_kunnr.

r_kunnr-low = '100002'.

append r_kunnr.

r_kunnr-low = '1000031'.

append r_kunnr.

if not s_kunnr in r_kunnr.

message eoo 'Invaid input'

endif.

Regards

Amole

[Former Member]

hi,

try this..

tables:kna1.

data:v_kunnr like kna1-kunnr.

select-options:s_kunnr for kna1-kunnr.

at selection-screen.

if s_kunnr[] is not initial.

if s_kunnr-low = ' 100001' or

s_kunnr-low = ' 100002' or

s_kunnr-low = ' 100003'.

select single kunnr

from kna1

into v_kunnr

where kunnr in s_kunnr.

else.

message e000 with 'Plz enter valid customer'.

endif.

endif.