eComm+

Модулі для BAS / 1С* - розроблено в Україні!

Инструменты пользователя

Инструменты сайта


delivery_designer_utcup_3_5

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Следующая версия
Предыдущая версия
delivery_designer_utcup_3_5 [2025/03/12 16:14]
webmaster создано
delivery_designer_utcup_3_5 [2025/03/13 16:29] (текущий)
webmaster [Редактирование модуля "ОтправкаSMSЧерезTURBO"]
Строка 108: Строка 108:
  
 </code> </code>
 +
 +Отобразим добавленные колонки на форме списка
 +{{ :nobaposhtaorderlist.png?direct&600 |}}
  
 ==== Редактирование роли "Базовые права УТ" ==== ==== Редактирование роли "Базовые права УТ" ====
Строка 128: Строка 131:
 </code> </code>
  
-==== Редактирование общего модуля "ШаблоныСообщенийСервер"  ==== +==== Расширяем определяемый тип "ПредметШаблонаСообщения" типом "ДокументСсылка.eComm_ЭкспрессНакладная" ====
-=== Метод "МассивОбъектовСДаннымиШаблоновСообщений" === +
- +
-Приведем код к следующему виду: +
- +
-<code> +
-Если ПолучитьФункциональнуюОпцию("ИспользоватьСчетаНаОплатуКлиентам") Тогда +
- МассивОбъектовСДаннымиШаблоновСообщений.Добавить("Документ.СчетНаОплатуКлиенту"); +
- КонецЕсли; +
-  +
- МассивОбъектовСДаннымиШаблоновСообщений.Добавить("Документ.eComm_ЭкспрессНакладная");     //++ +
-  +
- Возврат МассивОбъектовСДаннымиШаблоновСообщений; +
-</code> +
 ==== Редактирование типа реквизита "ВзаимодействиеОснование" документа "СообщениеSMS"  ==== ==== Редактирование типа реквизита "ВзаимодействиеОснование" документа "СообщениеSMS"  ====
   * Дополним реквизит документа "ВзаимодействиеОснование" типом "ДокументСсылка.ЗаказКлиента"   * Дополним реквизит документа "ВзаимодействиеОснование" типом "ДокументСсылка.ЗаказКлиента"
Строка 156: Строка 145:
  
  
 +==== Редактирование модуля "ОтправкаSMS" ====
 +
 +=== Метод "ОтправитьSMS" ===
 +Приведем код к следующему виду:
 +<code>
 + УстановитьПривилегированныйРежим(Истина);
 + НастройкиОтправкиSMS = НастройкиОтправкиSMS();
 + УстановитьПривилегированныйРежим(Ложь);
 +
 + //++
 + //Если ИмяОтправителя = Неопределено Тогда
 + Если ИмяОтправителя = Неопределено ИЛИ ИмяОтправителя = " " Тогда 
 + //--
 + ИмяОтправителя = НастройкиОтправкиSMS.ИмяОтправителя;
 + КонецЕсли;
 +</code>
 ==== Редактирование модуля "ОтправкаSMSЧерезTURBO" ==== ==== Редактирование модуля "ОтправкаSMSЧерезTURBO" ====
  
Строка 197: Строка 202:
  
 === Метод "СтатусДоставки" === === Метод "СтатусДоставки" ===
-Приведем код к следующему виду:+Заменим метод "Статуст доставки" на приведенный ниже:
  
 <code> <code>
 +Функция СтатусДоставки(ИдентификаторСообщения, НастройкиОтправкиSMS) Экспорт              // eComm
 +
 + Авторизация = АвторизацияНаСайте(НастройкиОтправкиSMS.Логин, НастройкиОтправкиSMS.Пароль);
 +
 + sXML =
 + "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:tur=""http://turbosms.in.ua/api/Turbo"">
 + |   <soapenv:Header/>
  |   <soapenv:Body>  |   <soapenv:Body>
  |      <tur:GetMessageStatus>  |      <tur:GetMessageStatus>
Строка 206: Строка 218:
  |      </tur:GetMessageStatus>  |      </tur:GetMessageStatus>
  |   </soapenv:Body>  |   </soapenv:Body>
-</code>+ |</soapenv:Envelope>";
  
-<code> + Соединение = Новый HTTPСоединение("turbosms.in.ua", 80); 
- + Заголовки Новый Соответствие(); 
- //++ + Заголовки.Вставить("COOKIE", Авторизация); 
- //Баланс ПреобразоватьОтвет(ФайлОтвета"ns1:GetCreditBalanceResult"); + Запрос = Новый HTTPЗапрос("/api/soap.html", Заголовки); 
- //УдалитьФайлы(ФайлОтвета); + Запрос.УстановитьТелоИзСтроки(sXML); 
- + ФайлОтвета = ПолучитьИмяВременногоФайла(); 
- //Ответ = Неопределено+ Ответ = Соединение.ОтправитьДляОбработки(Запрос, ФайлОтвета)
- //Запрос = Неопределено+ Если Ответ.КодСостояния <> 200 Тогда 
- //Соединение = Неопределено; + Возврат Ответ.КодСостояния; 
- + КонецЕсли;
- //Возврат Баланс;+
  
  СтатусДоставки = ПреобразоватьОтвет(ФайлОтвета, "ns1:GetMessageStatusResult");  СтатусДоставки = ПреобразоватьОтвет(ФайлОтвета, "ns1:GetMessageStatusResult");
Строка 224: Строка 235:
   
  Возврат СтатусДоставкиSMS(СтатусДоставки);  Возврат СтатусДоставкиSMS(СтатусДоставки);
- //-- 
  
 +КонецФункции
 </code> </code>
  
Строка 300: Строка 311:
 </code> </code>
  
-==== Общая форма "НастройкаОтправкиSMS" ==== 
-Добавим на форму реквизит "ИмяОтправителя" (Строка) 
  
-=== Метод "ПриЗаписиНаСервере" === 
-<code> 
- ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(Владелец, ЛогинДляОтправкиSMS, "Логин"); 
- //++ 
- ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(Владелец, ИмяОтправителя, "ИмяОтправителя"); 
- //-- 
- УстановитьПривилегированныйРежим(Ложь); 
-</code> 
- 
-=== Метод "ПриСозданииНаСервере" === 
-<code> 
- ПарольИЛогин = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Владелец, "Пароль, Логин, ИмяОтправителя"); //++ eComm+ / Добавлен параметр "ИмяОтправителя" 
- УстановитьПривилегированныйРежим(Ложь); 
- ЛогинДляОтправкиSMS = ПарольИЛогин.Логин; 
- ПарольДляОтправкиSMS = ?(ЗначениеЗаполнено(ПарольИЛогин.Пароль), ЭтотОбъект.УникальныйИдентификатор, ""); 
- ИмяОтправителя = ПарольИЛогин.ИмяОтправителя; //++ eComm+ / Добавлена строка 
-</code> 
- 
-==== Общий модуль "ОтправкаSMS" ==== 
- 
-=== Метод "НастройкиОтправкиSMS" === 
- 
-<code> 
- Результат = Новый Структура("Логин, Пароль, Провайдер,ИмяОтправителя");  //++ eComm+ 
- Если ОбщегоНазначенияПовтИсп.ДоступноИспользованиеРазделенныхДанных() Тогда 
- Владелец = ОбщегоНазначения.ИдентификаторОбъектаМетаданных("Константа.ПровайдерSMS"); 
- УстановитьПривилегированныйРежим(Истина); 
- ПарольИЛогин = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Владелец, "Пароль,Логин,ИмяОтправителя");//++ eComm+ 
- УстановитьПривилегированныйРежим(Ложь); 
- Результат.Логин = ПарольИЛогин.Логин; 
- Результат.Пароль = ПарольИЛогин.Пароль; 
- Результат.ИмяОтправителя = ПарольИЛогин.ИмяОтправителя; //++ eComm+ 
- Результат.Провайдер =Константы.ПровайдерSMS.Получить(); 
- КонецЕсли; 
-</code> 
- 
-=== Метод "ОтправитьSMS" === 
- 
-<code> 
- НастройкиОтправкиSMS = НастройкиОтправкиSMS(); 
-  
- Если НастройкиОтправкиSMS.Провайдер = Перечисления.ПровайдерыSMS.TURBO Тогда // TURBOSMS 
- Результат = ОтправкаSMSЧерезTURBO.ОтправитьSMS(НомераПолучателей, Текст, НастройкиОтправкиSMS.ИмяОтправителя, 
- НастройкиОтправкиSMS.Логин, НастройкиОтправкиSMS.Пароль); 
-</code> 
  
  
delivery_designer_utcup_3_5.1741788841.txt.gz · Последнее изменение: 2022/02/24 03:40 (внешнее изменение)