Получение логина и пароля ИТС из базы 1С

19 Comments

1. Timur.V 02.11.2018 at 15:33

   На инфостарте, к сожалению, запрещено выкладывать бесплатные обработки.
   
   Так мне сегодня ответила тех.поддержка сайта.
   
   Поэтому 1sm.

   Reply ↓
2. YannikAlx 02.11.2018 at 16:12

   Вы меня удивляете!
   
   Сами же показывали что уже есть 1 такая обработка на сайте, теперь делаете третью?
   
   И ЧЕМ ваша лучше 2 предыдущих?

   https://infostart.ru/public/729533/
   
   И
   
   https://infostart.ru/public/935063/

   Есть мотивация?

   Reply ↓
3. Timur.V 02.11.2018 at 16:16

   (2)
   
   Если у меня что-то потеряется на компьютере, возьму с сайта.
   
   Инфостарт — это надежное хранилище обработок.

   Я хотел её бесплатно выложить на сайт, чтобы она отличалась от предыдущих обработок.
   
   Но увы, правила сайта…

   Reply ↓
4. YannikAlx 02.11.2018 at 16:21

   Зачев вам обработка ?
   
   там максиму 3 строчки кода для любой консоли

   Reply ↓
5. json 02.11.2018 at 16:22

   (3) прикрепите к комментарию, раз хотели бесплатно выложить.

   Reply ↓
6. Timur.V 02.11.2018 at 16:23

   (4)
   
   Чтобы не вспоминать эти 3 строчки кода.

   Reply ↓
7. Timur.V 02.11.2018 at 16:27

   (5)
   
   Могу прикрепить только переписку с тех.поддержкой, которая была сегодня ))

   Reply ↓
8. Константин С. 02.11.2018 at 16:31

   >>>>там максиму 3 строчки кода для любой консоли

   Так код выложи))

   Reply ↓
9. MSK_Step 02.11.2018 at 16:35

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

   Reply ↓
10. Timur.V 02.11.2018 at 16:37

    (8)
    
    О, точно. Код не запрещали выкладывать ))

    На управляемой форме создаете два реквизита и кнопку. Код ниже:
    

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

    Показать

    Reply ↓
11. Synoecium 02.11.2018 at 21:51

    (7) а что насчет Гитхаба ответили, очень интересно?)

    Reply ↓
12. Timur.V 02.11.2018 at 22:17

    (11)
    
    «Это разрешено в виде исключения ТОЛЬКО для узкоспециальных инструментов для разработчиков»

    Reply ↓
13. triviumfan 03.11.2018 at 10:56

    (2) наверное, надо мне свою запилить… Куда катимся…

    Reply ↓
14. nporrep 03.11.2018 at 12:01

    По тонкому льду ходите…

    Reply ↓
15. user970589 14.12.2018 at 08:10

    Спасибо!! Работает. Часто бывает, что заказчик не помнит сам что вписано и спросить не у кого.

    Reply ↓
16. user970589 14.12.2018 at 08:48

    А регистрационный номер так случаем можно посмотреть?

    Reply ↓
17. Timur.V 14.12.2018 at 10:04

    (17)
    
    Заходите на сайт https://releases.1c.ru/total
    
    А далее в Личный кабинет и смотрите рег.номер.

    Reply ↓
18. McMaxima36 25.01.2019 at 08:37

    (10)Огромное человеческое спасибо! Данные безнадежно похерены. Обновление идет, но воспользоваться другими плюшками на сайте не получается без ключей.
    
    СПАСИБО!

    Reply ↓
19. z8491 21.08.2019 at 14:02

    Реквизиты на форме не заполняются , только в виде сообщения. подскажите код

    Reply ↓