topic Selection screen in Application Development and Automation Discussions

Selection screen

sk_kamaruzzaman — Fri, 18 Apr 2008 07:26:43 GMT

Hi,

In selection screen - select option s_vkorg default value 'A'.

.Here the sales organization 'A' is always default.

Now the user wants to add sales organization 'B'.

In that condition :-

if user belongs to 'A' then - Default will be 'A' and A related data will be display.

if user belongs to 'B'. then default will be 'B' and B related data will display...

Bye..

Re: Selection screen

Former Member — Fri, 18 Apr 2008 07:42:06 GMT

Hi,

My advice is

1) you put 2 radio buttons in the selection screen, one for Sales org A and other for Sales org B.

2) Select-options would be only one. when the user press the sales org A, then select options should be filled up with A and if the user press the sales org B, then select options should be filled up with B.

the following EVENTS are used to fulfil the above

1) INITIALIZATION

2) AT SELECTION-SCREEN OUTPUT

3) AT SELECTION-SCREEN

thanks & regards

Kishore Kumar Maram

Re: Selection screen

Former Member — Fri, 18 Apr 2008 07:42:18 GMT

Hi sk kamaruzzaman ,

This code will work.

data: fs_vkorg like vbak-vkorg.

select-options : s_vkorg for fs_vkorg.

initialization.

perform get_user.

start-of-selection.

form get_user.

select

vkorg

from vbak

into fs_vkorg

where ernam = sy-uname.

check sy-subrc = 0.

endselect.

move fs_vkorg to s_vkorg-low.

append s_vkorg.

endform.

pls reward points if u found it as helpful.

Thanks and regards,

Rajesh.

Re: Selection screen

Former Member — Fri, 18 Apr 2008 07:42:40 GMT

Hi,

you can modify the selection-screen.

e.g.

&----

AT SELECTION-SCREEN OUTPUT.

&----

LOOP AT SCREEN.

if screen-GROUP4 => '011'

and screen-group4 < '015'.

screen-REQUIRED = '1'.

modify screen.

endif.

Re: Selection screen

Former Member — Fri, 18 Apr 2008 09:42:59 GMT

Hi,

Check the below logic.

parameters: p_text like p0001-ename default 'A'.

DATA: v_num type i value 1,

val1 like p0001-ename.

data: begin of itab occurs 0,

val like p0001-ename,

name like p0001-ename,

end of itab.

data: begin of itab1 occurs 0,

val like p0001-ename,

name like p0001-ename,

end of itab1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_text.

refresh itab1.

if v_num = 1.

itab-val = 'A'.

itab-name = 'Kumar'.

append itab.

itab-val = 'B'.

itab-name = 'bvsm'.

append itab.

v_num = v_num + 1.

endif.

TABLES: t130r.

DATA: BEGIN OF dynpfields OCCURS 0. "Hilfsstruktur zum auslesen des

INCLUDE STRUCTURE dynpread. "Feldwertes vom Dynpro bei >F4<

DATA: END OF dynpfields.

DATA : sy_repid LIKE sy-repid,

sy_dynnr LIKE sy-dynnr.

CLEAR dynpfields.

REFRESH dynpfields.

dynpfields-fieldname = 'P_TEXT'.

APPEND dynpfields.

Lesen des akt. Wertes von Dynpro

sy_repid = sy-repid.

sy_dynnr = sy-dynnr.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy_repid

dynumb = sy_dynnr

TABLES

dynpfields = dynpfields

EXCEPTIONS

OTHERS = 01.

IF sy-subrc = 0.

READ TABLE dynpfields WITH KEY fieldname = 'P_TEXT'.

IF sy-subrc = 0.

val1 = dynpfields-fieldvalue.

ENDIF.

loop at itab where val = val1.

append itab to itab1.

clear itab1.

endloop.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'VAL'

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'P_TEXT'

value_org = 'S'

TABLES

value_tab = itab1

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Re: Selection screen

sk_kamaruzzaman — Tue, 01 Mar 2011 13:51:21 GMT

solved