Добрый день.
Понадобилось для бухгалтерии изменить РазделительУчета с ЮрЛица на фирмы. Этот процесс в принципе понятен и реализуется стандартными 1С средствами.
Но появилась необходимость формировать бух движения и итоги по СпискуЗначений.
Помятуя о подмене запросов попытался это действо совершить с помощью vk_hook :)

Код того, что отправляется на SQL во время генерации ОСВ
[code]Select * from _1SACCS(NOLOCK INDEX=CODE) where PLANID=? order by PLANID,SCHKOD
Select COUNT(*) from _1SACCS(NOLOCK) where PLANID=? and SCHKOD<=?
SELECT ACCID,CURRID,FLAGS=MAX(FLAGS),SUM_=SUM(SUM_),CURSUM=SUM(CURSUM)
FROM
(
SELECT ACCID,CURRID,FLAGS,SUM_=CASE KIND WHEN '4' THEN SD ELSE 0 END,CURSUM=CASE KIND WHEN '5' THEN SD ELSE 0 END
FROM _1SBKTTL BKTTL(NOLOCK)
WHERE DATE='20120101' AND PLANID=7984 AND SP32733=? AND (KIND = '4' OR KIND = '5')
) AS SD
GROUP BY ACCID,CURRID
HAVING SUM(SUM_)<>0 OR SUM(CURSUM)<>0!
!SELECT M(CURSUMDT),CURSUMKT=SUM(CURSUMKT)
FROM
(
SELECT ACCID,CURRID,FLAGS,DATE=CONVERT( DATETIME, '20120101' ),SUMDT=CASE KIND WHEN '4' THEN OBDT1 ELSE 0 END,SUMKT=CASE KIND WHEN '4' THEN OBKT1 ELSE 0 END,CURSUMDT=CASE KIND WHEN '5' THEN OBDT1 ELSE 0 END,CURSUMKT=CASE KIND WHEN '5' THEN OBKT1 ELSE 0 END
FROM _1SBKTTL BKTTL(NOLOCK)

WHERE DATE='20120101' AND PLANID=7984 AND SP32733=? AND KIND>='4' AND KIND<='6') AS OB
GROUP BY ACCID,CURRID,DATE
HAVING SUM(SUMDT)<>0 OR SUM(SUMKT)<>0 OR SUM(CURSUMDT)<>0 OR SUM(CURSUMKT)<>0 ORDER BY DATE[/code]

В общем то в нем все понятно. Добавил подмену запроса:
[code]
vk_hook.НовыйSQL="
|create table #P1 (val varchar(9))
|insert into #P1 values('     F   ')
|--insert into #P1 values('     6   ')
|
|SELECT ACCID,CURRID,FLAGS=MAX(FLAGS),SUM_=SUM(SUM_),CURSUM=SUM(CURSUM)
|FROM
|(
|SELECT ACCID,CURRID,FLAGS,SUM_=CASE KIND WHEN '4' THEN SD ELSE 0 END,CURSUM=CASE KIND WHEN '5' THEN SD ELSE 0 END
|FROM _1SBKTTL BKTTL(NOLOCK)
|WHERE DATE='20120101' AND PLANID=7984 AND (SP32733 in (SELECT val from #P1)) AND (KIND = '4' OR KIND = '5')
|) AS SD
|GROUP BY ACCID,CURRID
|HAVING SUM(SUM_)<>0 OR SUM(CURSUM)<>0
|
|drop table #P1
|";
[/code]
и
[code]
vk_hook.НовыйSQL="
|create table #P1 (val varchar(9))
|insert into #P1 values('     F   ')
|--insert into #P1 values('     6   ')
|
|SELECT M(CURSUMDT),CURSUMKT=SUM(CURSUMKT)
| FROM
| (
|SELECT ACCID,CURRID,FLAGS,DATE=CONVERT( DATETIME, '20121001' ),SUMDT=CASE KIND WHEN '4' THEN OBDT1+OBDT2+OBDT3 ELSE 0 END,SUMKT=CASE KIND WHEN '4' THEN OBKT1+OBKT2+OBKT3 ELSE 0 END,CURSUMDT=CASE KIND WHEN '5' THEN OBDT1+OBDT2+OBDT3 ELSE 0 END,CURSUMKT=CASE KIND WHEN '5' THEN OBKT1+OBKT2+OBKT3 ELSE 0 END
|FROM _1SBKTTL BKTTL(NOLOCK)
|WHERE DATE>='20121001' AND DATE<='20121001' AND PLANID=7984 AND (SP32733 in (SELECT val from #P1)) AND KIND>='4' AND KIND<='6') AS OB
| GROUP BY ACCID,CURRID,DATE
|HAVING SUM(SUMDT)<>0 OR SUM(SUMKT)<>0 OR SUM(CURSUMDT)<>0 OR SUM(CURSUMKT)<>0 ORDER BY DATE
|
|drop table #P1
|";
[/code]

но в результате получил ошибку :(
[img]http://logofree.ru/other/errorcount.jpg[/img]

Я предполагаю, что возможно нужно еще и второй запрос из 4х подменять, но на что?
подскажите пожалуйста, как завести сей паровоз? :)

Eprst писал(а) 20. Декабря 2012 :: 10:31:

так же самая ошибка в таком случае.

Проблема решилась так. Необходимо обязательно использовать переданный параметр и использовать его.

Добавил в новом запросе

declare @tmp varchar(9)
set @tmp=? 

и все заработало

Спасибо за внимание, пока вот не написал сюда не додумался

такая ошибка возникает при выполнении параметризированного запроса, когда количество параметров в запросе не соответствует количеству устанавливаемых

Продолжу
Чего-то сюда http://www.1cpp.ru/forum/YaBB.pl?num=1356083562 отвечать никто не хочет.

Запрос приходит, я его нормально, как мне кажется заменяю, но все равно в SQL уходит оригинальный.
Причем при тестировании на журнале и справочниках все срабатывает правильно, а вот на отчете не хочет.
Можно ли подменять запросы с помощью 1C++ ?

Есть куча отчетов в бухии использующих РазделительУчета. Они работают замечательно и всех все устаривает кроме того, что нельзя в разделителе использовать СписокЗначений.
Как уже писал выше подменить получается и корректно работает, осталось только в SQL отправить эту конструкцию, вот тут то затык и вышел.
Причем запрос перехватывается, а вот дальше почем-то не меняется.

>>Дык замену ромикс сделал вроде как только в списках журналов и справочников

Судя по перехвату, ловится SQLPrepare и SQLExecute, и тут уже не важно, по идее, откуда это вызвано.

Eprst писал(а) 24. Декабря 2012 :: 10:08:

Координаты для ловли подскажешь?

И все же, в 1С++ есть перехват запросов или нет?

MaxPiter удобен ли на практике vkhook?

to MaxPiter.
Добрый день! Напишу еще сюда вопрос - не сможете ли доработать vk_hook для работы с секретным релизом без понижения уровня совместимости? Если нужна оплата - пишите в icq 201216890.

Нет - не все конечно - только SQLDirect или что там используется для sleep?

Именно так - сейчас vk_hook для секретного релиза не работает с 9.0 при выполнении метода
     vk_hook.ПерехватSQLExecDirect();
сваливается с ошибкой.

Огромное спасибо.
почта: a.kamenets@portal-z.ru

Eprst писал(а) 23. Января 2013 :: 10:06:

Вот как-то так.
Добавлен метод:
vk_hook.ВключитьПодмену = 1 или 0;

Основное отличие от подмены от Romix, это подмена не всего запроса, а по вхождению.
т.е. вставлю пример из конфигурации

		vk_hook.ВключитьПодмену = 1;
		vk_hook.ТекстSQL = глПолеРазделительУчетаВИБ+"=?";

		ИДОбъектов = "";
		Для й=1 По глСписокФирмДляРазделителяУчета.РазмерСписка() Цикл
			ИДОбъектов = ачение(й))+"'";
			Если й<>глСписокФирмДляРазделителяУчета.РазмерСписка() Тогда
				ИДОбъектов = ИДОбъектов + ",";
			КонецЕсли;
		КонецЦикла;
		vk_hook.НовыйSQL = ""+глПолеРазделительУчетаВИБ+" in ("+ИДОбъектов+") and ''<>?";
		vk_hook.УстановитьЗаменуSQL(); 

данный код сообщает библиотеке, что нужно в запросах искать "SP3111=?" и заменять на "SP3111 in ('1','5','10') and ''<>?"

если не нужно больше подменять, выполняем

vk_hook.ВключитьПодмену = 0; 

leshik писал(а) 23. Января 2013 :: 13:21:

Можете скрин ошибки выслать?

А вот текстовое описание скрина:

Да, сразу после вызова данного метода.

leshik писал(а) 24. Января 2013 :: 22:17:

vk_hook перехватывает SQLExecDirectA и SQLPrepareA в ODBC32.dll и это не должно влиять на режим совместимости.
Хотя есть свои но:
1) если ODBC32.dll имеет более новую версию, в которой эти функции имеют другое количество параметров
2) при режиме совместимости 9.0 используются другие библиотеки
то тут не чем помочь не смогу, по крайне мере, сейчас мыслей на эту тему нет.

upd: или "секретный релиз" тоже что-то меняет в этих функциях.
Если есть возможность, попробуйте запустить 1С с vk_hook без "секретного релиза" но в режиме совместимости SQL 9.0