Есть база с номенклатурой 120'000+ элементов.
К нему добавил подчиненый справочник, который надо заполнить.

Вот здесь начались фокусы. На рабочей базе, SQL 2008, этот спраовчник в монопольном режиме на выходных за 11 часов заполнился чуть меньше половины, 55000+ элементов.

Запустил эту обработку на файловой копии базы, разумеется, тоже монопольно, и за 20 минут прошел почти 20000 элементов товаров.

Интересно, как можно ускорить SQL, или это особенность и данность движка 7.7? (7.70.027)

С какой периодичностью планируется заполнять справочник? :)

Можно, было такое, придется патчить 1С ехе-ник... поищи в инете..

Заполнение выполняется в транзакции?

Это одноразовая работа, т.к. цены хранятся в (!!!) регистре.
А чтобы по ОЛЕ не тягать временный расчет регистра. отбирать его движения. читать документ (как накодено в данной конфигурации 7.7), я и решил один раз потерять день, и потом читать справочник, заполненный на определенную дату.

Копрокод в студии:

   СпрТипыЦен = СоздатьОбъект("Справочник.ТипыЦен");
   СпрЦены = СоздатьОбъект("Справочник.Цены");
   СпрНом = СоздатьОбъект("Справочник.Товары");
   Сч = 0;
   НачатьТранзакцию();
   СпрНом.ВыбратьЭлементы();
   Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
       Сч = Сч + 1;
       Если Сч%100=0 Тогда
           ЗафиксироватьТранзакцию();
           РассчитатьВремяОкончания();
           НачатьТранзакцию();
       КонецЕсли;
       Если СпрНом.ЭтоГруппа()=1 Тогда
           Продолжить;
       КонецЕсли;
       СпрЦены.ИспользоватьВладельца(СпрНом.ТекущийЭлемент());
       СпрТипыЦен.ВыбратьЭлементы();
       Пока СпрТипыЦен.ПолучитьЭлемент() = 1 Цикл
           Состояние(ТекстСообщения + " " + Сч + " " + СпрНом.ПолноеНаименование() + " / " + СпрТипыЦен);
           Если СпрЦены.НайтиПоКоду(СпрТипыЦен.Код)=1 Тогда
               //Продолжить;
           Иначе
               СпрЦены.Новый();
               СпрЦены.Код = СпрТипыЦен.Код;
               СпрЦены.Наименование = СпрТипыЦен.Наименование;
               СпрЦены.Владелец = СпрНом.ТекущийЭлемент();
           КонецЕсли;
           СЗЦен = глПрочитатьЦену(СпрНом, СпрТипыЦен, Дата(2012, 06, 30));
           Цена = СЗЦен.ПолучитьЗначение(1);
           Скидка = СЗЦен.ПолучитьЗначение(2);
           ЦСкидка = СЗЦен.ПолучитьЗначение(3);
           СпрЦены.ТипЦены = СпрТипыЦен.ТекущийЭлемент();
           СпрЦены.КодТипаЦены = СпрТипыЦен.Код;
           СпрЦены.Цена = СЗЦен.ПолучитьЗначение(1);
           СпрЦены.Скидка = СЗЦен.ПолучитьЗначение(2);
           СпрЦены.ЦСкидка = СЗЦен.ПолучитьЗначение(3);
           СпрЦены.Записать();
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры

(3) Да, по 100-1000+ элементов. Не у каждого товара есть цена, хотя в последней редак4ции решил писать нулевую цену также. Так что около 2000 элементов в транзакции.

Вот функция чтения цены:

Функция глПрочитатьЦену(Тов,val Тип,ДатаДок="") Экспорт Тип=Число(Тип);    Рег = CreateObject("Регистр.Цены"); Рег.SetFilterValue("Товар",Тов, 1); Рег.SetFilterValue("Тип",Тип, 2); СЗ=CreateObject("ValueList");
If ДатаДок="" Then ДатаДок=ТекущаяДата();EndIf Рег.BackwardOrder(1); Рег.SelectActs(,ДатаДок);
While Рег.GetDocAct()=1 Do СЗ.AddValue(Рег.Цена);СЗ.AddValue(Рег.Скидка);СЗ.AddValue(Рег.ЦСкидка);    
Return СЗ; EndDo;
СЗ.AddValue(0);СЗ.AddValue(0);СЗ.AddValue(0); Возврат СЗ; КонецФункции

Фееричная русско-английская смесь... мой мозг сломался...

(6) Круто...
Раз уж начал на одном языке - так и пиши на одном...

(8) Не моё, в наследство досталось )))
Всё как в анекдоите Пятницо!

Так что бы прилепить в скуль?
Это так,для развития, ибо перевожу всё с самописки на УТП.

Переделывай на прямые запросы, будет тебе счастье.

(7) Она не просто русско-английская. Она еще и в_одну_строку_вся_функция
v8: Коллега-Чудотворец(маг в 1 поколении)

(11) Так человек наоборот хочет клюшки выбросить.

(13) не увидел в ветке пожеланий человека, кроме (0)

(6) жесть....


Книга знаний: v8: Алгоритм синхронизации (сравнения) двух таблиц (по текстовому полю)

А отладчик что говорит, на что больше всего времени уходит ? Мне кажись вот на это по идее, "Рег.SelectActs(,ДатаДок);". А порядок измерений в регистре какой, "Товар" там на каком месте ?

(16) ванга мод он, дольше всего у него запись делается, ванга мод офф

Вообще сообщить явно не надо на каждом шагу выдавать, очень медленная штука

(15) + аналогичную по размерам загрузку удалось уложить в 15-20 минут

(19) в скул?

(14) Всё правильно, интересно знать на будущее, вдруг прийдётся еще раз повторить подвиг.

(0) 1С++ не предлагать? там же как раз мощнейший инструментарий для работы с регистром?

(4) в коде сразу видно ошибку - последняя сотня в транзакции не запишется.

(22) тут 2 проблемы, получение данных и запись

(22) Семерка умерла.

прямым запросом надо

(25) имхо скорее сдохнут и разложатся те, кто предрекал ей скорую гибель)

(24) какие проблемы с получением?

(28) без 1С++ меееедлееееноооооо

Х.з. у меня такой код за 10 секунд отрабатывает
   ТекстЗапроса = "
   |SELECT $ЦеныПродажи.Товар Товар
   |    , Max(ЦеныПродажи.DATE_TIME_IDDOC) Максимум
   |INTO #tmp_Log_Cen
   |FROM $Регистр.ЦеныПродажи AS ЦеныПродажи With (NOLOCK)
   |WHERE $ЦеныПродажи.КатегорияЦен = :ВыбКатегория~
   |GROUP BY $ЦеныПродажи.Товар";
   
   глРС_Аддон.УстановитьТекстовыйПараметр("ВыбКатегория", КатегорияЦенРозницы);
   глРС_Аддон.ВыполнитьСкалярный(ТекстЗапроса);
   
   ТекстЗапроса = "
   |SELECT
   |    Спр.Code [ArticleId $Число]
   |    , $ЦеныПродажи.Цена [BasePrice $Число]
   |    , 0 [CurrencyPrice $Число]
   |FROM $Регистр.ЦеныПродажи AS ЦеныПродажи With (NOLOCK)
   |    INNER JOIN #tmp_Log_Cen t ON $ЦеныПродажи.Товар=t.Товар AND ЦеныПродажи.DATE_TIME_IDDOC=t.Максимум
   |    INNER JOIN $Справочник.Номенклатура Спр ON t.Товар=Спр.Id
   |WHERE $ЦеныПродажи.Цена<>0";
   ИТЗ = глРС_Аддон.ВыполнитьИнструкцию(ТекстЗапроса, ИТЗ_сегодня, 0);
А дальше - перебор ИТЗ с записью

(20) здесь дело не в скуле а в том, что идет цикл на 200 000 номенклатуры и внутри него вызывается не только запись но и ком обращения и соответсвено чтение отдельным запросом...

нужно сначало стянуть всю таблицу в семерку (правда есть шанс вылететь по памяти) и потом уже эту таблица распихивать....

(27) +100

(28) Если неудачно стоят измерения, и нет отборов, то получение движений из регистра с фильтром очень тормозить может.

(17) ща скажу!
http://s017.radikal.ru/i424/1207/a6/ffdb140ef7a2.png

(31) Так там вроде нету com-обращений.

(18) Дык его и нет, того "сообщить", есть "состояние".
Вопрос в другом - на скуле за 11 часов обработано 55000+ элементов, а в файловой это же количество - за примерно за час.

(34) Это как, фильтр по реквизитуставиться, что ли ?

(23) Точно. Я не доглядел. Спасибо.

(37)* "реквизиту ставится"

(37) Да. Об этом говорит фееричный листинг.

(29) а не пе*дишь ли ты? по адо тож быстро отработает

(36) А ты в монопольном/однопользовательском режиме? А то попробуй в файловой, когда еще хоть один подключится к базе...

(39)+ Так это вообще жесть, там индексы нихрена нельзя поставить на реквизит.

(41) а не пойти ли тебе, и не почитать ли ветку, или еще раз не перечитать, что я написал?

(31) Я почти так и поступил. Всю таблицу стянул в подчиненный справочник, его и щаполняю, его же и буду читать в COM из 8-ки.
(35) их и не будет - пробовал из 8-ки тянуть по COM вычисление функции получения цены, доооолгоооо дело было.

(42) Анакуа? Ща все работу работают, жалуются, что база тормозит. Вот я и развернул копию. Файловую.

если это стандартная ТИС то проще всего купить у Паула toysql потрахаться с месяцок на интеграцию и спать спокойно
или капать в сторону 1с++ (но тогда самому придется много переписывать)

т.е. смотря как поджимает время

(47) Нет, это нетленка. Единственный плюс - это документ назначения цен, аналог которого есть в УТП.

(48) запись может напрямую в таблицу делать?

(0) А причем тут скуль? Учитывая код (4) причина в кривизне рук (кода).
200 тыс позиций это как семечки на базаре ...

(48) Так там в принципе переписать только функцию получение цен, по идее должно быть побыстрее, чем стандартными средствами.

(0) а нафига всей номенклатуре ВСЕ типы цен вводить ?
заняться нечем ?

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

(50) Так 200 к только номенклатуры, а сколько там записей в регистре получается.

(54) Да без разницы. Посмотри картинку в (34), ток смотри неупади. Нетленка зачетная. Прям как серпом по яй***.

(52) Нечем.
Несколько раз прерывали в рабочей базе, каждый раз снова. Вот и сделал, чтобы писались и нулевые цены.

(34) Вольные художники никогда не переведутся, значит не умрем с голоду!

(57) Не исключено, что автор нетленки глубоко раскаялся и перестал писать такие вещи )))

(58) Ну ты хоть понял в чем твоя ошибка? Автор нетленки нас неинтересует.

(59) нет, не понял. Подскажи.

(55) Ну картинку я видел, прикольно.
Кстати а там хотя бы на реквизите Товар флажок отбор движений стоит, может поможет.

(61) Нет, флажок чист. Этот реквизит не используется.

(60) Сначала запросом по регистру выбираешь данные. Дальше при обходе результата запроса пишешь в справочник. Быстрей всего прямым запросом, но можно и 1Совским попробовать.

(62) Как это не используется, если по нему фильтр накладывается

Рег.SetFilterValue("Товар",Тов, 1);

(63) +1. Тем более обработка разовая.

(63) Хороший совет. Я сначала так и делал и получал пустой запрос. А чтобы иметь документ движения, к которому привязана цена, то и запрос надо с 01.01.01 по сегодня запускать, при этом память падает и 1С вываливается. Цена хранится не в ресурсе, а в реквизите.

(64) Не туда глянул. Да, в свойствах Товара стоит отбор движений. Я смотрел на измерение "Т"

(66) Ну и в чем проблема? Запрос в цикле с условиями или запрос по документам. Ну или дописать в модуль документа строку с записью цены в справочник и перепровести нужные документы. Ну или средствами скуля сделать запрос с записью в какую-то табличку, из которой потом брать и записывать в справочник (можно и напрямую в справочник если есть достаточные знания скуля и структуры 1С).
Надоело перечислять. Думаю и так есть из чего выбирать.

(67) Нет. Я уже всё сделал. Спасибо.
Заполнил справочник цен на дату. Потом документ назначениеЦен перенес в 8-ку, история вроде перенеслась.