Skip to Content
0
Former Member
May 30, 2007 at 07:32 AM

FUNCTION MODULE HELP_START

620 Views

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.