topic Re: selection screen field drop down with values from a custom table in Application Development and Automation Discussions

selection screen field drop down with values from a custom table

Former Member — Fri, 19 Oct 2007 18:43:18 GMT

I have a Program selection screen with Customer Number field. How can I create a drop down for this Customer field which would show only Customer Numbers from a custom table?

Re: selection screen field drop down with values from a custom table

Former Member — Fri, 19 Oct 2007 18:46:21 GMT

Do like this

See the following ex:

TYPES: BEGIN OF TY_MBLNR,

MBLNR LIKE MKPF-MBLNR,

END OF TY_MBLNR.

DATA: IT_MBLNR TYPE STANDARD TABLE OF TY_MBLNR WITH HEADER LINE.

data: it_ret like ddshretval occurs 0 with header line.

At selection-screen on value-request for s_mat-low.

Select MBLNR from mkpf into table it_mblnr.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

RETFIELD = 'MBLNR'

PVALKEY = ' '
DYNPPROG = ' '
DYNPNR = ' '
DYNPROFIELD = ' '
STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

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

TABLES

VALUE_TAB = IT_MBLNR

FIELD_TAB =

RETURN_TAB = IT_RET

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.

IF SY-SUBRC = 0.

read table it_ret index 1.

move it_ret-fieldval to S_mat-low.

ENDIF.

Go through the test program.

REPORT Ztest_HELP .

TABLES : MARA.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS : P_MATNR(10) TYPE C.

SELECTION-SCREEN END OF BLOCK B1.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR TYPE MATNR,

END OF ITAB.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.

SELECT MATNR

FROM MARA

INTO TABLE ITAB

UP TO 10 ROWS.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'MATERIAL NUMBER'

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'P_MATNR'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = ITAB

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

Reward if useful

Anji

Re: selection screen field drop down with values from a custom table

Former Member — Fri, 19 Oct 2007 19:01:35 GMT

I've done this with KNA1, so you should use your table and fields:

REPORT ztest MESSAGE-ID 00.

TABLES kna1.

PARAMETERS: p_kunnr LIKE kna1-kunnr AS LISTBOX VISIBLE LENGTH 45.

TYPE-POOLS: vrm.
DATA: name   TYPE vrm_id,
      list   TYPE vrm_values,
      value  LIKE LINE OF list.

AT SELECTION-SCREEN OUTPUT.

  CLEAR list. REFRESH list.
  name = 'P_KUNNR'.

  SELECT * FROM kna1 UP TO 15 ROWS.
    value-key = kna1-kunnr.
    value-text = kna1-name1.
    APPEND value TO list.

  ENDSELECT.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.

Rob

Re: selection screen field drop down with values from a custom table

Former Member — Fri, 19 Oct 2007 19:37:14 GMT

Rob,

The Program cannot recognize 'LISTBOX'. We have version 45B. Is there anything else I can use instead of listbox?

Thanks,

Anjana

Re: selection screen field drop down with values from a custom table

Former Member — Fri, 19 Oct 2007 19:43:30 GMT

I Guess Anji's solution will work for you.

Rob

Re: selection screen field drop down with values from a custom table

Former Member — Fri, 19 Oct 2007 20:47:57 GMT

Anji,

Thank you for your answer. It worked!!

Anjana