1: Если Вы чего-то не видели, это не значит что этого не существует!
2: Моя инсталяшка весит не 1.8Мб, а 5.6Мб. С чего Вы взяли такие размеры, я не знаю.
3: Волков бояться - в лес не ходить. Проверяйте вложения антивирусами!
4: Мой опыт программирования - 10 лет, из них 7 - 1С, от 7.5 до 8.1, поэтому не стоит!
ps: Рад был знакомству!
Пишу я обычно так (пример для 7.7):
Поиск товара по основным реквизитам, в т.ч. части этих реквизитов, время выполнения менее секунды:
/*******************************************
Процедура Поиск()
Форма.Текущий.Доступность(1);
Форма.Аналоги.Доступность(1);
Форма.СОстатками.Доступность(1);
СЗ = СоздатьОбъект("СписокЗначений");
СЗ.УдалитьВсе();
ТЗРезультат.Очистить();
ТекстЗапроса = "
|select
|Max('FONT[None] BRUSH[8421631] COUNT[12] INDENT[0]') as Цвет,
|N.id as ЭлементНоменклатуры,
|N.code as Код,
|N.$Справочник.Номенклатура.КодОмега as КодОмега,
|N.$Справочник.Номенклатура.Артикул as КодСкуба,
|N.descr as Наименование,
|N.$Справочник.Номенклатура.Комментарий as Комментарий,
|P.NP as Производитель,
|($ПоследнееЗначение.Номенклатура.Популярность(N.id,'" + АмДата(ТекущаяДата()) + "')) as Популярность
|";
Если Детально = 1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|,
|G.NP as Группа,
|PG.NP as Подгруп,
|TI.NP as ТехИнфо
|";
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|from $Справочник.Номенклатура as N
|left outer join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :Производитель) as P
|on P.VP = N.id
|";
ЕстьУсловия = 0;
Если ПустоеЗначение(Карточка) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|inner join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|";
Если флВнутри1 = 1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства) and (lower(Rtrim(Ltrim(ZSP.descr))) Like '%" + Нрег(СокрЛП(Карточка)) + "%')
|";
Иначе
ТекстЗапроса = ТекстЗапроса + "
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства) and (lower(Rtrim(Ltrim(ZSP.descr))) Like '" + Нрег(СокрЛП(Карточка)) + "%')
|";
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :Карточка) as K
|on K.VP = N.id
|";
ЕстьУсловия = 1;
КонецЕсли;
Если ПустоеЗначение(Группа) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|inner join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства) and (lower(Rtrim(Ltrim(ZSP.descr))) Like '%" + Нрег(СокрЛП(Группа)) + "%')
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :Группа) as G
|on G.VP = N.id
|";
ЕстьУсловия = 1;
Иначе
Если Детально = 1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|left outer join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства)
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :Группа) as G
|on G.VP = N.id
|";
КонецЕсли;
КонецЕсли;
Если ПустоеЗначение(Подгруппа) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|inner join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства) and (lower(Rtrim(Ltrim(ZSP.descr))) Like '%" + Нрег(СокрЛП(Подгруппа)) + "%')
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :Подгруппа) as PG
|on PG.VP = N.id
|";
ЕстьУсловия = 1;
Иначе
Если Детально = 1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|left outer join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства)
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :Подгруппа) as PG
|on PG.VP = N.id
|";
КонецЕсли;
КонецЕсли;
Если ПустоеЗначение(ТехИнфо) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|inner join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства) and (lower(Rtrim(Ltrim(ZSP.descr))) Like '%" + Нрег(СокрЛП(ТехИнфо)) + "%')
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :ТехИнфо) as TI
|on TI.VP = N.id
|";
ЕстьУсловия = 1;
Иначе
Если Детально = 1 Тогда
ТекстЗапроса = ТекстЗапроса + "
|left outer join
|(select ZSP.descr as NP, SNP.parentext as VP
|from $Справочник.СвойстваНоменклатуры as SNP
|inner join $Справочник.ЗначенияСвойств as ZSP
|on (ZSP.id = SNP.$Справочник.СвойстваНоменклатуры.ЗначениеСвойства)
|where Rtrim(Ltrim(SNP.$Справочник.СвойстваНоменклатуры.ВидСвойства)) = :ТехИнфо) as TI
|on TI.VP = N.id
|";
КонецЕсли;
КонецЕсли;
Если ПустоеЗначение(ОригНомер) = 0 Тогда
Если Константа.РаботатьПоHTTP = 1 Тогда
ИнтернетОбъект = СоздатьОбъект("AddIn.V7HttpReader");
ИнтернетОбъект.КоличествоПопытокАвторизации = 0;
Если Константа.ИспользоватьПрокси = 1 Тогда
ИнтернетОбъект.УстановитьПараметрыПрокси(СокрЛП(Константа.ИмяПрокси), СокрЛП(Константа.ПарольПрокси));
КонецЕсли;
СтрокаЗапроса = "?search=" + СокрЛП(ОригНомер);
Если флВнутри = 1 Тогда
СтрокаЗапроса = СтрокаЗапроса + "&chk1=1";
КонецЕсли;
СтрокаЗапроса = СтрокаЗапроса + "&user=" + СокрЛП(глПользователь.ОсновнаяФирма.ПользовательWeb) + "&key=" + СокрЛП(глПользователь.ОсновнаяФирма.ПарольWeb);
ИнтернетОбъект.Получить(СокрЛП(Константа.АдресURLКросс) + СтрокаЗапроса, ОтветСервера, 2);
ОтветСервера = СокрЛП(ОтветСервера);
Если Прав(ОтветСервера, 1) = "," Тогда
ОтветСервера = Лев(ОтветСервера, СтрДлина(ОтветСервера) - 1);
КонецЕсли;
ОтветСервера = Кавычка + СтрЗаменить(ОтветСервера, ",", Кавычка + "," + Кавычка) + Кавычка;
СписНом = СоздатьОбъект("СписокЗначений");
СписНом.ИзСтрокиСРазделителями(ОтветСервера);
ТекстЗапросаДоп = "
|delete dbo.#MyTemp
|";
//БазаОмега.Отладка(1);
Если БазаОмега.Выполнить(ТекстЗапросаДоп) = 0 Тогда
Сообщить("Ошибка очистки временной таблицы на сервере.
|Поиск по ориг. номеру недоступен!");
Возврат;
КонецЕсли;
Для Сч = 1 По СписНом.РазмерСписка() Цикл
ТекстЗапросаДоп = "
|insert into dbo.#MyTemp values('" + СокрЛП(СписНом.ПолучитьЗначение(Сч)) + "', '')
|";
//БазаОмега.Отладка(1);
Если БазаОмега.Выполнить(ТекстЗапросаДоп) = 0 Тогда
Сообщить("Ошибка заполнения временной таблицы на сервере.
|Поиск по ориг. номеру недоступен!");
Возврат;
КонецЕсли;
КонецЦикла;
Иначе
ТекстЗапросаДоп = "
|delete dbo.#MyTemp
|";
//БазаОмега.Отладка(1);
Если БазаОмега.Выполнить(ТекстЗапросаДоп) = 0 Тогда
Сообщить("Ошибка очистки временной таблицы на сервере.
|Поиск по ориг. номеру недоступен!");
Возврат;
КонецЕсли;
ТекстЗапросаДоп = "
|insert into dbo.#MyTemp
|(MyCol)
|select
|K.$ДокументСтроки.Кросс.КодОмега
|from $ДокументСтроки.Кросс as K
|";
Если флВнутри = 1 Тогда
ТекстЗапросаДоп = ТекстЗапросаДоп + "
|where lower(Rtrim(Ltrim(K.$ДокументСтроки.Кросс.ОрНом))) Like '%" + Нрег(СокрЛП(ОригНомер)) + "%'
|";
Иначе
ТекстЗапросаДоп = ТекстЗапросаДоп + "
|where lower(Rtrim(Ltrim(K.$ДокументСтроки.Кросс.ОрНом))) Like '" + Нрег(СокрЛП(ОригНомер)) + "%'
|";
КонецЕсли;
//БазаОмега.Отладка(1);
БазаОмега.Выполнить(ТекстЗапросаДоп);
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|inner join dbo.#MyTemp as T
|on Rtrim(Ltrim(T.MyCol)) = Rtrim(Ltrim(N.$Справочник.Номенклатура.КодОмега))
|";
ЕстьУсловия = 1;
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "
|where (1=1)
|";
Если ПустоеЗначение(КодОмега) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|and (lower(Rtrim(Ltrim(N.$Справочник.Номенклатура.КодОмега))) Like '%" + Нрег(СокрЛП(КодОмега)) + "%')
|";
ЕстьУсловия = 1;
КонецЕсли;
Если ПустоеЗначение(КодСкубы) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|and (lower(Rtrim(Ltrim(N.$Справочник.Номенклатура.Артикул))) Like '%" + Нрег(СокрЛП(КодСкубы)) + "%')
|";
ЕстьУсловия = 1;
КонецЕсли;
Если ПустоеЗначение(Код1С) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|and (lower(Rtrim(Ltrim(N.code))) Like '%" + Нрег(СокрЛП(Код1С)) + "%')
|";
ЕстьУсловия = 1;
КонецЕсли;
Если ПустоеЗначение(Наименование) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|and (lower(Rtrim(Ltrim(N.descr))) Like '%" + Нрег(СокрЛП(Наименование)) + "%')
|";
ЕстьУсловия = 1;
КонецЕсли;
Если ПустоеЗначение(Комментарий) = 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|and (lower(Rtrim(Ltrim(N.$Справочник.Номенклатура.Комментарий))) Like '%" + Нрег(СокрЛП(Комментарий)) + "%')
|";
ЕстьУсловия = 1;
КонецЕсли;
Если ЕстьУсловия = 0 Тогда
Если Вопрос("Не заданы условия для поиска!!!
|Вывести все позиции справочника?
|Это займёт несколько минут!!!", 4, 15) = 6 Тогда
Текущий = 1;
Аналоги = 0;
Детально = 0;
СОстатками = 0;
Форма.Текущий.Доступность(0);
Форма.Аналоги.Доступность(0);
Форма.СОстатками.Доступность(0);
Иначе
Возврат;
КонецЕсли;
КонецЕсли;
ТекстЗапроса = ТекстЗапроса + "group by N.id,N.code,N.$Справочник.Номенклатура.КодОмега,N.$Справочник.Номенклатура.Артикул,N.descr,N.$Справочник.Номенклатура.Комментарий,P.NP";
Если Детально = 1 Тогда
ТекстЗапроса = ТекстЗапроса + ",G.NP,PG.NP,TI.NP";
КонецЕсли;
БазаОмега.УстановитьТекстовыйПараметр("Производитель", СокрЛП(ВидСвПроизводитель));
БазаОмега.УстановитьТекстовыйПараметр("Карточка", СокрЛП(ВидСвКарточка));
БазаОмега.УстановитьТекстовыйПараметр("Группа", СокрЛП(ВидСвГруппа));
БазаОмега.УстановитьТекстовыйПараметр("Подгруппа", СокрЛП(ВидСвПодгруппа));
БазаОмега.УстановитьТекстовыйПараметр("ТехИнфо", СокрЛП(ВидСвТехИнфо));
//БазаОмега.Отладка(1);
БазаОмега.Открыть(ТекстЗапроса);
БазаОмега.ПолучитьРезультатыВ_ТЗ(ТЗРезультат,1);
БазаОмега.Закрыть();
ТЗРезультат.УстановитьПараметрыКолонки("КодОмега",,,,,10);
ТЗРезультат.УстановитьПараметрыКолонки("КодСкуба",,,,"КодСкубы",10);
ТЗРезультат.УстановитьПараметрыКолонки("Производитель",,,,,20);
ТЗРезультат.УстановитьПараметрыКолонки("Наименование",,,,"Номенклатура");
ТЗРезультат.ВидимостьКолонки("Цвет, ЭлементНоменклатуры",0);
Если Аналоги = 1 Тогда
ПоискАналогов();
КонецЕсли;
УбратьБезОстатков();
Если (ТЗРезультат.КоличествоСтрок() > 0) И (СОстатками = 0) Тогда
ТЗРезультат.Сортировать("КодОмега+, КодСкуба+, Наименование+, Производитель+");
КонецЕсли;
Если Детально = 1 Тогда
ТЗРезультат.УстановитьПараметрыКолонки("Производитель",,,,,18);
ТЗРезультат.УстановитьПараметрыКолонки("Группа",,,,,10);
ТЗРезультат.УстановитьПараметрыКолонки("Подгруп",,,,,10);
ТЗРезультат.УстановитьПараметрыКолонки("ТехИнфо",,,,,15);
КонецЕсли;
// Восстановление первой закладки.
Закладка = 1;
// Открытие нужного слоя.
Форма.Закладки.ТекущаяСтрока(Закладка);
ТекущаяЗакладка = Форма.Закладки.ПолучитьЗначение(Закладка);
Форма.ИспользоватьСлой(ТекущаяЗакладка+", Основной", 2);
ЕстьИзменения2 = 1;
ЕстьИзменения3 = 1;
ЕстьИзменения4 = 1;
ЕстьИзменения5 = 1;
ЕстьИзменения6 = 1;
ЕстьИзменения7 = 1;
ЕстьИзменения8 = 1;
ЕстьИзменения9 = 1;
ЕстьИзменения10 = 1;
ЕстьИзменения11 = 1;
ЕстьИзменения12 = 1;
ЕстьИзменения13 = 1;
ЕстьИзменения14 = 1;
РасшФормы.ПодсветкаЗакладки(2,0);
РасшФормы.ПодсветкаЗакладки(3,0);
РасшФормы.ПодсветкаЗакладки(4,0);
РасшФормы.ПодсветкаЗакладки(5,0);
РасшФормы.ПодсветкаЗакладки(6,0);
РасшФормы.ПодсветкаЗакладки(7,0);
РасшФормы.ПодсветкаЗакладки(8,0);
РасшФормы.ПодсветкаЗакладки(9,0);
РасшФормы.ПодсветкаЗакладки(10,0);
РасшФормы.ПодсветкаЗакладки(11,0);
РасшФормы.ПодсветкаЗакладки(12,0);
РасшФормы.ПодсветкаЗакладки(13,0);
РасшФормы.ПодсветкаЗакладки(14,0);
СтарСтрока = 1;
СтарОмега = "";
СтарТекущий = Текущий;
ЕстьПоиск = 1;
КонецПроцедуры
//*******************************************
|
)
Оператор select в запросе версии 7.7 не может присутствовать.