Заполнение списка предлагаемых значений Listbox-а

На примере списка кредиторов

  types:
  begin of vrm_value,
    key(40) type c,
    text(80) type c,
  end of vrm_value,
  VRM_VALUES TYPE VRM_VALUE OCCURS 0.
 
  data: lifnr_values TYPE VRM_VALUES with header line.
  FREE lifnr_values. " обязательно
  data: lfa1_tb TYPE WSTN_LFA1_TAB, lfa1_ln TYPE LFA1.
" заполнить где-то lfa1_tb поставщиками 
  LOOP AT lfa1_tb into lfa1_ln.
    lifnr_values-key = lfa1_ln-lifnr.
    CONCATENATE lfa1_ln-NAME1 lfa1_ln-NAME2 lfa1_ln-NAME3 lfa1_ln-NAME4
    into lifnr_values-text.
    APPEND lifnr_values.
  ENDLOOP.
  call function 'VRM_SET_VALUES'
    EXPORTING
      id     = 'LIFNR' " имя элемента
      values = lifnr_values[]
    EXCEPTIONS
      others = 1.