-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Запуск процедур 1С из Access

Вторник, 19 Января 2016 г. 06:44 + в цитатник
Доброе утро, ребят
Сложно угадать: относится ли эта тема к 1С или к Аксесс. Т.к. я думаю, что ошибся где-то в Аксесс, напишу сюда.

Задача состоит в том, чтобы подключиться к 1С серверным способом и из аксесс вызвать процедуру в 1С с передачей в нее данных.

Я создал базу в 1С, как полагается (я так думаю) :)
При запуске аксесс происходит подключение к Базе в 1С: (ниже код)
Public v8 As Object
Public Connect As Object
Set v8 = CreateObject("V83.COMConnector")
Set Connect = v8.Connect("Srvr=""server"";Ref=""1C-2016"";Usr=""Автозагрузка"";Pwd=""******""")
MsgBox ("Подключился")


То, что соединение есть свидетельствует запись в 1Сv8 servers, что есть СОМ-соединение.

Далее в аксесс вызываю
If [Статус] <> "Предварительная заявка" Then
   Set Ydogs = CurrentDb.OpenRecordset("select * from GP where [ДоговорПолный]='Y123'", dbOpenDynaset)
   Rez = Connect.ДоработкиКлиентСервер.СоздатьРеализацию("" & Ydogs![ИД] & "", 0, "" & Ydogs![ДоговорПолный] & "") // урезал код, т.к. просто передается список данных.
   MsgBox "Успешно."
End If


В 1С стоит "останова" (см. вложение) и при вызове данной процедуры был бы стоп... но его не происходит, просто выходит сообщение в аксесс "Успешно".

Подскажите пжлст, где я недоглядел чего. Спасибо.

http://www.sql.ru/forum/1196011/zapusk-procedur-1s-iz-access


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку