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

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

  1. BEGIN OF vrm_value,
  2. KEY(40) TYPE C,
  3. text(80) TYPE C,
  4. END OF vrm_value,
  5. VRM_VALUES TYPE VRM_VALUE OCCURS 0.
  6.  
  7. DATA: lifnr_values TYPE VRM_VALUES WITH HEADER LINE.
  8. FREE lifnr_values. " обязательно
  9. DATA: lfa1_tb TYPE WSTN_LFA1_TAB, lfa1_ln TYPE LFA1.
  10. " заполнить где-то lfa1_tb поставщиками
  11. LOOP AT lfa1_tb INTO lfa1_ln.
  12. lifnr_values-KEY = lfa1_ln-lifnr.
  13. CONCATENATE lfa1_ln-NAME1 lfa1_ln-NAME2 lfa1_ln-NAME3 lfa1_ln-NAME4
  14. INTO lifnr_values-text.
  15. APPEND lifnr_values.
  16. CALL FUNCTION 'VRM_SET_VALUES'
  17. EXPORTING
  18. ID = 'LIFNR' " имя элемента
  19. VALUES = lifnr_values[]
  20. EXCEPTIONS
  21. OTHERS = 1.

Комментарии