안녕하세요.

A라는 Select-options 필드와

B라는 Parameters Listbox 필드가 있습니다.

A에서 Search-Help로 값을 받아오면

B의 리스트박스에 들어갈 항목과 키값들을 gt_vrm 이라는 인터널 테이블에 가져와서

자동으로 리스트 박스의 항목을 업데이트 하고 싶은데

엔터나 필드를 더블클릭해야만 업데이트 되더라구요.

엔터 없이 Search-Help로 받아왔을때 리스트 박스의 항목을 업데이트 하는 방법좀 알려주세요.

TABLES         : mara, marc, mard.

TYPE-POOLS : slis, vrm.

DATA : BEGIN OF gt_list OCCURS 0,
             werks TYPE marc-werks,
           END   OF gt_list.

DATA  : gt_vrm  TYPE vrm_values WITH HEADER LINE.

SELECT-OPTIONS  : so_matnr FOR  mara-matnr NO INTERVALS NO-EXTENSION.
PARAMETERS        : pa_werks TYPE mard-werks AS LISTBOX VISIBLE LENGTH 15.

AT SELECTION-SCREEN OUTPUT.

  PERFORM update_list.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR so_matnr-low.
  CALL FUNCTION 'HELP_VALUES_GET_WITH_MATCHCODE'
    EXPORTING
      matchcode_object              = 'S_MAT1'
    IMPORTING
      select_value                      = so_matnr-low
    EXCEPTIONS
      invalid_dictionary_field        = 1
      invalid_matchdcode_object  = 2
      no_selection                      = 3
      OTHERS                            = 4.

  PERFORM update_list.

FORM update_list .
  IF so_matnr-low = ''.
    CLEAR gt_vrm[].
    SELECT DISTINCT werks
      FROM mard
      INTO CORRESPONDING FIELDS OF TABLE gt_list.
  ELSE.
    CLEAR gt_vrm[].
    SELECT DISTINCT matnr werks
      FROM mard
      INTO CORRESPONDING FIELDS OF TABLE gt_list
     WHERE matnr EQ so_matnr-low.
  ENDIF.

  SORT gt_list BY werks.

  LOOP AT gt_list.
    gt_vrm-text = gt_list-werks.
    gt_vrm-key = gt_list-werks.
    APPEND gt_vrm.
  ENDLOOP.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'PA_WERKS'
      values = gt_vrm[].
ENDFORM.                    " UPDATE_LIST

다른 관계없는 소스들은 포함하지 않았습니다.