Имя: Пароль:
1C
 
Обращение к серверу из модуля управляемого приложения
0 devlabnn
 
12.10.09
10:18
Вчера стал разбираться с 8.2.356. Задача простая - получить имя пользователя  и поискать его в справочнике пользователей.

Модуль сеанса:

Процедура УстановкаПараметровСеанса(ТребуемыеПараметры)
   ИмяПользователя = СокрЛП(ИмяПользователя());
   ссПользователь = Справочники.Пользователи.НайтиПоНаименованию(ИмяПользователя);
   
   ПараметрыСеанса.ТекущийПользователь = ссПользователь;
   
КонецПроцедуры

Модуль приложения выполняется на клиенте, поэтому нет возможности вытащить параметр сеанса (ПараметрыСеанса.ТекущийПользователь).

Щито делать? Пробывал писать функцию с директивой &НаСервере, но из модуля приложения он не видит эту процедуру.
1 Topol-M
 
12.10.09
10:27
В серверном модуле создать процедуру которая будет возвращать параметр сеанса. Пройдись поиском я поднимал такую тему на счет констант
2 devlabnn
 
12.10.09
10:42
Что-то не выходит.

Код общего серверного модуля "Управление пользователями"


Функция ТекущийПользователь() Экспорт
   Возврат УправлениеПользователями.ТПСервер();
КонецФункции

&НаСервере
Функция ТПСервер() Экспорт
   Возврат ПараметрыСеанса.ТекущийПользователь;
КонецФункции

Ошибка:
Метод Объекта не обнаружен "ТПСервер()".

Т. е. из функции &НаКлиенте не видно функций &НаСервере?
3 Topol-M
 
12.10.09
10:55
А вызываешь как?

Ия модуля указываешь?

<Серверный>.ТПСервер();
4 devlabnn
 
12.10.09
10:58
(3)

Пробывал <Серверный>.ТПСервер();
и
<Серверный>.ТекущийПользователь();

в обоих случаях не работает.
5 tsr
 
12.10.09
11:00
Тебе это нужно?

&НаКлиенте
Функция ТекущийПользователь() Экспорт
   Возврат ТПСервер();
КонецФункции

&НаСервереБезКонтекста
Функция ТПСервер() Экспорт
   Возврат ПараметрыСеанса.ТекущийПользователь;
КонецФункции

Можно еще функцию в общем модуле "Клиент" прописать из которой вызывать функцию из серверного общего модуля
6 tsr
 
12.10.09
11:00
Вернее даже так
&НаКлиенте
Функция ТекущийПользователь()
   Возврат ТПСервер();
КонецФункции

&НаСервереБезКонтекста
Функция ТПСервер()
   Возврат ПараметрыСеанса.ТекущийПользователь;
КонецФункции
7 devlabnn
 
12.10.09
11:06
(6) Не работает
Не могу вызвать из модуля приложения функцию &НаСервере и &НаСервереБезКонтекста
8 tsr
 
12.10.09
11:09
В модуле они уже серверные. Я про форму управляемую написал.
УправлениеПользователями стоит галка Сервер?
9 tsr
 
12.10.09
11:10
Тьфу блин, с модулем документа спутал. В общем галки правильно расставь на модулях
10 devlabnn
 
12.10.09
11:13
(9)
в модуле "ТПСервер" стоит галка "Сервер", галка "Вызов сервера"
11 devlabnn
 
12.10.09
11:13
*(10)
в модуле "УправлениеПользователями" стоит галка "Сервер", галка "Вызов сервера"
Ошибка? Это не ошибка, это системная функция.