Функция ОтправкаСМСЧерезФлайСМС(НомерПолучателяСМС,ТекстСообщенияСМС) Экспорт
//Параметры аутентификации смс-центра
//***********************************
Сервер = "sms-fly.com";
Логин = "38098*******";//ввести номер телефона, который логин в систему sms-fly.com
Пароль = "*********";//ввести пароль в систему sms-fly.com
Если СтрДлина(НомерПолучателяСМС) > 12 ИЛИ СтрДлина(НомерПолучателяСМС) < 10 Тогда
Предупреждение("Неверный формат номера телефона! Пример: 380988547880 или 0988547880");
Возврат Ложь;
КонецЕсли;
Попытка
Источник = КаталогВременныхФайлов()+"send"+НомерПолучателяСМС+".xml";
Результат = ПолучитьИмяВременногоФайла();
Запись = Новый ЗаписьXML;
Запись.ОткрытьФайл(Источник, "UTF-8");
Запись.ЗаписатьОбъявлениеXML(); //<?xml version="1.0" encoding="UTF-8"?>
Запись.ЗаписатьНачалоЭлемента("request");
Запись.ЗаписатьНачалоЭлемента("operation");
Запись.ЗаписатьТекст("SENDSMS");
Запись.ЗаписатьКонецЭлемента();
Запись.ЗаписатьНачалоЭлемента("message");
Запись.ЗаписатьАтрибут("start_time","AUTO");
Запись.ЗаписатьАтрибут("end_time","AUTO");
Запись.ЗаписатьАтрибут("livetime","4");
Запись.ЗаписатьАтрибут("rate","120");
Запись.ЗаписатьАтрибут("desc","Alfaname");//альфаимя - это сокращенное имя компании
Запись.ЗаписатьАтрибут("source","Alfaname");
Запись.ЗаписатьНачалоЭлемента("body");
Запись.ЗаписатьТекст(ТекстСообщенияСМС);
Запись.ЗаписатьКонецЭлемента();
Запись.ЗаписатьНачалоЭлемента("recipient");
Запись.ЗаписатьТекст(НомерПолучателяСМС);
Запись.ЗаписатьКонецЭлемента();
Запись.ЗаписатьКонецЭлемента();
Запись.ЗаписатьКонецЭлемента();
Запись.Закрыть();
Соединение = Новый HTTPСоединение(Сервер,,Логин,Пароль,);
АдресСкрипта = "/api/api.php";
Соединение.ОтправитьДляОбработки(Источник,АдресСкрипта,Результат);
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(Результат);
Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл
ТекущаяСтрока = Текст.ПолучитьСтроку(НомерСтроки);
Если Найти(ТекущаяСтрока,"ACCEPT") > 0 Тогда
Сообщить("Сообщение успешно отправлено!");
Возврат Истина;
ИначеЕсли Найти(ТекущаяСтрока,"XMLERROR") > 0 Тогда
Сообщить("Некорректный XML!");
Возврат Ложь;
ИначеЕсли Найти(ТекущаяСтрока,"ERRSTARTTIME") > 0 Тогда
Сообщить("Не корректное время начала отправки!");
Возврат Ложь;
ИначеЕсли Найти(ТекущаяСтрока,"ERRENDTIME") > 0 Тогда
Предупреждение("Не корректное время окончания рассылки!");
Возврат Ложь;
ИначеЕсли Найти(ТекущаяСтрока,"ERRPHONES") > 0 Тогда
Сообщить("Неверно задан номер телефона получателя!");
Возврат Ложь;
ИначеЕсли Найти(ТекущаяСтрока,"ERRALFANAME") > 0 Тогда
Сообщить("Данное альфанумерическое имя использовать запрещено, либо ошибка!");
Возврат Ложь;
ИначеЕсли Найти(ТекущаяСтрока,"ERRTEXT") > 0 Тогда
Сообщить("Некорректный текст сообщения!");
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Исключение
Сообщить(ОписаниеОшибки());
Возврат Ложь;
КонецПопытки;
КонецФункции
