eComm+

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

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

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


small_business_1_6_21_3

Редактирование модуля "ОтправкаSMSЧерезTURBO" для конфигураций УНФ, Управление швейным предприятием, BAS for small company версии до 1.6.21.3

Метод "ОтправитьSMS"

Приведем код к следующему виду:

				Ответ = ПреобразоватьОтвет(ФайлОтвета, "ns1:ResultArray");
				СтатусДоставки = Ответ[0];
				Попытка // id сообщения может и не быть при неудачной доставке
				     ИдентификаторСообщения = Ответ[1];
				Исключение
				     ИдентификаторСообщения = "";
				КонецПопытки;
				
				Результат.ОтправленныеСообщения.Добавить(Новый Структура("НомерПолучателя,ИдентификаторСообщения",	
				НомерПолучателя, ИдентификаторСообщения));

				//++
				//Если ЗначениеЗаполнено(Ответ) Тогда
				Если НЕ ЗначениеЗаполнено(ИдентификаторСообщения) Тогда
				//--
					Результат.ОписаниеОшибки = Результат.ОписаниеОшибки 
					+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='SMS на номер %1';uk='SMS на номер %1'"), Элемент)
					+ ": " + СтатусДоставки
					+ Символы.ПС;
				КонецЕсли;

Метод "СтатусДоставки"

Приведем код к следующему виду:

	СтатусДоставкиИзФайла = ПреобразоватьОтвет(ФайлОтвета, "ns1:GetMessageStatusResponse");
	//++
	//СтатусДоставки = СопоставитьСтатусДоставкиSMS(СтатусДоставкиИзФайла);
	Если ТипЗнч(СтатусДоставкиИзФайла) = Тип("Массив")
		И СтатусДоставкиИзФайла.Количество() > 0 Тогда 
		СтатусДоставки = СопоставитьСтатусДоставкиSMS(СтатусДоставкиИзФайла[0]);
	Иначе
		СтатусДоставки = СопоставитьСтатусДоставкиSMS(СтатусДоставкиИзФайла);
	КонецЕсли;
	//--
	
	УдалитьФайлы(ФайлОтвета);

	Ответ = Неопределено;
	Запрос = Неопределено;
	Соединение = Неопределено;

	Возврат СтатусДоставки;
small_business_1_6_21_3.txt · Последнее изменение: 2025/02/06 20:58 — webmaster