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