8.х ОБМЕН Подключение ИБ через COM-Объект и получение данных

Тема в разделе "Обмен данными в "1С:Предприятие 8"", создана пользователем Pol, 21 мар 2013.

0/5, Голосов: 0
  1. TopicStarter Overlay
    Pol
    Offline

    Pol Опытный в 1С

    Регистрация:
    23 июн 2011
    Сообщения:
    84
    Симпатии:
    1
    Баллы:
    26
    Доброго времени суток. Прошу вашего мудрого совета. Задача следующая. Нужно подключится программно к другой базе 1с и вытащит данные по себестоимости товара.

    Решил данную задачу лишь на половину. Подключился к базе но вот вытащить данные не удалось а точнее удалось вытащить только примитивные типы данных (число, строка, булево) но этого явно не достаточно. Ниже опишу код который использовал.

    Код:
    //Подключение к другой базе 1с /////////////////////////////////////////////////////////////////////

V8 = Новый COMОбъект("V82.COMConnector");
Попытка
Base_COM = V8.Connect("Usr="""+ИмяПользователя+""";Pwd="""+Пароль+""";File="""+ ПутьКБазе +"""");
Исключение
Предупреждение ("Ошибка открытия информационной базы");
КонецПопытки;
/////////////////////////////////////////////////////////////////////////////////////////////////////
    Подключается к базе без проблем. Вот дальше нужно запросом вытащить данные из регистра бухгалтерии.
    Для этого пишу следующий код.

    Код:
    Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Base_COM.ТиповойОстатки.Счет,
| Base_COM.ТиповойОстатки.Субконто1,
| Base_COM.ТиповойОстатки.СуммаОстаток
|ИЗ
| Base_COM.РегистрБухгалтерии.Типовой.Остатки(&Дата, , , ) КАК ТиповойОстатки
|ГДЕ
| Base_COM.ТиповойОстатки.Счет = &Счет";
Запрос.УстановитьПараметр("Дата",Дата);
Запрос.УстановитьПараметр("Счет",Счет);
Результат = Запрос.Выполнить().Выгрузить();
    Этот код не работает выдает ошибку. Ок пишу другой код.

    Код:
    Регистр = Base_COM.РегистрыБухгалтерии.Типовой;
Отбор = Новый Структура("Субконто1,Организация,Счет",Номенклатура,Организация,Счет);
ВыборкаЗаписей = Регистр.Остатки(Дата,ВидСубконто,Отбор);
    ..
    Аналогично код не работает.

    Проблема состоит в том как я понял что Com-Объект как бы не понимает ссылочный тип данных которой я от него хочу получить. И скорее всего я неправильно хочу получить эти данные.
    Вообщем уважаемые форумчане если кто знает как через COM-Объект из регистра бухгалтерии вытащить себестоимость товара то будте так добры отписаться заранее спасибо.
    Pol, 21 мар 2013
    #1
  2. n.s.gnedash
    Offline

    n.s.gnedash Опытный в 1С Команда форума

    Регистрация:
    15 авг 2010
    Сообщения:
    1.383
    Симпатии:
    6
    Баллы:
    29
    Преобразуй все в строку, ком только строку понимает, или же подключайся из ИСТОЧНИКА в ПРИЕМНИК тогда все типы будут как типы, при записи в приемник будешь преобразовывать их
    n.s.gnedash, 21 мар 2013
    #2
  3. nickpugachev
    Offline

    nickpugachev Профессионал в 1С Команда форума

    Регистрация:
    28 май 2012
    Сообщения:
    3.397
    Симпатии:
    156
    Баллы:
    104
    можно так
    Код:
    Запрос = Base_COM.NewObject("Запрос");
Запрос.Текст = "ВЫБРАТЬ
| ТиповойОстатки.Счет,
| ТиповойОстатки.Субконто1,
| ТиповойОстатки.СуммаОстаток
|ИЗ
| РегистрБухгалтерии.Типовой.Остатки(&Дата, , , ) КАК ТиповойОстатки
|ГДЕ
| ТиповойОстатки.Счет.Код = &Счет";
Запрос.УстановитьПараметр("Дата",Дата);
Запрос.УстановитьПараметр("Счет",Счет.Код);
Результат = Запрос.Выполнить().Выгрузить();
    объекты, передаваемые в базу через коннектор должны быть созданы в той базе, структуры и запросы через коннектор не передаются, так же как не передаются и ссылочные типы из текущей базы. если вы получили ссылочный тип из коннектора, его можно передавать в качестве параметров
    nickpugachev, 21 мар 2013
    #3
  4. web.num
    Offline

    web.num Опытный в 1С Команда форума

    Регистрация:
    6 окт 2011
    Сообщения:
    941
    Симпатии:
    6
    Баллы:
    29
    Вот тебе пример. Выше было сказано верно ИСТОЧНИК и ПРИЕМНИК. Этот код в приемнике:
    Код:
     COMConnector = Новый COMObject("V82.COMConnector");
Попытка

V8 = COMConnector.Connect( "Srvr="+"СЕРВЕР ИСТОЧНИКА"+
";Ref="+"TEMP_BASE_ANY"+
";Usr="+"""ВАСЯ ИВАНОВ"""+";Pwd="+"pfobnf;");

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

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

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

Если НЕ РезультатV8.Пустой() Тогда

ВыборкаV8 = РезультатV8.Выбрать();

ЭлементыФормы.ИндикаторПрогресса.МаксимальноеЗначение = ВыборкаV8.Count();
ЭлементыФормы.ИндикаторПрогресса.МинимальноеЗначение  = 0;

ИндикаторПрогресса = 0;

Пока ВыборкаV8.Следующий() Цикл

ТекущийДокумент   = ВыборкаV8.Ref;
Партия	  = ВыборкаV8.НеИспользоватьПартию;
фВозврат	 = ВыборкаV8.ЭтоВозврат;
ИДТекущийДокумент = Новый УникальныйИдентификатор(V8.String(ВыборкаV8.Ссылка.Ref.УникальныйИдентификатор()));

ДокументДляИсправления   = Документы.ПоступлениеТоваровУслуг.ПолучитьСсылку(ИДТекущийДокумент);

Если НЕ ДокументДляИсправления = Документы.ПоступлениеТоваровУслуг.ПустаяСсылка() Тогда

ОбъектДокумент = ДокументДляИсправления.ПолучитьОбъект();

Если НЕ ОбъектДокумент = Неопределено Тогда

ОбъектДокумент.ОбменДанными.Загрузка= Истина;

ОбъектДокумент.НеИспользоватьПартию = Партия;
ОбъектДокумент.ЭтоВозврат   = фВозврат;

ОбработкаПрерыванияПользователя();
ОбъектДокумент.Записать();
КонецЕсли;

КонецЕсли;

ИндикаторПрогресса = ИндикаторПрогресса + 1;

КонецЦикла;

КонецЕсли;

Исключение
Сообщить(""+ ОписаниеОшибки());
КонецПопытки;
    А это что бы отключиться:
    Код:
     V8		   = Неопределено;
COMConnector = Неопределено;
    web.num, 21 мар 2013
    #4
  5. TopicStarter Overlay
    Pol
    Offline

    Pol Опытный в 1С

    Регистрация:
    23 июн 2011
    Сообщения:
    84
    Симпатии:
    1
    Баллы:
    26
    Спасибо за ответ я вам очень благодарен. Вы мне очень помогли. Так же хочу поблагодарить Web.num и n.s. gnedash
    Pol, 21 мар 2013
    #5
  6. n.s.gnedash
    Offline

    n.s.gnedash Опытный в 1С Команда форума

    Регистрация:
    15 авг 2010
    Сообщения:
    1.383
    Симпатии:
    6
    Баллы:
    29
    параметр счета лучше задавай в ВТ ( в скобочках где и дата)
    n.s.gnedash, 21 мар 2013
    #6
Похожие темы
  1. Stack_G

    8.х Подключение к 1С через COM

    Stack_G, 6 ноя 2009, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    6
    Просмотров:
    5.179
    Stack_G
    6 ноя 2009
  2. solnce

    7.7 Получение данных документа через счет

    solnce, 15 фев 2010, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    1
    Просмотров:
    777
    dianofob
    15 фев 2010
  3. Bobre

    8.х ОБМЕН Получение данных через COM

    Bobre, 26 сен 2011, в разделе: Обмен данными в "1С:Предприятие 8"
    Ответов:
    1
    Просмотров:
    1.179
    comol
    26 сен 2011
  4. Oxion

    7.7 Получение отчета из 1С 7.7 через веб

    Oxion, 2 авг 2012, в разделе: Общие вопросы "1С:Предприятие 7.7"
    Ответов:
    2
    Просмотров:
    1.099
    makfromkz
    2 сен 2012
  5. Александр 1906

    8.х ОБМЕН получение данных через виртуальный ком порт

    Александр 1906, 11 июл 2016, в разделе: Обмен данными в "1С:Предприятие 8"
    Ответов:
    6
    Просмотров:
    1.555
    nomad_irk
    11 июл 2016
Загрузка...