Имя: Пароль:
1C
1С v8
УФ. Выпадающий список строкового поля
0 ramir
 
21.08.12
10:34
Не могу разобраться как сделать выпадающий список для поля с типом строка (привязанный реквизит имеет тип строка). Сделал через автоподбор, но работает как-то странно. Иногда выпадает, иногда нет, иногда пропадает напечатанный текст. Отчего это зависит так и не понял.


&НаКлиенте
Процедура ПоискАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
   Если Текст = "" Тогда
       Возврат;
   КонецЕсли;
   
   Результат = Интернет.ПолучитьДанные("http://geocode-maps.yandex.ru/1.x/?format=json&geocode=" + Текст, "json", КодировкаТекста.UTF8);
   Объекты = Результат.Получить("response").Получить("GeoObjectCollection").Получить("featureMember");
   
   Элементы.Поиск.СписокВыбора.Очистить();
       
   Для Каждого Эл Из Объекты Цикл
       Элементы.Поиск.СписокВыбора.Добавить(Эл.Получить("GeoObject").Получить("metaDataProperty").Получить("GeocoderMetaData").Получить("text"));
   КонецЦикла;    
КонецПроцедуры
1 ramir
 
21.08.12
10:48
Вот так заработало вроде. Странно, до этого не получалось.

Если Текст = "" Тогда
       Возврат;
   КонецЕсли;
   
   ДанныеВыбора = Новый СписокЗначений();
   
   СтандартнаяОбработка = Ложь;
   
   Результат = Интернет.ПолучитьДанные("http://geocode-maps.yandex.ru/1.x/?format=json&geocode=" + Текст, "json", КодировкаТекста.UTF8);
   Объекты = Результат.Получить("response").Получить("GeoObjectCollection").Получить("featureMember");
   
   ДанныеВыбора = Новый СписокЗначений;
   
   Для Каждого Эл Из Объекты Цикл
       ДанныеВыбора.Добавить(Эл.Получить("GeoObject").Получить("metaDataProperty").Получить("GeocoderMetaData").Получить("text"));
   КонецЦикла;