1С 8.2 SQL УПП

Поясните ламеру кто виноват.

Внедряют у нас в конторе систему.
Администратор ругается что мои простые запросы блокируют регистр.продажи, а значит я чего-то делаю не так.

Для целей аналитической отчетности я с помошью ADO выгружаю нужные детальные записи регистров и справочников на др. сервер.
Я даже переделал алгоритм выгрузки из регистра продаж и тяну оттуда данные запросом частями.

Нужно как-то модифицировать код чтобы не вызывать блокировки или это должен сделать администратор?

Использование консоли запросов приведет к такому же результату?

Перем АДОДБКоннект, стрПодключения, ИмяСервера, ОшибкаSQL, SQLJob, ЗапросВ, Результат, Сейчас, Начало, Конец, Тн, Тк, Шаг, Строк;

Процедура ВыгрузитьПродажи()

ТаблицаSQL = "v8_Продажи_кор";


ИмяСервера = "XXX";
ИмяБазы = "infanalit";
ИмяПользователя = "sa";
Пароль = "";



стрПодключения = "Provider=SQLOLEDB.1;
|Pwd="+Пароль+";
|User ID="+ИмяПользователя+";
|Data Source=" + ИмяСервера + ";
|Initial Catalog=" + ИмяБазы + "";

Сейчас = ТекущаяДата();
Начало = ДобавитьМесяц(НачалоМесяца(Сейчас),-1);
Если Начало < Дата(2011,7,1) тогда Начало = Дата(2011,7,1) КонецЕсли;
Конец = НачалоДня(Сейчас);
Если Начало > Конец тогда Начало = Конец КонецЕсли;

Шаг = 86400*1; //60*60*24
Тн = Начало;
Тк = Тн + Шаг;



ЗапросВ = Новый Запрос;
ЗапросВ.Текст = "ВЫБРАТЬ
| 1 КАК Движение,
//| началопериода(Продажи.Период, День) КАК ДатаПроводки,
| началопериода(Продажи.Регистратор.Дата, День) КАК ДатаПроводки,
| Продажи.Активность,
| Продажи.Номенклатура.Код как Код,
| Продажи.Количество,
| Продажи.Стоимость,
| Продажи.СтоимостьБезСкидок,
| Продажи.НДС,
| Продажи.Регистратор.Номер КАК НомерДокумента,
| Продажи.Организация.Код КАК КодОрганизации,
| Продажи.Контрагент.Код КАК КодКонтрагента,
| Продажи.Регистратор.Грузополучатель.Код КАК КодГрузополучателя,
| Продажи.Регистратор.Грузоотправитель.Код КАК КодГрузоотправителя,
| Продажи.Регистратор.АдресДоставки КАК АдресДоставки
|ИЗ
| РегистрНакопления.Продажи КАК Продажи
|ГДЕ
| Продажи.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг
| И (НЕ Продажи.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))
| И Продажи.Регистратор.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийРеализацияТоваров.ПродажаКомиссия)
//| И началопериода(Продажи.Период, День) между &Начало и &Конец
| И началопериода(Продажи.Регистратор.Дата, День) между &Начало и &Конец
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| 2,
| началопериода(Возвраты.Период, День) как ДатаПроводки,
| Возвраты.Активность,
| Возвраты.Номенклатура.Код как Код,
| Возвраты.Количество,
| Возвраты.Стоимость,
| Возвраты.СтоимостьБезСкидок,
| Возвраты.НДС,
| Возвраты.Регистратор.Номер как НомерДокумента,
| Возвраты.Организация.Код как КодОрганизации,
| Возвраты.Контрагент.Код как КодКонтрагента,
| Возвраты.Регистратор.Грузополучатель.Код как КодГрузополучателя,
| Возвраты.Регистратор.Грузоотправитель.Код КАК КодГрузоотправителя,
| null как АдресДоставки
|ИЗ
| РегистрНакопления.Продажи КАК Возвраты
|ГДЕ
| Возвраты.Регистратор ССЫЛКА Документ.ВозвратТоваровОтПокупателя
| И (НЕ Возвраты.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))
| И Возвраты.Регистратор.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийВозвратТоваровОтПокупателя.ПродажаКомиссия)
| И началопериода(Возвраты.Период, День) между &Начало и &Конец
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| 3,
| началопериода(ВозвратЗакупки.Период, День) как ДатаПроводки,
| ВозвратЗакупки.Активность,
| ВозвратЗакупки.Номенклатура.Код как Код,
| 0 - ВозвратЗакупки.Количество как Количество,
| 0 - ВозвратЗакупки.Стоимость как Стоимость,
| 0 как СтоимостьБезСкидок,
| ВозвратЗакупки.НДС,
| ВозвратЗакупки.Регистратор.Номер как НомерДокумента,
| ВозвратЗакупки.Организация.Код как КодОрганизации,
| ВозвратЗакупки.Контрагент.Код как КодКонтрагента,
| ВозвратЗакупки.Регистратор.Грузополучатель.Код как КодГрузополучателя,
| ВозвратЗакупки.Регистратор.Грузоотправитель.Код КАК КодГрузоотправителя,
| null как АдресДоставки
|ИЗ
| РегистрНакопления.Закупки КАК ВозвратЗакупки
|ГДЕ
| ВозвратЗакупки.Регистратор ССЫЛКА Документ.ПоступлениеТоваровУслуг
| И (НЕ ВозвратЗакупки.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))
| И ВозвратЗакупки.Регистратор.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия)
| И началопериода(ВозвратЗакупки.Период, День) между &Начало и &Конец";



Контрагенты = Новый СписокЗначений;
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("000000001")); // Общие поставщики
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000019")); // Полиграф материалы и сырьё
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD007831")); // Кредиторы (обработанные)
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000027")); // Услуги типографские
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000026")); // Услуги прочие

Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000020")); // Правообладатели физ лица
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000021")); // Правообладатели юр лица
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000016")); // Иностранные компании
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000017")); // Налоговые агенты налоговые органы
Контрагенты.Добавить(Справочники.Контрагенты.НайтиПоКоду("ITD000014")); // Аренда и субаренда

ЗапросВ.УстановитьПараметр("Контрагенты",Контрагенты);



АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
АДОДБКоннект.ConnectionTimeOut =300;
АДОДБКоннект.CommandTimeOut =300;
АДОДБКоннект.CursorLocation = 2; //adUseServer

Попытка
АДОДБКоннект.Open(стрПодключения);
Исключение
АДОДБКоннект.Close();
Сообщить("Невозможно установить соединение с SQL-сервером " + ИмяСервера);
ОшибкаSQL=ТаблицаSQL;
Возврат;
КонецПопытки;



Попытка
//АДОДБКоннект.Execute("IF OBJECT_ID(N'" + ТаблицаSQL + "','U') IS not NULL drop table " + ТаблицаSQL );

АДОДБКоннект.Execute("IF OBJECT_ID(N'" + ТаблицаSQL + "','U') IS not NULL truncate table " + ТаблицаSQL
+ " else CREATE TABLE " + ТаблицаSQL + " ("
+ "Движение smallint null, "
+ "ДатаПроводки datetime null, "
+ "Активность bit null, "
+ "НоменклатураКод varchar(18) COLLATE Cyrillic_General_CI_AS null, "
+ "Количество int null, "
+ "Стоимость money null, "
+ "СтоимостьБезСкидок money null, "
+ "СуммаНДС money null, "
+ "ДокументНомер varchar(15) COLLATE Cyrillic_General_CI_AS null, "
+ "ОрганизацияКод varchar(10) COLLATE Cyrillic_General_CI_AS null, "
+ "КонтрагентКод varchar(10) COLLATE Cyrillic_General_CI_AS null, "
+ "ГрузополучательКод varchar(10) COLLATE Cyrillic_General_CI_AS null, "
+ "ГрузоотправительКод varchar(10) COLLATE Cyrillic_General_CI_AS null, "
+ "АдресДоставки varchar(255) COLLATE Cyrillic_General_CI_AS null, "
+ "Локализация bit null)"
);

АДОДБКоннект.Execute("BEGIN TRANSACTION");
АДОДБКоннект.Execute("set implicit_transactions off");
Исключение
АДОДБКоннект.Close();
Сообщить("Невозможно Drop/Create/BEGIN TRANSACTION table на SQL-сервере " + ИмяСервера);
ОшибкаSQL=ТаблицаSQL;
Возврат;
КонецПопытки;



Пока Тн <= Конец Цикл

Если Тк > Конец Тогда Тк = Конец КонецЕсли;

ЗапросВ.УстановитьПараметр("Начало",Тн);
ЗапросВ.УстановитьПараметр("Конец",Тк);
Сообщить("Выгружаем период с " + Формат( Тн, "ДЛФ=Д") + " по " + Формат( Тк, "ДЛФ=Д"));

Результат = ЗапросВ.Выполнить().Выгрузить();
Строк = Результат.Количество();


Если Строк > 0 тогда
Сообщить("Обрабатываем " + Строк +" строк за период с " + Формат( Тн, "ДЛФ=Д") + " по " + Формат( Тк, "ДЛФ=Д"));

Для Каждого СтрокаРез из Результат Цикл

АдресДоставки = Лев(СтрЗаменить(СтрокаРез.АдресДоставки,"'","''"),255);

Количество = Формат(СтрокаРез.Количество,"ЧГ=0; ЧН=0");
Стоимость = Формат(СтрокаРез.Стоимость,"ЧГ=0; ЧРД='.'; ЦДЧ=2; ЧН=0");
СтоимостьБезСкидок = Формат(СтрокаРез.СтоимостьБезСкидок,"ЧГ=0; ЧРД='.'; ЦДЧ=2; ЧН=0");
НДС = Формат(СтрокаРез.НДС,"ЧГ=0; ЧРД='.'; ЦДЧ=2; ЧН=0");

Активность = Формат(СтрокаРез.Активность,"БЛ=0; БИ=1");

Попытка

АДОДБКоннект.Execute("Insert INTO " + ТаблицаSQL + " values ("
+ "" + СтрокаРез.Движение + ","
+ "'" + СтрокаРез.ДатаПроводки + "',"
+ "" + Активность + ","
+ "'" + СокрП(СтрокаРез.Код) + "',"
+ "" + Количество + ","
+ "" + Стоимость + ","
+ "" + СтоимостьБезСкидок + ","
+ "" + НДС + ","
+ "'" + СтрокаРез.НомерДокумента + "',"
+ "'" + СтрокаРез.КодОрганизации + "',"
+ "'" + СтрокаРез.КодКонтрагента + "',"
+ "'" + СтрокаРез.КодГрузополучателя + "',"
+ "'" + СтрокаРез.КодГрузоотправителя + "',"
+ "'" + АдресДоставки + "',"

+ "null" + ")"
);


Исключение
Сообщить("Ошибка вставки данных в SQL: " + ОписаниеОшибки());
АДОДБКоннект.Execute("Commit");
АДОДБКоннект.Execute("set implicit_transactions on");
АДОДБКоннект.Close();
ОшибкаSQL=ТаблицаSQL;
Возврат;
КонецПопытки;



ОбработкаПрерыванияПользователя();
КонецЦикла;


конецесли;

Тн = Тн + Шаг + 86400; //60*60*24
Тк = Тн + Шаг;

Конеццикла;


Попытка
АДОДБКоннект.Execute("update _v8_Актуальность set Актуальность='" + ТекущаяДата() + "', НачалоПериода='" + Начало + "', КонецПериода='" + Конец + "' where Таблица='" + ТаблицаSQL +"'");
Исключение
Сообщить("Невозможно Update на SQL-сервере " + ИмяСервера);
АДОДБКоннект.Execute("Commit");
АДОДБКоннект.Execute("set implicit_transactions on");
АДОДБКоннект.Close();
ОшибкаSQL=ТаблицаSQL;
Возврат;
КонецПопытки;


Попытка
АДОДБКоннект.Execute("Commit");
АДОДБКоннект.Execute("set implicit_transactions on");
Исключение
Сообщить("Невозможно Commit на SQL-сервере " + ИмяСервера);
АДОДБКоннект.Close();
ОшибкаSQL=ТаблицаSQL;
Возврат;
КонецПопытки;


АДОДБКоннект.Close();


КонецПроцедуры

DmitriyZДмирий Романовский, в каком контексте идет запрос к 1С? Не выполняется ли он случайно в явной или неявной (при записи документа, в обработке проведения и т.д.) транзакции?

Даже не знаю что ответить :-(
Я запускаю обычную внешнюю обработку с этим кодом на клиентской машине.

DmitriyZПрограммист 1сВыберите период максимальный. Запустите вашу обработку. Паралельно попробуйте сформировать любой отчет по продажам (что использует регистр продажи). Если формируется - мордой тыкайте админа. Отчет то сформируется в любом случае. Пусть лучше любой документ по продажам попробует провести - это надежнее.

Так Админ именно это и подразумевает.

А как тогда работают встроенные отчеты?

DmitriyZДмирий Романовский, Т.е. когда вы запускаете свою обработку, пользователи не могут проводить документы? На всякий случай еще раз просмотрите код. Если запрос к 1С идет в Попытка - Исключение, уберите.

Т.е вот так делать ненадо?

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
// Вставить содержимое обработчика.

Отказ = истина;
Попытка
ВыгрузитьПродажи();
Исключение
Сообщить("Ошибка : " + ОписаниеОшибки());
Возврат;
КонецПопытки;
КонецПроцедуры

HoBTID Криминал:
И (НЕ Продажи.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))

...
Криминал:
И началопериода(Продажи. Регистратор.Дата , День) между &Начало и &Конец

И как правильно надо?
(НЕ Продажи.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))
ибо не нужны лишние данные...

это понятно что можно переделать, задав параметры запроса иначе
началопериода(Продажи. Регистратор.Дата , День) между &Начало и &Конец[/quot]

Возвраты.Регистратор.Грузополучатель
Переделать как ?
ВЫРАЗИТЬ(Продажи.Регистратор КАК Документ.РеализацияТоваровУслуг).Грузополучатель.Код КАК ГрузополучательКод,

Программист 1сАвтор - а база случайно не файловая?

Нет, там что то серьезное на кластерах и MS SQL :-)

Программист 1сДмирий Романовский,

Криминал:
И (НЕ Продажи.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))

Правильно
(НЕ Продажи.Контрагент.Ссылка В ИЕРАРХИИ (&Контрагенты))

Вы про букву и? Или про ссылка?

Простите, но не понял о чем речь!

Что такое условие надо помещать в самое начало списка условий?
Это условие можно без .Ссылка задавать?

Поубирал и поправил все что смог в соответствии с данными рекомендациями.

Дмирий РомановскийПоубирал и поправил все что смог в соответствии с данными рекомендациями.
Стало работать за 4 мин вместо 10-15, если Админы ничего не успели намудрить.

Стало работать за 4мин вместо 10-15, если админы не успели чего намудрить.

DmitriyZДмирий РомановскийСтало работать за 4мин вместо 10-15, если админы не успели чего намудрить. А блокировки остались, не удалось выяснить?

Я не спрашивал. :-)

Дмирий РомановскийDmitriyZпропущено...
А блокировки остались, не удалось выяснить?

Я не спрашивал. :-)
Админ начал давить на свое вышестоящее руководство дабы ввести ограничения таким как я.
Но руководство после переговоров дало ему команду "помочь" а не "давить" :-)

Программист 1сДмирий РомановскийАдмин начал давить на свое вышестоящее руководство дабы ввести ограничения таким как я.
Но руководство после переговоров дало ему команду "помочь" а не "давить" :-)Помоему у вас война за власть...

Напиши ему письменно вопрос про блокировки - пусть письменно и отвечает.

Да нет. Систему только внедряют. Контора большая. Им пока не до моих рабочих проблем. Я не "программист".
Никто там просто не ожидал наличия продвинутых пользователей 1С.
Думали что всем хватит штатных отчетов.
А мне и конслоли запросов мало :-)

Естественно, что как только я звесил недоделанный запрос на 6мин админ обалдел.
А года узнал что я еще и обработки делаю - обалдел 2 раза.

В итоге мне сказали предъявить обработки на "экспертизу".
Спасибо что вы мне тут подсказали как "вылизать" запросы.
После доделок запрос на сервер отрабатывает стабильно без задержек при заданном интервале за 10 сек. 80% времени уходит на перегонку данных.

Надеюсь, что после "экспертизы" всё встанет на свои места.