Как сделать SH к табличке по уникальному значению даты?

Silence1

Есть z-табличка, в ней среди ключевых полей дата. Записей за эту дату может быть много. Мне нужно сделать к ней средство поиска по уникальному значению даты.
Что-то я туплю, через ракурс справки не получается

Пока придумала только "вручную" через ФМ 'HELP_VALUES_GET_NO_DD_NAME'

Silence1

я сделала такой вариант:
может кто предложит более изящный?

Code:

DATA: BEGIN OF showtab OCCURS 10,
        line(80) TYPE c,
      END OF showtab.
  DATA: da_ausgabe_fb, ind LIKE sy-tabix,
        select_value TYPE help_info-fldvalue,
        selectfield TYPE help_info-fieldname.
  DATA: BEGIN OF da_fields OCCURS 3.
          INCLUDE STRUCTURE help_value.
  DATA: END OF da_fields.
  DATA: sdate(10).
  SELECT DISTINCT * FROM zfi_rs_inv17 WHERE bukrs = p_bukrs.
    CONCATENATE zfi_rs_inv17-datot zfi_rs_inv17-ernam zfi_rs_inv17-erdat
       INTO showtab.
    COLLECT showtab.
  ENDSELECT.
  da_ausgabe_fb = 'X'.
  da_fields-tabname    = 'ZFI_TB_INV17'.
  da_fields-fieldname  = 'DATOT'.
  da_fields-selectflag = 'X'.
  APPEND da_fields.
  da_fields-tabname    = 'ZFI_TB_INV17'.
  da_fields-fieldname  = 'ERNAM'.
  da_fields-selectflag = ' '.
  APPEND da_fields.
  da_fields-tabname    = 'ZFI_TB_INV17'.
  da_fields-fieldname  = 'ERDAT'.
  da_fields-selectflag = ' '.
  APPEND da_fields.
  CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
    EXPORTING
      selectfield  = selectfield
    IMPORTING
      ind          = ind
      select_value = select_value
    TABLES
      fields       = da_fields
      full_table   = showtab
    EXCEPTIONS
      OTHERS       = 6.
  IF sy-subrc = 0.
    CONCATENATE select_value+6(4) select_value+3(2) select_value(2) INTO p_datot.
  ENDIF.

SMak

Может быть это пригодится: http://www.abap4.ru/ru/f_find.htm.
На всякий случай приведу текст.

Цитата:

Форма поиска, повешенная на кнопку
Требовалось сделать форму поиска, выборка которой зависит от значений в
других полях на экране, а запуск производился бы по нажатию кнопки. Шел
следующим путем:
Сделал обычную форму поиска с требуемыми importing параметрами.
С помощью функции F4IF_GET_SHLP_DESCR получил дескриптор формы поиска
shlp.
В таблице interface, входящую в дескриптор, поставил X в поля valtabname
в записи с exporting параметром формы поиска. Без этого форма поиска не
возвращала (?) выбора пользователя. Фрагмент кода:
v_interface-valtabname = 'X'.
MODIFY shlp-interface FROM v_interface
TRANSPORTING valtabname
WHERE shlpfield = 'ZPARAM'.
В таблицу selopt, входящую в дескриптор, внес значения, ограничивающие
выборку на основе тех полей экрана, от которых зависит выборка.
Фактически selopt – range. Фрагмент кода:
refresh r_range-selopt.
w_selopt-SHLPNAME = 'ZGRNSRV_PARAM'. “ – моя форма поиска
w_selopt-SHLPFIELD = 'MATNR'. “ – поле, ограничивающее выборку
w_selopt-SIGN = 'I'.
w_selopt-OPTION = 'EQ'.
w_selopt-LOW = mara-matnr. “ – значение поля
append w_selopt to r_range-selopt.
Вызвал форму поиска с помощью функции F4IF_START_VALUE_REQUEST. Значение
из таблицы RETURN_VALUES положил в поле, для которой сделал форму
поиска.

Правила форума

Как сделать SH к табличке по уникальному значению даты?

Кто сейчас на конференции