topic Re: selection screen help ! in Application Development and Automation Discussions

selection screen help !

Former Member — Thu, 27 Mar 2008 07:21:48 GMT

HI Gurus !

on selection-screen , i have

Reservation : _____________

Item No : ______________

when user types resvervation no . eg : 125 then when user press f4 - help on Item no it shud display item corresponding to 125.

i have write this code .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR itemno-low.

perform itemvalue.

RE_RENUM is selection field for reservation

form itemvalue.

select RSNUM rspos into corresponding fields of table it_help from resb

where RSNUM in RE_RENUM.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

RETFIELD = 'RSPOS'

PVALKEY = ' '

DYNPPROG = sy-repid

DYNPNR = sy-dynnr

DYNPROFIELD = 'RESB-RSPOS'

STEPL = 0

WINDOW_TITLE = 'Item No'

VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

VALUE_TAB = it_help

FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
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.

endform. "itemvalue

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 07:32:40 GMT

Hi rahul,

DYNPPROG and DYNNR cannot be passed as SY-REPID and SY-DYNNR bcaz they are only analyzed after the function module has been called. Instead, first copy SY-REPID and Sy-DYNNR into local variables and then pass this local variables to the function module.

Reward pts if it helps....

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 08:52:38 GMT

HI Venkat !

i tried that thing. but its displaying all the records. but i want only the records corresponding to reservation no on selection screen. how to fetch that value into the program.

regards.

Rahul

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 09:36:33 GMT

Hi rahul, ur DYNPROFIELD should b ur selection screen field.

RE_ITEMNO is ur selection screen field of item number.

DYNPROFIELD = 'RE_ITEMNO'

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 09:44:46 GMT

*type definition for F4 help

TYPES:BEGIN OF ty_lifnr_f4,

lifnr TYPE lifnr,

name1 TYPE name1_gp,

END OF ty_lifnr_f4.

*internal table declaration for F4 help

DATA: it_lifnr_f4 TYPE STANDARD TABLE OF ty_lifnr_f4.

SELECT query on lifnr

SORT it_lifnr_f4 BY lifnr.

DELETE ADJACENT DUPLICATES FROM it_lifnr_f4.

*display help dialog

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'LIFNR' "we can't use contant here, system gives dump

dynpprog = sy-cprog

dynpnr = c_dyn100

dynprofield = 'WA_HDR-LIFNR'

value_org = 'S' "this value is always fixed

TABLES

value_tab = it_lifnr_f4

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.

reward if useful

S@meer

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 09:51:14 GMT

Hi Venkat !

function F4IF_INT_TABLE_VALUE_REQUEST is fine. The problem is in Select statement.

select RSNUM rspos into corresponding fields of table it_help from resb

where RSNUM = R_no.

where R_no is getting NULL as we want value on selection screen.ie Reservation No entried on screen , how to fetch that value.

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 09:58:19 GMT

hi rahul,

some change in ur program..

see below it.

call function 'f41f.............'

Dynpro = 'sy-cprog'

.........

reward if useful,

thx,

s.suresh

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 10:17:41 GMT

hi Suresh !

there is no prob wid F4 function.

i just want to the value of RE_RENUM which the user enters the value on selection screen.

Re: selection screen help !

Former Member — Thu, 27 Mar 2008 11:20:56 GMT

look at this code...

&----

*& Report ZTESTRKS004

&----

REPORT ztestrks004.

types:: begin of y_resb,

rsnum type rsnum,

rspos type rspos,

end of y_resb.

DATA: dynpfields TYPE STANDARD TABLE OF dynpread WITH HEADER LINE,

t_resb TYPE STANDARD TABLE OF y_resb.

PARAMETERS: reserv TYPE resb-rsnum,

itemno TYPE resb-rspos.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR itemno.

dynpfields-fieldname = 'RESERV'.

APPEND dynpfields.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy-repid

dynumb = sy-dynnr

TABLES

dynpfields = dynpfields[]

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

INVALID_PARAMETER = 7

UNDEFIND_ERROR = 8

DOUBLE_CONVERSION = 9

STEPL_NOT_FOUND = 10

OTHERS = 11

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

read table dynpfields index 1.

select rsnum rspos from resb into table t_resb where rsnum = dynpfields-FIELDVALUE.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

retfield = 'RSPOS'

PVALKEY = ' '

DYNPPROG = sy-repid

DYNPNR = '1000'

DYNPROFIELD = 'ITEMNO'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

tables

value_tab = t_resb

FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
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 help !

Former Member — Wed, 02 Apr 2008 11:13:16 GMT

Hi Ravi Kumar Singh !

thanks for solution! points given!