Токен авторизации ИС МП (Розница) Просрочен

&Вместо("СертификатыПользователяДляПодписиПоОрганизациям")
Функция ИсправлениеИСМП_СертификатыПользователяДляПодписиПоОрганизац­иям(Организации, ВключатьСертификатыБезОрганизации, ВключатьСертификатыФЛ)
		Результат = Новый Соответствие;
	Для Каждого Организация Из Организации Цикл
		Результат.Вставить(Организация, Новый Массив);
	КонецЦикла;
	
	ЕстьПравоДоступаЧтение = ПравоДоступа("Чтение", Метаданные.Справочники.СертификатыКлючейЭлектроннойПодписиИШифрования);
	Если Не ЕстьПравоДоступаЧтение Тогда
		Возврат Результат;
	КонецЕсли;
	
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	Сертификаты.Организация       КАК Организация,
	|	Сертификаты.Ссылка            КАК Сертификат,
	|	Сертификаты.ДанныеСертификата КАК ДанныеСертификата
	|ИЗ
	|	Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования КАК Сертификаты
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования.Пользователи КАК ПользователиСертификатов
	|		ПО Сертификаты.Ссылка = ПользователиСертификатов.Ссылка
	|ГДЕ
	|	Сертификаты.Организация В (&Организации)
	|	И НЕ Сертификаты.Отозван
	|	И НЕ Сертификаты.ПометкаУдаления
	|	И (Сертификаты.ДействителенДо >= &ТекущаяДатаСеанса
	|			ИЛИ Сертификаты.ДействителенДо = ДАТАВРЕМЯ(1, 1, 1))
	|	И (Сертификаты.Пользователь = &Пользователь
	|			ИЛИ ПользователиСертификатов.Пользователь = &Пользователь
	|			ИЛИ Сертификаты.Пользователь В (&ПустойПользователь)
	|				И ПользователиСертификатов.Пользователь ЕСТЬ NULL)
	|;
	|ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
	|	Сертификаты.Ссылка КАК Сертификат
	|ИЗ
	|	Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования КАК Сертификаты
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования.Пользователи КАК ПользователиСертификатов
	|		ПО Сертификаты.Ссылка = ПользователиСертификатов.Ссылка
	|ГДЕ
	|	ВЫБОР
	|		КОГДА &ВключатьСертификатыБезОрганизации
	|			ТОГДА Сертификаты.Организация В (&ПустаяОрганизация)
	|		ИНАЧЕ ЛОЖЬ
	|	КОНЕЦ
	|	И НЕ Сертификаты.Отозван
	|	И НЕ Сертификаты.ПометкаУдаления
	|	И (Сертификаты.ДействителенДо >= &ТекущаяДатаСеанса
	|			ИЛИ Сертификаты.ДействителенДо = ДАТАВРЕМЯ(1, 1, 1))
	|	И (Сертификаты.Пользователь = &Пользователь
	|			ИЛИ ПользователиСертификатов.Пользователь = &Пользователь
	|			ИЛИ Сертификаты.Пользователь В (&ПустойПользователь)
	|				И ПользователиСертификатов.Пользователь ЕСТЬ NULL)";
	
	Запрос.УстановитьПараметр("ТекущаяДатаСеанса",                 ТекущаяДатаСеанса());
	Запрос.УстановитьПараметр("ВключатьСертификатыБезОрганизации", ВключатьСертификатыБезОрганизации);
	Запрос.УстановитьПараметр("Организации",                       Организации);
	Запрос.УстановитьПараметр("ПустаяОрганизация",                 НезаполненныеЗначенияОпределяемогоТипа("Организация"));
	Запрос.УстановитьПараметр("Пользователь",                      Пользователи.ТекущийПользователь());
	Запрос.УстановитьПараметр("ПустойПользователь",                НезаполненныеЗначенияОпределяемогоТипа("Пользователь"));
	Запрос.Параметры.ПустойПользователь.Добавить(Пользователи.СсылкаНеуказанногоПользователя());
	
	РезультатЗапроса = Запрос.ВыполнитьПакет();
	
	Выборка = РезультатЗапроса[0].Выбрать();
	Пока Выборка.Следующий() Цикл  
		
		СертификатыПоОрганизации = Результат[Выборка.Организация];
		Если СертификатыПоОрганизации.Найти(Выборка.Сертификат) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		
	//	Если Не ВключатьСертификатыФЛ Тогда
			
			ДвоичныеДанныеСертификата = Выборка.ДанныеСертификата.Получить();
			
			Если ТипЗнч(ДвоичныеДанныеСертификата) = Тип("ДвоичныеДанные") Тогда
				
				Сертификат = Новый СертификатКриптографии(ДвоичныеДанныеСертификата);
			
				СубъектСертификата = ЭлектроннаяПодпись.СвойстваСубъектаСертификата(Сертификат).Организация;
				//Если Не ЗначениеЗаполнено(СубъектСертификата) Тогда
				//	Продолжить;
				//КонецЕсли;
		
//			КонецЕсли;
			
		КонецЕсли;
		
		СертификатыПоОрганизации.Добавить(Выборка.Сертификат);
		
	КонецЦикла;
	
	Если ВключатьСертификатыБезОрганизации Тогда
		Выборка = РезультатЗапроса[1].Выбрать();
		Для Каждого КлючИЗначение Из Результат Цикл
			Если КлючИЗначение.Значение.Количество() = 0 Тогда
				Выборка.Сбросить();
				Пока Выборка.Следующий() Цикл
					КлючИЗначение.Значение.Добавить(Выборка.Сертификат);
				КонецЦикла;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
	
	Возврат Результат;

КонецФункции