Имя: Пароль:
1C
1C 7.7
v7: Быстрый поиск по наименованию в спр
0 picom
 
30.11.11
12:31
Вот код

   ВсеЮзеры = СоздатьОбъект("Справочник.Пользователи");
   ВсеЮзеры.ВыбратьЭлементы () ;
   Пока ВсеЮзеры.ПолучитьЭлемент() =1 Цикл
       Если СокрЛП(ВсеЮзеры.ТекущийЭлемент()) = "Вован" Тогда
           УстановитьОтбор("Автор", ВсеЮзеры.ТекущийЭлемент());  
           Прервать;
       КонецЕсли;
   КонецЦикла;
..
А как в семрке найти нужный элемент быстрее и правильнее ?
Научите пжлсто
1 ParaWiz
 
30.11.11
12:33
ВсеЮзеры.НайтиПоНаименованию("Вован",0,1)
2 palpetrovich
 
30.11.11
12:33
1с++ пользуй
3 Mikeware
 
30.11.11
12:33
Продам СП. Дорого.©
4 ParaWiz
 
30.11.11
12:34
+(1) А вообще есть еще СП и ЖКК
5 FN
 
30.11.11
12:35
УстановитьОтбор("Автор", глПользователь);

глПользователь определять один раз в глобальнике
6 picom
 
30.11.11
12:35
(1)
Синтаксис:
НайтиПоНаименованию(<Наименование>,<Режим>,<ФлагПоиска>)
Назначение:
Найти элемент справочника по наименованию.
Возвращает: 1 - если действие выполнено;
0 - если действие не выполнено (элемент не найден).
...
Оно мне элемент вернет или единицу?
(3)(4) как видите СП работает у мну )
7 ParaWiz
 
30.11.11
12:36
(6) А что же не пользуешь тогда его ?
Если найдено то вернет 1 и  ВсеЮзеры.ТекущийЭлемент() будет указывать на нужное тебе
8 ParaWiz
 
30.11.11
12:37
+(7) И да спасибо огромное за выдержку из СП, у меня нас то у всех с ним дефицит
9 picom
 
30.11.11
12:44
И вам спасибо за помощь
Заработало
10 povar
 
30.11.11
12:51
Это называется БЫСТРЫМ поиском ?
11 picom
 
30.11.11
12:53
(10) быстрее же чем (0)
12 Mikeware
 
30.11.11
12:54
(10) Все в мире относительно...
Он ведь мог и
если (Сред(ВыбНаименование,1,1)=Сред(Спр.Наименование,1,1)) и  (Сред(ВыбНаименование,2,1)=Сред(Спр.Наименование,2,1)) ...
13 povar
 
30.11.11
12:56
(12) этот точно мог... )
14 ParaWiz
 
30.11.11
12:58
(10) ну можно и так
Select * from Справочник.Пользователи as Пользователи $nolock where RtRim(Пользователи.DESCR)='Вован'
но сомневаюсь что ТС это осилит
15 filh
 
30.11.11
13:12
(6) Научу читать СП. Дорого.
16 SnarkHunter
 
30.11.11
13:24
(14)Да это вообще никто не осилит... Даже 1С++...
17 filh
 
30.11.11
13:48
(16) а так?

Select
 *
from
 $Справочник.Пользователи as Пользователи
where
 RtRim(Пользователи.DESCR) = 'Вован'
Закон Брукера: Даже маленькая практика стоит большой теории.