Пример слияния заказов поставщику для УПП 1.3, УТ 10.3, КА 1.1

ТекстСообщения = "";
УправлениеАвторазбивкойАвтозаказа = Константы.УправлениеАвторазбивкойАвтозаказа.Получить();
Если УправлениеАвторазбивкойАвтозаказа = Перечисления.НастройкаАвторазбивкиАвтозаказа.ПроводитьАвтоматически
ИЛИ (((ДеньНедели(ДатаСоставленияЗаказа) = 6)ИЛИ(ДеньНедели(ДатаСоставленияЗаказа) = 7))
	И(УправлениеАвторазбивкойАвтозаказа = Перечисления.НастройкаАвторазбивкиАвтозаказа.ПроводитьВВыходныеДни)) Тогда
	//слить и разбить 
	ПараметрыСеанса.Пользователь=Справочники.Пользователи.НайтиПоКоду("Робот");
	ПараметрыСеанса.исУправляемаяБлокировка=Ложь;
	СлианиеАвтозаказа=Обработки.СлияниеЗаказаПоставщику.Создать();
	СлианиеАвтозаказа.ОрганизацияЗаказа = Справочники.Организации.......;
	СлианиеАвтозаказа.ПодразделениеЗаказа = Справочники.ПодразделенияКомпании.Магазины;
	СлианиеАвтозаказа.СкладЗаказа = Справочники.СкладыКомпании.ОсновнойСкладКомпании;
	//СлианиеАвтозаказа.Поставщик = Справочники.Контрагенты.ОсновнойПоставщик;
	СлианиеАвтозаказа.Поставщик = Справочники.Контрагенты......;
	СлианиеАвтозаказа.ДоговорЗаказа = 
	Справочники.ДоговорыВзаиморасчетов.НайтиПоНаименованию(
	".... договор ПОСТАВКИ",Истина,,Справочники.Контрагенты......);
	СлианиеАвтозаказа.НеОбъединятьПоОрганизациям = Ложь;
	СлианиеАвтозаказа.УдалятьЗаказы = Истина;
	ЗапросЗаказов = Новый Запрос;
	ЗапросЗаказов.Текст =
	"ВЫБРАТЬ
	|	ЗаказПоставщику.Ссылка
	|ИЗ
	|	Документ.ЗаказПоставщику КАК ЗаказПоставщику
	|ГДЕ
	|	ЗаказПоставщику.Дата МЕЖДУ &Дата1 И &Дата2
	|	И ЗаказПоставщику.Контрагент В (&Контрагент)
	|	И ЗаказПоставщику.Проведен = ЛОЖЬ
	|	И ЗаказПоставщику.ПометкаУдаления = ЛОЖЬ
	|	И НЕ ЗаказПоставщику.Приемщик > """"
	|	И НЕ ЗаказПоставщику.Комментарий ПОДОБНО ""%РЕЗЕРВ%""
	|	И ЗаказПоставщику.ПодразделениеКомпании <> &ПодразделениеКомпанииГлавныйСклад";
	ЗапросЗаказов.УстановитьПараметр("Дата1",НачалоДня(ТекущаяДата()));
	ЗапросЗаказов.УстановитьПараметр("Дата2",КонецДня(ТекущаяДата()));
	СписокКонтрагентов = Новый СписокЗначений;
	СписокКонтрагентов.Добавить(Справочники.Контрагенты.ОсновнойПоставщик);
	СписокКонтрагентов.Добавить(Справочники.Контрагенты.....);
	ЗапросЗаказов.УстановитьПараметр("Контрагент",СписокКонтрагентов);
	ЗапросЗаказов.УстановитьПараметр("ПодразделениеКомпанииГлавныйСклад", ОбщийМодульСКД.ВычислитьПодразделениеГлавныйСкладФирмы());
	РТСлияниеАвтозаказЛогисты = ЗапросЗаказов.Выполнить().Выгрузить();
	Если РТСлияниеАвтозаказЛогисты.Количество() > 0 Тогда
		Для Каждого Стр Из РТСлияниеАвтозаказЛогисты Цикл
			СтрЗаказ = СлианиеАвтозаказа.ТаблицаЗаказов.Добавить();
			СтрЗаказ.Номер = 1;
			СтрЗаказ.ЗаказПоставщику = Стр.Ссылка;
		КонецЦикла;
		СлианиеАвтозаказа.СлитьЗаказы();
		Если СлианиеАвтозаказа.РезультатОбъединенияЗаказовУспешный = Истина Тогда
			НовыйЗаказ = СлианиеАвтозаказа.ДокументыРезультат[0].НовыйЗаказ;
			РазбивкаАвтозаказа=Обработки.РазбитиеЗаказаПоставщику.Создать();
			РазбивкаАвтозаказа.ЗаказПоставщику = НовыйЗаказ;
			РазбивкаАвтозаказа.Провести = Истина;
			РазбивкаАвтозаказа.ОтправитьПисьма = Истина;
			РазбивкаАвтозаказа.Заказ = Ложь;
			РазбивкаАвтозаказа.Отсрочить = Ложь;
			РазбивкаАвтозаказа.РазбитьЗаказ();
		Иначе
			Если СлианиеАвтозаказа.ТаблицаЗаказов.Количество() > 0 Тогда
				Для Каждого Стр Из СлианиеАвтозаказа.ТаблицаЗаказов Цикл
					ЗаказПоставщику = Стр.Ссылка;
					СтарыйДок = ЗаказПоставщику.ПолучитьОбъект();
					Попытка
						СтарыйДок.УстановитьПометкуУдаления(Истина);
					Исключение
						Сообщить("Не удалось удалить заказ "+ ОписаниеОшибки());
					КонецПопытки;
				КонецЦикла;
			КонецЕсли;
			Если СлианиеАвтозаказа.ДокументыРезультат.Количество() > 0 Тогда
				Для Каждого Стр Из СлианиеАвтозаказа.ДокументыРезультат Цикл
					ЗаказПоставщику = Стр.Ссылка;
					СтарыйДок = ЗаказПоставщику.ПолучитьОбъект();
					Попытка
						СтарыйДок.УстановитьПометкуУдаления(Истина);
					Исключение
						Сообщить("Не удалось удалить заказ "+ ОписаниеОшибки());
					КонецПопытки;
				КонецЦикла;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;

Иначе
	
	Если РТАвтозаказЛогисты.Количество() > 0 Тогда
		Для Каждого Стр Из РТАвтозаказЛогисты Цикл
			ЗаказПоставщику = Стр.Ссылка;
			СтарыйДок = ЗаказПоставщику.ПолучитьОбъект();
			Попытка
				СтарыйДок.УстановитьПометкуУдаления(Истина);
			Исключение
				Сообщить("Не удалось удалить заказ "+ ОписаниеОшибки());
			КонецПопытки;
		КонецЦикла;
	КонецЕсли;
	Если УправлениеАвторазбивкойАвтозаказа = Перечисления.НастройкаАвторазбивкиАвтозаказа.ЕдиничныйПропуск Тогда
		Попытка
			//Константы.УправлениеАвторазбивкойАвтозаказа.Установить(Перечисления.НастройкаАвторазбивкиАвтозаказа.ПроводитьВВыходныеДни);
			Константы.УправлениеАвторазбивкойАвтозаказа.Установить(Перечисления.НастройкаАвторазбивкиАвтозаказа.ПроводитьАвтоматически);
			ТекстСообщения = ТекстСообщения + "Управление ночной авторазбивкой автозаказа установлено в режим Проводить автоматически.";
		Исключение
			ТекстСообщения = ТекстСообщения + "НЕ КОРРЕКТНО Управление ночной авторазбивкой автозаказа, не удалось перейти в режим Проводить автоматически!";
		КонецПопытки;
	КонецЕсли;
КонецЕсли;