П.С. если работает через попытку, - может так и оставить? Или боретесь за чистоту кода?
![Подмигивает ;)](./images/smilies/icon_e_wink.gif)
Код: Виділити все
App = Новый COMОбъект("MEDOC.ZApplication");
sign = App.GetDocSigning();
rez = sign.CertToCache("*", "*", "*");
Если rez <> 0 Тогда
ВызватьИсключение("Помилка підпису: " + rez);
Иначе
ЄНовіПовідомлення = App.ReceiveCorrespondence();
Сообщить(?(ЄНовіПовідомлення, "Є нові повідомлення!", "Немає нових повідомлень!"));
КонецЕсли;
Все верно. Вы же не проверяете результат помещения в кеш.Inkognito писав:П.С. при указании неправильного пароля все равно пробует принять почту. Ранее вроде проверка была на его корректность![]()
Да, кстати. Для получения, как я понимаю, нужен же ключ печати шифрования, а не сотрудника...Inkognito писав:Использовались действующий сертификат и ключ сотрудника.
Код: Виділити все
.FldVal("ExDocID");
Код: Виділити все
Doc = App.CreateGovQryByCharCode("P2000201");
rsMain=Doc.DataSets("TAB1");
....
что я делаю не так?{ВнешняяОбработка.ME1С.Форма.Форма.Форма(11226)}: Ошибка при вызове метода контекста (DataSets)
rsMain=Doc.DataSets("TAB1");
по причине:
Неизвестная ошибка
Код: Виділити все
Попытка
App = Новый COMОбъект("MEDOC.ZApplication");
НачПериода = ДобавитьМесяц(ТекущаяДата(), -1);
ТекГод = Формат(НачПериода, "ДФ=гггг");
ТекМесяц = Формат(НачПериода, "ДФ=М");
ТекЧисло = Формат(НачПериода, "ДФ=д");
НачПериода = Строка(ТекГод + ","+ ТекМесяц + ","+ ТекЧисло);
СтрокаЗапроса=Строка("CharCode='J1203001' AND PerDate>='") + Строка(НачПериода) + Строка("'");
ТаблицаДоков = App.DocumentsDataSet(СтрокаЗапроса);
Сообщить("Всього знайдено документів: "+ТаблицаДоков.RecordCount);
Пока НЕ ТаблицаДоков.EOF Цикл
КодДокумента = Число(ТаблицаДоков.FldVal("Code"));
Если ЗначениеЗаполнено(КодДокумента) тогда
Документ = App.OpenDocumentByCode(КодДокумента);
main = Документ.DataSets("MAIN");
Сообщить("Дата="+main.Fields.Item("N2").value);
Сообщить("Номер="+main.Fields.Item("N3").value);
КонецЕслИ;
ТаблицаДоков.Next();
КонецЦикла;
Исключение
Сообщить("Ошибка выполнения метода", СтатусСообщения.Важное);
Возврат;
КонецПопытки;