Доброе утро, ребят
Сложно угадать: относится ли эта тема к 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С стоит "останова" (см. вложение) и при вызове данной процедуры был бы стоп... но его не происходит, просто выходит сообщение в аксесс "Успешно".
Подскажите пжлст, где я недоглядел чего. Спасибо.