Kurya писал(а) 05. Сентября 2006 :: 11:00:

Надо полагать, где-то курсор открыт (т.е. где-то используется метод ODBCRecordSet::Открыть()).

Небольшая модификация, для учета справочника юез иерархии
///******************************** ADirks 17.08.2006
Процедура Инит(Конт, _ИдентификаторПоляВвода, ИдентификаторМаскирующегоТекста, _МаксКоличествоЭлементов) Экспорт
     КонтекстФормы                  = Конт;
     ИдентификаторПоляВвода      = _ИдентификаторПоляВвода;
     ТекстНаФорме                  = КонтекстФормы.Форма.ПолучитьАтрибут(ИдентификаторМаскирующегоТекста);
     МаксКоличествоЭлементов      = _МаксКоличествоЭлементов;
     стрПрефиксНаименования      = "";
     
     ТекстНаФорме.Видимость(0);
     
     Модуль = СоздатьОбъект("ВыполняемыйМодуль");
     Модуль.УстановитьМодуль("
     |Функция ПолучитьЗначение()
     |      Возврат "+ИдентификаторПоляВвода+";
     |КонецФункции
     |
     |Процедура УстановитьЗначение(НовоеЗначение)
     |      "+ИдентификаторПоляВвода+" = НовоеЗначение;
     |КонецПроцедуры
     |
     |Функция Вид()
     |      Возврат "+ИдентификаторПоляВвода+".Вид();
     |КонецФункции
     |");
     Модуль.НазначитьКонтекст(КонтекстФормы);
     Модуль.КомпилироватьМодуль();
     Модуль.ВыполнитьМодуль();

     МД                        = СоздатьОбъект("MetaDataWork");
     ВидСправочника      = Модуль.Вид();
     ИмяТаблицы            = МД.ИмяТаблицыСправочника(ВидСправочника);
     МетаСпр                  = Метаданные.Справочник(ВидСправочника);
     ЕстьГруппы            = ?(МетаСпр.КоличествоУровней>1,1,0);

     запросКоличествоБезПрефикса = СоздатьОбъект("ODBCRecordSet");

     Если _фЭтоСКЛ = 1 Тогда
           запросКоличествоБезПрефикса.Подготовить("
           |Set NoCount ON
           |SELECT count(*)
           |FROM "+ИмяТаблицы+" Спр (NoLock)
           |WHERE IsMark = 0 " +?(ЕстьГруппы=1,"AND IsFolder = 2",""));
     Иначе
           запросКоличествоБезПрефикса.УстБД(_ODBCDatabase);
           ТекстзапросКоличествоБезПрефикса ="
           |SELECT count(*)
           |FROM "+ИмяТаблицы+"
           |WHERE IsMark = 0 "  +?(ЕстьГруппы=1,"AND IsFolder = 2","");
     КонецЕсли;      
     
     Если _фЭтоСКЛ = 1 Тогда
           Если ПоискПоВхождению = 0 Тогда
                 стрУсловие = "Descr >= RTrim(@Prefix) AND Descr < RTrim(@Prefix)+'яяяя'";
           Иначе
                 стрУсловие = "Descr like '%'+RTrim(@Prefix)";
           КонецЕсли;
     Иначе
           Если ПоискПоВхождению = 0 Тогда
                 стрУсловие = "RTrim(Upper(Descr)) >= RTrim(:Префикс) AND RTrim(Upper(Descr)) < (RTrim(:Префикс)+'яяяя')";
           Иначе
            // похожее наименование (здесь обязательно приведение к верхнему регистру)
                 стрУсловие = "RTrim(Upper(Descr)) LIKE :Префикс";
           КонецЕсли;
     КонецЕсли;
     
     запросКоличествоСПрефиксом = СоздатьОбъект("ODBCRecordSet");
     Если _фЭтоСКЛ = 1 Тогда
           запросКоличествоСПрефиксом.Подготовить("
           |Set NoCount ON
           |DECLARE @Prefix varchar("+МетаСпр.ДлинаНаименования+")
           |SET @Prefix = ?
           |SELECT count(*)
           |FROM
           |      "+ИмяТаблицы+" Спр (NoLock)
           |WHERE IsMark = 0 " +?(ЕстьГруппы=1,"AND IsFolder = 2","")+" AND "+стрУсловие+"
           |");
           запросКоличествоСПрефиксом.ДобПараметр(1, 14, МетаСпр.ДлинаНаименования, 0);
     Иначе
           запросКоличествоСПрефиксом.УстБД(_ODBCDatabase);
           ТекстзапросКоличествоСПрефиксом = "
           |SELECT count(*)
           |FROM
           |      "+ИмяТаблицы+"
           |WHERE IsMark <> '*' " +?(ЕстьГруппы=1,"AND IsFolder = 2","")+" AND "+стрУсловие+"
           |";
     КонецЕсли;

     запросЭлементы = СоздатьОбъект("ODBCRecordSet");
     Если _фЭтоСКЛ = 1 Тогда
           запросЭлементы.Подготовить("
           |Set NoCount ON
           |DECLARE @Prefix varchar("+МетаСпр.ДлинаНаименования+")
           |SET @Prefix = ?
           |SELECT
           |      RTrim(Descr) + ' (' + LTrim(Code) + ')|""'+ID+'""' Представление
           |FROM
           |      "+ИмяТаблицы+" (NoLock)
           |WHERE IsMark = 0 " +?(ЕстьГруппы=1,"AND IsFolder = 2","")+" AND "+стрУсловие+"
           |");
           запросЭлементы.ДобПараметр(1, 14, МетаСпр.ДлинаНаименования, 0);
     Иначе
           запросЭлементы.УстБД(_ODBCDatabase);
           ТекстзапросЭлементы = "
           |SELECT
           |      RTrim(Descr) + ' (' + LTrim(Code) + ')|""'+ID+'""' Представление"+РазделительСтрок+
           "FROM
           |      "+ИмяТаблицы+"
           |WHERE IsMark <> '*' " +?(ЕстьГруппы=1,"AND IsFolder = 2","")+" AND "+стрУсловие+"
           |";
     КонецЕсли;
КонецПроцедуры

Доброго дня(скорее ночи)! У меня возникла следующая проблема: хочу сделать в ТиС подбор
номенклатуры как в конфигураторе "Методы модуля", т.е. список по набранному фильтру (как я понимаю тема, которую многоуважаемые обсуждают).
код следующий:

      

СписокВыбора = "Провода высокого напряжения ВАЗ 08 ТРЕК
					  |Рычаг ВАЗ (верхний) левый Трек в сборе
					  |Рычаг ВАЗ (верхний) правый Трек в сборе
					  |Рычаг ВАЗ (нижний) левый Трек в сборе
					  |Рычаг ВАЗ (нижний) правый Трек в сборе
					  |Сайлентблок рессоры Газель (Трек)
					  |Сайлентблоки ВАЗ (Трек)
					  |Сайлентблоки ВАЗ 2121 (Трек)";
	  //офигенно быстрый!!
	  Аддон=СоздатьОбъект("SelectValue.SelectVal");
	  ВозврФ = Аддон.SelectPopUp(СписокВыбора, , РазделительСтрок)


	  //медленный но удобный
	  //Аддон=СоздатьОбъект("Svcsvc.Service");
	  //ВозврФ = Аддон.FilterValue(СписокВыбора, 1+4+16, "", 100, 100, 1) 

очень сильно не устраивает быстрый поиск в 1С, т.е. наименование нужно
набирать полностью а потом шариться дальше в поисках нужного
      
работает все "хорошо". Но есть несколько НО:
самый быстрый  SelectValue.SelectVal.SelectPopUp т.к. 15 000 номенклатуры фильтрует
на ура. но нет возможности установить позицию и размеры окна подбора
как в SvcSvc.FilterValue и если не влазит наименование то не происходит его
полный показ при наведении мышкой.

Проблема такова: не знаю ни VB ни C++.
Исходники svcsvc(на С++ 6.0) и SelectValue(на VB) взял.
у меня VisualStudio 2005. компилится пока не хочет ни то ни другое.
Пытаюсь хотябы заставить работать. Может кто подскажет рекомендации по конвертации проектов с предыдущих версий VS.

Хочу перенести механизм поиска вхождений перенести из SelectValue
    в SvcSvc.

Класс переехал в состав демо-конфы по ТП и ActiveX. В этой ветке обновлять его больше не буду.

http://www.1cpp.ru/forum/YaBB.pl?num=1155187084

Поле выбора там с дополнениями от Артура.

Ну почему забросил?!  Просто теперь всё будет в одной куче, в одном МДшнике.
Как я могу забросить то, чем я постоянно пользуюсь. В той конфе, которую щас делаем, везде где можно втыкаем такие поля.