Написать запорос
Киров(Россия )
01.01.1990(34 года)
15 |
0
3 ноября 2021 в 17:16:18
(3 года 2 недели 5 дней 23 часа назад)
V8.x БИТ:Красота 8
04.08.2018 12:08:28
до 04.08.2018
Есть РегистрНакопления.Бонусы
Нужно что бы клиенту отправлялось смс с кол-вом бонусов ПОСЛЕ посещения (после проведения документа Оказания услуг)
Нужно именно настроить что бы подтягиволось количество бонусов от куда то.. т.е. из регистра накоплений...
Уже сделано:
&НаКлиенте
Процедура ОтправитьСМС1(Команда)
СмсКлиенту1();
КонецПроцедуры
//Если выбрали смс оповещение , то создаём документ "рассылка"
&НаСервере
Процедура СмсКлиенту1()
ЗапросТелефона = Новый Запрос;
ЗапросТелефона.Текст = "ВЫБРАТЬ
| КонтактнаяИнформация.Объект,
| КонтактнаяИнформация.Вид,
| КонтактнаяИнформация.Поле3,
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &ТекущийКлиент";
ЗапросТелефона.УстановитьПараметр("ТекущийКлиент",Объект.Клиент);
ЗапросТелефона.УстановитьПараметр("СотовыйТелефон", Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Сотовый телефон"));
РезультатВыбораТелефона = ЗапросТелефона.Выполнить().Выбрать();
Пока РезультатВыбораТелефона.Следующий()Цикл
ТелефонКлиента = РезультатВыбораТелефона.Представление;
//КонецЕсли;
КонецЦикла;
НовоеСМС = Документы.Рассылка.СоздатьДокумент();
НовоеСМС.Дата = ТекущаяДата();
НовоеСМС.ОбработкаSMSРассылки = Справочники.ОбработкиSMSрассылки.НайтиПоНаименованию("Stream-Telecom SMS");
НовоеСМС.ДоставитьСообщениеВУказанноеВремя = Истина;
НовоеСМС.ДатаОтправки = ТекущаяДата();
НовоеСМС.ТекстФиксированный = ЛОЖЬ;
НовоеСМС.Комментарий = Объект.Ссылка;
НовоеСМС.Записать(РежимЗаписиДокумента.Проведение);
НаборЗаписейРегистра = РегистрыСведений.СообщенияSMS.СоздатьНаборЗаписей();
НаборЗаписейРегистра.Отбор.Источник.Установить(Объект.Ссылка);
НоваяЗАПИСЬ = НаборЗаписейРегистра.Добавить();
НоваяЗАПИСЬ.Рассылка = НовоеСМС.Ссылка;
НоваяЗАПИСЬ.ВидСообщения = Справочники.ВидыСообщенийСМС.НайтиПоНаименованию("Бонус");
НоваяЗАПИСЬ.Получатель = Объект.Пациент;
НоваяЗАПИСЬ.ДатаОтправки = ТекущаяДата();
НоваяЗАПИСЬ.Источник = Объект.Ссылка;
НоваяЗАПИСЬ.СтатусОтправки = Перечисления.СтатусыОтправкиСообщений.НеОтправлено;
НоваяЗАПИСЬ.ТелефонПолучателя =ТелефонКлиента;
ТекстСМС = ""+Объект.Клиент.Имя+" "+Объект.Клиент.Отчество+", Ваш бонусный баланс: "+Объект.Клиент.Бонус+" руб.";
НоваяЗАпись.Текст = ТекстСМС;
НаборЗаписейРегистра.Записать();
КонецПроцедуры