Адрес доставки из заказа клиента
Учетные задачи - Оптовая торговля
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Из бухгалтерии пришел тикет, что в реализации по заказу клиента встает не выбранный, а первый в списке адрес доставки. Молчу уж про случай, если адрес в заказе менялся.
Решили вопрос легко и просто, хотя, возможно, есть вариант лучше.
В общем модуле РеализацияТоваровУслугЛокализация есть Процедура ПередЗаписью. В ней мы и подставим выбранный адрес доставки из заказа.
&После ("ПередЗаписью")
Процедура Skybury_ПередЗаписью(Объект, Отказ, РежимЗаписи, РежимПроведения) Экспорт
Если ЗначениеЗаполнено(Объект.ЗаказКлиента) Тогда
Заказ = Объект.ЗаказКлиента.ПолучитьОбъект();
Объект.АдресДоставки = Заказ.АдресДоставки;
Объект.СпособДоставки = Заказ.СпособДоставки;
Объект.ПеревозчикПартнер = Заказ.ПеревозчикПартнер;
Объект.ЗонаДоставки = Заказ.ЗонаДоставки;
Объект.ВремяДоставкиС = Заказ.ВремяДоставкиС;
Объект.ВремяДоставкиПо = Заказ.ВремяДоставкиПо;
Объект.АдресДоставкиПеревозчика = Заказ.АдресДоставкиПеревозчика;
Объект.АдресДоставкиЗначенияПолей = Заказ.АдресДоставкиЗначенияПолей;
Объект.АдресДоставкиПеревозчикаЗначенияПолей = Заказ.АдресДоставкиПеревозчикаЗначенияПолей;
Объект.ДополнительнаяИнформацияПоДоставке = Заказ.ДополнительнаяИнформацияПоДоставке;
Объект.ОсобыеУсловияПеревозки = Заказ.ОсобыеУсловияПеревозки;
Объект.ОсобыеУсловияПеревозкиОписание = Заказ.ОсобыеУсловияПеревозкиОписание;
КонецЕсли;
КонецПроцедуры
Главное не забыть перезаписать Реализацию после смены адреса в Заказе, поскольку мы цепляем адрес именно перед записью Реализации Товаров и Услуг
Решение проверено в 1С УТ, редакция 11.4.6.230 и 11.4.8.73.
Вступайте в нашу телеграмм-группу Инфостарт