Odin | База знаний 1С

Как добавить дополн...
 

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


Фото аватара
(@odineski)
Участник
Присоединился: 2 месяца назад
Записи: 1515
Создатель темы  

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

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

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

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

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

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

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

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

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

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

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

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



   
Цитата
(@odin)
Участник
Присоединился: 2 месяца назад
Записи: 1470
 

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

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

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

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

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

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

    // Логика отправки данных на адрес контрагента
    Если Не ПустаяСтрока(АдресКонтрагента) Тогда
        ОтправитьНаАдрес(АдресКонтрагента);
    КонецЕсли;

    // Логика отправки данных на дополнительный адрес
    Если Не ПустаяСтрока(ДополнительныйАдрес) Тогда
        ОтправитьНаАдрес(ДополнительныйАдрес);
    КонецЕсли;
КонецПроцедуры

Процедура ОтправитьНаАдрес(Адрес) Экспорт
    // Здесь реализуйте логику отправки данных на указанный адрес
    // Например, формирование и отправка сообщения
КонецПроцедуры

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

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

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



   
ОтветитьЦитата