Готовый модуль отправки СМС 1С:Предприятие 7
С помощью API можно отправлять одиночные СМС-сообщения и осуществлять СМС-рассылку из 1С:Предприятие 7.
Обработка - файл "Отправка СМС.ert". Обработчик работает на любой конфигурации 1С:Предприятие 7 и требует наличия компоненты v7plus.dll (в архиве с исходниками прилагается), которую нужно поместить в каталог БД. В некоторых случаях может потребоваться прописать данную компоненту, в зависимости от операционной системы.
Шаг 1 - Зарегистрируйтесь в нашем личном кабинете
На Ваш e-mail поступит пароль, который необходимо будет использовать в API.
Шаг 2 - Скачайте архив с исходным открытым кодом отправки СМС из 1C:Предприятие 7
Архив содержит исходный код файла обработчика "Отправка СМС.ert", текст кода и библиотеку V7PLUS.DLL. Скачать готовый скрипт отправки СМС из 1С:Предприятие 7.
Пример отправки СМС из 1С:
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
Функция ПреобразоватьСтрокуВУТФ8(Стр) //преобразование текста в формат utf-8
Длина=СтрДлина(Стр);
Итог="";
Для Н=1 По Длина Цикл
Знак=Сред(Стр,Н,1);
Код=КодСимв(Знак);
Если Код<128 Тогда
Итог=Итог+Знак;
Иначе
Если (Код>=КодСимв("А"))И(Код<=КодСимв("п")) Тогда
Итог=Итог+Симв(208)+Симв(144+Код-КодСимв("А"));
ИначеЕсли (Код>=КодСимв("р"))И(Код<=КодСимв("я")) Тогда
Итог=Итог+Симв(209)+Симв(128+Код-КодСимв("р"));
ИначеЕсли (Знак="ё") Тогда
Итог=Итог+Симв(209)+Симв(145);
ИначеЕсли (Знак="Ё") Тогда
Итог=Итог+Симв(208)+Симв(129);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат Итог;
КонецФункции
Процедура Выполнить()
Отправитель="+79020982348";
Логин=СокрЛП(ТекстЛогин);
Пароль=СокрЛП(ТекстПароль);
Получатель=СокрЛП(Телефон);
Сообщение=СокрЛП(ТекстСМС);
Сообщение=ПреобразоватьСтрокуВУТФ8(Сообщение);
ТекстЗапроса="http://api.sms-prosto.ru/?method=push_msg&email="+Логин+"&password="+Пароль+"&text="+Сообщение+"&phone=%20"+Получатель+"&sender_name="+Отправитель;
Результат="";
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда
ТекстОшибки = "Компонента v7plus.dll не найдена!";
Форма.Параметр=0;
Сообщить(ТекстОшибки);
Возврат;
КонецЕсли;
Ошибка=0;
Соединение = СоздатьОбъект("AddIn.V7HttpReader");
Попытка
Соединение.ОтправитьДляОбработки(ТекстЗапроса,каталогиб()+"\temp.txt", 1,Результат, 2);
Исключение
Ошибка=1;
Предупреждение("СМС не отправлено!");
Форма.Параметр=0;
КонецПопытки;
Если Ошибка=0 Тогда
Предупреждение("СМС отправлено!");
Форма.Параметр=1;
КонецЕсли;
Сообщить("Ответ сервера: "+Результат);
КонецПроцедуры
|
