ОКСи, Фирма 1С. Управление аптечной сетью, редакция 11.5. v11.5.27.70

src/Catalogs/МашиночитаемыеДоверенностиКонтрагентов/Ext/ManagerModule.bsl

@@ -326,6 +326,7 @@
 //                                             если отсутствует возможность проверить подпись МЧД на сервере 
 //                                             (в настройках установлена проверка подписи на клиенте) 
 //                                             и необходимо выполнить проверку на клиенте.
+//  * ВариантПроверкиСертификатовМЧДЭДО - ПеречислениеСсылка.ВариантыПроверкиСертификатовМЧДЭДО
 //  * ДанныеДляПроверки - Неопределено
 //                      - см. МашиночитаемыеДоверенностиКлиентСервер.НовыеДанныеДляПроверкиМЧД
 //
@@ -338,6 +339,7 @@
 	Результат.Вставить("ТребуетсяПроверкаМЧДНаКлиенте", ТребуетсяПроверкаМЧДНаКлиенте);
 	Результат.Вставить("ДанныеДляПроверки", Неопределено);
 	Результат.Вставить("ТекстОшибки", "");
+	Результат.Вставить("ВариантПроверкиСертификатовМЧДЭДО", МашиночитаемыеДоверенности.ВариантПроверкиСертификатаДоверителя());
 	
 	Данные = Неопределено;
 	
@@ -396,7 +398,10 @@
 		ДанныеДоверенности.СтатусВРеестреФНС = ДополнительныеСведения.СтатусВРеестреФНС;
 	КонецЕсли;
 	
-	РезультатЗаписи = ЗаписатьЭлементСправочника(МЧД, ДанныеИзФайлаОбмена, ДанныеДляЗагрузки);
+	РезультатПроверкиНаСервере = МашиночитаемыеДоверенности.НовыйОбщийРезультатПроверкиПодписиДоверенности(Истина);
+	
+	РезультатЗаписи = ЗаписатьЭлементСправочника(МЧД, ДанныеИзФайлаОбмена, ДанныеДляЗагрузки, РезультатПроверкиНаСервере);
+	Результат.Вставить("РезультатПроверкиНаСервере", РезультатПроверкиНаСервере);
 	
 	Если РезультатЗаписи.Ошибка Тогда
 		Результат.ТекстОшибки = РезультатЗаписи.ОписаниеОшибки;
@@ -884,7 +889,7 @@
 	ДанныеДляПроверки.ДанныеДоверенности = ДанныеДляЗагрузки.ДанныеДоверенности;
 	ДанныеДляПроверки.ДанныеПодписи = ДанныеДляЗагрузки.ДанныеПодписи;
 	Если Не МашиночитаемыеДоверенности.ПроверенаВручную(ДанныеДляПроверки.ДанныеДоверенности) Тогда
-		МашиночитаемыеДоверенности.ЗаполнитьПодписанаВерна(ОбъектСправочника, ДанныеДляПроверки, ТребуетсяПроверкаМЧДНаКлиенте, РезультатПроверкиНаСервере);
+		МашиночитаемыеДоверенности.ЗаполнитьПодписанаВерна(ОбъектСправочника, ДанныеДляПроверки, ТребуетсяПроверкаМЧДНаКлиенте,, РезультатПроверкиНаСервере);
 	КонецЕсли;
 	
 	Если Не ЗначениеЗаполнено(ОбъектСправочника.ВариантЗаполненияПолномочий) Тогда