BAPI Левенштайна

Skif

Привет, господа абаперы,
не подскажите BAPI-ки нет готовой с сабжем?
(CL_SIC_FM_FIELD_COMP_LEVSHT)

ps с заданием фамилии и дистанции, на выходе списочек

trop

несколько лет назад появился оператор distance

Skif

trop написал(а):

несколько лет назад появился оператор distance

проехали - пришлось своим топором рубить

trop

а как сравнили то в итоге?

Skif

trop написал(а):

а как сравнили то в итоге?

.....
LOOP AT <pannnn> INTO out_0002.
if out_0002-nachn(1) <> lastname(1). continue.
endif.
clear: line2.
concatenate out_0002-nachn out_0002-vorna out_0002-midnm into line2.
line1 = to_upper( line1 ).
line2 = to_upper( line2 ).
IF strlen( line1 ) > strlen( line2 ).
max = strlen( line1 ).
ELSE.
max = strlen( line2 ).
ENDIF.
max = ( 100 - percent ) * max / 100 + 1.

dist = distance( val1 = line1 val2 = line2 max = max ).

IF dist < max.

clear i0290. REFRESH i0290.
.....

хотел использовать http://www.se80.co.uk/sapclasses/c/cl_s/cl_sic_fm_field_comp_levsht.htm, но там какой-то
ABAP code you do need to check if the attribute is public or private - не в курсе что это

Kengur

Поделюсь. На каком блоге взял уже не помню

Code:

S1   TYPE CSEQUENCE
S2   TYPE CSEQUENCE
VALUE( RES )   TYPE I


 data:
  ntab type table of i,
  otab type table of i,
  ls1 type i, ls2 type i,
  t1 type i, t2 type i,
  tt2 type i,
  x1 type i, x2 type i,
  x type i,
  inp type i.

  ls1 = strlen( s1 ) - 1.
  ls2 = strlen( s2 ) - 1.
  do.
    do.
      if s1+t1(1) = s2+t2(1).
        if t1 = 0.
          inp = t2.
        elseif t2 = 0.
          inp = t1.
        else.
          read table otab into inp index t2.
        endif.
        insert inp into table ntab.
      else.
        if t1 = 0.
          inp = t2 + 1.
        elseif t2 = 0.
          inp = t1 + 1.
        else.
          tt2 = t2 + 1.
          read table ntab into x index t2.
          read table otab into x1 index t2.
          read table otab into x2 index tt2.
          if x < x1.
            if x < x2.
              inp = x + 1.
            else.
              inp = x2 + 1.
            endif.
          else.
            if x1 < x2.
              inp = x1 + 1.
            else.
              inp = x2 + 1.
            endif.
          endif.
        endif.
        insert inp into table ntab.
      endif.
      if t2 = ls2.
        t2 = 0.
        exit.
      endif.
      t2 = t2 + 1.
    enddo.
    refresh otab.
    otab[] = ntab[].
    refresh ntab.
    if t1 = ls1.
      exit.
    endif.
    t1 = t1 + 1.
  enddo.
  res = inp.

Skif

Kengur написал(а):

Поделюсь. На каком блоге взял уже не помню

это наверно когда distance не было ещё

а что насчёт "private"?

ghost

imho, это общий шаблон документации (описания) любого класса. и просто указывают где и как можно использовать атрибуты класса.

Skif

ghost написал:

imho, это общий шаблон документации (описания) любого класса. и просто указывают где и как можно использовать атрибуты класса.

я попытался вставить приведённый там кусок в BAPI-ку, а она фигвам сказало

ghost

а вы метод COMPARE_FIELDS использовали ? только его можно извне использовать

Кодер

Skif написал:

я попытался вставить приведённый там кусок в BAPI-ку, а она фигвам сказало

Из этого класса извне можно вызывать только 1 метод: IF_SIC_FM_FIELD_COMPARATOR~COMPARE_FIELDS
Все остальные методы - приватные (можно вызвать только внутри класса или внутри "друзей класса"). Т.е. даже экземпляр можно создать только внутри этого класса или внутри его друзей.

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

BAPI Левенштайна

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