Медленная переброска номенклатуры.

"Уважаемый ALL!<br><br>Вознокла проблема, перебраски номенклатуры из БЭСТ-ПРО в 1С Педприятие (Торговля +Склад версия 9.2). Написал обработку по созданию новой карточки в справочнике номенклатура. Процесс переброски 34000 записе занял 1ч. 45 мин. Такая скорость подходит. А когда добал ко всему этому еще и 4 цены то процесс затянулся более чем на 10 часов. ( А это никуда не годится.<br><br>Как можно сделать добавление цен более быстрым.<br><br><br><br>Далее представлен кос самой процедуры:<br><br><br><br>Процедура ДобавитьНом(арт,наим,полн,сгтд,сстр, отдел,еи,ц0,ц1,ц2,ц3); <br><br>//ДобавитьНом(наим, пнаим, арт, страна, сертификат, нгтд, гигсер, сербэст, оргсер, аос, регном, срокдейтв);<br><br><br><br>if (ном.НайтиПоКоду(арт,)=0) and (номрод.Найтипокоду(отдел,)=1) then<br><br> ном.Новый();<br><br>//******************************************************************************<br><br> ном.Родитель= номрод.ТекущийЭлемент();<br><br> ном.Код=арт;<br><br> ном.артикул=арт;<br><br> ном.наименование= наим;<br><br> Ном.ПолнНаименование = полн;<br><br>// Обработка ГТД            <br><br>if сгтд <>'' then <br><br> if гтд.НайтиПоНаименованию(сгтд,,)=1 тогда<br><br> Ном.НомерГТД=гтд.ТекущийЭлемент()<br><br> else                              <br><br> гтд.Новый();<br><br> гтд.Наименование=сгтд;<br><br> гтд.Комментарий=сгтд;<br><br> гтд.Записать();<br><br> гтд.НайтиПоНаименованию(сгтд,,);<br><br> Ном.НомерГТД=гтд.ТекущийЭлемент();<br><br>endif;<br><br>endif;<br><br>// завершение обработки ГТД<br><br><br><br>// Страна происхождения<br><br>if сстр <>"""" then<br><br>if Оксм.НайтиПоНаименованию(сстр,,)=1 тогда<br><br> Ном.СтранаПроисхождения=Оксм.ТекущийЭлемент()<br><br> else                              <br><br> оксм.Новый();<br><br>// оксм.Код=кодстр;<br><br> оксм.Наименование=сстр;<br><br> оксм.Записать();<br><br> оксм.НайтиПоНаименованию(сстр,,);<br><br> Ном.СтранаПроисхождения=Оксм.ТекущийЭлемент();<br><br>endif;<br><br><br><br>endif;<br><br>// завершение обработки СтранаПроисхождения<br><br><br><br>ном.Записать();<br><br><br><br><br><br>//Базовая ЕИ<br><br>if (еи<>"""") and (Океи.НайтиПоНаименованию(еи,,)=1) then <br><br>// Сообщить(еи+"|"+Океи.код ,"i");<br><br> ЕдНом.Новый();<br><br> ЕдНом.Владелец=Ном.ТекущийЭлемент();<br><br> Едном.Океи=Океи.ТекущийЭлемент();<br><br> ЕдНом.Коэффициент=1;<br><br> Едном.Записать();<br><br>endif; <br><br> ном.БазоваяЕдиница=Едном.ТекущийЭлемент();<br><br> Ном.записать();<br><br> <br><br>//цена0<br><br> цена.Новый();<br><br> цена.Владелец=Ном.ТекущийЭлемент();<br><br> цена.валюта = рубль;<br><br> цена.процент = 0;<br><br> цена.ТипЦен = тц0;<br><br> цена.Записать();<br><br> цена.Единица.Установить(ТекущаяДата(),ном.БазоваяЕдиница);<br><br> Цена.цена.Установить(ТекущаяДата(),ц0);                  <br><br> цена.Записать();<br><br>//цена1<br><br> цена.Новый();<br><br> цена.Владелец=Ном.ТекущийЭлемент();<br><br> цена.валюта = рубль;<br><br> цена.процент = 0;<br><br> цена.ТипЦен = тц1;<br><br> цена.Записать();<br><br> цена.Единица.Установить(ТекущаяДата(),ном.БазоваяЕдиница);<br><br> Цена.цена.Установить(ТекущаяДата(),ц1);                  <br><br> цена.Записать();<br><br>//цена2<br><br> цена.Новый();<br><br> цена.Владелец=Ном.ТекущийЭлемент();<br><br> цена.валюта = рубль;<br><br> цена.процент = 0;<br><br> цена.ТипЦен = тц2;<br><br> цена.Записать();<br><br> цена.Единица.Установить(ТекущаяДата(),ном.БазоваяЕдиница);<br><br> Цена.цена.Установить(ТекущаяДата(),ц2);                  <br><br> цена.Записать();<br><br>//цена3<br><br> цена.Новый();<br><br> цена.Владелец=Ном.ТекущийЭлемент();<br><br> цена.валюта = рубль;<br><br> цена.процент = 0;<br><br> цена.ТипЦен = тц3;<br><br> цена.Записать();<br><br> цена.Единица.Установить(ТекущаяДата(),ном.БазоваяЕдиница);<br><br> Цена.цена.Установить(ТекущаяДата(),ц3);                  <br><br> цена.Записать();<br><br><br><br>endif;<br><br><br><br>КонецПроцедуры<br><br><br><br>Буду очень благодарен за любые мысли и предложения по этомк поводу."

Поставить процесс работы со справочникам в транзакцию:<br><br>НачатьТранзакцию()<br><br>..........<br><br>ЗафиксироватьТранзакцию()

"Как правильно использоватьтранзакции:<br><br> -Вставить НачатьТранзакцию() В начало процедуры , а ЗафиксироватьТранзакцию() в конце;<br><br>или <br><br>Обработку каждого справочника заключить в<br><br>НачатьТранзакцию() <br><br>.......... <br><br>ЗафиксироватьТранзакцию() <br><br>Как правильно?<br><br>"

Всё, разобрался. Спасибо за идею. Скорость замечательная, жду завершения обработки.

Рад, что у вас усе получилось