R
Renat11111
не выполняются действия в транзакции...... ошибок тоже не выдает. да и правильно вроде бы все
OLE_ОбъектБазы=СоздатьОбъект("V77.Application");
Сообщить("Открытие базы-источника...");
Открыта=OLE_ОбъектБазы.Initialize(OLE_ОбъектБазы.RMTrade, "/d"""+"C:\Автохозяйство\Рарус - Автохозяйство ред. 1.10\AVTODB"
+""""+" /n"+"Ренат"+
" /p"+"111"
,"NO_SPLASH_SHOW");
Если Открыта=0 Тогда
Сообщить("Ошибка открытия базы-источника!");
OLE_ОбъектБазы="";
Возврат;
Иначе
Сообщить("База успешна открыта");
Сообщить(OLE_ОбъектБазы.КаталогИБ());
КонецЕсли;
OLE_Документ=OLE_ОбъектБазы.CreateObject("Документ");
OLE_Документ.ВыбратьДокументы(НачДата, конДата);
НачатьТранзакцию();
Пока OLE_Документ.ПолучитьДокумент()=1 Цикл
Состояние("Выборка документов... "+OLE_Документ.ДатаДок);
OLE_ВидДок=СокрЛП(OLE_Документ.Вид());
Сообщить(OLE_ВидДок);
КонецЦикла;
ЗафиксироватьТранзакцию();
OLE_ОбъектБазы=СоздатьОбъект("V77.Application");
Сообщить("Открытие базы-источника...");
Открыта=OLE_ОбъектБазы.Initialize(OLE_ОбъектБазы.RMTrade, "/d"""+"C:\Автохозяйство\Рарус - Автохозяйство ред. 1.10\AVTODB"
+""""+" /n"+"Ренат"+
" /p"+"111"
,"NO_SPLASH_SHOW");
Если Открыта=0 Тогда
Сообщить("Ошибка открытия базы-источника!");
OLE_ОбъектБазы="";
Возврат;
Иначе
Сообщить("База успешна открыта");
Сообщить(OLE_ОбъектБазы.КаталогИБ());
КонецЕсли;
OLE_Документ=OLE_ОбъектБазы.CreateObject("Документ");
OLE_Документ.ВыбратьДокументы(НачДата, конДата);
НачатьТранзакцию();
Пока OLE_Документ.ПолучитьДокумент()=1 Цикл
Состояние("Выборка документов... "+OLE_Документ.ДатаДок);
OLE_ВидДок=СокрЛП(OLE_Документ.Вид());
Сообщить(OLE_ВидДок);
КонецЦикла;
ЗафиксироватьТранзакцию();