Доступ к МедКу через объекты
Доступ к МедКу через объекты
Добрый день!
Хочу получить доступ к документам Медка из внешней программы. Удалось получить значения из существующих документов, но не удается поменять значения полей. Может потому, что у меня демо версия?
Олег
Хочу получить доступ к документам Медка из внешней программы. Удалось получить значения из существующих документов, но не удается поменять значения полей. Может потому, что у меня демо версия?
Олег
Re: Доступ к МедКу через объекты
Демоверсия на ОЛЕ-доступ точно не должна влиять. А можете конкретизировать, что именно и в каком документе хотите поменять?
Re: Доступ к МедКу через объекты
Спасибо за ответ. Вот такой код. Значение поля получаю правильное, но новое значение не сохраняется
LOCAL omedok,odataset,odoc,omain,nvalue,otab1
omedok := CreateObject("MEDOC.ZApplication")
odataset:=omedok:DocumentsDataSet("CharCode='J0110103'",.T.)
odoc:=omedok:OpenDocumentByCode(odataset:FldVal("Code"))
omain:=odoc:DataSets("MAIN")
omain:First()
nvalue:=omain:FldVal('A0317')
omain:Edit()
omain:FldVal("A0317"):=499.0
omain:Post()
oDoc:Recalc()
oDoc:Save()
omain:destroy()
omain:=NIL
odoc:destroy()
odoc:=NIL
omedok:destroy()
LOCAL omedok,odataset,odoc,omain,nvalue,otab1
omedok := CreateObject("MEDOC.ZApplication")
odataset:=omedok:DocumentsDataSet("CharCode='J0110103'",.T.)
odoc:=omedok:OpenDocumentByCode(odataset:FldVal("Code"))
omain:=odoc:DataSets("MAIN")
omain:First()
nvalue:=omain:FldVal('A0317')
omain:Edit()
omain:FldVal("A0317"):=499.0
omain:Post()
oDoc:Recalc()
oDoc:Save()
omain:destroy()
omain:=NIL
odoc:destroy()
odoc:=NIL
omedok:destroy()
Re: Доступ к МедКу через объекты
Ок. сегодня вечером посмотрю. Сейчас простите, работы много. Если неполучится разобраться, посоветуюсь завтра с программиистами, что они мне скажут.
Re: Доступ к МедКу через объекты
Добрый день!
С вопросом изменения полей я разобрался.
Теперь у меня вопрос, какой метод использовать для создания новго документа.
Не могшли бы вы привести пример
Спасибо
Юдин Олег
С вопросом изменения полей я разобрался.
Теперь у меня вопрос, какой метод использовать для создания новго документа.
Не могшли бы вы привести пример
Спасибо
Юдин Олег
Re: Доступ к МедКу через объекты
Где-то так (пример - форма S0110005, реализовывалось для 1С 7.7)
Код: Виділити все
Попытка
App=СоздатьОбъект("MEDOC.ZApplication");
Исключение
Сообщить("Приложение M.E.DOC не запущено !");
Возврат;
КонецПопытки;
/////////////////////////////////////////////////////////////////////////////////////
PDate=Дата(ДатаГод(ДатаВКвартале),ДатаМесяц(КонКвартала(Дата2)),01);
Если ДатаМесяц(КонКвартала(Дата2))=3 Тогда
номпер=10
ИначеЕсли ДатаМесяц(КонКвартала(Дата2))=6 Тогда
номпер=20
ИначеЕсли ДатаМесяц(КонКвартала(Дата2))=9 Тогда
номпер=25
Иначе
номпер=30
КонецЕсли;
Doc = App.CreateDocumentByParam("S0110005",номпер,PDate,);
rsMain=Doc.DataSets();
rsMain.Edit();
-
- Повідомлень: 1
- З нами з: 22 серпня 2012, 22:25
Re: Доступ к МедКу через объекты
Здравствуйте
есть вопрос помогите...
пытаюсь подключится через CreateObject("MEDOC.ZApplication")
пишет что объект ActiveX не найден, нужно как специально регистрировать или чет не так..
в файле импорта налоговых накладных MERst_NN2.xls также этот объект не создается
Медок Версия 10.00.089
windows 7
Спасибо
есть вопрос помогите...
пытаюсь подключится через CreateObject("MEDOC.ZApplication")
пишет что объект ActiveX не найден, нужно как специально регистрировать или чет не так..
в файле импорта налоговых накладных MERst_NN2.xls также этот объект не создается
Медок Версия 10.00.089
windows 7
Спасибо
Re: Доступ к МедКу через объекты
Где можно почитать про методы обьектов
MEDOC.ZApplication – объект
MEDOC.IZDocument – объект
MEDOC.IZDataset – объект
в MedocDocs_Help.doc - очень уж бедненько описано.
Необходимо для решения следующей задачи.
В Medoc создан шаблон первичного документа. Теперь необходимо из внешней системы записать соответствующий документ , напрямую. (через XML - не интересует)
MEDOC.ZApplication – объект
MEDOC.IZDocument – объект
MEDOC.IZDataset – объект
в MedocDocs_Help.doc - очень уж бедненько описано.
Необходимо для решения следующей задачи.
В Medoc создан шаблон первичного документа. Теперь необходимо из внешней системы записать соответствующий документ , напрямую. (через XML - не интересует)
Re: Доступ к МедКу через объекты
такое впечатление, что первичные документы не имеют тела документа "MAIN".
Так как на команде
omain:=odoc:DataSets("MAIN") выпадает ошибка
Ошибка: DATASETS
Аргумент[1]:"DATASETS"
Аргумент[2]:"MAIN"
обьект odoc существует - и создан как
omedok := CreateObject("MEDOC.ZApplication")
odoc :=omedok:CreateDocumentByParam("545455",0,DTOC(dDate),1)
Так как на команде
omain:=odoc:DataSets("MAIN") выпадает ошибка
Ошибка: DATASETS
Аргумент[1]:"DATASETS"
Аргумент[2]:"MAIN"
обьект odoc существует - и создан как
omedok := CreateObject("MEDOC.ZApplication")
odoc :=omedok:CreateDocumentByParam("545455",0,DTOC(dDate),1)
Re: Доступ к МедКу через объекты
OlegBom
Как раз сейчас занимаюсь ее доработкой. Выйдет в скором будущем переработанной. Насчет Вашего вопроса... VisualBasic? К сожалению с его синтаксисом знаком слабо, а насчет объектов спрошу.
545455 - это код документа (FORM.CHARCODE). Уверены, что такой есть в программме?
Может правда это код нового созданного шаблона первичного документа?
Как раз сейчас занимаюсь ее доработкой. Выйдет в скором будущем переработанной. Насчет Вашего вопроса... VisualBasic? К сожалению с его синтаксисом знаком слабо, а насчет объектов спрошу.
545455 - это код документа (FORM.CHARCODE). Уверены, что такой есть в программме?
Может правда это код нового созданного шаблона первичного документа?
Re: Доступ к МедКу через объекты
Это код нового созданного шаблона первичного документа.
Re: Доступ к МедКу через объекты
Посмотрели. В общем, на текущий момент именно для первички (счет-фактура, акт, + собственные шаблоны) не работает. Даже не ошибка, а именно недоработанный механизм. С первичкой сложнее, чем с обычными формами, из-за способа хранения в базе. Ищем решение.
Re: Доступ к МедКу через объекты
Если доработали можно получить инструкцию?Родин Евгений писав: Как раз сейчас занимаюсь ее доработкой. Выйдет в скором будущем переработанной...
И можно ли с помощью сом объектов получать информацию с медок? ПН присланные нам контрагентом втянуть в свою программу через сом объекты?
Re: Доступ к МедКу через объекты
OlegBom
Сделали новую функцию. Выйдет с 097 версией (предположительно).
Доработал Инструкцию. Выйдет с новым дистрибутивом.
Проверил - работает. Правда, проверял на 1С, но думаю пересмотреть код под VB получится.
Slipez
Да. Вот посмотрите самый последний на сегодня вариант. Если есть вопросы-предложения, с удовольствием пообщаюсь:
Дополнил колонкой "Пример использования". Если у кого-то есть идеи, как использовать те или иные функции и методы, буду рад включить их в Инструкцию.
Сделали новую функцию. Выйдет с 097 версией (предположительно).
Доработал Инструкцию. Выйдет с новым дистрибутивом.
Проверил - работает. Правда, проверял на 1С, но думаю пересмотреть код под VB получится.
Slipez
Да. Вот посмотрите самый последний на сегодня вариант. Если есть вопросы-предложения, с удовольствием пообщаюсь:
Дополнил колонкой "Пример использования". Если у кого-то есть идеи, как использовать те или иные функции и методы, буду рад включить их в Инструкцию.
- Вкладення
-
- MedocDocs_Help_Landsaft_2.rar
- (373.59 Кіб) Завантажено 186 разів
Re: Доступ к МедКу через объекты
Евгений, спасибо!Буду изучать.
Re: Доступ к МедКу через объекты
Немного доработал внешний вид + добавил наглядное представление того, как создается программно документ (CreateDocumentByParam, CreateDocument)
Примечание: постараюсь протестировать все на примере 1С, правда не обещаю сразу. К выпуску дистрибутива постараюсь проверить максимум. Обратите внимание, что сейчас не везде есть примеры использования.
Примечание: постараюсь протестировать все на примере 1С, правда не обещаю сразу. К выпуску дистрибутива постараюсь проверить максимум. Обратите внимание, что сейчас не везде есть примеры использования.
- Вкладення
-
- MedocDocs_Help_Landsaft_3.rar
- (410.85 Кіб) Завантажено 141 раз
Re: Доступ к МедКу через объекты
Евгений! Мне надо ждать 97-го обновления? А то валюсь на ф-ии SeekOrg
Re: Доступ к МедКу через объекты
И еще вопрос. В описании говориться
> Примечание: предварительно для первички необходимо создать:
> orgId = Application.SeekOrg(+ параметры ) ;
> pp= App.GetPrimaryDocs();
Application - в описании нет такого объекта.
Это наверное имеется ввиду
App=Новый COMОбъект ("MEDOC.ZApplication");
и тогда надо писать так
orgId = App.SeekOrg(+ параметры ) .
Или я чего-то не понял?
> Примечание: предварительно для первички необходимо создать:
> orgId = Application.SeekOrg(+ параметры ) ;
> pp= App.GetPrimaryDocs();
Application - в описании нет такого объекта.
Это наверное имеется ввиду
App=Новый COMОбъект ("MEDOC.ZApplication");
и тогда надо писать так
orgId = App.SeekOrg(+ параметры ) .
Или я чего-то не понял?
Re: Доступ к МедКу через объекты
Наверное ошибка в описании.
есть Doc.DataSets() и Doc.DataSet().
Это действительно два метода или один опечатка?
есть Doc.DataSets() и Doc.DataSet().
Это действительно два метода или один опечатка?