Добрый день!

Не могу разобраться с методом RecconectNative().
Хочу побороть замедление проведения документов как описано в:
http://www.1cpp.ru/forum/YaBB.pl?num=1148038411.

При проведении документов при первом же выполнении метода RecconectNative() падает 1С и вываливает ошибку:
"Инструкция по адресу "0х00640162" обратилась к памяти по адресу "0х056е0165". Память не может быть "written".

Если же не проводить документы, а просто периодически выполнять метод RecconectNative() 1С работает нормально и никаких ошибок не вылетает.

      DataBase = СоздатьОбъект("ODBCDatabase");
     DataBase.Attach1C();
       ...
      ОсталосьВСеансе = Константа.КоличествоДокументовДляСлПроведения;
     Док = СоздатьОбъект("Документ");
     ТЗ.ВыбратьСтроки();
     Пока ТЗ.ПолучитьСтроку() = 1 Цикл
           Док.НайтиДокумент(ТЗ.Док);
           Док.Провести();
           ОсталосьВСеансе = ОсталосьВСеансе - 1;
           Если ОсталосьВСеансе = 0 Тогда
                 Сообщить("===== Реконнект ======");
                 DataBase.ReconnectNative();
                 ОсталосьВСеансе = Константа.КоличествоДокументовДляСлПроведения;
           КонецЕсли;
     КонецЦикла;

Поиск по слову ReconnectNative и изучение документации должны помочь.
Здесь есть успешные результаты использования, так что все получится.

Заново создавай ссылку на объект типа Документ после реконнекта...

.
.
.
   Док=0;
   Сообщить("===== Реконнект ======");
   DataBase.ReconnectNative();
   Док = СоздатьОбъект("Документ");
.
.
.
 

varelchik писал(а) 28. Августа 2008 :: 08:18:

Ты написал именно это, а вот у автора этого нет. Ну и не только форм списков, но и открытух курсоров вообще (т.е. выборок из справочников и документов.)

                         База = СоздатьОбъект("ODBCDatabase");
     Если (МонопольныйРежим() > 0) Тогда    
           НачДата1 = Последовательность.Восстановление.ПолучитьДату();
           Пока НачДата1<= ТекущаяДата() Цикл
                 УстановитьТАна(НачДата1);
                 дкДок = "";
                 База.ReconnectNative();
                 дкДок = СоздатьОбъект("Документ");
                 Запрос=СоздатьОбъект("ODBCRecordset");
                 Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата1);
                 Запрос.УстановитьТекстовыйПараметр("КонДата",НачДата1);
                 ТЗ=Запрос.ВыполнитьИнструкцию("
                 |select
                 | iddoc [Документ $Документ],
                 | iddocdef Документ_вид
                 |from _1sjourn j (nolock)
                 |where j.date_time_iddoc between :НачДата and :КонДата~
                 | and (J.CLOSED & 1 = 1)
                 |order by j.date_time_iddoc
                 |");
                 ТЗ.ВыбратьСтроки();
                 Пока ТЗ.ПолучитьСтроку()=1 Цикл
                       дкДок.НайтиДокумент(ТЗ.Документ);
                       Если      дкДок.Провести(2) > 0 Тогда
                             ПозицияДокумента = СформироватьПозициюДокумента(дкДок, 1);      
                             
                             Если Последовательность.Восстановление.ПринадлежитПоследовательности(дкДок.Вид()) = 1 Тогда
                                   Последовательность.Восстановление.Установить(ПозицияДокумента);      
                             КонецЕсли;
                       Иначе          
                             Сообщить("Не удалось восстановить последовательность"+ дкДок);
                             Возврат ;
                       КонецЕсли;      
                 КонецЦикла; 
                 НачДата1 = НачДата1 + 1;
           КонецЦикла;
           дкДок = ""; 
           СтараяПозицияТА = ПолучитьПозициюТА();
           Если  Дата(СтараяПозицияТА)<Дата(Константа.ДатаВосстановленияПоследовательности) Тогда
                 УстановитьТАна(Константа.ДатаВосстановленияПоследовательности) ;
           КонецЕсли;
           Форма.Обновить();
     КонецЕсли;