Добрый день!
Прошу помощи!
Надо подключится из 1С 8.2 к другой базе 8.2 и перенести оттуда документ. Вот код:

trade = Новый COMобъект("V82.Application");
Попытка
trade.Connect("File=""Z:\Бух_Регион"";Usr=""User"";Pwd=""par"";");
сообщить("Получилось");
Исключение
сообщить("база не открыта");
Возврат;
КонецПопытки;

ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры ;
ДокументУстановка.НайтиПоНомеру("00000000001",НачалоДня("01.08.2011"),КонецДня("01.08.2011"));

Подключение проходит успешно, а вот на последней строке программа виснет ..... в чем может быть проблема?

Zerro,
Отладчик ничего не пишет, просто висит на этом месте

Zerro,
Пробовала, вообще без дат, и просто ДокументУстановка.ВыбратьДокументы(), результат такой же, ошибку никакую не выдает, просто висит ...

ZerroLana_SVZerro,
Отладчик ничего не пишет, просто висит на этом месте
остановись перед этой строкой и в отладчике эту команду выполни. Дату одну сделали? дата должна быт ьв периоде нумерации документа и все.
Ну и у себя глянул да
Сом = Новый COMОбъект("V82.COMConnector");

Заменила
строку Сом = Новый COMОбъект("V82.Application")
на:
Сом = Новый COMОбъект("V82.COMConnector")
Теперь ругается в строке:
ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры ;

{Форма.Форма.Форма(51)}: Поле объекта не обнаружено (Документы)
ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры ;

Zerro trade = Новый COMОбъект("V82.COMConnector")
Теперь ругается в строке:
ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры ;

{Форма.Форма.Форма(51)}: Поле объекта не обнаружено (Документы)
ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры

В программе я конечно написала trade= Новый COMОбъект("V82.COMConnector"), это в форуме ошиблась

Zerro,
В общем пока получилось вот так:

trade = Новый COMобъект("V82.Application");
Попытка
trade.Connect("File=""Z:\Бух_Регион"";Usr=""User"";Pwd=""par"";");
сообщить("Получилось");
Исключение
сообщить("база не открыта");
Возврат;
КонецПопытки;

ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры ;
Если ДокументУстановка.НайтиПономеру("1") = Неопределено Тогда
Возврат;
КонецЕсли;
ДокументУстановка.ВыбратьСтроки();

Ругается на ДокументУстановка.ВыбратьСтроки(), говорит метод объекта не обнаружен, оно и понятно, команда из 1С 7.7, подскажите как считать информацию из документа построчно?

pailLana_SV,

неправильный код подключения. Два разных объекта требуется использовать - один для подключения, другой для работы:

db = Новый COMобъект("V82.ComConnector");
Попытка
trade = db.Connect("File=""Z:\Бух_Регион"";Usr=""User"";Pwd=""par"";");
сообщить("Получилось");
Исключение
сообщить("база не открыта");
Возврат;
КонецПопытки;

ДокументУстановка = trade.Документы.УстановкаЦенНоменклатуры ;

Поняла, исправила код, заработало! Только остался актуальным вопрос о том как считать документ построчно?

Zerro, pail,
Поняла! Большое спасибо за ликбез!!!

pail,

Требуется только считать данные. Т.е. перенести документ из подключаемой базы. Наверно в таком случае будет правильно пользоваться запросом
Пишу так:

db = Новый COMобъект("V82.COMConnector");
//tade = Новый COMобъект("V82.Application");
Попытка
trade = db.Connect("File=""Z:\Бух_"";Usr=""User"";Pwd=""par"";");
сообщить("Получилось");
Исключение
сообщить("база не открыта");
Возврат;
КонецПопытки;

Запрос = trade.NewObject("Запрос");
Запрос.Текст =
"ВЫБРАТЬ
| УстановкаЦен.ТипЦен,
| УстановкаЦен.Номенклатура,
| УстановкаЦен.Цена,
| УстановкаЦен.Валюта,
|ИЗ
| Документы.УстановкаЦенНоменклатуры КАК УстановкаЦен
|ГДЕ
| УстановкаЦен.Дата = Дат";

Результат = Запрос.Выполнить();
и получаю ошибку
{Форма.Форма.Форма(71)}: Ошибка при вызове метода контекста (Выполнить)
Результат = Запрос.Выполнить();
по причине:
Произошла исключительная ситуация: {(6, 1)}: Синтаксическая ошибка "ИЗ"
<<?>>ИЗ

Zerro,
Исправила! Теперь другая напасть )))

{Форма.Форма.Форма(55)}: Ошибка при вызове метода контекста (Выполнить)
Результат = Запрос.Выполнить().Выбрать();
по причине:
Произошла исключительная ситуация: {(7, 2)}: Таблица не найдена "Документы.УстановкаЦенНоменклатуры"
<<?>>Документы.УстановкаЦенНоменклатуры КАК УстановкаЦен

Zerro,
исправила, дописала, остался последний рывок ..... помогите пожалуйста ..... сроки поджимают (((

Дат="01.08.2011";
Запрос = trade.NewObject("Запрос");
Запрос.Текст =
"ВЫБРАТЬ
| УстановкаЦен.ТипЦен,
| УстановкаЦен.Товары.Номенклатура,
| УстановкаЦен.Товары.Цена,
| УстановкаЦен.Товары.Валюта
|ИЗ
| Документ.УстановкаЦенНоменклатуры КАК УстановкаЦен
|ГДЕ
| УстановкаЦен.Дата = ""01.08.2011""";

Результат = Запрос.Выполнить().Выгрузить();

НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
НовыйДокумент.Дата = Дат;
НовыйДокумент.ТипЦен = Результат.ТипЦен;

Для каждого строка из Результат Цикл
СтрокаДокумента = НовыйДокумент.Товары.Добавить();
СтрокаДокумента.Номенклатура = строка.Номенклатура;
СтрокаДокумента.Цена = строка.Цена;
СтрокаДокумента.Валюта = строка.Валюта;
КонецЦикла;
НовыйДокумент.Записать();

Ругается на строку НовыйДокумент.ТипЦен = Результат.ТипЦен;

Zerro,
говорит
{Форма.Форма.Форма(59)}: Поле объекта не обнаружено (ТипЦен)
НовыйДокумент.ТипЦен = Результат.ТипЦен;

Zerroнельзя так.. в оле возвращаются тока числа и строки
Олетип=Типцен.код;
Навовый= Справочнк.типцен.найтипокоду(ОлеТИп);
Обьекты не передаются. но смотри -совпадают у тебя коды? или но названию синхранизируй

Да, поняла, совсем забыла, что это ссылка на справочник ....
Исправила:
НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
НовыйДокумент.Дата = Дат;
Справочник= Справочник.ТипыЦенНоменклатуры.найтипокоду(Результат.ТипЦен.Код);
НовыйДокумент.ТипЦен = Справочник;

Ругается на Результат.ТипЦен.Код Как вытащить это значение из запроса?

Zerro,pail
Огромное Спасибо! Поняла в чем ошибка, в результат запроса ни один документ не попадал .... сейчас заработало!!

А можно еще вопрос?
Процедура правильно работает в случае с одним документом... а если документов несколько? Как правильно написать запрос, и как правильно потом достать результаты?
"ВЫБРАТЬ
| УстановкаЦен.Номер как Номер,
| УстановкаЦен.Дата как Дата,
| УстановкаЦен.ТипЦен.Код как ТипЦен,
| УстановкаЦен.Товары.Номенклатура.Наименование как Номенклатура,
| УстановкаЦен.Товары.Цена как Цена,
| УстановкаЦен.Товары.Валюта.Наименование как Валюта
|ИЗ
| Документ.УстановкаЦенНоменклатуры КАК УстановкаЦен
| СГРУППИРОВАТЬ ПО
| УстановкаЦен.Номер,
| УстановкаЦен.Товары.Номенклатура";

Если делаю так, выгружаю, то не совсем понятно как создать несколько документов в новой базе?

pail,
Спасибо! Все получилось! Выкладываю код, вдруг таким же новичкам как я пригодится )))

Запрос = trade.NewObject("Запрос");
Запрос.Текст =
"ВЫБРАТЬ
| УстановкаЦен.Номер как Номер,
| УстановкаЦен.Дата как Дата,
| УстановкаЦен.ТипЦен.Код как ТипЦен,
| УстановкаЦен.Товары.(Номенклатура.Наименование как Номенклатура,
| Цена как Цена,
| Валюта.Наименование как Валюта) КАК Товары
|ИЗ
| Документ.УстановкаЦенНоменклатуры КАК УстановкаЦен";



Результат = Запрос.Выполнить().Выгрузить();
Для каждого стр из Результат Цикл
НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
НовыйДокумент.Дата = стр.Дата;
НовыйДокумент.Номер = стр.Номер;
СпрТипЦен= Справочники.ТипыЦенНоменклатуры.найтипокоду(стр.ТипЦен);
Если СпрТипЦен <> Неопределено Тогда
НовыйДокумент.ТипЦен = СпрТипЦен;
Иначе
сообщить("Не найден тип цен "+стр.типцен);
КонецЕсли;
Для каждого строка из стр.Товары Цикл
СтрокаДокумента = НовыйДокумент.Товары.Добавить();
СпрНом = Справочники.Номенклатура.НайтиПоНаименованию(строка.Номенклатура);
Если СпрНом <> Неопределено Тогда
СтрокаДокумента.Номенклатура = СпрНом;
Иначе
сообщить("Не найдена номенклатура для "+строка.Номенклатура);
КонецЕсли;
СтрокаДокумента.Цена = строка.Цена;
СпрВал = Справочники.Валюты.НайтиПоНаименованию(строка.Валюта);
Если СпрВал <> Неопределено Тогда
СтрокаДокумента.Валюта = СпрВал;
Иначе
сообщить("Не найдена номенклатура для "+строка.Валюта);
КонецЕсли;
КонецЦикла;
НовыйДокумент.Записать();
КонецЦикла;