Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
delivery_designer_utcup_3_5 [2025/03/12 16:15] webmaster [Редактирование формы "ФормаСпискаДокументов" документа “Заказ клиента”] |
delivery_designer_utcup_3_5 [2025/03/13 16:29] (текущий) webmaster [Редактирование модуля "ОтправкаSMSЧерезTURBO"] |
||
|---|---|---|---|
| Строка 110: | Строка 110: | ||
| Отобразим добавленные колонки на форме списка | Отобразим добавленные колонки на форме списка | ||
| + | {{ : | ||
| ==== Редактирование роли " | ==== Редактирование роли " | ||
| Строка 130: | Строка 131: | ||
| </ | </ | ||
| - | ==== Редактирование общего модуля " | + | ==== Расширяем определяемый тип "ПредметШаблонаСообщения" типом " |
| - | === Метод " | + | |
| - | + | ||
| - | Приведем код к следующему виду: | + | |
| - | + | ||
| - | < | + | |
| - | Если ПолучитьФункциональнуюОпцию("ИспользоватьСчетаНаОплатуКлиентам") Тогда | + | |
| - | МассивОбъектовСДаннымиШаблоновСообщений.Добавить(" | + | |
| - | КонецЕсли; | + | |
| - | + | ||
| - | МассивОбъектовСДаннымиШаблоновСообщений.Добавить(" | + | |
| - | + | ||
| - | Возврат МассивОбъектовСДаннымиШаблоновСообщений; | + | |
| - | </ | + | |
| ==== Редактирование типа реквизита " | ==== Редактирование типа реквизита " | ||
| * Дополним реквизит документа " | * Дополним реквизит документа " | ||
| Строка 158: | Строка 145: | ||
| + | ==== Редактирование модуля " | ||
| + | |||
| + | === Метод " | ||
| + | Приведем код к следующему виду: | ||
| + | < | ||
| + | УстановитьПривилегированныйРежим(Истина); | ||
| + | НастройкиОтправкиSMS = НастройкиОтправкиSMS(); | ||
| + | УстановитьПривилегированныйРежим(Ложь); | ||
| + | |||
| + | //++ | ||
| + | //Если ИмяОтправителя = Неопределено Тогда | ||
| + | Если ИмяОтправителя = Неопределено ИЛИ ИмяОтправителя = " " Тогда | ||
| + | //-- | ||
| + | ИмяОтправителя = НастройкиОтправкиSMS.ИмяОтправителя; | ||
| + | КонецЕсли; | ||
| + | </ | ||
| ==== Редактирование модуля " | ==== Редактирование модуля " | ||
| Строка 199: | Строка 202: | ||
| === Метод " | === Метод " | ||
| - | Приведем код к следующему | + | Заменим метод " |
| < | < | ||
| + | Функция СтатусДоставки(ИдентификаторСообщения, | ||
| + | |||
| + | Авторизация = АвторизацияНаСайте(НастройкиОтправкиSMS.Логин, | ||
| + | |||
| + | sXML = | ||
| + | "< | ||
| + | | < | ||
| | < | | < | ||
| | < | | < | ||
| Строка 208: | Строка 218: | ||
| | </ | | </ | ||
| | </ | | </ | ||
| - | </code> | + | |</soapenv: |
| - | < | + | Соединение = Новый HTTPСоединение(" |
| - | + | Заголовки | |
| - | //++ | + | Заголовки.Вставить("COOKIE", Авторизация); |
| - | //Баланс | + | Запрос = Новый HTTPЗапрос(" |
| - | //УдалитьФайлы(ФайлОтвета); | + | Запрос.УстановитьТелоИзСтроки(sXML); |
| - | + | ФайлОтвета | |
| - | //Ответ = Неопределено; | + | Ответ = Соединение.ОтправитьДляОбработки(Запрос, ФайлОтвета); |
| - | //Запрос | + | Если Ответ.КодСостояния <> 200 Тогда |
| - | //Соединение = Неопределено; | + | Возврат |
| - | + | КонецЕсли; | |
| - | //Возврат | + | |
| СтатусДоставки = ПреобразоватьОтвет(ФайлОтвета, | СтатусДоставки = ПреобразоватьОтвет(ФайлОтвета, | ||
| Строка 226: | Строка 235: | ||
| Возврат СтатусДоставкиSMS(СтатусДоставки); | Возврат СтатусДоставкиSMS(СтатусДоставки); | ||
| - | //-- | ||
| + | КонецФункции | ||
| </ | </ | ||
| Строка 302: | Строка 311: | ||
| </ | </ | ||
| - | ==== Общая форма " | ||
| - | Добавим на форму реквизит " | ||
| - | === Метод " | ||
| - | < | ||
| - | ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(Владелец, | ||
| - | //++ | ||
| - | ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(Владелец, | ||
| - | //-- | ||
| - | УстановитьПривилегированныйРежим(Ложь); | ||
| - | </ | ||
| - | |||
| - | === Метод " | ||
| - | < | ||
| - | ПарольИЛогин = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Владелец, | ||
| - | УстановитьПривилегированныйРежим(Ложь); | ||
| - | ЛогинДляОтправкиSMS = ПарольИЛогин.Логин; | ||
| - | ПарольДляОтправкиSMS = ? | ||
| - | ИмяОтправителя = ПарольИЛогин.ИмяОтправителя; | ||
| - | </ | ||
| - | |||
| - | ==== Общий модуль " | ||
| - | |||
| - | === Метод " | ||
| - | |||
| - | < | ||
| - | Результат = Новый Структура(" | ||
| - | Если ОбщегоНазначенияПовтИсп.ДоступноИспользованиеРазделенныхДанных() Тогда | ||
| - | Владелец = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(" | ||
| - | УстановитьПривилегированныйРежим(Истина); | ||
| - | ПарольИЛогин = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Владелец, | ||
| - | УстановитьПривилегированныйРежим(Ложь); | ||
| - | Результат.Логин = ПарольИЛогин.Логин; | ||
| - | Результат.Пароль = ПарольИЛогин.Пароль; | ||
| - | Результат.ИмяОтправителя = ПарольИЛогин.ИмяОтправителя; | ||
| - | Результат.Провайдер =Константы.ПровайдерSMS.Получить(); | ||
| - | КонецЕсли; | ||
| - | </ | ||
| - | |||
| - | === Метод " | ||
| - | |||
| - | < | ||
| - | НастройкиОтправкиSMS = НастройкиОтправкиSMS(); | ||
| - | |||
| - | Если НастройкиОтправкиSMS.Провайдер = Перечисления.ПровайдерыSMS.TURBO Тогда // TURBOSMS | ||
| - | Результат = ОтправкаSMSЧерезTURBO.ОтправитьSMS(НомераПолучателей, | ||
| - | НастройкиОтправкиSMS.Логин, | ||
| - | </ | ||