Запуск процедур 1С из Access |
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 ("Подключился")
If [Статус] <> "Предварительная заявка" Then Set Ydogs = CurrentDb.OpenRecordset("select * from GP where [ДоговорПолный]='Y123'", dbOpenDynaset) Rez = Connect.ДоработкиКлиентСервер.СоздатьРеализацию("" & Ydogs![ИД] & "", 0, "" & Ydogs![ДоговорПолный] & "") // урезал код, т.к. просто передается список данных. MsgBox "Успешно." End If
http://www.sql.ru/forum/1196011/zapusk-procedur-1s-iz-access
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |