Value Help for VKGRP

grupo_de_vendedores_value_help.abap

DATA:
        ti_tvgrt LIKE tvgrt OCCURS 0 WITH HEADER LINE.

  DATA: t_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.


  DATA: BEGIN OF t_value OCCURS 0,
    vkgrp LIKE tvgrt-vkgrp,
    buzei LIKE tvgrt-bezei.
  DATA: END OF t_value.

  SELECT * FROM tvgrt INTO TABLE ti_tvgrt.

  LOOP AT ti_tvgrt.
    t_value-vkgrp = ti_tvgrt-vkgrp.
    t_value-buzei = ti_tvgrt-bezei.
    APPEND t_value.
  ENDLOOP.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'BUZEI'
      value_org       = 'S'
    TABLES
      value_tab       = t_value
      return_tab      = t_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc = 0.
    READ TABLE t_return INDEX 1.
    MOVE t_return-fieldval TO s_vend-grupo.
  ENDIF.