// @strict-types
#Область СлужебныеПроцедурыИФункции
// Выполнить команду.
//
// Параметры:
// ИдентификаторКоманды - Строка
// ОбъектыНазначения - Массив из ДокументСсылка.ПриобретениеТоваровУслуг
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначения) Экспорт
ОтчетОбИтогахРаботы = ПерекинутьПоступлениеНаСегодня(ОбъектыНазначения);
Для Каждого Элемент Из ОтчетОбИтогахРаботы Цикл
ОбщегоНазначенияКлиент.СообщитьПользователю(Элемент);
КонецЦикла;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПерекинутьПоступлениеНаСегодня(ОбъектыНазначения)
ОтчетОбИтогахРаботы = Новый Массив; // Массив из Строка
ТекущаяДата = ТекущаяДатаСеанса();
Для Каждого ПоступлениеСсылка Из ОбъектыНазначения Цикл
ПоступлениеОбъект = ПоступлениеСсылка.ПолучитьОбъект();
НадоПерекидывать = Истина;
Если ПоступлениеОбъект.Проведен Тогда
ТекстСообщения = СтрШаблон("Приобретение товаров № %1 от %2 не изменено т. к. оно проведено.",
ПоступлениеОбъект.Номер, ПоступлениеОбъект.Дата);
ОтчетОбИтогахРаботы.Добавить(ТекстСообщения);
НадоПерекидывать = Ложь;
КонецЕсли;
Если НадоПерекидывать Тогда
ПоступлениеОбъект.ДополнительныеСвойства.Вставить("ПропуститьПроверкуЗапретаИзменения", Истина);
ПоступлениеОбъект.Дата = ТекущаяДата;
ПоступлениеОбъект.Записать(РежимЗаписиДокумента.Запись);
ТекстСообщения = СтрШаблон("Приобретение товаров № %1 от %2 перенесено на текущий день", ПоступлениеОбъект.Номер,
ПоступлениеОбъект.Дата);
ОтчетОбИтогахРаботы.Добавить(ТекстСообщения);
КонецЕсли;
КонецЦикла;
Возврат ОтчетОбИтогахРаботы;
КонецФункции
#КонецОбласти