Отправляет email-рассылки с помощью сервиса Sendsay

Волшебство программирования на 1С:Предприятие

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 19.168 RSS
←   Октябрь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 26-03-2002

Автор
Алексей

Статистика

19.168 подписчиков
0 за неделю
←   Все выпуски   →

Волшебство программирования на 1С:Предприятие 7.7 и 8.0. Выпуск 110


1С:Франчайзи (лидер на рынке) объявляет набор на вакантные позиции:
-Руководитель отдела внедрения
-Программист-внедренец
-Программист 8.0 в проектный отдел

Рассматриваем кандидатов с различным опытом.

Обучение и профессиональное развитие за счет компании, оплата связи, проезда, помощь с проживанием, оплачиваемый отпуск.
Перспективы профессионального и карьерного роста.
Идет набор как в Московский офис так и в региональные представительства.
Работайте где Вам удобно:
Москва (Новослободская, Преображенская пл, Пр. Вернадского, Тульская, Белорусская, Автозаводская, Нагатинская)
Питер (Ломоносовская, Петроградская, Пл. Восстания)
Красноярск, Казань, Самара, Ростов на Дону, Новосибирск, Иркутск, Челябинск, Екатеринбург, Краснодар, Саратов, Нижний Новгород, Уфа, Киев, Алматы.

Заинтересованы в сотрудничестве в следующих городах:
Воронеж, Пермь, Пенза, Омск, Волгоград
Рассматриваем сотрудничество с коллективами программистов.

Ждем Ваших писем! Personal@1cbit.ru
(495)748 03 28

Волшебство программирования на 1С:Предприятие 7.7 и 8.0
Выпуск 110 / 18.10.2006

Множественный отбор в журналах и справочниках 7.7 заменой запросов SQL
Разработка позволяет модифицировать SQL-запросы 1С:Предприятие, в частности, с целью установления типичных для SQL-баз отборов в журналах и справочниках сразу по нескольким реквизитам. Кроме того, разработка реализует быстрый подбор в справочниках по первым буквам наименования.Автор статьи: romix | Редакторы: ASV
Последняя редакция №7 от 06.10.06 | История
URL: http://kb.mista.ru/article.php?id=361

Ключевые слова: SQL, ODBC32.dll, подмена, отбор, журнал, справочник, реквизит, одновременно, множественный, документ


Файл для скачивания:
http://x-romix.narod.ru/vk_hook1C.rar (81К, скачивать левой кнопкой мыши).
Приложены исходные тексты внешней компоненты (компилятор - Delphi 6).

Разработка протестирована для 1С:Предприятие 7.7, 25 релиз.

Приложен тестовый пример конфигурации, который надо восстановить в SQL (не DBF!) - базу
из меню "Администрирование" - "Загрузить данные" в режиме Конфигуратора 1С:Предприятие 7.7.

Пример демонстрирует множественный отбор в журнале документов (по "общим реквизитам": Контрагент, Автор и Товар), а также показ только "не помеченных на удаление". У этих реквизитов установлена галочка "отбор", чтобы они попали в таблицу _1SJOURN.

Кроме того, при попытке выполнить выбор из справочника, система запрашивает первые буквы наименования. Отобразит в форме списка справочника только элементы по этим буквам (% - метасимвол, как в предложении LIKE языка запросов SQL).

Все эти вещи регулируются программно: их можно свободно включать и выключать, просто изменяя конфигурацию 1C.

Установка внешней компоненты



В настоящей версии не требуются патчи для замены библиотеки ODBC32.dll - все делает внешняя компонента. Вот код для ее инициализации из глобального модуля 1С: 

///////////////////////////////////////////////////////////////////////
//Предопределенная процедура 1С
Процедура ПриНачалеРаботыСистемы()
    
    каталог="..\";//надкаталог
    ЗагрузитьВнешнююКомпоненту(каталог+"vk_Hook1C.dll"); 
    vk_hook=СоздатьОбъект("Addin.vk_Hook1C");
    vk_hook.ПерехватSQLPrepare();
    //vk_hook.ПоказыватьSQL=1;
КонецПроцедуры    // ПриНачалеРаботыСистемы


Свойство ПоказыватьSQL, будучи установленным в 1, позволяет увидеть проходящие через систему SQL-запросы в функции SQLPrepareA.

Перевод объектов в формат SQL


Чтобы использовать в запросах конкретные значения для объектов (например, ссылки на элементы справочников, я использую следующую процедуру): 

///////////////////////////////////////////////////////////////////////
//Преобразует объект в идентификатор, пригодный для SQL
Функция ПолучитьИД(прм_Объект)
    стр=СокрЛП(ЗначениеВСтрокуВнутр(прм_Объект));
    стр=Сред(стр,2,СтрДлина(стр)-2); //Убираем {}
    сз=СоздатьОбъект("СписокЗначений");
    сз.ИзСтрокиСРазделителями(стр);
    стр=сз.ПолучитьЗначение(7);
    иб=Прав(стр,3);
    стр=Лев(стр, СтрДлина(стр)-3); //Отрезаем последние 3 символа
    стр=_IdToStr(стр);
    стр=стр+иб;
    Пока СтрДлина(стр)<9 Цикл //Дополняем 

слева пробелами
        стр=" "+стр;
    КонецЦикла;
    Возврат стр;
    
КонецФункции    // ПолучитьИД



Замена запросов SQL


Для замены запросов в журнале я использую следующий код: 

//*******************************************
Процедура Выполнить()
    глКонтрагент=ВыбКонтрагент;
    глПользователь=ВыбПользователь;
    глТовар=ВыбТовар;
    глСкрыватьПомеченныеНаУдаление=ф_СкрыватьПомеченныеНаУдаление;
    
    
    стр="";
    глСтрокаОтбора="";
    Если ПустоеЗначение(ВыбКонтрагент)=0 Тогда         
        стр=стр+"SP47='"+ПолучитьИД(ВыбКонтрагент)+"' and ";
        глСтрокаОтбора=глСтрокаОтбора+"Контрагент: "+ВыбКонтрагент+";";
    КонецЕсли;
    Если ПустоеЗначение(ВыбПользователь)=0 Тогда
        стр=стр+"SP43='"+ПолучитьИД(ВыбПользователь)+"' and ";
        глСтрокаОтбора=глСтрокаОтбора+"  Пользователь: "+ВыбПользователь+";";
    КонецЕсли;
    Если ПустоеЗначение(ВыбТовар)=0 Тогда
        стр=стр+"SP46='"+ПолучитьИД(ВыбТовар)+"' and ";
        глСтрокаОтбора=глСтрокаОтбора+"  Товар: "+ВыбТовар+";";
    КонецЕсли;
    Если глСкрыватьПомеченныеНаУдаление=1 Тогда
        стр=стр+"ISMARK='0' and ";
        глСтрокаОтбора=глСтрокаОтбора+"  Не помеченные";
    КонецЕсли;    
    
    
    vk_hook.ТекстSQL="Select * from _1SJOURN(NOLOCK INDEX=JOURNAL) where IDJOURNAL=? and DATE_TIME_IDDOC>=? and DATE_TIME_IDDOC<=? 

order by IDJOURNAL, DATE_TIME_IDDOC";
    vk_hook.НовыйSQL="Select * from _1SJOURN(NOLOCK INDEX=JOURNAL) where "+стр+" IDJOURNAL=? and 

DATE_TIME_IDDOC>=? and DATE_TIME_IDDOC<=? order by IDJOURNAL, DATE_TIME_IDDOC";
    vk_hook.УстановитьЗаменуSQL();
    
    vk_hook.ТекстSQL="Select COUNT(*) from _1SJOURN(NOLOCK) where IDJOURNAL=? and DATE_TIME_IDDOC>=? and DATE_TIME_IDDOC<=? and 

DATE_TIME_IDDOC<=?";
    vk_hook.НовыйSQL="Select COUNT(*) from _1SJOURN(NOLOCK) where "+стр+" IDJOURNAL=? and DATE_TIME_IDDOC>=? and 

DATE_TIME_IDDOC<=? and DATE_TIME_IDDOC<=?";
    vk_hook.УстановитьЗаменуSQL();
    
    Форма.Закрыть();
КонецПроцедуры


Свойство vk_hook.ТекстSQL задает оригинальный текст SQL-запроса. Откуда его можно взять? Я беру его в буфер обмена (по нажатию Ctrl-C), выставив отображение SQL-запросов vk_hook.ПоказыватьSQL=1;

Свойство vk_hook.НовыйSQL задает измененный запрос SQL (в данном примере, я вставляю в него отбор по контрагенту, товару и пользователю.

Метод vk_hook.УстановитьЗаменуSQL(); выполняет собственно замену SQL-запроса. В системе можно установить несколько (до 200) таких замен.


Отбор в форме списка справочников


Часто удобно, когда отображается не весь справочник, а только его часть (например, по первым буквам наименования. Этот режим работы есть в 1С:Предприятие 8.0. Заменой запросов SQL это можно реализовать примерно так: 

Процедура ПриОткрытии()
    стр="";
    ок=1;
    Если ВвестиСтроку(стр, "Введите первые буквы наименования товара", 100, 0, )<>1 Тогда
      ок=0;
    КонецЕсли;
    стр=СокрЛП(стр);
    Если стр="" Тогда
        ок=0;
    КонецЕсли;
    Если ок=1 Тогда    
        vk_hook.ТекстSQL="Select * from SC12(NOLOCK INDEX=DESCR) order by DESCR, ROW_ID";
        vk_hook.НовыйSQL="Select * from SC12(NOLOCK INDEX=DESCR) where DESCR LIKE '"+стр+"%' order by DESCR, 

ROW_ID";
        vk_hook.УстановитьЗаменуSQL();
        
    Иначе    
        vk_hook.ТекстSQL="Select * from SC12(NOLOCK INDEX=DESCR) order by DESCR, ROW_ID";
        vk_hook.УдалитьЗаменуSQL();
    КонецЕсли;    
КонецПроцедуры


Этот код расположен в форме списка справочника Товары. Перед открытием формы списка пользователь видит запрос на ввод первых букв наименования. Если он нажимает Enter, то справочник отображается "как обычно". Если же он вводит первые буквы, то добавляется отбор where DESCR LIKE '"+стр+"%'
Замечу, что можно написать "Кофе % мет", чтобы найти "Кофе черная метка" и т.п. (знак % - метасимвол).

Перехват SQLExecDirect


Дополнение от 24.09.2006 - добавлен перехват SQLExecDirect с той же функциональностью, что и в разработке Книга знаний: Исправление ошибки 1С:Предприятие 7.7/8.0 - 100% загрузка процессора при ожидании блокировки

Отличие - не требуется патч bkend.dll.

   vk_hook.ПерехватSQLExecDirect();
   vk_hook.МаксимальныйSleep=1024;
   vk_hook.СигнальныйФайл=КаталогИБ()+"romix.sig";

Через функцию SQLExecDirect тоже проходят SQL-запросы 1С (а именно те запросы, которые не требуют установки параметров). Их (теоретически) тоже можно изменять, однако, в данной версии компоненты это не реализовано.

Методы ПерехватSQLPrepare() и/или ПерехватSQLExecDirect() можно не вызывать, и тогда никакого воздействия на работу 1С они оказывать не будут (перехвата указанных системных вызовов не произойдет).


Предыдущая версия: http://x-romix.narod.ru/SqlLog.rar (137К)
(выполняет полный перехват всех функций подменой ODBC32.dll)

Официальный сайт рассылки - www.mista.ru
Волшебный форум - www.forum.mista.ru
Книга знаний - www.kb.mista.ru

С уважением,
Станислав Митичкин (Волшебник)
stasmit@mail.ru

В избранное