&НаСервере
Процедура ВыполнитьНажатиеНаСервере()
Попытка
Для Каждого Элемент Из ДанныеАвторизации Цикл
Сообщить(Элемент.Ключ + ": " + Элемент.Значение);
Если Элемент.Ключ = "Логин" Тогда
Реквизит1 = Элемент.Значение;
ИначеЕсли Элемент.Ключ = "Пароль" Тогда
Реквизит2 = Элемент.Значение;
КонецЕсли;
КонецЦикла;
Исключение
Сообщить("Нет данных регистрации ИТС.");
ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ИнтернетПоддержкаПользователей.ИдентификаторПодсистемы(),"Логин","***********");
ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ИнтернетПоддержкаПользователей.ИдентификаторПодсистемы(),"Пароль","**********");
КонецПопытки
возращает логин и пароль который в базе, пропала кнопка ОТКЛЮЧИТЬ Интернет поддержку - выдаешь ошибку, в базе сохранен не верный пароль - хочу заменить на новый, но как сохранить.
Помогите
&НаСервере
Процедура ВыполнитьНажатиеНаСервере()
ДанныеАвторизации = ИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();
Попытка
Для Каждого Элемент Из ДанныеАвторизации Цикл
Сообщить(Элемент.Ключ + ": " + Элемент.Значение);
Если Элемент.Ключ = "Логин" Тогда
Реквизит1 = Элемент.Значение;
ИначеЕсли Элемент.Ключ = "Пароль" Тогда
Реквизит2 = Элемент.Значение;
КонецЕсли;
КонецЦикла;
Исключение
Сообщить("Нет данных регистрации ИТС.");
ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ИнтернетПоддержкаПользователей.ИдентификаторПодсистемы(),"Логин","***********");
ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ИнтернетПоддержкаПользователей.ИдентификаторПодсистемы(),"Пароль","**********");
КонецПопытки
это в какой конфе нет кнопки Оключить в интернет-поддержке?
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший