topic Re: List box Problem in Application Development and Automation Discussions

List box Problem

Former Member — Wed, 17 Sep 2008 16:51:05 GMT

I have MARA and MARC table,Key field Matnr,two list box.

When i select material in one field,Second field must show regarding plant.

How can i do so?

Re: List box Problem

Vijay — Wed, 17 Sep 2008 17:04:25 GMT

hi,

you can specify function code for ur first list box..

by specifying ucomm f_abc after ur list box declaration.

now when value in first list box is selected it will trigger the function code f_abc and at this function code u can fill the second list box.

regards

vijay

Re: List box Problem

Former Member — Wed, 17 Sep 2008 17:06:52 GMT

using the user-command and the event AT SELECTION-SCREEN ON matnr. you can do that.

check this sample code..

REPORT  ztest_listbox.

DATA: BEGIN OF it_mara OCCURS 0,
       matnr TYPE mara-matnr,
      END OF it_mara.
DATA: BEGIN OF it_marc OCCURS 0,
       matnr TYPE mara-matnr,
       werks TYPE werks_d,
      END OF it_marc.
TYPE-POOLS vrm.

DATA: mat_list  TYPE vrm_values WITH HEADER LINE,
plant_list  TYPE vrm_values WITH HEADER LINE.



PARAMETERS: matnr TYPE matnr AS LISTBOX VISIBLE LENGTH 20 USER-COMMAND abc,
werks TYPE werks_d AS LISTBOX VISIBLE LENGTH 8 USER-COMMAND abc.


INITIALIZATION.
  SELECT matnr FROM mara
  INTO TABLE it_mara
  UP TO 20 ROWS.
  LOOP AT it_mara.
    mat_list-key = it_mara-matnr.
    mat_list-text = it_mara-matnr.
    APPEND mat_list.
  ENDLOOP.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'MATNR'
      values          = mat_list[]
    EXCEPTIONS
      id_illegal_name = 1.

AT SELECTION-SCREEN ON matnr.
  SELECT matnr
  werks
   INTO TABLE it_marc
   FROM marc
  WHERE matnr = matnr.
  CLEAR plant_list. REFRESH plant_list.
  LOOP AT it_marc.
    plant_list-key = it_marc-werks.
    plant_list-text = it_marc-werks.
    APPEND plant_list.
  ENDLOOP.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'WERKS'
      values          = plant_list[]
    EXCEPTIONS
      id_illegal_name = 1.

Re: List box Problem

Former Member — Wed, 17 Sep 2008 19:17:34 GMT

Create an event like

AT SELECTION-SCREEN ON p_matnr.*

*fill second CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'WERKS'

values = plant_list[]

EXCEPTIONS

id_illegal_name = 1.

listbox*

Re: List box Problem

Former Member — Wed, 17 Sep 2008 19:36:34 GMT

Hi,

Use a table which have the H_MARC search-help. I found table KALAMATCON2 should be good. Now, if you define your variables referencing this table, automatically you have the effect you want.

PARAMETERS: matnr TYPE kalamatcon2-matnr,
            werks TYPE kalamatcon2-werks.

Try it, it's simple.

Regards!