На 8.3.6.166 - у меня взлетело и нормально, поставил 8.3.6.182 ни чего не работает! Кто пробовал? У кого работает? Код:
#Если МобильноеПриложениеКлиент Тогда
Уведомление = Новый ДоставляемоеУведомление;
Уведомление.Заголовок = "Новая заявка";
Уведомление.Текст = СокрЛП(Строка.Наименование) + " - " + СокрЛП(Строка.Количество);
Уведомление.ЗвуковоеОповещение=ЗвуковоеОповещение.ПоУмолчанию;
ДоставляемыеУведомления.ДобавитьЛокальноеУведомление(Уведомление);
#КонецЕсли
ПоказатьОтветы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4) flyer,
Не помогло не работают!
&НаКлиенте
Функция СоздатьУведомление(Заголовок, Текст, Данные = 0)
Уведомление = Новый ДоставляемоеУведомление;
Уведомление.Заголовок = Заголовок;
Уведомление.Текст = Текст;
Уведомление.Данные = Данные;
Уведомление.ЗвуковоеОповещение = ЗвуковоеОповещение.ПоУмолчанию;
Возврат Уведомление;
КонецФункции
&НаКлиенте
Процедура Войти(Команда)
#Если МобильноеПриложениеКлиент Тогда
Уведомление = СоздатьУведомление("Заголовок", "Текст", 2014);
ДоставляемыеУведомления.ДобавитьЛокальноеУведомление(Уведомление);
#КонецЕсли
КонецПроцедуры
ПоказатьНе помогло не работают!
Заработало!!! :) Спустя 3 часа правда. Уведомлялку пустил в 16:24 а пришло в 19:24. Видимо нужно не просто в формате UTC но и по Лондону.
На 5.0 правда не пришло. Но я еще потестирую.
Вот рабочий код.
На 5.0 правда не пришло. Но я еще потестирую.
Вот рабочий код.
ДатаПоявления = ТекущаяДата() + (15 - (3 * 3600));
ДатаПоявленияТекст = Формат(ДатаПоявления, "ДФ=yyyyMMddHHmmss");
Текст = "Сейчас: " + ТекущаяДата() + ". Появится: " + ДатаПоявления;
Сообщить("Добавлено: " + Текст);
Уведомить(Текст, ДатаПоявленияТекст);
Процедура Уведомить(Текст, ДатаПоявления = Неопределено, Заголовок = "1С") Экспорт
#Если МобильноеПриложениеКлиент Тогда
Уведомление = Новый ДоставляемоеУведомление;
Уведомление.Заголовок = Заголовок;
Уведомление.Текст = Текст;
Если Не ДатаПоявления = Неопределено Тогда
Уведомление.ДатаПоявленияУниверсальноеВремя = ДатаПоявления;
КонецЕсли;
ДоставляемыеУведомления.ДобавитьЛокальноеУведомление(Уведомление);
#Иначе
СообщениеПользователю = Новый СообщениеПользователю;
СообщениеПользователю.Текст = Текст;
СообщениеПользователю.Сообщить();
#КонецЕсли
КонецПроцедуры // Уведомить Показать
(10) dj_serega,
Твой тоже работает, я просто не учёл, что при открытом приложении не работает, а когда свернёшь всё ок, но я свой сделал вот так:
Мало ли какие часовые пояса настроены!
Твой тоже работает, я просто не учёл, что при открытом приложении не работает, а когда свернёшь всё ок, но я свой сделал вот так:
#Если МобильноеПриложениеКлиент Тогда
ДатаПоявления = ТекущаяДата() + (15 - (6 * 3600));
ДатаПоявленияТекст = УниверсальноеВремя(ТекущаяДата());//Формат(ДатаПоявления, "ДФ=yyyyMMddHHmmss");
//ДатаПоявленияТекст = Дата(Формат(ДатаПоявления, "ДФ=yyyyMMddHHmmss"));
//Сообщить(ДатаПоявленияТекст);
Текст = "Сейчас: " + ТекущаяДата() + ". Появится: " + ДатаПоявления;
//Сообщить(Текст);
//Сообщить("Добавлено: " + Текст);
Уведомить(Текст, ДатаПоявленияТекст);
ПоказатьМало ли какие часовые пояса настроены!
Возник ещё вопрос, есть код:
, в таблицу новых складываются новые группы заявок, при выполнении выпригивает только 1-я группа, есть подозрение, что цикл сильно быстро пробигает и поэтому не успевает все уведомления доставить. Как поправить, таблицаНовых максимум может быть 10 строк?
Для Каждого Строка Из ТаблицаНовых Цикл
Сообщить(СокрЛП(Строка.Наименование) + " - " + СокрЛП(Строка.Количество));
#Если МобильноеПриложениеКлиент Тогда
ДатаПоявления = ТекущаяДата() + (15 - (6 * 3600));
ДатаПоявленияТекст = УниверсальноеВремя(ТекущаяДата());//Формат(ДатаПоявления, "ДФ=yyyyMMddHHmmss");
Текст = СокрЛП(Строка.Наименование) + " - " + СокрЛП(Строка.Количество);
Уведомить(Текст, ДатаПоявленияТекст);
#КонецЕсли
Ном = Ном + 1;
КонецЦикла;
Показать
Пока не найдё более оптимального решения выкрутился так:
Для Каждого Строка Из ТаблицаНовых Цикл
#Если МобильноеПриложениеКлиент Тогда
ДатаПоявленияТекст = УниверсальноеВремя(ТекущаяДата());//Формат(ДатаПоявления, "ДФ=yyyyMMddHHmmss");
Текст = СокрЛП(Строка.Наименование) + " - " + СокрЛП(Строка.Количество);
Уведомить(Текст, ДатаПоявленияТекст);
Сек = 1;
КонДата = ТекущаяДата() + сек;
Пока ТекущаяДата() < КонДата Цикл
КонецЦикла;
#КонецЕсли
КонецЦикла;
Показать
У меня работает такой код
минута в минуту
&НаСервере
Функция ПолучитьДатаПоявленияУниверсальноеВремяНаСервере(Срок, ЧасовойПояс)
УВ = УниверсальноеВремя(Срок, ЧасовойПояс);
Возврат УВ;
КонецФункции
&НаКлиенте
Функция СоздатьУведомление(Заголовок, Текст, Данные = 0, ДатаСрабатывания, ИнтервалПовторения = 0)
Уведомление = Новый ДоставляемоеУведомление;
Уведомление.Заголовок = Заголовок;
Уведомление.Текст = Текст;
Уведомление.Данные = Данные;
Уведомление.ДатаПоявленияУниверсальноеВремя = ПолучитьДатаПоявленияУниверсальноеВремяНаСервере(ДатаСрабатывания, "Etc/GMT-3");
Уведомление.ИнтервалПовтора = ИнтервалПовторения;
Уведомление.ЗвуковоеОповещение = ЗвуковоеОповещение.ПоУмолчанию;
Возврат Уведомление;
КонецФункции
Показатьминута в минуту
У меня локальные уведомления почему то работают если только прописать это:
...в модуль управляемого приложения. А если в форме обработки то не в какую. Так и должно быть?
Процедура ПриПолученииУведомления(Уведомление, Локальное, Показано) экспорт
Если Локальное Тогда
Сообщить(Уведомление.Текст);
КонецЕсли;
КонецПроцедуры
...в модуль управляемого приложения. А если в форме обработки то не в какую. Так и должно быть?
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот