Сабж. Надо подгрузить из экселя один реквизит в мульон договоров БП20.

Запрос

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

Только не запрос в цикле :)

(3) А НайтиПоРеквизиту - это как раз оно. Так что при всем богатстве выбора запросу альтернативы нет.

(0) а что быстрее: установить отбор использовать() или установить параметр в динамическом списке? :)

&НаСервере
Процедура ЗагрузитьКодыМакономиНаСервере(КаталогИБ)
   ИмяФайла=КаталогИБ+"\..\..\..\romix_test1.txt";
   fso=Новый COMОбъект("Scripting.FileSystemObject");
   file=fso.OpenTextFile(ИмяФайла, 1, 0, 0); //Открываем файл в режиме "только чтение"
   Запрос = Новый Запрос;
   ЗАпрос.Текст = "ВЫБРАТЬ
                  |    ДоговорыКонтрагентов.Ссылка
                  |ИЗ
                  |    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
                  |ГДЕ
                  |    ДоговорыКонтрагентов.Владелец.ВнешнийКод = &ВнКод
                  |    И ДоговорыКонтрагентов.Наименование = &Имя";
   стр=file.ReadLine(); ВнешнийКод ="";Договор="";КодМакономи="";
   Пока file.AtEndOfStream=0 Цикл
     стр=file.ReadLine();
     Поз = найти(Стр,";");
     Если Поз >1 Тогда
         ВнешнийКод = СокрЛП(Лев(Стр,Поз-1));
     Иначе
         Продолжить;
     КонецЕсли;
     ОстатокСтр = Сред(Стр,Поз+1);
     Поз = найти(ОстатокСтр,";");
     Если Поз >1 Тогда                          
         Договор = СокрЛП(Лев(ОстатокСтр,Поз-1));
     Иначе
         Продолжить;
     КонецЕсли;      
     ОстатокСтр = Сред(ОстатокСтр,Поз+1);
     Поз = найти(ОстатокСтр,";");
     Если Поз >1 Тогда
         КодМакономи = СокрЛП(Лев(ОстатокСтр,Поз-1));
     Иначе
         Продолжить;
     КонецЕсли;
     Запрос.УстановитьПараметр("ВнКод",ВнешнийКод);
     Запрос.УстановитьПараметр("Наименование",Договор);
     ТДог = Запрос.Выполнить().Выгрузить();
     Если ТДог.Количество() > 0 Тогда
         оДок = ТДог[0].ссылка.ПолучитьОбъект();
         оДок.КодМакономи = КодМакономи;
         оДок.Записать();
     Иначе
         сКонтрагент = Справочники.Контрагенты.НайтиПоРеквизиту("ВнешнийКод",ВнешнийКод);
       оВлад = Неопределено;
       Если сКонтрагент.Пустая() Тогда
           Продолжить;
       КонецЕсли;
       оДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
       оДоговор.Наименование = Договор;
       оДоговор.Владелец = сКонтрагент;
       оДоговор.КодМакономи = КодМакономи;
       оДоговор.Организация = ЭтаФорма.Организация.Ссылка;
       оДоговор.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить().Ссылка;
       оДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
       оДоговор.Записать();
     КонецЕсли;
     //Сообщить(стр);
   КонецЦикла;
   file.Close();

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

&НаКлиенте
Процедура Вып(Команда)
   ЗагрузитьКодыМакономиНаСервере(НСтр(СтрокаСоединенияИнформационнойБазы(), "File"));
КонецПроцедуры

щаз буду тестировать на 10 записях. а потом на ночь оставлю...

а такое запросом без перебора можно сделать?:)

етить, хотя бы
       оДоговор.Организация = ЭтаФорма.Организация.Ссылка;
       оДоговор.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить().Ссылка;
из цикла вытащи и .ссыка убери tt

точнее второе вытащить, а первое просто точку убрать

(8) .ссыка у меня это привычка :))

Стесняюсь спрсить. А НайтиПоРеквизиту это не запрос?

(0) запрос в 8.1 выполняется за 8 секунд, тот же самый запрос на 8.3 - выполняется минуту :) 8.3 вывод: самая ужасная платформа :)

(7) Сначала все "Договор"(где строковое имя) в таблицу вытащить, а потом 1 запрос

(0)
Найти по реквизиту - вообще штука стремная при больших наборах данных. Лучше уже извращаться с параллельным обходом

(12) Байки.

(15) нет не байки, возьми один документ и выбери у него два реквизита и ссылку, тут же объедини с другим видом документа, выбери те же два реквизита и свою ссылку, потом сгруппируй получившийся результат по двум реквизитам и выведи итог в дерево.

Запрос1

Объединить

Запрос 2

ИТОГИ

через СКД те же 8 секунд, через консоль - минута, может чуть более.

(17) выведи иерархию всю с итогами.

(0) НайтиПоРеквизиту быстрее, если ищешь не в цикле.

Если надо искать в цикле, лучше пиши запрос, который обработает весь свод информации без цикла.

Кокос похоже romix, но почему-то Кокос :)

(20) это я из книги знаний мисты взял код :)

(17) Делать мне больше нечего, повторяя ваши глупые тесты.

Как ни удивительно, но ВалераОшкин сегодня прав, именно в ситуации (19).

(19) <<НайтиПоРеквизиту быстрее, если ищешь не в цикле.

А почему быстрее?

(20) Книга знаний: Пример чтения и записи текстовых файлов (Scripting.FileSystemObject) :)

мне не просто искать нужно. мне еще нужно "если нет то создать" :)

(0) Ставим вопрос по другому: план запроса для НайтиПоРеквизиту и Запрос какой? Операция SEEK быстрее SCAN. А вообще можно мини-конфигурашку сделать, рандомом генерировать 20000-50000 элементов справочника и проверить.

(24) Потому, что НайтиПоРеквизиту это встроенный запрос платформы

(27) = > (6) 500 000 строк :)

(28) Ого. А чем встроенный запрос лучше не встроенного? Почему он быстрее будет искать?

(29) А убрать запрос из цикла нельзя??? Выборка.Сбросить() с Выборка.НайтиСледующий() пошустрее существенно.

Значение уникально?

(31) а с параметрами как быть?:)

(32) уникален ВнешнийКод и ИмяДоговора. Вообще это номер счета. а у них договор = счет.

(30) Сам подумай, все тебе разжевывать надо :)

я просто через КД грузил и он у меня при загрузке всех договоров валился. я поставил договора по ссылке. все загрузил. теперь подгружаю левым способом через текстовик сами договора. молюсь чтобы это все влезло в файловую БП30

(23) Спасибо, я буду гордиться, что сам H A D G E H O G s меня похвалил :0)

Вот Вам почва для размышлений
https://dl.dropbox.com/u/39913355/Снимок.PNG

1. Поиск по реквизиту
2. Запрос по реквизиту
3. Запрос по массиву значений и поиск по единственному
4. Тоже что и 3, но выгрузка в ТЗ, добавление индекса колонке и поиск

(33) Вот так:
&НаСервере
Процедура ЗагрузитьКодыМакономиНаСервере(КаталогИБ)
   ИмяФайла=КаталогИБ+"\..\..\..\romix_test1.txt";
   fso=Новый COMОбъект("Scripting.FileSystemObject");
   file=fso.OpenTextFile(ИмяФайла, 1, 0, 0); //Открываем файл в режиме "только чтение"

   Запрос = Новый Запрос;
   ЗАпрос.Текст = "ВЫБРАТЬ
                  |    ДоговорыКонтрагентов.Ссылка КАК Ссылка,
          |    ДоговорыКонтрагентов.Владелец.ВнешнийКод КАК ВнешнийКод,
                  |    ДоговорыКонтрагентов.Наименование КАК Наименование
                  |ИЗ
                  |    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов";

   ВыборкаДоговоры = Запрос.Выполнить().Выбрать();
   ОтборДоговоры = Новый Структура("ВнешнийКод, Наименование");

   Запрос = Новый Запрос;
   ЗАпрос.Текст = "ВЫБРАТЬ
                  |    Контрагенты.Ссылка,
          |    Контрагенты.ВнешнийКод КАК ВнешнийКод
                  |ИЗ
                  |    Справочник.Контрагенты КАК Контрагенты";
   ВыборкаКонтрагенты = Запрос.Выполнить().Выбрать();
   ОтборКонтрагент = Новый Структура("ВнешнийКод");

   стр=file.ReadLine(); ВнешнийКод ="";Договор="";КодМакономи="";
   Пока file.AtEndOfStream=0 Цикл
     стр=file.ReadLine();
     Поз = найти(Стр,";");
     Если Поз >1 Тогда
         ВнешнийКод = СокрЛП(Лев(Стр,Поз-1));
     Иначе
         Продолжить;
     КонецЕсли;
     ОстатокСтр = Сред(Стр,Поз+1);
     Поз = найти(ОстатокСтр,";");
     Если Поз >1 Тогда                          
         Договор = СокрЛП(Лев(ОстатокСтр,Поз-1));
     Иначе
         Продолжить;
     КонецЕсли;      
     ОстатокСтр = Сред(ОстатокСтр,Поз+1);
     Поз = найти(ОстатокСтр,";");
     Если Поз >1 Тогда
         КодМакономи = СокрЛП(Лев(ОстатокСтр,Поз-1));
     Иначе
         Продолжить;
     КонецЕсли;

     ОтборДоговоры.ВнешнийКод = ВнешнийКод;
     ОтборДоговоры.Наименование = Договор;

     ВыборкаДоговоры.Сбросить();

     Если ВыборкаДоговоры.НайтиСледующий(отборДоговоры) Тогда
         оДок = ВыборкаДоговоры.ссылка.ПолучитьОбъект();
         оДок.КодМакономи = КодМакономи;
         оДок.Записать();
     Иначе

       ВыборкаКонтрагенты.Сбросить();
       ОтборКонтрагент.ВнешнийКод = ВнешнийКод;
       оВлад = Неопределено;

       Если Не ВыборкаКонтрагенты.НайтиСледующий(ОтборКонтрагент) Тогда
           Продолжить;
       Иначе
           сКонтрагент = ВыборкаКонтрагенты.Ссылка;
       КонецЕсли;

       оДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
       оДоговор.Наименование = Договор;
       оДоговор.Владелец = сКонтрагент;
       оДоговор.КодМакономи = КодМакономи;
       оДоговор.Организация = ЭтаФорма.Организация.Ссылка;
       оДоговор.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить().Ссылка;
       оДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
       оДоговор.Записать();
     КонецЕсли;
     //Сообщить(стр);

   КонецЦикла;
   file.Close();

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

&НаКлиенте
Процедура Вып(Команда)
   ЗагрузитьКодыМакономиНаСервере(НСтр(СтрокаСоединенияИнформационнойБазы(), "File"));
КонецПроцедуры

(39) спасибо за урок. Буду теперь всегда так делать. :)

(38) в базе, естественно, никто не работает?

(39) Это столько буков надо написать, чтобы найти по реквизиту? :)

(41) Файловый вариант, никто не работает

(43) А нормальные пацаны про файловый вариант и не знают...

(40)+(39) Это Константы.ВалютаРегламентированногоУчета.Получить().Ссылка
и это
Перечисления.ВидыДоговоровКонтрагентов.СПокупателем
являются скрытыми запросами в цикле (см. замер производительности) - их надо за пределами цикла 1 раз получить и подставлять

       оДоговор.ВалютаВзаиморасчетов = пВалютаВзаиморасчетов;
       оДоговор.ВидДоговора = пВидДоговораСПокупателем;

+(44) ты так не смеши больше с файловым вариантом и производительностью. Ладно?

(46) Расскажи про разницу в относительных измерениях, а я следом выложу скрин клиент-сервер с 20 пользователями онлайн

Подсказка - существенные отличия только в одной цифре - в какой?

(35) Подумал. Не придумал. Разжуй пожалуйста.

в дополнение к (38)
клиент-сервер (32 бита, СУБД MS SQL 2008), 20 пользователей онлайн
https://dl.dropbox.com/u/39913355/Снимок2.PNG

(22) тогда не надо утверждать - "Байки" :)

(40) И ещё, в отличии от (6) (39) не найдет созданные в цикле элементы, поэтому при создании нового договора и контрагента их нужно добавлять в кэш (массив, соответствие) и искать их там дальше по ключу ВнешниКод для контрагент и ВнешнийКод + СимволКоторыйНеМожетПрисутствоватьВДоговорИНаименование+Наименование для договоров. Это позволит избежать задвоения.

(52) ну в данном случае я думаю этого не произойдет. в исходной таблице по определению нет задвоений. А так всё прошло ок. Часа за два загрузилось.

а новые контрагенты не создаются ибо всё подгрузилось через КД. надо было только договора подгрузить.