Отправка и получение СМС в системе 1С:Предприятие

Платформа "Персональный SMS Сервер" совместима в том числе с системой 1С:Предприятие, начиная с версии 8.0. Используя встроенный язык 1С, можно как отправлять SMS-сообщения из системы 1С, так и регистрировать полученные SMS-сообщения в этой системе.

Платформа "Персональный SMS Сервер" интегрируется с системой 1С:Предприятие через COM-интерфейс. Ниже Вы найдете инструкцию по отправке SMS-сообщений из 1С, а также по получению SMS-сообщений.

Перед настройкой SMS-связи в 1С, Вам необходимо установить приложение "Персональный SMS Сервер". Это приложение работает с GSM-устройством (GSM-модемом или мобильным телефоном), в которое устанавливается SIM-карта любого мобильного оператора. По сравнению с интернет-шлюзом, преимуществом прямой GSM-связи является возможность как приема, так и передачи SMS-сообщений, а также однозначной идентификации Вашей компании по номеру телефона.

Отправка SMS из 1С

Для отправки SMS-сообщения необходимо:

• Создать COM-объект HeadwindGSM.SMSDriver
• Соединиться с GSM-модемом
• Создать COM-объект HeadwindGSM.SMSMessage
• Инициализировать получателя сообщения (SMSMessage.To) и тело сообщения (SMSMessage.Body)
• Отправить SMS-сообщение (SMSMessage.Send)

Простейшая процедура отправки SMS на языке 1С выглядит так:

Процедура ОтправитьСМС(Кнопка) // Соединение с GSM-устройством // Достаточно соединиться 1 раз перед отсылкой нескольких сообщений Устройство = Новый COMОбъект("HeadwindGSM.SMSDriver"); Устройство.Connect(); // Отправка SMS-сообщения SMSсообщение = Новый COMОбъект("HeadwindGSM.SMSMessage"); SMSсообщение.To = "79111992948"; SMSсообщение.Body = "Тестовое сообщение"; SMSсообщение.Send(); КонецПроцедуры

Примечание: метод SMSMessage.Send помещает сообщение в очередь отправки. Нет гарантии, что сообщение отправится сразу же после вызова метода.

Запрос баланса счета

Баланс счета запрашивается с помощью команды USSD (обычно *100#).

Для отправки SMS-сообщения необходимо:

• Создать COM-объект HeadwindGSM.SMSDriver
• Соединиться с GSM-модемом
• Создать COM-объект HeadwindGSM.USSDRequest
• Инициализировать команду USSD (USSDRequest.Content)
• Отправить запрос и дождаться ответа оператора (USSDRequest.SendSync(Таймаут))

Простейшая процедура запроса баланса на языке 1С выглядит так:

Процедура БалансСчетаОператора(Кнопка) // Соединение с GSM-устройством // Достаточно соединиться 1 раз перед отсылкой нескольких сообщений Устройство = Новый COMОбъект("HeadwindGSM.SMSDriver"); Устройство.Connect(); // Отправка USSD-команды КомандаUSSD = Новый COMОбъект("HeadwindGSM.USSDRequest"); КомандаUSSD.Content = "*100#"; // 10 секунд таймаут БалансСчета = КомандаUSSD.SendSync(10); Сообщить(БалансСчета); КонецПроцедуры

Получение SMS в 1С

Для получения SMS-сообщений необходимо зарегистрировать обработчик сообщений от платформы "Персональный SMS Сервер". В отличие от предыдущих функций, для получения SMS-сообщений недостаточно регистрации внешней компоненты, а необходима специальная конфигурация системы 1С.

Получение SMS-сообщений в системе 1С реализуется следующим образом:

• При начале работы системы создается объект HeadwindSMS.SMSDriver и производится соединение с модемом
• При начале работы системы создается объект, ответственный за получение сообщений, HeadwindSMS.SMSHandler, вызывается метод регистрации получателя SMS в платформе "Персональный SMS Сервер" (SMSHandler.Register), а также установка функции-обработчика входящих сообщений
• Создается функция обработки входящих сообщений
• При окончании работы системы вызывается удаление получателя SMS (SMSHandler.Unregister)

Конфигурация модуля приложения выглядит следующим образом:

Перем глСМСДрайвер; Перем глСМСОбработчик; ... // Обработчик входящего сообщения, который вызывается при получении SMS // Параметр СМС имеет тип HeadwindGSM.SMSMessage Процедура ПриВходящемСМС(СМС) Сообщить(СМС.Body); КонецПроцедуры Процедура ПриНачалеРаботыСистемы() глСМСДрайвер = Новый COMОбъект("HeadwindGSM.SMSDriver"); Попытка глСМСДрайвер.Connect(); Исключение ОбщегоНазначения.ФиксацияОшибкиВЖурнал("Не удалось соединиться с GSM модемом " + ОписаниеОшибки()); КонецПопытки; глСМСОбработчик = Новый COMОбъект("HeadwindGSM.SMSHandler"); глСМСОбработчик.Register(); ДобавитьОбработчик глСМСОбработчик.IncomingSMS, ПриВходящемСМС .... КонецПроцедуры // ПриНачалеРаботыСистемы() Процедура ПриЗавершенииРаботыСистемы() глСМСОбработчик.Unregister(); ... КонецПроцедуры // ПриЗавершенииРаботыСистемы()