Это старая версия документа!
1. Объединяем с конфигурацией модуля новой почты
2. Выполняем объединение
3. Пропускаем зависимости
4. Добавим подменю и кнопки действия для открытия форм списка учетных записей и списка экспресс-накладных в необходимом интерфейсе (например интерфейс «Полный»)
Добавляем в конце метода “ПриСозданииНаСервере” следующий код
//++ ingenum.com.ua / Торговые площадки eCommДоставкаСервер.ЗаказПокупателя_ФормаДокумента_ПриСозданииНаСервере(ЭтаФорма, Отказ, СтандартнаяОбработка); //-- ingenum
Добавляем в конце модуля формы следующий код
//++ eComm Доставка
&НаКлиенте
Процедура eComm_ЭкспрессНакладнаяНажатие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
ЭН = eCommДоставкаСервер.ВернутьЭкспрессНакладную(Объект.Ссылка);
ЗначенияЗаполнения = Новый Структура("ДокументОснование", Объект.Ссылка);
ОткрытьФорму("Документ.eComm_ЭкспрессНакладная.ФормаОбъекта", Новый Структура("Ключ, ЗначенияЗаполнения", ЭН, ЗначенияЗаполнения));
Иначе
ПоказатьПредупреждение(, "Данные не записаны.
|Переход к экспресс-накладной возможен только после записи данных");
КонецЕсли;
КонецПроцедуры
//--
Для реквизита «Список» выполняем команду «Настройка списка» и приводим текст запроса к такому виду:
ЕСТЬNULL(ФактОплаты.СуммаОплаты, 0) + ЕСТЬNULL(ФактОплаты.СуммаАванса, 0) КАК СуммаОплатыОборот,
//++
//ЗаказыПокупателейССайта.НомерЗаказаНаСайте КАК НомерНаСайте,
ВЫБОР
КОГДА НЕ ДокументЗаказПокупателя.НомерВходящегоДокумента = "" Тогда
ДокументЗаказПокупателя.НомерВходящегоДокумента
Иначе
ЗаказыПокупателейССайта.НомерЗаказаНаСайте
Конец КАК НомерНаСайте,
eComm_СтатусыЭкспрессНакладных.ЭкспрессНакладная.НомерТТН КАК ЭкспрессНакладная,
eComm_СтатусыЭкспрессНакладных.ОписаниеСтатуса КАК ОписаниеСтатуса,
eComm_СтатусыЭкспрессНакладных.СтатусДенежногоПеревода,
eComm_СтатусыЭкспрессНакладных.ДнейХраненияНаСкладе КАК ДнейХраненияНаСкладе,
eComm_СтатусыЭкспрессНакладных.НачалоПлатногоХранения,
ЕСТЬNULL(СообщенияSMS.КоличествоSMS, 0) КАК SMS,
//--
ЗаказыПокупателейССайта.ДатаЗаказаНаСайте КАК ДатаНаСайте,
ВЫБОР
КОГДА НаличиеФайлов.ЕстьФайлы ЕСТЬ NULL
ТОГДА 0
КОГДА НаличиеФайлов.ЕстьФайлы
ТОГДА 1
ИНАЧЕ 0
КОНЕЦ КАК ЕстьФайлы
ИЗ
Документ.ЗаказПокупателя КАК ДокументЗаказПокупателя
//++
{ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.eComm_СтатусыЭкспрессНакладных КАК eComm_СтатусыЭкспрессНакладных
ПО eComm_СтатусыЭкспрессНакладных.ДокументОснование = ДокументЗаказПокупателя.Ссылка}
{ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СообщениеSMS.Ссылка) КАК КоличествоSMS,
СообщениеSMS.ДокументОснование КАК ДокОснование
ИЗ
Документ.Событие КАК СообщениеSMS
ГДЕ
СообщениеSMS.ПометкаУдаления = ЛОЖЬ
И СообщениеSMS.ТипСобытия = ЗНАЧЕНИЕ(Перечисление.ТипыСобытий.СообщениеSMS)
И СообщениеSMS.ВходящееИсходящееСобытие = ЗНАЧЕНИЕ(Перечисление.ВходящееИсходящееСобытие.Исходящее)
СГРУППИРОВАТЬ ПО
СообщениеSMS.ДокументОснование) КАК СообщенияSMS
ПО ДокументЗаказПокупателя.Ссылка = СообщенияSMS.ДокОснование}
//--
{ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ГрафикВыполненияЗаказов КАК ГрафикВыполнения
ПО ДокументЗаказПокупателя.Ссылка = ГрафикВыполнения.Заказ
Добавим колонки на форму списка
Для роли «Базовые права УНФ» добавим право на чтение и просмотр к регистру «eComm_СтатусыЭкспрессНакладных» и документу «eComm_ЭкспрессНакладная»