&НаСервереБезКонтекста

Функция ПолучитьТипКлиента()

    Соединения=ПолучитьСоединенияИнформационнойБазы();

    ТекущееСоединение=Соединения.Получить(НомерСоединенияИнформационнойБазы()-1);

    Если ТекущееСоединение=Неопределено Тогда

        Возврат "";

    КонецЕсли;

    Возврат (ПредставлениеПриложения(ТекущееСоединение.ИмяПриложения));

КонецФункции



&НаКлиенте

Процедура Тест(Команда)

     Сообщить(ПолучитьТипКлиента());

КонецПроцедуры    

 Функция ПолучитьТекущуюСредуВыполнения() Экспорт

  

   #Если ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда

 

        Возврат "Толстый клиент";

    #ИначеЕсли Сервер Тогда

 

        Возврат "Сервер";

    #ИначеЕсли ВнешнееСоединение Тогда

 

        Возврат "Внешнее соединение";

    #ИначеЕсли ТонкийКлиент Тогда

 

        Возврат "Тонкий клиент";

    #ИначеЕсли ВебКлиент Тогда

 

        Возврат "Веб-клиент";

    #Иначе

 

        Возврат "Ошибка определения среды выполнения";

    #КонецЕсли 

    

КонецФункции