topic At Selection Screen in Application Development and Automation Discussions

At Selection Screen

Former Member — Tue, 17 Apr 2007 05:27:25 GMT

Hi Experts,

i have selection screen like this

SELECT-OPTIONS: S_WERKS LIKE MSEG-WERKS,

S_LGORT LIKE MSEG-LGORT.

How will validate this one.

i have plants 1110, 1220, 1310, 1210, 1310, 1210, 1120, 1130, 1410.

Storage locations are 1222, 1224,1225,1226,1227.

i need this plants & storage locations only.

Thanks & Regards,

Sreedhar.

Re: At Selection Screen

Former Member — Tue, 17 Apr 2007 05:31:06 GMT

Hi create an itab for a plant with the required values in INITIALISATION event

& AT SELECTION SCREEN, u can check the values of select options

Sandeep

Reward if helpful

Re: At Selection Screen

Former Member — Tue, 17 Apr 2007 05:31:30 GMT

Declare first

tables: t001w, t001l.

SELECT-OPTIONS: S_WERKS LIKE t001w-WERKS,

S_LGORT LIKE t001l-LGORT.

in AT selection Screen write the code:

Validation of Plant

clear t001w.

if not s_werks is initial.

select werks from t001w up to 1 rows

into t001w-werks

where werks in s_werks.

endselect.

if sy-subrc ne 0.

message e004. " Invalid Plant Number

endif.

Validation of Storage Location

clear t001l.

if not s_lgort is initial.

select lgort from t001l up to 1 rows

into t001l-lgort

where lgort in s_lgort.

endselect.

if sy-subrc ne 0.

message e004. " Invalid Storage Location Number

endif.

reward if useful

regards,

Anji

Re: At Selection Screen

former_member404244 — Tue, 17 Apr 2007 05:34:21 GMT

Hi ,

First of all change the syntax..

SELECT-OPTIONS: S_WERKS for MSEG-WERKS,

S_LGORT for MSEG-LGORT.

U can validate at selection screen event.

at selection-screen.

select werks from mseg into v_werks up to 1 rows

where werks in s_werks.

endselect.

if sy-subrc ne 0.

throw error message.

endif.

Regards,

Nagaraj

Re: At Selection Screen

Former Member — Tue, 17 Apr 2007 05:40:23 GMT

Hi Sreedhar,

Initially, push this plants and storage location inot the separate internal tables.

Say for example t_plants and t_storage.

AT SELECTION-SCREEN.

SELECT WERKS

FROM MSEG

INTO fs_mseg

WHERE s_werks IN t_plants.

IF sy-subrc NE 0.

MESSAGE 'Enter valid plant' TYPE 'E'.

ENDIF.

If it works fine,if not it is must and should to write the logic..

Regards,

V.Raghavender.

Re: At Selection Screen

Former Member — Tue, 17 Apr 2007 05:41:46 GMT

HI..

at selection-screen.

if S_WERKS ne 1110 or

S_WERKS ne 1220 or.....1410.

message 'invalid werks' type 'E'.

endif.

if S_LGORT ne 1222 or ......, 1224,1225,1226,1227.

message 'invalid lgort' type 'E'.

endif.