Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

FUNCTION MODULE HELP_START

Former Member
0 Kudos
747

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.

1 ACCEPTED SOLUTION

Former Member
0 Kudos
127

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.

2 REPLIES 2

Former Member
0 Kudos
128

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
0 Kudos
127

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