|
Koliaff
7 - 02.04.2009 - 18:44
|
Подключаемая конфа типовая БП. Запускаю обработку из УТ. Вроде подключается, выводит нужные мне сообщения, а потом висит долго ... ТОлько через несколько ALT + TAB выходишь на предупреждение "Завершить работу программы ?". После нажатия на "Да" или "Нет" УТ отвисает ... Что это такое ? Почему приходится так завершать работу обработки ? Вот код обработки :
Состояние("Инициализация базы");
V8 = Новый COMОбъект("V81.Application");
Попытка
Открыта = V8.Connect("File=" + ПутьКБД + ";"+ "Usr=" + Пользователь + ";" + "Pwd=" +Пароль) ;
Сообщить("ОК");
Исключение
Предупреждение ("Ошибка открытия информационной базы");
Возврат;
КонецПопытки;
ОписаниеТиповСтрока = ОбщегоНазначения.ПолучитьОписаниеТиповСтроки(100);
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Код" , ОписаниеТиповСтрока);
ТЗ.Колонки.Добавить("Наименование" , ОписаниеТиповСтрока);
ТЗ1 = Новый ТаблицаЗначений;
ТЗ1.Колонки.Добавить("Код" , ОписаниеТиповСтрока);
ТЗ1.Колонки.Добавить("Наименование" , ОписаниеТиповСтрока);
Импорт = V8.Справочники["Номенклатура"];
Выборка = Импорт.Выбрать();
Пока Выборка.Следующий() Цикл
СтрокаТЗ = ТЗ.Добавить();
СтрокаТЗ.Код = Выборка.Код;
СтрокаТЗ.Наименование = Выборка.Наименование;
КонецЦикла;
ВыборкаЗдесь = Справочники.Номенклатура.Выбрать();
Пока ВыборкаЗдесь.Следующий() Цикл
СтрокаТЗ = ТЗ1.Добавить();
СтрокаТЗ.Код = Выборка.Код;
СтрокаТЗ.Наименование = Выборка.Наименование;
КонецЦикла;
Сообщить("Количество элементов в УТ "+Строка(ТЗ1.Количество()));
Сообщить("Количество элементов в БП "+Строка(ТЗ.Количество()));
|