Отправка смс

Вчера закончили софтинку а-ля СРМ. В виде внешней обработки. Цепляется к стандартной бухгалтерии, трогать конфу - религия не позволяет. Вытаскивает дебиторов (по видам номенклатуры), определяет с просроченной задолженностью, далее идет бизнес процесс (отсылка писем, подверждения получения, мероприяития по ограничению, отключению и пр.). Начало бизнес-процесса - рассылка. Каждый день клиент получает голосовой звонок (синтезатор речи), факс, е-майл, СМС. Работает без человека, состояния бизнеспроцесса по контрагенту сунули в дбф-ки, чтоб конфу не трогать.
Голос, факс - через вента-сервер, факс - готовится ворд, генерится пдф, голос - генерится текстовый файл, который тетенька читает, емайл - через 1С клиент, смс - через оператора рассылок. Все пашет из терминала.
Дабы юзеры не лазили по паролям - все что связано с залогиниванием - вынес в модуль объекта, модуль закрываешь паролем.
По самой отправке. Через модем - легко, но идея хреновая, пропускная способность никакая и цены вдвое выше чем у операторов СМС-рассылок. По операторам. Среди:
http://sms2mobile.ru/ceni/
http://www.sms39.ru/price.html
http://sms-manager.ru/content/view/15/39/
http://cabinet.profisend.ru/delivery_tariffs
http://sms-host.ru/price/
http://smssait.ru/-sms-.html
http://www.my-sms.ru/payment/calculator
http://www.smsintel.ru/cenovaya-politika/rassylka-po-vashey-baze/
http://sms-uslugi.ru/price
http://prostor-sms.ru/prices.php
http://sms39.com/index.php/2010-07-12-13-13-25/28-2010-07-12-14-35-11.html
http://content.mail.ru/static/smscorp/service
http://sms.ru/?panel=price
http://sms-manager.ru/content/view/15/39/
http://www.smsintel.ru/cenovaya-politika/rassylka-po-vashey-baze/
http://sms-uslugi.ru/price
выбран http://sms-uslugi.ru/price
Основания: самая низкая цена (22 коп, зависит от объема купленного пакета). Интерфейс с 1С, полная функциональность. Документации нет, есть обработка, с хорошей идеей, но написана блондинкой.
Вобщем эту срань переделал
модуль объекта (там пароли, не забудь закрыть), смс и емайл:

Перем СМСХмл;
Перем КаталогБазы Экспорт;

Функция КаталогБазы() Экспорт
Стр=СтрокаСоединенияИнформационнойБазы();
Возврат(Сред(Стр,7,СтрДлина(Стр)-8)+"\");
КонецФункции

//Блок работы с СМС
Процедура ПодготовитьСМСХмл()
Логин="aaa";
Пароль="sss";
СМСХмл.НачатьПодготовку("data");
СМСХмл.ДобавитьНоду("login", Логин, "", "");
СМСХмл.ДобавитьНоду("password", Пароль, "", "");
СМСХмл.ДобавитьНоду("app", "1C", "", "");
КонецПроцедуры

Функция СоздатьСМСХмл() Экспорт
Файл=Новый Файл(ЭтотОбъект.ИспользуемоеИмяФайла);
Попытка
ЗагрузитьВнешнююКомпоненту(КаталогБазы+"SMSXml.dll");
СМСХмл = Новый("Addin.SMSXml");
Исключение
Сообщить("Внешняя компонента SMSXml.dll не загружена. "+ОписаниеОшибки());
СМСХмл="";
Возврат (Неопределено);
КонецПопытки;

ПодготовитьСМСХмл();
Возврат(СМСХмл);
КонецФункции

Функция ЗапросБалансаСМС() Экспорт
ПодготовитьСМСХмл();
Рез=СМСХмл.Пост("https://transport.sms-pager.com:7214/balance.xml");
Если Рез<>"1" тогда
//Если СМСХмл.Пост("https://transport.sms-pager.com:7214/balance.xml")<>"1" тогда
Сообщить("Ошибка при передаче запроса");
Возврат("");
КонецЕсли;

Если СМСХмл.ПолучитьНоду("code","")="1" тогда
Возврат(СМСХмл.ПолучитьНоду("account",""));
КонецЕсли;
Сообщить(СМСХмл.ПолучитьНоду("descr",""));
Возврат("");
КонецФункции

Функция ОтчетСМС(НачПериода='00010101000000', КонПериода='00010101000000') Экспорт
Если НачПериода > КонПериода тогда
Сообщить("Ошибка. Начало периода больше конца периода");
Возврат(Неопределено);
КонецЕсли;

ПодготовитьСМСХмл();

Если ЗначениеЗаполнено(НачПериода) или ЗначениеЗаполнено(КонПериода) тогда
СМСХмл.ДобавитьНоду("start",Формат(НачПериода,"ДФ='yyyy-MM-dd'"),"","");
СМСХмл.ДобавитьНоду("stop",Формат(КонПериода,"ДФ='yyyy-MM-dd'"),"","");
КонецЕсли;

Если СМСХмл.Пост("https://transport.sms-pager.com:7214/report.xml")<>"1" тогда
Сообщить("Ошибка при передаче");
Возврат(Неопределено);
КонецЕсли;

Если СМСХмл.ПолучитьНоду("code","")<>"1" тогда
Сообщить(СМСХмл.ПолучитьНоду("descr",""));
Возврат(Неопределено);
КонецЕсли;

Если СМСХмл.ЗадатьРодительскуюНоду("data")<>"1" тогда
Сообщить("Пришел не тот ответ, родительская нода не найдена");
Возврат(Неопределено);
КонецЕсли;

//Готовим список рассылок
ТЗ = новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("ДатаВремя",,"Дата / Время",15);
ТЗ.Колонки.Добавить("Всего",,"Всего СМС",6);
ТЗ.Колонки.Добавить("Доставлено",,"Доставлено",6);
ТЗ.Колонки.Добавить("НЕДоставлено",,"Не Доставлено",6);
ТЗ.Колонки.Добавить("ВОжидании",,"Ожидание",6);
ТЗ.Колонки.Добавить("Вочереди",,"Очередь",6);
ТЗ.Колонки.Добавить("Текст",,"Текст СМС",100);
ТЗ.Колонки.Добавить("ИД",,,1);
Для Сч=0 по СМСХмл.КоличествоДетей-1 цикл
ИмяН = СМСХмл.ЗадатьДочернююНоду(Сч,"");
Если ИмяН="sms" тогда
СтрТЗ = тз.Добавить();
СтрТЗ.ДатаВремя = СМСХмл.ПолучитьДочернююНоду("datetime","",-1);
СтрТЗ.ИД = СМСХмл.ПолучитьДочернююНоду("smsid","",-1);
СтрТЗ.Текст = СМСХмл.ПолучитьДочернююНоду("text","",-1);
СтрТЗ.Всего = СМСХмл.ПолучитьДочернююНоду("allCol","",-1);
СтрТЗ.Доставлено = СМСХмл.ПолучитьДочернююНоду("deliveredCol","",-1);
СтрТЗ.НЕДоставлено = СМСХмл.ПолучитьДочернююНоду("notDeliveredCol","",-1);
СтрТЗ.ВОжидании = СМСХмл.ПолучитьДочернююНоду("waitingCol","",-1);
СтрТЗ.Вочереди = СМСХмл.ПолучитьДочернююНоду("enqueuedCol","",-1);
КонецЕсли;
КонецЦикла;
СтрТЗ=ТЗ.ВыбратьСтроку("Для получения подробной информации - выберите рассылку");
Если СтрТЗ=Неопределено Тогда
Возврат(ТЗ);
КонецЕсли;

//Готовим детали по выбранной рассылке
//тут нужна повторная инициализация
ПодготовитьСМСХмл();

Рез=СМСХмл.ДобавитьНоду("smsid", СтрТЗ.ИД,"","");
Рез = СМСХмл.Пост("https://transport.sms-pager.com:7214/report.xml");

Если Рез<>"1" тогда
Сообщить("Произошла ошибка при передаче");
Возврат(Неопределено);
КонецЕсли;

Если СМСХмл.ПолучитьНоду("code","")<>"1" тогда
Сообщить("Ошибка="+СМСХмл.ПолучитьНоду("descr",""));
Возврат(Неопределено);
КонецЕсли;

//Переводы
СЗРус = Новый СписокЗначений;
СЗРус.Добавить("delivered","Доставлено:");
СЗРус.Добавить("notDelivered","Не доставлено:");
СЗРус.Добавить("waiting","В ожидании:");
СЗРус.Добавить("enqueued","В очереди:");
СЗРус.Добавить("cancel","Прекращено:");
СЗРус.Добавить("onModer","На модерации:");

СЗ = Новый СписокЗначений;

СМСХмл.ЗадатьРодительскуюНоду("data");
Для К=0 По СМСХмл.КоличествоДетей-1 Цикл
Если СМСХмл.ЗадатьДочернююНоду(К,"")<>"detail" тогда Продолжить; КонецЕсли;

Для Л=0 по СМСХмл.КоличествоДетей1-1 цикл
Рез = СМСХмл.ЗадатьДочернююНоду1(Л,"");
Представление=СЗРус.НайтиПоЗначению(Рез);
Если Представление=Неопределено тогда Представление=Рез; КонецЕсли;
СтрСЗ = СЗ.Добавить(Представление);
Для М=0 По СМСХмл.КоличествоДетей2-1 Цикл
СтрСЗ = СЗ.Добавить(СМСХмл.ПолучитьДочернююНоду1(М,""));
КонецЦикла;
КонецЦикла;
КонецЦикла;
СЗ.ВыбратьЭлемент();
КонецФункции

Функция ОтослатьСМС(СЗ, ДатаОтправки='00010101000000', ОплатаТолькоЗаДоставленные=Ложь, Спрашивать=Ложь) Экспорт
Подпись="ddd";

ПодготовитьСМСХмл();

СМСХмл.ДобавитьНоду("source",Подпись,"","");
СМСХмл.ДобавитьНоду("onlydelivery",?(ОплатаТолькоЗаДоставленные,"1","0"),"","");
Если ЗначениеЗаполнено(ДатаОтправки) тогда
СМСХмл.ДобавитьНоду("datetime",Формат(ДатаОтправки,"ДФ='yyyy-MM-dd HH:mm:ss'"),"","");
КонецЕсли;

//Формируем телефоны и текст
Для Каждого СтрСЗ Из СЗ Цикл
Для Каждого Тел Из СтрСЗ.Значение Цикл
СМСХмл.ДобавитьНоду("to",СтрСЗ.Представление,"number",Тел.Значение);
КонецЦикла;
КонецЦикла;

//Если нужно спрашивать, то выводим инфу по количеству и цене рассылки
Если Спрашивать тогда
Если Не Отсылать(СМСХмл) тогда
Сообщить("Оператор отказался от рассылки");
Возврат (Ложь);
КонецЕсли;
КонецЕсли;

//Отсылаем
СМСХмл.ДобавитьНоду("action","send","","");
Результат = СМСХмл.Пост("https://transport.sms-pager.com:7214/send.xml");
Если Результат<>"1" тогда
Возврат(Ложь);
КонецЕсли;
Возврат(Истина);
КонецФункции

Функция Отсылать(СМСХмл)
СМСХмл.ДобавитьНоду("action","check","","");
Результат = СМСХмл.Пост("https://transport.sms-pager.com:7214/send.xml");
Если Результат<>"1" тогда
Сообщить("Произошла ошибка при передаче Результат="+Результат);
Возврат(Результат);
КонецЕсли;
Если СМСХмл.ПолучитьНоду("code","")<>"1" тогда
Сообщить("Ошибка в ответе="+СМСХмл.ПолучитьНоду("descr",""));
Возврат(Ложь);
КонецЕсли;
ВсегоПолучателей=СокрЛП(СМСХмл.ПолучитьНоду("allRecivers",""));
ЦенаРассылки=СокрЛП(СМСХмл.ПолучитьНоду("priceOfSending",""));
ТекстОтвета = "Всего получателей=" + ВсегоПолучателей+" Цена рассылки="+ЦенаРассылки+" Вы действительно хотите отправить?";
Если Вопрос(ТекстОтвета,РежимДиалогаВопрос.ДаНет)=КодВозвратаДиалога.Нет тогда
Возврат(Ложь);
КонецЕсли;
Возврат(Истина);
КонецФункции

//Блок работы с Емайл
Функция ПодключитсяКПочте() Экспорт
Логин="qqq";
Пар="eeee";
ИПП = Новый ИнтернетПочтовыйПрофиль;
ИПП.АдресСервераSMTP = "smtp.yandex.ru";
ИПП.ВремяОжидания = 20;
ИПП.Пользователь = Логин;
ИПП.Пароль = Пар;
ИПП.ПользовательSMTP=Логин;
ИПП.ПарольSMTP = Пар;
ИПП.ПортSMTP = "25";
ИПП.АутентификацияSMTP=СпособSMTPАутентификации.ПоУмолчанию;

Почта = Новый ИнтернетПочта;
Почта.Подключиться(ИПП);
Возврат(Почта);
КонецФункции

Функция СоздатьСообщение(Получатели,Тема, Текст, Файлы) Экспорт
ЕмайлОтправителя="[email protected]";
Сообщение = Новый ИнтернетПочтовоеСообщение;
Для Каждого Получатель из Получатели Цикл
Если Получатель.Значение="" тогда Продолжить;КонецЕсли;
Сообщение.Получатели.Добавить(Получатель.Значение);
КонецЦикла;
Сообщение.Отправитель.Адрес = ЕмайлОтправителя;
Сообщение.Тема = Тема;
//Сообщение.Тексты.Добавить(Текст);
Сообщение.Тексты.Добавить(Текст);
Для Каждого Файл из Файлы Цикл
//Вложение = Новый ДвоичныеДанные(Файл);
//Сообщение.Вложения.Добавить(Вложение,"attach.txt");
Сообщение.Вложения.Добавить(Файл);
КонецЦикла;
Возврат(Сообщение);
КонецФункции

Вызовы в форме

//Блок работы с СМС

Процедура РазослатьСМС()
СЗ=Новый СписокЗначений;
Для Каждого СтрТЗ из ТЗДолжники Цикл
СЗТел=Новый СписокЗначений;
ЗаполнитьСпискиКонтактов(СтрТЗ);
Для Каждого СтрСМС из СМС ЦИкл
СЗТел.Добавить(СтрСМС.Значение);
КонецЦикла;
СЗ.Добавить(СЗТел,"Погасите задолженность.Сумма(руб)"+СтрТЗ.ТекущийДолг+".Срок долга(дни)"+
Вычислить(НачалоДня(ТекущаяДата())-НачалоДня(Мин(СтрТЗ.Долг30,СтрТЗ.Долг60, СтрТЗ.Долг90))/86400)+".Тел.:53813");
КонецЦикла;
//ОтослатьСМС(СЗ, ДатаОтправки='00010101000000', ОплатаТолькоЗаДоставленные=Ложь, Спрашивать=Ложь)
ОтослатьСМС(СЗ);
КонецПроцедуры

Процедура БалансСМС()
Сообщить(ЗапросБалансаСМС());
КонецПроцедуры

Процедура ПолучитьОтчетСМС()
ТЗ=ОтчетСМС();
КонецПроцедуры

ЗЫ. Народ, кто знает, где голос "Алена" прикупить недорого, здорово звучит, но есть только демка.