Всплывающие уведомления после открытия базы. Lama12 ,
H A D G E H O G s ,
Олдж ,
PLUT ,
lirt82 ,
Winnie Buh ,
DrZombi ,
phabeZ ,
hiddi ,
takefive ,
navigator ,
DemonShinji2 ,
okmail ,
Double_Medved ,
2S ,
Zamestas ,
kittystark ,
Prog_man ,
X Leshiy ,
alexxx961503 ,
spiller26 ,
maxab72 ,
,
vis ,
JohnGilbert ,
Dani ,
АгентБезопаснойНацио ,
Гипервизор ,
Fedor-1971 ,
Эх-эх-эх ,
RomanYS ,
trooba ,
calmius ,
Волшебник ,
piter3 ,
Мультук ,
Сукпун ,
mikecool ,
arsik ,
Шурик71 ,
Indian ,
laeg ,
vv2304 ,
Бертыш ,
SleepyHead ,
Silgis ,
lexushka
☑
0
lirt82
18.06.26
✎
15:25
Возникла необходимость информировать конкретного пользователя определенными уведомлениями после того как откроется база.
В расширение с директивой &После("ПриНачалеРаботыСистемы")
сделал вызов из своего общего модуля процедуру, процедура отработала и вывела сообщение, но возможно ли тексты сообщении накопить в массиве и при нажатии на значок "колокольчик" в верхней рамке основного окна приложения отобразить их пользователю?
как реализовать?
&После("ПриНачалеРаботыСистемы")
Процедура РасшПР_ПриНачалеРаботыСистемы()
ВзаимодействияСПользователями.УведомленияОСрокахДействияДокументовФизЛиц();
КонецПроцедуры
Процедура УведомленияОСрокахДействияДокументовФизЛиц() Экспорт
//проверяем на вхождение в справочник рассылок, уведомлений, сообщений
Оповестить = ПроверитьПользователяДляУведомлений(Пользователи.ТекущийПользователь());
Если Оповестить Тогда
ТекстСообщения = "";
ТекущаяДата = НачалоДня(ТекущаяДата());
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
...........................
ТекстСообщения = СтрШаблон(НСтр("ru = '....
КонецЕсли;
КонецЦикла;
Если ЗначениеЗаполнено(ТекстСообщения) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Функция ПроверитьПользователяДляУведомлений(ТекПользователь)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПользователиДляРассылокУведомленийСообщений.Пользователь КАК Пользователь
|ИЗ
| Справочник.ПользователиДляРассылокУведомленийСообщений КАК ПользователиДляРассылокУведомленийСообщений
|ГДЕ
| ПользователиДляРассылокУведомленийСообщений.Пользователь = &ТекПользователь";
Запрос.УстановитьПараметр("ТекПользователь", ТекПользователь);
Если Не Запрос.Выполнить().Пустой() Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции
1
АгентБезопасной Нацио
18.06.26
✎
15:30
ПоказатьОповещениеПользователя (ShowUserNotification)
Синтаксис:
ПоказатьОповещениеПользователя(<Текст>, <ДействиеПриНажатии>, <Пояснение>, <Картинка>, <СтатусОповещенияПользователя>, <КлючУникальности>)
2
lirt82
18.06.26
✎
15:46
(1) это клиентский метод но я нахожусь на сервере
&После("ПриНачалеРаботыСистемы")
3
lirt82
19.06.26
✎
11:30
решение
&После("ПриНачалеРаботыСистемы")
Процедура РасшПР_ПриНачалеРаботыСистемы()
СообщенияОСрокахДействияДокументовФизЛиц = ВзаимодействияСПользователямиВызовСервера.УведомленияОСрокахДействияДокументовФизЛиц();
Если ЗначениеЗаполнено(СообщенияОСрокахДействияДокументовФизЛиц) Тогда
ОповеститьПользователяОбОкончанииПроверкиСроковДействияДокументов(СообщенияОСрокахДействияДокументовФизЛиц);
КонецЕсли;
КонецПроцедуры
Процедура ОповеститьПользователяОбОкончанииПроверкиСроковДействияДокументов(СообщенияОСрокахДействияДокументовФизЛиц)
ПоказатьОповещениеПользователя(СообщенияОСрокахДействияДокументовФизЛиц,,, БиблиотекаКартинок.Информация, СтатусОповещенияПользователя.Важное);
КонецПроцедуры
4
vis
19.06.26
✎
12:17
(3) Уважаю людей которые описывают найденное решение, а не просто "тема закрыта".
5
H A D G E H O G s
19.06.26
✎
13:06
Таким авторам надо отрывать руки. По самых хвост.
От создаталей "найдены устаревшие версии платформы".
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший