В докуменете реализация товаров и услуг есть вот такая строка при записи (как я понимаю типовая)

Если мУдалятьДвижения Тогда
       ОбщегоНазначения.УдалитьДвиженияРегистратора(ЭтотОбъект, Отказ);
КонецЕсли;

Процедура УдалитьДвиженияРегистратора(ДокументОбъект, Отказ) Экспорт
   
   // получение списка регистров, по которым существуют движения
   ТаблицаДвижений = ПолныеПрава.ОпределитьНаличиеДвиженийПоРегистратору(ДокументОбъект.Ссылка);
   ТаблицаДвижений.Колонки.Добавить("НаборЗаписей");
   ТаблицаДвижений.Колонки.Добавить("БезусловноеУдаление", Новый ОписаниеТипов("Булево"));
       
   Для Каждого СтрокаДвижения ИЗ ТаблицаДвижений Цикл
       // имя регистра передается как значение, полученное с помощью
       // функции ПолноеИмя() метаданных регистра
       ПозицияТочки = Найти(СтрокаДвижения.Имя, ".");
       ТипРегистра = Лев(СтрокаДвижения.Имя, ПозицияТочки - 1);
       ИмяРегистра = СокрП(Сред(СтрокаДвижения.Имя, ПозицияТочки + 1));
       
       ЕСли ТипРегистра = "РегистрНакопления" Тогда
           МетаданныеНабора = Метаданные.РегистрыНакопления[ИмяРегистра];
           Набор = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();
           
       ИначеЕсли ТипРегистра = "РегистрБухгалтерии" Тогда
           МетаданныеНабора = Метаданные.РегистрыБухгалтерии[ИмяРегистра];
           Набор = РегистрыБухгалтерии[ИмяРегистра].СоздатьНаборЗаписей();
           
       ИначеЕсли ТипРегистра = "РегистрСведений" Тогда
           МетаданныеНабора = Метаданные.РегистрыСведений[ИмяРегистра];
           Набор = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();
           
       ИначеЕсли ТипРегистра = "РегистрРасчета" Тогда
           МетаданныеНабора = Метаданные.РегистрыРасчета[ИмяРегистра];
           Набор = РегистрыРасчета[ИмяРегистра].СоздатьНаборЗаписей();
           
       КонецЕсли;
           
       Если НЕ ПравоДоступа("Изменение", МетаданныеНабора) Тогда
           // отсутствуют права на всю таблицу регистра
           СообщитьОбОшибке("Нарушение прав доступа", Отказ, СтрокаДвижения.Имя);
           Возврат;
       КонецЕсли;
           
       Набор.Отбор.Регистратор.Установить(ДокументОбъект.Ссылка);
       // набор не записывается сразу, чтобы не откатывать транзакцию, если впоследствии
       // выяснится, что на один из регистров не хватает прав.
       СтрокаДвижения.НаборЗаписей = Набор;
       
   КонецЦикла;
   
   Для Каждого СтрокаДвижения ИЗ ТаблицаДвижений Цикл
       Если СтрокаДвижения.БезусловноеУдаление Тогда
           ПолныеПрава.ЗаписатьНаборЗаписейНаСервере(СтрокаДвижения.НаборЗаписей, ДокументОбъект.Ссылка);
       Иначе
           Попытка
               СтрокаДвижения.НаборЗаписей.Записать();
           Исключение
               // возможно «сработал» RLS или механизм даты запрета изменения
               СообщитьОбОшибке(ОписаниеОшибки(), Отказ, СтрокаДвижения.Имя);
               ВызватьИсключение "Операция не выполнена";
           КонецПопытки;
       КонецЕсли;
   КонецЦикла;
   
   ОчисткаКоллекцииДвиженийДокумента(ДокументОбъект);
   
   // Удаление записей регистрации из всех последовательностей
   УдалитьРегистрациюДокументаВПоследовательностях(ДокументОбъект, Истина);

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




Изза нее документ проводится 60-80 секунд, отменяется тоже.

Как можно ее оптимизировать или ускорить 1С ?

Какая длинная строка. Тысяч на 50 символов.

Это точно строка? :-)

у меня такая функция делается за .5 секунд

http://gilev.blogspot.com/2012/09/1.html замерь и покажи план запроса
60 секунд - либо у тебя табличная часть десятки тысяч строк (большие объемы) либо блокировки (но тогда монопльно должно быстро работать), либо план запроса смотреть, где там оптимизатор ошибается

(4) он на ноутбуке работает просто в 100500ром

(5) явных ошибок не вижу, поэтому надо смотреть план запроса

РЛС включен? Ограничение по складам?

(7) да

именно на подчиненной базе Риб на складе

Попробуй без РЛС скорость замерить?

Дай юзеру доступность складов без РЛС.

Возможно вопрос глупый но как отключить рлс?

(10)-(12) Весь основной код выполняется в модуле ПолныеПрава, а он привилегированный. Так что ИМХО РЛС тут ни при чем.

СтрокаДвижения.БезусловноеУдаление = Истина, не?

(13) Удивительно, но факт.

Плужит очень сильно здесь
Для Каждого СтрокаДвижения ИЗ ТаблицаДвижений Цикл
       Если СтрокаДвижения.БезусловноеУдаление Тогда
           ПолныеПрава.ЗаписатьНаборЗаписейНаСервере(СтрокаДвижения.НаборЗаписей, ДокументОбъект.Ссылка);
       Иначе
           Попытка
// Тут дольше всего плужит
               СтрокаДвижения.НаборЗаписей.Записать();
           Исключение
               // возможно «сработал» RLS или механизм даты запрета изменения
               СообщитьОбОшибке(ОписаниеОшибки(), Отказ, СтрокаДвижения.Имя);
               ВызватьИсключение "Операция не выполнена";
           КонецПопытки;
       КонецЕсли;
   КонецЦикла;

И тут

Процедура УдалитьДвиженияРегистратора(ДокументОбъект, Отказ) Экспорт
   
   // вот тут !!!
   ТаблицаДвижений = ПолныеПрава.ОпределитьНаличиеДвиженийПоРегистратору(ДокументОбъект.Ссылка);

вот текст функции

Функция ОпределитьНаличиеДвиженийПоРегистратору(ДокументСсылка) Экспорт
   ТекстЗапроса = "";    
   // для исключения падения для документов, проводящимся более чем по 256 таблицам
   счетчик_таблиц = 0;
   
   МетаданнныеДокумента = ДокументСсылка.Метаданные();
   
   Если МетаданнныеДокумента.Движения.Количество() = 0 Тогда
       Возврат Новый ТаблицаЗначений;
   КонецЕсли;
   
   Для Каждого Движение ИЗ МетаданнныеДокумента.Движения Цикл
       // в запросе получаем имена регистров, по которым есть хотя бы одно движение
       // например,
       // ВЫБРАТЬ Первые 1 «РегистрНакопления.ТоварыНаСкладах»
       // ИЗ РегистрНакопления.ТоварыНаСкладах
       // ГДЕ Регистратор = &Регистратор
       
       // имя регистра приводим к Строка(200), см. ниже
       ТекстЗапроса = ТекстЗапроса + "
       |" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "
       |ВЫБРАТЬ ПЕРВЫЕ 1 ВЫРАЗИТЬ(""" + Движение.ПолноеИмя()
       +  """ КАК Строка(200)) КАК Имя ИЗ " + Движение.ПолноеИмя()
       + " ГДЕ Регистратор = &Регистратор";
       
       // если в запрос попадает более 256 таблиц – разбиваем его на две части
       // (вариант документа с проведением по 512 регистрам считаем нежизненным)
       счетчик_таблиц = счетчик_таблиц + 1;
       Если счетчик_таблиц = 256 Тогда
           Прервать;
       КонецЕсли;
       
   КонецЦикла;
   
   Запрос = Новый Запрос(ТекстЗапроса);
   ЗАпрос.УстановитьПараметр("Регистратор", ДокументСсылка);
   // при выгрузке для колонки «Имя» тип устанавливается по самой длинной строке из запроса
   // при втором проходе по таблице новое имя может не «влезть», по этому сразу в запросе
   // приводится к строка(200)
   ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();
   
   // если количество таблиц не превысило 256 – возвращаем таблицу
   Если счетчик_таблиц = МетаданнныеДокумента.Движения.Количество() Тогда
       Возврат ТаблицаЗапроса;            
   КонецЕсли;
   
   // таблиц больше чем 256, делаем доп. запрос и дополняем строки таблицы.
   
   ТекстЗапроса = "";
   Для Каждого Движение ИЗ МетаданнныеДокумента.Движения Цикл
       
       Если счетчик_таблиц > 0 Тогда
           счетчик_таблиц = счетчик_таблиц - 1;
           Продолжить;
       КонецЕсли;
       
       ТекстЗапроса = ТекстЗапроса + "
       |" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "
       |ВЫБРАТЬ ПЕРВЫЕ 1 """ + Движение.ПолноеИмя() +  """ КАК Имя ИЗ "
       + Движение.ПолноеИмя() + " ГДЕ Регистратор = &Регистратор";    
       
       
   КонецЦикла;
   Запрос.Текст = ТекстЗапроса;
   Выборка = Запрос.Выполнить().Выбрать();
   Пока Выборка.Следующий() Цикл
       СтрокаТаблицы = ТаблицаЗапроса.Добавить();
       ЗаполнитьЗначенияСвойств(СтрокаТаблицы, Выборка);
   КонецЦикла;
   
   Возврат ТаблицаЗапроса;

(18) Интересно кто писал сей шедевр? Можно ведь один раз статически получить для каждого документа список возможных регистраторов. Кроме того можно при проведение заполнить эти значения. В любом случае криво реализовано.

Писали - до меня , время проведения данного куска "60- 150" секунд на компе за 4500 грн
10-20 на компе за 4500 УЕ

(19)

По моему это типовый механизм

(14) Не - БезусловноеУдаление ложь

(19)  А можно чуть подробней , как именно получить "Можно ведь один раз статически получить для каждого документа список возможных регистраторов" и  можно при проведение заполнить эти значения" ?

(22) говорю в цикл добавления строк и создания наборов добавь строку...

(23) У тебя таблиц больше чем 256?

Также скажи какая версия MSSQL у тебя?

(26)2008 ентерпрайз
Та не,где то  15 таблиц

Зачем вообще эта процедура ?, Сижу не могу понять, она вроде - удаляет движения и все, так такая функция есть в самом документе

(24) Поставил - полезли ошибки кода.

(28)Получаются имена регистров по которым есть хотя бы одно движение. А потом видимо проверяются права на удаление.

(29) ты такой загадочный.... какие ошибки?

просто в регистрах автоматическое удаление выключено

ТекстЗапроса = ТекстЗапроса + "
       |" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "
       |ВЫБРАТЬ ПЕРВЫЕ 1 ВЫРАЗИТЬ(""" + Движение.ПолноеИмя()
       +  """ КАК Строка(200)) КАК Имя ИЗ " + Движение.ПолноеИмя()
       + " ГДЕ Регистратор = &Регистратор";

Вот это выполни отдельно для каждого регистра по отдельности.

Топ 1 конечно долна быстро отрабатывать но возможны ньюансы. Да и вообще ты так и не назвал из отладчика строку кода где тормозит. Я имею ввиду в самой процедуре.

Если тормозит на каком то регистре то можно будет указать явную сортировку в топ 1. В этом случае сюрпризов быть не должно.

(34) тормозит СтрокаДвижения.НаборЗаписей.Записать(); инфа 100%

(36) Если так, то тогда смотрим дефрагментацию индексов и выполняем переиндексацию. Такж обращаем внимание на дисковуб подсистему. А вообще какое то гадание на кофейной гуще. "Имя сестра, имя"(д'артаньян):)  Вообщем (0) должен назвать конкретную строку кода , после этого можно будет думать.

(37) RLS же срабатывает... надо сделать так, чтобы набор записывался в модуле с полными правами

(36) ну она у всех тормозит...

Включил увтоматическое удаление движений, и закоментил данные процедуры
Отмена проведение 3-5 секунд , Проведение 10 - 15  Жесть

Я так понимаю в типовых данная штука для РЛС предназначена?

(36) Неа... Почти треть времени занимает именно выборка топ 1 по регистратору в большом регистре... Инфа 146%. У меня, по крайней мере.

(41) у тебя там чота с дисками, мы это уже выяснили

(42)+ или оперативы не хватает, или индексы необслужены

(41)Разумеется проведи переиндекссацию. А потом попробуй указать явно сортировку(сортировать по) по какому нибудь самому по размерам маленькому индексу(желательно селктивному) По умолчанию берется кластерный(это нормальный вариант но бывают ньюансы)

(36) таже самая проблема с УПП, SQL. Переиндексацию делали, бесполезно.

Так кто-нибудь поборол эту проблему?

(45) если RLS, то (14)

(46) RLS не используем

Может ли толмозить база изза размера ? у меня размер базы 37 гигабайт

Продолжение. Почистил все програмные заморочки Осталась голая запись документа, Если быть точным (отмена проведения)

в главной базе делается по 3-5 секунды до оптимизации 10 -15
В складской - 80 секунд после оптимизации до  210 - 250.

Но это всеравно долго очень
Вопрос  у меня в складской базе находятся не только документы по складу но и документы (реализации товаров и услуг) по другим складам

До падения базы были только по данному складу. Может ли тормозить изза этого ?

и

У меня в базе склада давно не делались тех работы (реиндексация и тп )
Влияет ли это на быстродействие ?


Ну и понятно на SQl тоже обслуживание давно не делал.

Влияет ли это ?

+ У меня в базе есть регист "Версионирование данных на 18 гиг"

так тормозить стало после падения базы?

ага , база упала , я копию реальной базы розвернул