Нужен контекстный локатор

[sasa72]

Здравствуйте Все.
На Кларионе пишу давно, но очень периодически. Поэтому ответы, если можно , разжуйте побольше

На Clarion 6.0 в броузе нужно создать поиск по контексту.
Например в базе присутствуют:
ОАО "РайХреньБаза"
Завод "ХреньДам"

И в броузе набрав в поле "Хрень" или попадаешь на первое поле( а нажав кнопочку переходишь на второе), или сразу в броузе остаются только эти записи.
Как-то так.
Пишу в application.
Может есть какие шаблоны готовые? Или кто ручками уже писал?

[Дед Пахом]

Фильтр подойдёт, что-то вроде "Locator = '' OR INSTRING(CLIP(Locator), DB:FieldValue, 1, 1)", прямо в поле Filter шаблона Browse, и забайндить (Hot fields) поля Locator и DB:FieldValue.

[Алексей- Софт-Центр]

Добрый день!

или сразу в броузе остаются только эти записи.

1. Заходишь в extansion броуза.
2. Выбираешь locator behavior
3. Locator ставишь Filtered
4. Взводишь галку Find Aniver


Алексей

[sasa72]

Фильтр что-то так и не смог запустить.
А вот с Find Aniver получилось.
Большое спасибо

[Ал]

Что конкретно надо-то?

есть какие шаблоны готовые

Фильтр что-то так и не смог запустить.

ABC? Select Control Template - BrowseFuzzyMatching...
потом "ручками" -

Фильтр подойдёт, что-то вроде "Locator = '' OR INSTRING(CLIP(Locator), DB:FieldValue, 1, 1)", прямо в поле Filter шаблона Browse, и забайндить (Hot fields) поля Locator и DB:FieldValue.

- и тот же фильтр можно и в репорты и тп...
К варианту со стандартным Locator - Filtered (c

с Find Aniver

или без) + можно дополн. вкл. сортировку по столбцам - даст возможность искать по содержанию выбранного юзером столбца, а не по ключу или по всей строке бровза...

[Shur]

Есть ещё один способ для тех, кто работает с SQL, до этого не обсуждавшийся.
Нижеследующий код можно повесить на событие ACCEPTED для локатора, коим в данном случае является ?LOC:BoxKod.
Думаю, не надо говорить, что фильтрацию таким образом можно организовать по любому, а не только ключевому полю.

update(?LOC:BoxKod)
BRW2::View:Browse{PROP:SqlFilter}='a.boxkod like ''%'&LOC:BoxKod&'%'''
BRW2.ResetFromFile
?List{PROP:SelStart}=1