FUNCTION MODULE HELP_START

[Former Member]

Hello friends I am using this function module HELP_START

I am gettin the pop-up scrren showin in the matnr but wen i double click on it the value is not goin inside the select option.

Below is the code of my program

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS s_vbeln FOR vbak-vbeln.

SELECT-OPTIONS s_matnr FOR mara-matnr. " MATCHCODE OBJECT mat1.

SELECTION-SCREEN END OF BLOCK b1.

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

IF NOT s_vbeln IS INITIAL.

REFRESH t_select.

CLEAR t_select.

SELECT matnr FROM vbap INTO CORRESPONDING FIELDS OF TABLE t_select

WHERE vbeln IN s_vbeln

AND matnr IN s_matnr.

IF sy-subrc <> 0.

MESSAGE i036(zcvs).

ENDIF.

LOOP AT t_select.

SELECT SINGLE xchpf FROM mara INTO (wa_mara-xchpf)

WHERE matnr = t_select-matnr

AND xchpf = 'X'.

IF sy-subrc = 0.

t_select-xchpf = wa_mara-xchpf.

MODIFY t_select.

ENDIF.

ENDLOOP.

DELETE t_select WHERE xchpf NE 'X'.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

retfield = 'MATNR'

• PVALKEY = ' '

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'S_MATNR'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

value_org = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

value_tab = t_select

• 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.

ELSE.

*if s_vbeln is initial.

DATA: help_infos TYPE help_info.

DATA: dynpselect TYPE TABLE OF dselc.

DATA: dynpvaluetab TYPE TABLE OF dval.

CLEAR help_infos.

help_infos-call = 'T'.

help_infos-object = 'F'.

help_infos-spras = sy-langu.

help_infos-docuid = 'FE'.

help_infos-title = sy-title.

help_infos-tabname = 'MARA'.

help_infos-fieldname = 'MATNR'.

• help_infos-keyword = 'X'.

help_infos-program = sy-repid.

help_infos-dynpro = sy-dynnr.

help_infos-report = sy-repid.

help_infos-dynpprog = sy-repid.

help_infos-dynprofld = 'S_MATNR-LOW'.

CALL FUNCTION 'HELP_START'

EXPORTING

help_infos = help_infos

TABLES

dynpselect = dynpselect

dynpvaluetab = dynpvaluetab.

ENDIF.

[Former Member]

try this

TABLES: vbak,

mara.

DATA: t_select TYPE STANDARD TABLE OF mara,

wa_select TYPE mara,

wa_mara TYPE mara.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS s_vbeln FOR vbak-vbeln.

SELECT-OPTIONS s_matnr FOR mara-matnr. " MATCHCODE OBJECT mat1.

SELECTION-SCREEN END OF BLOCK b1.

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

IF NOT s_vbeln IS INITIAL.

REFRESH t_select.

CLEAR t_select.

SELECT matnr FROM vbap INTO CORRESPONDING FIELDS OF TABLE t_select

WHERE vbeln IN s_vbeln

AND matnr IN s_matnr.

IF sy-subrc <> 0.

MESSAGE i036(zcvs).

ENDIF.

LOOP AT t_select

INTO wa_select.

SELECT SINGLE xchpf FROM mara INTO wa_mara-xchpf

WHERE matnr = wa_select-matnr

AND xchpf = 'X'.

IF sy-subrc = 0.

wa_select-xchpf = wa_mara-xchpf.

MODIFY t_select FROM wa_select.

ENDIF.

ENDLOOP.

[Former Member]

Hi amit

did u get the selected value to the field..if so can u let us know..

i too have the same kind of requirement...please reply it as early as possible

or mail to

kirankumar.pr@gmail.com

thx

bye