Как добавить дополнительный адрес для отправки данных в УАТ?

[Odineski]

есть процедура в упрвеление автотранспортом такая штука, что при записи , отправляет данные контрагенту, обращаясь открыть форму отправки и от туда отправляется. Мне нужно добавить адрес дополнительный в который всегда будет дополнительно отправляться данные помимо контраагента всегда на эту почту . в форме документе есть эти процедура , правильно же я понял, что в нее нужно вставлять.
&НаКлиенте
Процедура АдресОтправкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

ПараметрыОткрытия = Новый Структура;
СтандартнаяОбработка = Ложь;

// Откроем диалог редактирования КИ
ПараметрыОткрытия.Вставить(“ВидКонтактнойИнформации”, ПредопределенноеЗначение(“Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента”));
ПараметрыОткрытия.Вставить(“ЗначенияПолей”, Объект.АдресОтправкиЗначенияПолей);
ПараметрыОткрытия.Вставить(“Представление”, Объект.АдресОтправки);
ПараметрыОткрытия.Вставить(“Значение”, Объект.АдресОтправкиЗначение);

ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить(“Объект”, Объект);
ДополнительныеПараметры.Вставить(“ИмяРеквизитаАдреса”, “АдресОтправки”);
ДополнительныеПараметры.Вставить(“ИмяРеквизитаАдресЗначенияПолей”, “АдресОтправкиЗначенияПолей”);
ДополнительныеПараметры.Вставить(“ИмяРеквизитаАдресЗначение”, “АдресОтправкиЗначение”);

Оповещение = Новый ОписаниеОповещения(“АдресВыборЗавершение”, ЭтаФорма, ДополнительныеПараметры);

УправлениеКонтактнойИнформациейКлиент.ОткрытьФормуКонтактнойИнформации(ПараметрыОткрытия,, Оповещение);

КонецПроцедуры

&НаКлиенте
Процедура АдресВыборЗавершение(Результат, ДопИнфо) Экспорт

Если ТипЗнч(Результат) Тип(“Структура”) Тогда
Возврат;
КонецЕсли;

Результат.Свойство(“КонтактнаяИнформация”, Объект[ДопИнфо.ИмяРеквизитаАдресЗначенияПолей]);
Результат.Свойство(“Представление”, Объект[ДопИнфо.ИмяРеквизитаАдреса]);
Результат.Свойство(“Значение”, Объект[ДопИнфо.ИмяРеквизитаАдресЗначение]);
ПроверитьАдресНаСервере(Объект[ДопИнфо.ИмяРеквизитаАдресЗначенияПолей]);

РасчётТарифа();

КонецПроцедуры

[Odin – Одинэсник]

Для добавления дополнительного адреса, на который всегда будут отправляться данные, вам нужно внести изменения в процедуру отправки данных в управлении автотранспортом. Ваша задача заключается в том, чтобы добавить новый адрес в структуру данных, которая используется для отправки.

Вот пример того, как вы можете это сделать:

1. **Добавьте новый реквизит для дополнительного адреса** в объект, который вы используете для отправки данных. Например, добавьте реквизит ДополнительныйАдрес.

2. **Измените процедуру отправки**, чтобы она включала новый адрес. Вам нужно будет добавить код, который будет обрабатывать этот адрес и отправлять данные на него.

Пример кода, который вы можете использовать для добавления дополнительного адреса:

1С (Код)

1C &НаКлиенте Процедура ОтправитьДанные() Экспорт // Получаем адреса для отправки АдресКонтрагента = Объект.Контрагент.Адрес; ДополнительныйАдрес = Объект.ДополнительныйАдрес; // Новый реквизит // Логика отправки данных на адрес контрагента Если Не ПустаяСтрока(АдресКонтрагента) Тогда ОтправитьНаАдрес(АдресКонтрагента); КонецЕсли; // Логика отправки данных на дополнительный адрес Если Не ПустаяСтрока(ДополнительныйАдрес) Тогда ОтправитьНаАдрес(ДополнительныйАдрес); КонецЕсли; КонецПроцедуры Процедура ОтправитьНаАдрес(Адрес) Экспорт // Здесь реализуйте логику отправки данных на указанный адрес // Например, формирование и отправка сообщения КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

1C &НаКлиенте Процедура ОтправитьДанные() Экспорт     // Получаем адреса для отправки     АдресКонтрагента = Объект.Контрагент.Адрес;     ДополнительныйАдрес = Объект.ДополнительныйАдрес; // Новый реквизит       // Логика отправки данных на адрес контрагента     Если Не ПустаяСтрока(АдресКонтрагента) Тогда         ОтправитьНаАдрес(АдресКонтрагента);     КонецЕсли;       // Логика отправки данных на дополнительный адрес     Если Не ПустаяСтрока(ДополнительныйАдрес) Тогда         ОтправитьНаАдрес(ДополнительныйАдрес);     КонецЕсли; КонецПроцедуры   Процедура ОтправитьНаАдрес(Адрес) Экспорт     // Здесь реализуйте логику отправки данных на указанный адрес     // Например, формирование и отправка сообщения КонецПроцедуры

3. **Обновите интерфейс**, чтобы пользователь мог вводить дополнительный адрес. Это может быть текстовое поле на форме документа, где пользователь сможет указать адрес.

4. **Проверьте логику отправки**, чтобы убедиться, что данные отправляются на оба адреса (контрагента и дополнительный) при выполнении процедуры.

Таким образом, вы сможете добавить дополнительный адрес для отправки данных, не нарушая существующую логику работы с контрагентами.

[Автор]

Сообщения