Доступ к МедКу через объекты

[Родин Евгений]

C:\ProgramData\Medoc\Medoc\help\manuals\Инструкция по СОМ объектам.pdf
Я уже 6 в своободное время подготавливаю. На сегодняшний момент действует 5 редакция.

[alg]

У нас сейчас стоит задача импорта в 1С созданных в МЕДОК входящих налоговых накладных, поэтому функции использующие ExDocID не подходят. В справке подходящего ничего не нашел. Какие функции сейчас рекомендуется использовать для поиска и отбора документов по типу и дате?

[Родин Евгений]

Какая версия 1С? Конфигурация?

[alg]

Платформа: 8.2.15.310 Конфигурация: Бухгалтерия для Украины

[Родин Евгений]

Ответил в личку.

[putilin]

Есть ли пример как с 1с записать элемент справочника, например заполнить карточку предприятия, или карточку контрагента?

[Родин Евгений]

Насчет карточки контрагента - см.пример выше.
Насчет карточки предприятия (КП), тут скоро (возможно в ближайшем системном) появится (по крайней мере работаем над этим) чтобы была возможность формировать Предприятие на основании ХМЛ (заранее определенной структуры). КП - таблица CARD. Можете воспользоваться методом работы с таблицей, прочитать ее поля, и понять, нужно ли тратить свое время на создание КП таким способом. Сформировать ХМЛ намного проще...останется дождаться когда Медок сможет ее импортировать.

[NeoN]

У нас сейчас стоит задача импорта в 1С созданных в МЕДОК входящих налоговых накладных, поэтому функции использующие ExDocID не подходят. В справке подходящего ничего не нашел. Какие функции сейчас рекомендуется использовать для поиска и отбора документов по типу и дате?

Поделитесь и мне интересно Правда надо для 1с77(но не суть важно) важно Какие функции сейчас рекомендуется использовать для поиска и отбора документов по типу и дате

[Родин Евгений]

но не суть важно

Да как раз и важно...ВнешнееСобытие() 1С7.7 поддерживает?
Не нашел. Есть мнение, что это уже даже не 1С, а 1С++ юзать нужно

[NeoN]

ВнешнееСобытие() 1С7.7 поддерживает?

Ну не совсем 1с77 и не совсем 1сpp но Formex замечательно поддерживает.

Собственно 1с77 в чистом виде на сегодня - это просто ... а те кто его пытаются поддерживать без внешних компонент - извращенцы

и так Евгений, в какую сторону копать?

[Родин Евгений]

Вариант для 8ки - в личке. А вот как тоже самое для 7ки реализовать

[sonar]

И снова здравствуйте
Пробую создать документ "Картка приэднання до договору УСЦ" (Z0100203) - по аналогии с заявками ни ошибок ни документа, хотя ничего особенного кроме того что он отображается в модуле сертификаты нет.
Пробовал и как обычный документ

Код: Виділити все

Doc = App.CreateDocumentByParam("Z0100203",0,Дата(2013,8,16),);

и так

Код: Виділити все

ВыбБланк = "Z0100203";  
КлючУникальности = Новый УникальныйИдентификатор; 
PDate=Дата(Год(ТекущаяДата()),Месяц(ТекущаяДата()),01);
ИД = Строка(КлючУникальности);  
Doc  = App.OpenOrCreateByExDocID(ВыбБланк,0,PDate,,ИД,0);  

и даже как первичный (при таком варианте ошибка "Неизвестная ошибка")

Код: Виділити все

ВыбБланк = "Z0100203";  
КлючУникальности = Новый УникальныйИдентификатор; 
PDate=Дата(Год(ТекущаяДата()),Месяц(ТекущаяДата()),01);
ИД = Строка(КлючУникальности);  
pp= App.GetPrimaryDocs(); 
Doc = pp.OpenOrCreateDocument(КодПредприятия, ВыбБланк,,, ИД, 0);

Еще вопрос можно ли проверить актуальность бланка потому как после выхода обновления код бланка меняется и если я это проморгаю то буду создавать документ на старом бланке что не совсем хорошо.

[Родин Евгений]

1) Методы создания Заявок выйдкт в ближайшем системном обновлении. Обратите внимание на:
http://www.me-doc.com.ua/forum/viewtopi ... &start=120
Сообщение от 22 июля.
2) Контроль версии бланка.... сейчас нет такого. Рассмотим саму возможность.

[sonar]

1) Методы создания Заявок выйдкт в ближайшем системном обновлении. Обратите внимание на:
http://www.me-doc.com.ua/forum/viewtopi ... &start=120
Сообщение от 22 июля.

По поводу заявок помню, жду, но "Картка приэднання до договору УСЦ" - это не заявка, а обычный бланк который находится в нестандартном месте, поэтому решил переспросить, чтобы через месяц не оказалось что заявки генерируются а банальная "картка" не создается.
Заранее спасибо.

[Родин Евгений]

Извините, это уже что-то я неправильно понял. Ок, проверим.

[Родин Евгений]

1) Работает (но не обновляет экран - придется перещелкивать вкладки. См. под спойлер ниже):
App = Новый COMОбъект("MEDOC.ZApplication");
ВыбБланк = "Z0100203";
КлючУникальности = Новый УникальныйИдентификатор;
ИД = Строка(КлючУникальности);
PDate=Дата(Год(ТекущаяДата()),Месяц(ТекущаяДата()),01);
Doc= App.OpenOrCreateByExDocID(ВыбБланк,0,PDate,,ИД ,0);
rsMain=Doc.DataSets() ; //Создать документ
rsMain.Edit(); //Редактировать
rsMain.Append();
rsMain.Post();
Doc.Save();
Doc.Close();
Сообщить("Создан Z0100203");

Примечание: сейчас второй созданный перезаписывает предыдущий.
Реализовывется свойством бланка "Может повторяться в рамках периода= Да" (установим в ближайшее вермя).

| Показать

Добавили фильтр для этого модуля. Выйдет в ближайшем системном):
Пример:
App = Новый COMОбъект("MEDOC.ZApplication");
reestrFil = App.RunModule("AdmCert");
filterTbl = reestrFil.GetFilter();
Сообщить(filterTbl.Fields.Count);
ЕСЛИ filterTbl.Fields.Count = 0 ТОГДА
Сообщить("Для этого модуля фильтр не определен!");
возврат;
КОНЕЦЕСЛИ;

filterTbl = reestrFil.GetFilter();
//0 - Встановлені сертифікати
//1 - Заявки на сертифікат
//2 - Документи від УСЦ
filterTbl.Fields.Item("SYSTYPE").Value = "1";
reestrFil.ApplyFilter();

2) Актуальность бланка - задача разовая и сомнительная. Не будет реализовано.

[sonar]

Реализовывется свойством бланка "Может повторяться в рамках периода= Да" (установим в ближайшее вермя).

Не нужно Для данного бланка очень замечательно, на мой взгляд, то что он каждый раз перезаписывается.

[Родин Евгений]

Вообще-то неочень. Если обычное создание не перезаписывает, то и созадние СОМтехнологией не должно.
Перезапись (если хотите) реализовывается просто:

Doc= App.OpenOrCreateByExDocID(ВыбБланк,0,PDate,,ИД ,1);

Только ИД тогда сделайте стационарным (например, по формуле: ЕДРПОУ + ВыбБланк+ Дата (ММГГДДДД));

например: 12345678Z010020319082013

Тогда отчет будет находиться по этому ИД и перезаписан (если признак перезаписи - последний параметр функции, равен 1).

[Родин Евгений]

Пре-релиз 6ой версии здесь.
Если есть вопросы, пожеления - спрашивайте. Будет работоспособен к системному обновлению, которое выйдет в течении месяца.
Напомню, что пре-релиз (можно и бета-версия, кому как удобно) - это еще не окончательный вариант. Для ознакомления.
Так обычно поступают разработчики многих программ - ознакомить пользователя с приблизительным видом будущего функционала.

[sonar]

Можно ли в функции создания документов и создания заявок - добавить флаг "Показать документ", чтобы после создания документ автоматически открывался для просмотра/редактирования/печати?