собственно сабжик

база источник 8.2.13
база приемник 8.2.15

http://yandex.ru/yandsearch?rpt=rad&text=1C%208%20Подскажите%20примерчик%20Com-соединения%20с%20базой&lr=213

(0) Иди в поиск

мне не охота искать обработки - может кто сразу скажет - "вот такая например" и даст ссылки

(3) Не охота помогать лентяям...

(4) а я в дьябло 3 всю ночь играл...

(4) лентяй. вон France не поленился

(3) Обработку, которая просто соединяется с базой и ничего при этом не делает - вряд ли кто подскажет, ибо такие обработки мало кому нужны.

Но: судя по тому, что в (0) указаны версии платформы, предположу, что проблема у тебя в несовместимости. Если обе базы на одной машине - с этим Com справиться не сможет.

а где маньяк? у него было что-то по ком-соединениям в открытом доступе

(8) Не знаю, кто тут маньяк :-), но ProgID - один, и ссылается он на конкретную платформу.
Или в чём именно у тебя проблема?

(0)

Состояние("Подключение к базе БУ...");
Если Файловая = 0 Тогда
   СтрокаПодключения = "File=""" + Каталог + """";
Иначе
   СтрокаПодключения = "Srvr=""" + ИмяСервера + """;Ref=""" + ИмяБазы + """";
КонецЕсли;
СтрокаПодключения = СтрокаПодключения + ";Usr = """ + Пользователь + """";
СтрокаПодключения = СтрокаПодключения + ";Pwd = """ + Пароль + """";
СтрокаПодключения = СтрокаПодключения + ";";
Попытка
   БазаПриемник.ЗавершитьРаботуСистемы(Ложь);
   БазаПриемник = Неопределено;
Исключение
КонецПопытки;
Попытка
   Если ПроводитьРеализациюИСоздаватьСчетФактуру
       Или ПроводитьПоступление Тогда
       БазаПриемник = Новый COMОбъект("V82.Application");
       БазаПриемник.Connect(СтрокаПодключения);
   Иначе
       ТекCOMПодключение = Новый COMОбъект("V82.COMConnector");
       БазаПриемник = ТекCOMПодключение.Connect(СтрокаПодключения);
   КонецЕсли;
Исключение
   Если Найти(ОписаниеОшибки(), "Несоответствие версии формата файла информационной базы.") > 0 Тогда
       Попытка
           Если ПроводитьРеализациюИСоздаватьСчетФактуру
               Или ПроводитьПоступление Тогда
               БазаПриемник = Новый COMОбъект("V81.Application");
               БазаПриемник.Connect(СтрокаПодключения);
           Иначе
               ТекCOMПодключение = Новый COMОбъект("V81.COMConnector");
               БазаПриемник = ТекCOMПодключение.Connect(СтрокаПодключения);
           КонецЕсли;
       Исключение
           БазаПриемник = Неопределено;
           Если СообщатьобОшибке Тогда
               Сообщить(ОписаниеОшибки());
           КонецЕсли;
       КонецПопытки;
   Иначе
       БазаПриемник = Неопределено;
       Если СообщатьобОшибке Тогда
           Сообщить(ОписаниеОшибки());
       КонецЕсли;
   КонецЕсли;
КонецПопытки;
   
Если БазаПриемник <> Неопределено Тогда
//...
КонецЕсли;

всем спасибо!
вот, добрый самаритянин какой-то тут дает разъяснения

http://infostart.ru/public/62823/

(9) Маня вроде

ПараметрСоединения = "File="""+ПутьКФайловойБазе+""";Usr="""+Пользователь+""";Pwd="""+Пароль+""";";
   
       V8 =  Новый COMобъект("V82.COMConnector");
   
   Попытка
       V8.Connect(ПараметрСоединения);
   Исключение
       Сообщить("Ошибка при подключении к бухгалтерии! "+ОписаниеОшибки());
       
       Возврат;
   КонецПопытки;    
   
   
   
   Запрос = V8.НовыйОбъект("Запрос");
   Запрос.Текст =
   "ВЫБРАТЬ
   |    ПоступлениеТоваровУслуг.Ссылка
   |ИЗ
   |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг";    
   
   Поступления = Запрос.Выполнить().Выгрузить();
   
   Сообщить(Поступления.Количество());


Ругается на НовыйОбъект.... подскажите как исправить

иногда для OLE нужна англоверсия синтаксиса

{Форма.Форма.Форма(38)}: Метод объекта не обнаружен (NewObject)
   Запрос = V8.NewObject("Запрос");

Вместо

V8 = Новый COMобъект("V82.COMConnector");
V8.Connect(ПараметрСоединения);
Запрос = V8.НовыйОбъект("Запрос");

Нужно писать:

V8Connector = Новый COMобъект("V82.COMConnector");
V8 = V8Connector.Connect(ПараметрСоединения);
Запрос = V8.НовыйОбъект("Запрос");

ПараметрСоединения = "File="""+ПутьКФайловойБазе+""";Usr="""+Пользователь+""";Pwd="""+Пароль+""";";
   V8Connector = Новый COMобъект("V82.COMConnector");
   
   Попытка
       V8 = V8Connector.Connect(ПараметрСоединения);
   Исключение
       Сообщить("Ошибка при подключении к бухгалтерии! "+ОписаниеОшибки());
       
       Возврат;
   КонецПопытки;    
   
   ДокПоступленияТоваровУслуг = V8.Документы.ПоступлениеТоваровУслуг;
   Выборка = ДокПоступленияТоваровУслуг.Выбрать();
   
   Пока Выборка.Следующий() Цикл
       
       Если Выборка.Дата> НачПериода И Выборка.Дата< КонецДня(КонПериода) Тогда
           НовСтр = СписокДокументов.Добавить();
           НовСтр.Дата = Выборка.Дата;
           НовСтр.Номер = Выборка.Номер;
           НовСтр.СуммаДокумента = Выборка.СуммаДокумента;
           НовСтр.СсылкаДокумент = Выборка.Ссылка; //пишет COMОбъект (а хотелось бы документ поступления...)
       КонецЕсли;
       
   КонецЦикла;

вообщем я выкрутился, но мне это не сильно нравиться... в комментарии еще 1 ошибку написал

(17) Ты в поиск пойдешь или нет? Пойми ты спрашиваешь АЗЫ. Их полно на мисте - читай не хочу...

(18) понимаю, в поиск не пойду... тут объясните

апнем)

(19) Ага, щас...
Поменяешь пол и выложишь фотку топлес - тогда подумаем, помогать тебе (лентяю) или нет.

(21) сейчас найдуться добрые самаритяне

12.07.12 - 06:55 -- 16.07.12 - 09:16 За это время уже 100500 книжек на эту тему можно было прочитать и всё сделать самому :)) А ТС всё ждёт готовое решение на блюдечке :)))

а я не писал, что надо запросом?

(24) запросом чето не сработало...

(25) надо еще раз попробовать

(26) {Форма.Форма.Форма(30)}: Метод объекта не обнаружен (НовыйОбъект)
   Запрос = V8.НовыйОбъект("Запрос");

код:

ПараметрСоединения = "File="""+ПутьКФайловойБазе+""";Usr="""+Пользователь+""";Pwd="""+Пароль+""";";
   V8Connector = Новый COMобъект("V82.COMConnector");
   
   Попытка
       V8 = V8Connector.Connect(ПараметрСоединения);
   Исключение
       Сообщить("Ошибка при подключении к бухгалтерии! "+ОписаниеОшибки());
       
       Возврат;
   КонецПопытки;    
   
   
   Запрос = V8.НовыйОбъект("Запрос");
   
   Запрос.Текст =
   "ВЫБРАТЬ
   |    ПоступлениеТоваровУслуг.Ссылка
   |ИЗ
   |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг";    
   
   Поступления = Запрос.Выполнить().Выгрузить();
   
   Сообщить(Поступления.Количество());

Запрос = V8.NewObject("Запрос");

(28) блин, ну зачем?)

(29) Ась?)

(30) автору подумать не даешь, ну кто из него вырастет?

(31) А автору с начала ветки намекаю на "подумать")))
Но до таких вещей, как (28) самому допетрить сложновато... :) Это скорее баг, а не фича...

(31) Из него вырастет МаленькийВопросик…  :0)

сработало.

теперь второй вопрос:

как получить наименование ссылки, а не COMОбъект?

Запрос.Текст =
   "ВЫБРАТЬ
   |    ПоступлениеТоваровУслуг.Ссылка  
   |ИЗ
   |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг";    
   
   Поступления = Запрос.Выполнить().Выгрузить();

//пишет COMОбъект (а хотелось бы документ поступления...)

(33) Нет, из него вырастет БольшаяПроблема...

(35) вот видишь (34) ... молчать надо было

(34) А вот тут я тебе повторю ещё раз - иди в поиск. Ищи, читай, учи. А после приходи с задавай вопросы.

(36) Да ладно, вопрос из (17) так и в (34) остался нерешенным :)

не буду в тему заходить, автор ведь не успокоится, пока ему весь код не напишут, а так и не смешно уже

надо же быть таким ленивым

(39) +100500!

(34)COMОбъект  - это и есть документ поступления.
Делай .ПолучитьОбъект() и насилуй его как хош.

А вообще - ты реально ленивый. Дальше сам копай.

Запрос.Текст =
   "ВЫБРАТЬ
   |    ПоступлениеТоваровУслуг.Ссылка.Представление КАК ДокументПоступления,
   |    ПоступлениеТоваровУслуг.Дата КАК Дата,
   |    ПоступлениеТоваровУслуг.Номер КАК Номер,
   |    ПоступлениеТоваровУслуг.СуммаДокумента КАК СуммаДокумента
   |ИЗ
   |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг";

все надо делать самому!!!

что то не понял - автор на Мисте 2 года.
В личке - ссылки на его публикации в инфостарте.
В то же время спрашивает элементарщину - которую можно в любой обработке по переносу посмотреть , да еще и требует!!! сделать за него. даже усилия не прилагая

(41) я считал себя ленивым - но тут похоже - перебил всех

(42)>> все надо делать самому!!!
Знаешь - даже ЗП самому приходится получать.
А вообще - это такая элементарщина....

(39) Он не ленивый, он - упорный…  :0)
Правда, ежели бы он был столь же упорен в поиске на мисте, давно бы уже решил проблему…
Но, Diblo его побери, ему проще тупо копировать вопрос…  :0)

(42) ведь твои темы перестанут читать, ели будешь такую фигню постить. И когда возникнет по-настоящему важный вопрос, никто и не отзовется.