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