Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Рассылка СМС          
Acid Подменю пользователя
сообщение 31.05.12, 11:06
Сообщение #1

Про1С-ник
Иконка группы
За заслуги на форуме в 2010 году
Группа: Местный
Сообщений: 2104
Из: Занзибар
Спасибо сказали: 377 раз
Рейтинг: 260.7

Отправка SMS через сервис turbosms.com.ua

Сообщение отредактировал Batchir - 31.05.12, 11:09
Прикрепленные файлы
Прикрепленный файл  RassilkaSMS.rar ( 42,45 килобайт ) Кол-во скачиваний: 759
 


Signature

Документируйте Код! мать вашу...



majster Подменю пользователя
сообщение 03.09.12, 16:26
Сообщение #2

Молчаливый
*
Группа: Пользователи
Сообщений: 2
Спасибо сказали: 0 раз
Рейтинг: 0

{ВнешняяОбработка.РассылкаSMS(9,13)}: Змінна не визначена (ОбщегоНазначения)
Фамилия = <<?>>ОбщегоНазначения.ВыделитьСлово(ФИО);
{ВнешняяОбработка.РассылкаSMS(10,10)}: Змінна не визначена (ОбщегоНазначения)
Имя = <<?>>ОбщегоНазначения.ВыделитьСлово(ФИО);
{ВнешняяОбработка.РассылкаSMS(11,13)}: Змінна не визначена (ОбщегоНазначения)
Отчество = <<?>>ОбщегоНазначения.ВыделитьСлово(ФИО);

logist Подменю пользователя
сообщение 03.09.12, 16:30
Сообщение #3

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Цитата(majster @ 03.09.12, 17:26) *
{ВнешняяОбработка.РассылкаSMS(9,13)}: Змінна не визначена (ОбщегоНазначения)
Фамилия = <<?>>ОбщегоНазначения.ВыделитьСлово(ФИО);
{ВнешняяОбработка.РассылкаSMS(10,10)}: Змінна не визначена (ОбщегоНазначения)
Имя = <<?>>ОбщегоНазначения.ВыделитьСлово(ФИО);
{ВнешняяОбработка.РассылкаSMS(11,13)}: Змінна не визначена (ОбщегоНазначения)
Отчество = <<?>>ОбщегоНазначения.ВыделитьСлово(ФИО);

http://pro1c.org.ua/index.php?s=&showt...ost&p=55684


Signature
Личные бесплатные консультации не даю, для этого есть форум!

XBrut Подменю пользователя
сообщение 14.03.18, 16:03
Сообщение #4

Статус
**********
Группа: Пользователи
Сообщений: 1543
Спасибо сказали: 254 раз
Рейтинг: 0

я что-то пропустил, или в этой обработке нет возможности слать смс славянскими буквами?

П.С.
Заодно подскажите, если вдруг кто знает. Что это за загадочная проблема : для платформы 7 получить строку в формате UTF-8 - это простая функция, а для платформы 8 получить строку в формате UTF-8 целое дело.

XBrut Подменю пользователя
сообщение 14.03.18, 19:15
Сообщение #5

Статус
**********
Группа: Пользователи
Сообщений: 1543
Спасибо сказали: 254 раз
Рейтинг: 0

XBrut @ Сегодня, 16:03 * ,

японский бог. потратил почти целый день.

//Всю команду, подготовленную для передачи в турбо-смс соединяем в строку
Команда  = "insert into MOSKALIAKUNAGILLIAKU(number,sign,message) values('" + стрТелефон + "','MOSKALIAKUNAGILLIAKU','"+ СокрЛП(ТекстСообщения) + "')";

//Дальше это дело кодируем в утф-8 и записываем в файл
ЗаписьТекста = Новый ЗаписьТекста("G:\1C_8\UTP\Files\1.txt", КодировкаТекста.UTF8);
ЗаписьТекста.ЗаписатьСтроку(Команда);
ЗаписьТекста.Закрыть();

//Дальше отковыриваем заголовок 4 символа впереди (в интернетах пишут, что этот заголовок указывает, в какой кодировке будет следующий текст)
Данные             =Новый ДвоичныеДанные("G:\1C_8\UTP\Files\1.txt");
Строка64                =Base64Строка(Данные);
Строка64                =Прав(Строка64,СтрДлина(Строка64)-4);
ДанныеНаЗапись    =Base64Значение(Строка64);
ДанныеНаЗапись.Записать("G:\1C_8\UTP\Files\1.txt"); // записываем
    
//Дальше читаем, но уже используя кодировку анси. чтобы получились кракозябры вместо славянских букв
ЧтениеТекста = Новый ЧтениеТекста("G:\1C_8\UTP\Files\1.txt", КодировкаТекста.ANSI);
Команда         = ЧтениеТекста.ПрочитатьСтроку();

//и вот эту ценную абракадабру отправляем на турбо-смс
Соединение.Execute(Команда);


и вуаля - повідомлення надійшло нашою мовою

П.С. в платформе 8.3 имеется новый метод

КодироватьСтроку(<Строка>, <СпособКодированияСтроки>, <КодировкаСтроки>)

который делает приблизительно то же самое, но он возвращает строку вида "%AD%AF..." как эту строку скормить турбо-смс , я так и не понял. Если кто знает - отпишитесь.

Petre Подменю пользователя
сообщение 15.03.18, 9:33
Сообщение #6

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2902
Из: Київ, Україна
Спасибо сказали: 1144 раз
Рейтинг: 1225

XBrut @ Yesterday, 19:15 * ,
Есть UTF-8 с BOM и без BOM. Для записи UTF-8 без BOM используйте кодировку "CESU-8".


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

Спасибо сказали: XBrut,

matvey80 Подменю пользователя
сообщение 05.09.18, 23:18
Сообщение #7

Молчаливый
*
Группа: Пользователи
Сообщений: 2
Спасибо сказали: 0 раз
Рейтинг: 0

Acid @ 31.05.12, 11:06 * ,
подскажите какой пароль на архив ?

matvey80 Подменю пользователя
сообщение 06.09.18, 9:00
Сообщение #8

Молчаливый
*
Группа: Пользователи
Сообщений: 2
Спасибо сказали: 0 раз
Рейтинг: 0

matvey80 @ Сегодня, 23:18 * ,
отбой. нашел уже ))

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 28.03.24, 19:17
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!