Быстрый поиск в Browse
Модераторы: m0p3e, edward_K, Модераторы
-
- Сообщения: 6
- Зарегистрирован: 26 май 2006, 10:37
Быстрый поиск в Browse
Хочу, чтобы у меня в Browse был быстрый поиск, как, например, в картотеке сотрудников: набираем фамилию и курсор фокусируется. Знаю, что должно запускаться нечто обработчиком cmopensearch, но что? Помогите, плиз, кто сталкивался?
-
- Посетитель
- Сообщения: 44
- Зарегистрирован: 27 янв 2006, 14:21
-
- Сообщения: 6
- Зарегистрирован: 26 май 2006, 10:37
-
- Сообщения: 6
- Зарегистрирован: 26 май 2006, 10:37
Не влом. Первым делом перелопатил доки. Пример там очень веселый, а я начинающий.
Да и в примере IMHO идет быстрый выбор в виде выпадающего списка из поля в Screen, а не быстрый поиск в Browse.
Ну вот мой код, простой как 3 рубля. Не получается. Помогите, у кого есть наглядный примерчик.
#include galnet.inc
end;
INTERFACE quickchoicetest 'Выбор сотрудника' (,,scQuickChoice) DOACCEPT,ESCCLOSE, CYAN;
show at (1,1,50,15);
var
sotr_nrec:comp;
create view t1
var
sotr_nrec:comp;
as select
persons.nrec,
persons.tabnmb,
persons.fio,
catalogs.name from
catalogs,
persons (PERSBYFIO),
appointments
where
((appointments.person/==persons.nrec and
appointments.post/==catalogs.nrec)) and
persons.disdate='ДД/ММ/ГГГГ' and
isemployee='С' and
WADDWORD1=1 and
appointments.DISMISSDATE='ДД/ММ/ГГГГ';
browse UsersBrowse
Fields
persons.tabnmb 'Таб.номер': protect, QuickChoice;
persons.fio 'ФИО' :protect, QuickChoice;
catalogs.name 'Должность': protect, QuickChoice;
end;
end.

Ну вот мой код, простой как 3 рубля. Не получается. Помогите, у кого есть наглядный примерчик.
#include galnet.inc
end;
INTERFACE quickchoicetest 'Выбор сотрудника' (,,scQuickChoice) DOACCEPT,ESCCLOSE, CYAN;
show at (1,1,50,15);
var
sotr_nrec:comp;
create view t1
var
sotr_nrec:comp;
as select
persons.nrec,
persons.tabnmb,
persons.fio,
catalogs.name from
catalogs,
persons (PERSBYFIO),
appointments
where
((appointments.person/==persons.nrec and
appointments.post/==catalogs.nrec)) and
persons.disdate='ДД/ММ/ГГГГ' and
isemployee='С' and
WADDWORD1=1 and
appointments.DISMISSDATE='ДД/ММ/ГГГГ';
browse UsersBrowse
Fields
persons.tabnmb 'Таб.номер': protect, QuickChoice;
persons.fio 'ФИО' :protect, QuickChoice;
catalogs.name 'Должность': protect, QuickChoice;
end;
end.
-
- Посетитель
- Сообщения: 44
- Зарегистрирован: 27 янв 2006, 14:21
У всех все работает. сейчас только проверил - РАБОТАЕТ
INTERFACE quickchoicetest 'Выбор сотрудника' (,,) DOACCEPT,ESCCLOSE, CYAN;
show at (1,1,50,15);
var
sotr_nrec:comp;
create view t1
var
sotr_nrec:comp;
as select
persons.nrec,
persons.tabnmb,
persons.fio,
catalogs.name from
persons (PERSBYFIO),
catalogs,
appointments
where
((
'С' == persons.isemployee
and date(0,0,0) == persons.disdate (noindex)
and 1 == persons.WADDWORD1 (noindex)
and persons.nrec /== appointments.person
and appointments.post == catalogs.nrec))
and (LongInt(appointments.DISMISSDATE)=0);
panel Userspanel
table persons;
browse UsersBrowse
Fields
persons.tabnmb 'Таб.номер': protect;// В этих колонках
persons.fio 'ФИО' :protect; // QuickChoice - и так сработает
catalogs.name 'Должность': protect; // В этой колонке QuickChoice не сработает
end;
end;
end.

INTERFACE quickchoicetest 'Выбор сотрудника' (,,) DOACCEPT,ESCCLOSE, CYAN;
show at (1,1,50,15);
var
sotr_nrec:comp;
create view t1
var
sotr_nrec:comp;
as select
persons.nrec,
persons.tabnmb,
persons.fio,
catalogs.name from
persons (PERSBYFIO),
catalogs,
appointments
where
((
'С' == persons.isemployee
and date(0,0,0) == persons.disdate (noindex)
and 1 == persons.WADDWORD1 (noindex)
and persons.nrec /== appointments.person
and appointments.post == catalogs.nrec))
and (LongInt(appointments.DISMISSDATE)=0);
panel Userspanel
table persons;
browse UsersBrowse
Fields
persons.tabnmb 'Таб.номер': protect;// В этих колонках
persons.fio 'ФИО' :protect; // QuickChoice - и так сработает
catalogs.name 'Должность': protect; // В этой колонке QuickChoice не сработает
end;
end;
end.




-
- Сообщения: 6
- Зарегистрирован: 26 май 2006, 10:37
[quote="поЧитатель"]У всех все работает. сейчас только проверил - РАБОТАЕТ
УРА! Действительно работает! Единственное, у меня заругался на
and 1 == persons.WADDWORD1 (noindex)
не узнает "persons.WADDWORD1". Заменил на просто WADDWORD1, прокатило.
Почему мой код не работает, пока не понял. Видимо, как-то не так построил запрос, хотя он и выдает то же, что у вас, только не сортирует и не ищет.
Спасибо, поЧитатель.
Спасибо всем.
УРА! Действительно работает! Единственное, у меня заругался на
and 1 == persons.WADDWORD1 (noindex)
не узнает "persons.WADDWORD1". Заменил на просто WADDWORD1, прокатило.
Почему мой код не работает, пока не понял. Видимо, как-то не так построил запрос, хотя он и выдает то же, что у вас, только не сортирует и не ищет.
Спасибо, поЧитатель.
