Где хранятся данные интернет поддержки пользователя от сайта portal.1c.ru

Форум Программирование Общие вопросы программирования (Dev)

1С:Бухгалтерия государственного учреждения

1. MikeGorshkov 9 13.07.18 11:04 Сейчас в теме

Кто знает где хранятся данные Логин и пароль от сайта portal.1c.ru в информационной базе 1С
Версия 1С БГУ ред 1.0.52.8

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Timur.V 82 13.07.18 11:24 Сейчас в теме

если посмотреть логин, пароль, можно создать обработку

ДанныеАутентификации = ИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();

5. MikeGorshkov 9 13.07.18 11:50 Сейчас в теме

(2)

ДанныеАутентификации = ИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();

Необходимо их отключить так сказать

6. Timur.V 82 13.07.18 11:57 Сейчас в теме

(5)
Отключение запуска интернет-поддержки в БГУ 1.0 для ускорения запуска
Пользователь пишет, что не нашел, где стандартно убрать параметр проверки интернет-соединения, поэтому накатал небольшую обработку, в которой отключается проверка соединения при запуске.
https://infostart.ru/public/542018/

3. Timur.V 82 13.07.18 11:25 Сейчас в теме

Администрирование - Интернет поддержка пользователей.

4. MikeGorshkov 9 13.07.18 11:50 Сейчас в теме

(3)

Интернет поддержка пользователей

не открывает

7. bastsoft@mail.ru 23.08.19 13:58 Сейчас в теме

В режиме 1с предприятия. Операции /регистры сведений /ПараметрыинтернетПоддержкиПользователей - меняем что надо.

8. Agema 23.08.19 19:16 Сейчас в теме

Или так, отсюда:

обработки.ДокументооборотСКонтролирующимиОрганами.Создать().ДанныеАутентификацииПользователяИнтернетПоддержки();

9. one_strannik 2 23.01.20 16:47 Сейчас в теме

Всем добрый день!
Создал обработку, разместил 2 реквизита и кнопку. Код:

&НаСервере
Процедура Команда1()
    ДанныеАвторизации = ИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();
    Попытка
        Для Каждого Элемент Из ДанныеАвторизации Цикл
            Сообщить(Элемент.Ключ + ":  " + Элемент.Значение);
            Если Элемент.Ключ = "Логин" Тогда
                Реквизит1 = Элемент.Значение;
            ИначеЕсли Элемент.Ключ = "Пароль" Тогда
                Реквизит2 = Элемент.Значение;            
            КонецЕсли;         
        КонецЦикла;
    Исключение
        Сообщить("Нет данных регистрации ИТС.");    
    КонецПопытки    
КонецПроцедуры

Показать

При нажатии кнопки ничего не происходит, подскажите, что делаю не так?

10. one_strannik 2 23.01.20 17:07 Сейчас в теме

(9)Про прощения, видимо заработался. Вывод должен быть на клиенте, тогда все работает.

11. Denis_CFO 49 23.01.20 17:11 Сейчас в теме

(10) да и попытка там не нужна. Возвращается явно структура :)

12. fixin 4282 05.04.22 12:08 Сейчас в теме

(10) какая разница? на сервере тоже напишет. я вообще в консоли кода вывел, только пароль не подошел на сайт.

13. fixin 4282 04.02.25 15:30 Сейчас в теме

Делюсь скриптом для обновлятора на эту тему:

Функция ПолучитьЛогинИнтернетПоддержки()
    ДанныеАутентификацииБД = v8.ИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();
    Если ДанныеАутентификацииБД <> Неопределено Тогда
        Возврат ДанныеАутентификацииБД.Логин;
    КонецЕсли;
КонецФункции

Функция УстановитьДанныеИнтернетПоддержки(Логин, Пароль)
    Р = V8.NewObject("Структура", "ОК, Текст", ложь, "");
    
    ДанныеАутентификации = V8.NewObject("Структура", "Логин, Пароль", Логин, Пароль);
    //Пробуем установить
    ОМ = v8.ОбщегоНазначения.ОбщийМодуль("ИнтернетПоддержкаПользователей");
    ОМ.СлужебнаяСохранитьДанныеАутентификации(ДанныеАутентификации);
    //Проверяем
    ДанныеАутентификацииБД = v8.ИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();
    Если ДанныеАутентификацииБД = Неопределено Тогда
        Р.Текст = "Логин/пароль не установлены";
    ИначеЕсли 
        ДанныеАутентификацииБД.Логин <>  ДанныеАутентификации.Логин ИЛИ
        ДанныеАутентификацииБД.Пароль <>  ДанныеАутентификации.Пароль Тогда
        Р.Текст = "Логин/пароль не установился на нужный";
    Иначе
        Р.ОК = Истина;
    КонецЕсли;
    Если Не Р.ОК Тогда
        //Сразу выдаем статус ошибки
        errors = Истина;
        Сообщить("<span class='red'>" + Р.Текст + "</span>");
    КонецЕсли;
КонецФункции

Показать

Оставьте свое сообщение

E-mail: