Создание конфигурации для мобильного приложения. Создание конфигурации для мобильного приложения Создадим новую пустую базу. Дадим имя конфигурации Pomodoro
 Скачать 384.78 Kb.
|
|
Создание конфигурации для мобильного приложения Создадим новую «пустую» базу. Дадим имя конфигурации «Pomodoro». Обязательно укажем свойство «назначение использования» - «Мобильное приложение»  а в свойстве «Требуемые разрешения мобильного приложения» установим флажки «Локальные уведомления» и «Встроенные покупки»  Создадим регистр сведений, в котором будет храниться информация о «полученных» помидорах (количество законченных отрезков времени, в течение которого пользователь продуктивно работал)  Таймер средствами 1С В обработке можно запустить таймер и дождаться окончания его работы, либо остановить таймер. В первом случае пользователь получит PUSH-уведомление о том, что он заработал очередной помидор (запись в регистр сведений «Помидоры»), во втором случае PUSH-уведомление о том, что помидор не получен (запись в регистр не производится). Также на форме в процессе работы таймера будет показан индикатор, выполняться обратный отсчет и показываться текущее время и время окончания работы таймера Создадим обработку Таймер и основную форму  Для формы создадим команду «Запустить таймер», обработчик действия (нажатие): &НаКлиенте Процедура ЗапуститьТаймер(Команда) Элементы.ФормаОстановитьТаймер.Доступность = Истина; Элементы.ФормаЗапуститьТаймер.Доступность = Ложь; КоличествоМинут = 25; МаксимальноеЗначение = КоличествоМинут * 60; Элементы.Индикатор.МинимальноеЗначение = 0; Элементы.Индикатор.МаксимальноеЗначение = ЭтотОбъект.МаксимальноеЗначение; ЭтотОбъект.Начало = ТекущаяДата(); ЭтотОбъект.Конец = Начало + МаксимальноеЗначение; ЭтотОбъект.ТекущаяДата = ТекущаяДата(); ПодключитьОбработчикОжидания("ВыполнитьОтсчет",1); КонецПроцедуры И команду «ОстановитьТаймер», обработчик действия (нажатие): &НаКлиенте Процедура ОстановитьТаймер(Команда) Элементы.ФормаОстановитьТаймер.Доступность = Ложь; Элементы.ФормаЗапуститьТаймер.Доступность = Истина; ОтключитьОбработчикОжидания("ВыполнитьОтсчет"); #Если МобильноеПриложениеКлиент Тогда Уведомление = Новый ДоставляемоеУведомление; Уведомление.Заголовок = "К сожалению, Вы не получите помидор."; Уведомление.Текст = "К сожалению, Вы не получите помидор."; Уведомление.ЗвуковоеОповещение = ЗвуковоеОповещение.ПоУмолчанию; ДоставляемыеУведомления.ДобавитьЛокальноеУведомление(Уведомление); ДоставляемыеУведомления.ПодключитьОбработчикУведомлений("ПриПолученииУведомления"); #Иначе Сигнал(); Сообщение = Новый СообщениеПользователю; Сообщение.Текст = "К сожалению, Вы не получите помидор."; Сообщение.Сообщить(); #КонецЕсли КонецПроцедуры В этих процедурах подключается (либо отключается) обработчик ожидания «ВыполнитьОтсчет», а также выполняется работа с PUSH-уведомлениями Уведомление = Новый ДоставляемоеУведомление; Код процедуры обработчика ожидания ВыполнитьОтсчет»: &НаКлиенте Процедура ВыполнитьОтсчет() Если ЭтотОбъект.ТекущаяДата <= ЭтотОбъект.Конец Тогда ЭтотОбъект.Индикатор = ЭтотОбъект.ТекущаяДата - ЭтотОбъект.Начало; ЭтотОбъект.ТекущаяДата = ТекущаяДата(); ОсталосьАбсолютно = ЭтотОбъект.МаксимальноеЗначение - ЭтотОбъект.Индикатор; ЭтотОбъект.Осталось = "" + Формат(Цел(ОсталосьАбсолютно/60), "ЧЦ=2; ЧН=00; ЧВН=") + ":" + Формат(ОсталосьАбсолютно - Цел(ОсталосьАбсолютно/60)*60, "ЧЦ=2; ЧН=00; ЧВН="); ЭтотОбъект.ОбновитьОтображениеДанных(); Иначе ЭтотОбъект.Индикатор = МаксимальноеЗначение; ЭтотОбъект.ТекущаяДата = ЭтотОбъект.Конец; ЭтотОбъект.Осталось = Формат(0, "ЧЦ=2; ЧН=00; ЧВН=") + ":" + Формат(0, "ЧЦ=2; ЧН=00; ЧВН="); #Если МобильноеПриложениеКлиент Тогда Уведомление = Новый ДоставляемоеУведомление; Уведомление.Заголовок = "Вы собрали еще один помидор."; Уведомление.Текст = "Вы собрали еще один помидор. Отдохните " + ПолучитьКоличествоМинутОтдыхаНаСервере(ЭтотОбъект.ТекущаяДата) + " минут."; Уведомление.ЗвуковоеОповещение = ЗвуковоеОповещение.ПоУмолчанию; ДоставляемыеУведомления.ДобавитьЛокальноеУведомление(Уведомление); ДоставляемыеУведомления.ПодключитьОбработчикУведомлений("ПриПолученииУведомления"); #Иначе Сигнал(); Сообщение = Новый СообщениеПользователю; Сообщение.Текст = "Вы собрали еще один помидор. Отдохните " + ПолучитьКоличествоМинутОтдыхаНаСервере(ЭтотОбъект.ТекущаяДата) + " минут."; Сообщение.Сообщить(); #КонецЕсли Элементы.ФормаОстановитьТаймер.Доступность = Ложь; Элементы.ФормаЗапуститьТаймер.Доступность = Истина; ОтключитьОбработчикОжидания("ВыполнитьОтсчет"); КонецЕсли; КонецПроцедуры &НаСервере Функция ПолучитьКоличествоМинутОтдыхаНаСервере(Дата) //Занесем запись в регистр РС = РегистрыСведений.Помидоры.СоздатьМенеджерЗаписи(); РС.Активность = Истина; РС.Количество = 1; РС.Период = Дата; РС.Записать(); //по умолчанию 5 минут //после каждого 4-го помидора в день - 15 минут Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | СУММА(Помидоры.Количество) КАК Количество |ИЗ | РегистрСведений.Помидоры КАК Помидоры |ГДЕ | Помидоры.Период МЕЖДУ НАЧАЛОПЕРИОДА(&Период, ДЕНЬ) И КОНЕЦПЕРИОДА(&Период, ДЕНЬ)"; Запрос.УстановитьПараметр("Период", Дата); Результат = Запрос.Выполнить().Выгрузить(); Если Результат.Количество() > 0 Тогда Сумма = Результат[0].Количество; Если Цел(Сумма/4) = (Сумма/4) Тогда Возврат 15; КонецЕсли; КонецЕсли; Возврат 5; КонецФункции Вывод PUSH-уведомлений реализуется так: &НаКлиенте Процедура ПриПолученииУведомления(Уведомление, Локальное, Показано) Экспорт Если Локальное Тогда Сообщить(Уведомление.Текст); КонецЕсли; КонецПроцедуры В коде выполняется управление доступностью кнопок запуска и остановки таймера в зависимости от его состояния (запущен таймер, либо остановлен) – осталось установить первоначальную видимость этих кнопок при открытии формы: &НаКлиенте Процедура ПриОткрытии(Отказ) Элементы.ФормаОстановитьТаймер.Доступность = Ложь; Элементы.ФормаЗапуститьТаймер.Доступность = Истина; КонецПроцедуры Статистика – диаграмма Создадим обработку Статистика и основную форму  Полную реализацию Вы можете посмотреть во вложенном файле конфигурации. Сейчас рассмотрим программный вывод анимированной диаграммы на форму Инициализация: &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Для Каждого Стр Из ТипДиаграммы Цикл Элементы.ВидДиаграммы.СписокВыбора.Добавить(Стр, Стр, , );//Статистика Элементы.ВидДиаграммыПродуктивность.СписокВыбора.Добавить(Стр, Стр, , );//Продуктивность КонецЦикла; //Статистика Период.Вариант = ВариантСтандартногоПериода.ЭтаНеделя; Периодичность = "ДЕНЬ"; ВидДиаграммы = ТипДиаграммы.Изометрическая; ОбновитьДиаграмму(); //Продуктивность ПериодПродуктивность.Вариант = ВариантСтандартногоПериода.ЭтаНеделя; ПериодичностьПродуктивность = "ДЕНЬНЕДЕЛИ"; ВидДиаграммыПродуктивность = ТипДиаграммы.Изометрическая; ОбновитьДиаграммуПродуктивность(); КонецПроцедуры Вывод диаграммы: &НаКлиенте Процедура ВидДиаграммыПриИзменении(Элемент) ОбновитьДиаграмму(); КонецПроцедуры &НаСервере Процедура ОбновитьДиаграмму() // Очистить диаграмму, возможно ранее в нее уже выводились данные. Диаграмма.Очистить(); //Диаграмма.ОбластьЗаголовка.Текст = "Статистика собранных помидоров"; //Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; //Диаграмма.МаксимумСерийКоличество = 7; // Запретить обновление диаграммы на время вывода данных. Диаграмма.Обновление = Ложь; //Диаграмма.Анимация = АнимацияДиаграммы.Использовать; Диаграмма.ТипДиаграммы = ?(ВидДиаграммы <> Неопределено, ВидДиаграммы, ТипДиаграммы.ГистограммаОбъемная);//ТипДиаграммы.ГистограммаОбъемная; // Установить единственную точку. Диаграмма.КоличествоТочек = 1; Диаграмма.Точки[0].Текст = "Количество"; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | НАЧАЛОПЕРИОДА(Помидоры.Период, ДЕНЬ) КАК Период, | СУММА(Помидоры.Количество) КАК Количество |ИЗ | РегистрСведений.Помидоры КАК Помидоры |ГДЕ | Помидоры.Период МЕЖДУ &НачалоПериода И &КонецПериода | |СГРУППИРОВАТЬ ПО | НАЧАЛОПЕРИОДА(Помидоры.Период, ДЕНЬ) | |УПОРЯДОЧИТЬ ПО | Период"; Запрос.Текст = СтрЗаменить(Запрос.Текст,"ДЕНЬ" , Периодичность); Запрос.УстановитьПараметр("НачалоПериода", Период.ДатаНачала); Запрос.УстановитьПараметр("КонецПериода", Период.ДатаОкончания); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ФорматнаяСтрока = "ДФ=dd.MM.yyyy"; Если Периодичность = "МЕСЯЦ" Тогда ФорматнаяСтрока = "ДФ=MMMM.yyyy"; ИначеЕсли Периодичность = "ГОД" Тогда ФорматнаяСтрока = "ДФ=yyyy"; КонецЕсли; Пока Выборка.Следующий() Цикл КоличествоСерий = Диаграмма.Серии.Количество(); Диаграмма.КоличествоСерий = КоличествоСерий + 1; Диаграмма.Серии[КоличествоСерий].Текст = Формат(Выборка.Период, ФорматнаяСтрока); Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.Количество); КонецЦикла; Диаграмма.ОбластьЛегенды.Прокрутка = Истина; КонецПроцедуры Управление рекламой Для управления рекламой используется свойство глобального контекста «ОтображениеРекламы» Реклама будет выводится в виде рекламного баннера вверху, либо внизу (свойство «ОтображениеРекламногоБаннера») окна приложения:  Включение показа рекламного баннера реализуем в Модуле управляемого приложения в процедуре ПриНачалеРаботыСистемы(): Процедура ПриНачалеРаботыСистемы() Если СлужебныйВызовСервера.ПоказыватьРекламу() Тогда #Если МобильноеПриложениеКлиент ИЛИ МобильноеПриложениеСервер Тогда ОР = ОтображениеРекламы; ОР.УстановитьИспользование(Истина); ОР.SetAdBannerID("ca-app-pub-1356011826682846/4780285411"); ОР.УстановитьОтображениеРекламногоБаннера(ОтображениеРекламногоБаннера.Верх); #КонецЕсли КонецЕсли; КонецПроцедуры В строке ОР.SetAdBannerID("ca-app-pub-1356011826682846/4780285411") в параметре процедуры SetAdBannerID укажите Идентификатор рекламного блока, полученный в AddMod (https://apps.admob.com)  Управление покупками Управление покупками выполняется в следующей последовательности: ВП = ВстроенныеПокупки; ВП.НачатьПриобретение(); ВП.ИзрасходоватьПокупку(); ОплатаПроизведена = ВП.НачатьПриобретение(); |