При нажатии на отправку SMS открывается окно отправки письма.
Подсистема телефонии 2.2 для "1С:Управление торговлей" (2.2.8.17)
Ошибка в модуле формы, обработки ПТ20_НоваяКарточкаКлиента. Вызывается неправильная процедура ОткрытьФормуПочтовогоКлиента() вместо ОткрытьФормуОтправкиSMS()
До:
Скрытый текст |
|---|
| Код |
|---|
&НаКлиенте
Процедура БыстрыйВводSMS(Команда)
Телефоны = Телефоны(Объект.Ссылка);
Если Телефоны.Количество() = 0 Тогда
ПоказатьПредупреждение(, "Ни один телефон не указан");
Возврат;
КонецЕсли;
Если Телефоны.Количество() = 1 Тогда
ОткрытьФормуПочтовогоКлиента(Телефоны[0].Значение.Телефон, Телефоны[0].Значение.Ссылка);
Возврат;
КонецЕсли;
Оповещение = Новый ОписаниеОповещения("ВыбранТелефонДляSMS", ЭтотОбъект);
Телефоны.ПоказатьВыборЭлемента(Оповещение, "Отправить SMS");
КонецПроцедуры
|
|
После:
Скрытый текст |
|---|
| Код |
|---|
&НаКлиенте
Процедура БыстрыйВводSMS(Команда)
Телефоны = Телефоны(Объект.Ссылка);
Если Телефоны.Количество() = 0 Тогда
ПоказатьПредупреждение(, "Ни один телефон не указан");
Возврат;
КонецЕсли;
Если Телефоны.Количество() = 1 Тогда
ОткрытьФормуОтправкиSMS(Телефоны[0].Значение.Телефон, Телефоны[0].Значение.Ссылка);
Возврат;
КонецЕсли;
Оповещение = Новый ОписаниеОповещения("ВыбранТелефонДляSMS", ЭтотОбъект);
Телефоны.ПоказатьВыборЭлемента(Оповещение, "Отправить SMS");
КонецПроцедуры
|
|
При открытии формы отправки SMS не заполняется адресат.Ошибка в модуле формы, обработки ПТ20_НоваяКарточкаКлиента. Использовал код из встроенной отправки SMS программы 1С.
До:
Скрытый текст |
|---|
| Код |
|---|
&НаКлиенте
Процедура ОткрытьФормуОтправкиSMS(Телефон, СправочникСсылка)
ИмяОткрываемойФормы = "";
ПараметрыОткрытия = Неопределено;
ПодготовитьДанныеДляОтправкиSMS(СправочникСсылка, Телефон, ИмяОткрываемойФормы, ПараметрыОткрытия);
Если ПустаяСтрока(ИмяОткрываемойФормы) Тогда
Возврат;
КонецЕсли;
ОписаниеОповещенияОЗакрытии = Новый ОписаниеОповещения("ПослеЗакрытияПочтовогоКлиента", ЭтаФорма);
ОткрытьФорму(
ИмяОткрываемойФормы,
ПараметрыОткрытия,
ЭтаФорма,,,,
ОписаниеОповещенияОЗакрытии,
РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
ПТ20_Лицензирование.ЗаписатьНакопительныеДанныеМетрики("ОтправленоSMS");
КонецПроцедуры
|
|
После:
Скрытый текст |
|---|
| Код |
|---|
&НаКлиенте
Процедура ОткрытьФормуОтправкиSMS(Телефон, СправочникСсылка)
ИмяОткрываемойФормы = "";
ПараметрыОткрытия = Неопределено;
ПодготовитьДанныеДляОтправкиSMS(СправочникСсылка, Телефон, ИмяОткрываемойФормы, ПараметрыОткрытия);
Если ПустаяСтрока(ИмяОткрываемойФормы) Тогда
Возврат;
КонецЕсли;
//++
ДополнительныеПараметры = Новый Структура("ИмяФормыИсточникаСообщения", "");
Если ТипЗнч(ЭтаФорма) = Тип("ФормаКлиентскогоПриложения") Тогда
ДополнительныеПараметры.ИмяФормыИсточникаСообщения = ЭтаФорма.ИмяФормы;
КонецЕсли;
ШаблоныСообщенийКлиент.СформироватьСообщение(СправочникСсылка, "СообщениеSMS",,, ДополнительныеПараметры);
//++
//ОписаниеОповещенияОЗакрытии = Новый ОписаниеОповещения("ПослеЗакрытияПочтовогоКлиента", ЭтаФорма);
//ОткрытьФорму(
// ИмяОткрываемойФормы,
// ПараметрыОткрытия,
// ЭтаФорма,,,,
// ОписаниеОповещенияОЗакрытии,
// РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
ПТ20_Лицензирование.ЗаписатьНакопительныеДанныеМетрики("ОтправленоSMS");
КонецПроцедуры
|
|
