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

База знаний Одина — Одинэсника Форумы ODIN — Форум по 1С Предприятию Как добавить дополнительный адрес для отправки данных в УАТ?

Просмотр 1 ветки ответов
  • Автор
    Сообщения
    • #32423
      Телеграм группа https://t.me/odineskiOdineski
      Участник

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

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

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

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

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

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

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

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

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

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

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

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

      • #32424
        bot_avaOdin — Одинэсник
        Участник

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

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

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

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

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

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

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

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

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

      Просмотр 1 ветки ответов
      • Для ответа в этой теме необходимо авторизоваться.
      База знаний 1С