Доступ к МедКу через объекты
Re: Доступ к МедКу через объекты
Не. Как раз проблема на локальном. Странно.
Re: Доступ к МедКу через объекты
Надо бы подключиться к базе Медка. Кто-нибудь может подсказать, что не так?
- Код | Показать
Re: Доступ к МедКу через объекты
Там dll надо подкинутьInkognito писав:Надо бы подключиться к базе Медка. Кто-нибудь может подсказать, что не так?Не удалось подключиться к базе: {ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(8)}: Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft OLE DB Provider for ODBC Drivers): [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию
- Код | Показать
У меня так подключалось, на примере, другой базы, ну думаю разберетесь.
Код: Виділити все
ФайлЗагрузки = "192.168.1.46/3070:D:\Base\Mybase.fdb";
ФайлДЛЛ = "D:\Base\fbclient.dll"; // Проблемма у Вас с этой dll , он должен быть такой-же как у медка
Соединение = Новый COMОбъект("ADODB.Connection");
Команда = Новый COMОбъект("ADODB.Command");
НаборЗаписей = Новый COMОбъект("ADODB.RecordSet");
Соединение.ConnectionString = "driver=Firebird/InterBase(r) driver; Dialect=3; CHARSET=WIN1251; Uid=SYSDBA;Pwd=masterkey;Dbname="+ФайлЗагрузки + ";client="+ФайлДЛЛ;
Соединение.ConnectionTimeOut = 1200;
Соединение.CursorLocation = 3;
try
Соединение.Open(Соединение.ConnectionString);
//Сообщить("Соединение успешно уставнолено !!!");
except
Сообщить("Невозможно установить соединение с Firebird:
| "+ОписаниеОшибки());
Возврат;
endtry;
Re: Доступ к МедКу через объекты
В каталоге Медка такого файла вообще нет... Скачать для ФБ 2.1 откуда-то нужно, верно?
П.С. у меня действительно установлен отдельно ФБ с незапамятных времен. Тут: C:\Program Files (x86)\Firebird\Firebird_2_1\bin
Попробовал подставить:
П.С. у меня действительно установлен отдельно ФБ с незапамятных времен. Тут: C:\Program Files (x86)\Firebird\Firebird_2_1\bin
Попробовал подставить:
- Код | Показать
- | Показать
- fbembed.dll | Показать
Re: Доступ к МедКу через объекты
Бинго. Скачал отсюда: https://www.firebirdsql.org/en/odbc-driver/
Скачал и установил: Firebird_ODBC_2.0.0.148_x64.exe
Методом научного тыка: ФайлДЛЛ = "C:\Program Files (x86)\Firebird\Firebird_2_1\bin\fbclient.dll";
Соединение установлено успешно
Скачал и установил: Firebird_ODBC_2.0.0.148_x64.exe
Методом научного тыка: ФайлДЛЛ = "C:\Program Files (x86)\Firebird\Firebird_2_1\bin\fbclient.dll";
Соединение установлено успешно
Re: Доступ к МедКу через объекты
Рано радовался. Подключиться и работать можно, только если Медок не запущен. В противном случае выдает: "File Database is not found"
Данными нужно обмениваться в режиме реального времени. Что делать?
Данными нужно обмениваться в режиме реального времени. Что делать?
Re: Доступ к МедКу через объекты
Мёд локальный, только 1 юзверь могёт работать и усё! Походу надо на сетевушку переходить со всеми (1 или 2) вытекающими службами. А может, я ошибаюсь...Inkognito писав:Рано радовался. Подключиться и работать можно, только если Медок не запущен. В противном случае выдает: "File Database is not found"
Данными нужно обмениваться в режиме реального времени. Что делать?
Re: Доступ к МедКу через объекты
А Вы сетевое подключение используете ? (с указанием имени или ip)Inkognito писав:Рано радовался. Подключиться и работать можно, только если Медок не запущен. В противном случае выдает: "File Database is not found"
Данными нужно обмениваться в режиме реального времени. Что делать?
Тут я бы без медка проверил:
Выходии из медка.
Запускаем один экземпляр 1с. Проверяем работу, например циклом бегаем по базе.
Запускаем второй экземпляр 1с. Если подключение происходит и все работает, значит в 1с делаем все правильно.
Re: Доступ к МедКу через объекты
Локальный медок. Имитирую пользователя, который зашел в обе программы, и из 1С должен вызывать код, который читает/записывает данные из Медка (а что делать? Разработчики не хотят дорабатывать методы АПИ, потому придется самому читать/записывать нужное прямым коннектом к базе).
Проверял:
1) Запустил указанный выше код, когда Медок не запущен. Все супер.
2) Запустил локальный Медок, запустил код, - не коннектится.
Проверял:
1) Запустил указанный выше код, когда Медок не запущен. Все супер.
2) Запустил локальный Медок, запустил код, - не коннектится.
Re: Доступ к МедКу через объекты
Проверил на сетевом Медке, все работает корректно (когда в Медке есть пользователь).
А с локальным не хочет работать, если есть зашедший пользователь
А с локальным не хочет работать, если есть зашедший пользователь
Re: Доступ к МедКу через объекты
у меня такое же было, когда пытался зайти IBexpert'ом, вот и подумал на этоInkognito писав:Проверил на сетевом Медке, все работает корректно (когда в Медке есть пользователь).
А с локальным не хочет работать, если есть зашедший пользователь
Re: Доступ к МедКу через объекты
То есть для локального Медка выхода нет? Мне не удастся убедить клиентов покупать сетевую лицензию только для этого.
Нужен способ работать с локальным Медком через АДО в то же время, когда с ним работает 1С (для локального Медка).
Нужен способ работать с локальным Медком через АДО в то же время, когда с ним работает 1С (для локального Медка).
Re: Доступ к МедКу через объекты
Подскажите, есть ли возможность получить программно информацию из квитанции № 1 по полученной налоговой накладной, а именно вот эту
Виявлені помилки:
Відповідно до п.74.2 ст.74 ПКУ функціонує система моніторингу відповідності ПН/РК критеріям оцінки ступеня ризиків (СМКОР). Період з 01.04.2017 до 01.07.2017 є перехідним періодом, протягом якого процедура визначена п.201.16 ст 201 ПКУ здійснюється без фактичного зупинення реєстрації ПН/РК у ЄРПН. За результатами опрацювання СМКОР виявлено невідповідність обсягів постачання обсягам придбання по товарах згідно з УКТ ЗЕД: 8708 .
Відправник: Автоматизована система "Єдине вікно подання електронних документів" ДФС України, версія 2.2.12.14
"За результатами опрацювання СМКОР виявлено невідповідність обсягів постачання обсягам придбання по товарах згідно з УКТ ЗЕД: 8708 ."
Вот такую налоговую надо бы выделить в списке, как предложение разработчикам Медка
Виявлені помилки:
Відповідно до п.74.2 ст.74 ПКУ функціонує система моніторингу відповідності ПН/РК критеріям оцінки ступеня ризиків (СМКОР). Період з 01.04.2017 до 01.07.2017 є перехідним періодом, протягом якого процедура визначена п.201.16 ст 201 ПКУ здійснюється без фактичного зупинення реєстрації ПН/РК у ЄРПН. За результатами опрацювання СМКОР виявлено невідповідність обсягів постачання обсягам придбання по товарах згідно з УКТ ЗЕД: 8708 .
Відправник: Автоматизована система "Єдине вікно подання електронних документів" ДФС України, версія 2.2.12.14
"За результатами опрацювання СМКОР виявлено невідповідність обсягів постачання обсягам придбання по товарах згідно з УКТ ЗЕД: 8708 ."
Вот такую налоговую надо бы выделить в списке, как предложение разработчикам Медка
Re: Доступ к МедКу через объекты
Теоретично, так (взято з інструкції з СОМ):
App = Новый COMОбъект("MEDOC.ZApplication");
prim = App.GetPrimaryDocs()
KVT = prim.GetDocKVT(ExDocID); //Або KVT = prim.GetDocKVT(“”,Cardcode);
....
Сообщить(KVT.Fields.Item("KVT_TEXT").Value);
Сообщить(KVT.Fields.Item("KVT_SIGN").Value);
App = Новый COMОбъект("MEDOC.ZApplication");
prim = App.GetPrimaryDocs()
KVT = prim.GetDocKVT(ExDocID); //Або KVT = prim.GetDocKVT(“”,Cardcode);
....
Сообщить(KVT.Fields.Item("KVT_TEXT").Value);
Сообщить(KVT.Fields.Item("KVT_SIGN").Value);
Re: Доступ к МедКу через объекты
Спасибо буду пробоватьInkognito писав:Теоретично, так (взято з інструкції з СОМ):
App = Новый COMОбъект("MEDOC.ZApplication");
prim = App.GetPrimaryDocs()
KVT = prim.GetDocKVT(ExDocID); //Або KVT = prim.GetDocKVT(“”,Cardcode);
....
Сообщить(KVT.Fields.Item("KVT_TEXT").Value);
Сообщить(KVT.Fields.Item("KVT_SIGN").Value);
Re: Доступ к МедКу через объекты
Ради эксперимента, тоже попробовал. Текст квитанции указанным методом не отображает.
Найти альтернативный метод не удалось.
Найти альтернативный метод не удалось.
Re: Доступ к МедКу через объекты
Добрый день!
Не подскажите, что неправильно написано:
omedok := CreateObject("MEDOC.ZApplication")
orgid:=omedok:seekorg(my_okpo_is,"")
odoc :=omedok:GetPrimaryDocs()
omain:=odoc:OpenOrCreateDocument(orgid,"VN001",,,"111111",0)
Ошибка "Несовпадение типов"
Не подскажите, что неправильно написано:
omedok := CreateObject("MEDOC.ZApplication")
orgid:=omedok:seekorg(my_okpo_is,"")
odoc :=omedok:GetPrimaryDocs()
omain:=odoc:OpenOrCreateDocument(orgid,"VN001",,,"111111",0)
Ошибка "Несовпадение типов"
Re: Доступ к МедКу через объекты
На какой строке ошибка?
Re: Доступ к МедКу через объекты
Код, переведенный на язык 1С, ошибок не выдает...
Может, модуля "Интеграция" нет действующего (АПИ Медка стал платным полгода назад)?
Может, модуля "Интеграция" нет действующего (АПИ Медка стал платным полгода назад)?
Re: Доступ к МедКу через объекты
Модуль интеграции куплен.
Ошибка на строке
omain:=odoc:OpenOrCreateDocument(orgid,"VN001",,,"111111",0)
Ошибка на строке
omain:=odoc:OpenOrCreateDocument(orgid,"VN001",,,"111111",0)