Обмен УТ 10.3 - БП 2.0 При возврате чекККМ в УТ отображается возврат, в БП не попадвет в Отчет о розничной продаже

ТаблицаПоТоварам = Источник.Товары.Выгрузить();
Запросы.Комплекты.УстановитьПараметр("МассивНоменклатуры", ТаблицаПоТоварам.ВыгрузитьКолонку("Номенклатура"));
ТабКомплекты = Запросы.Комплекты.Выполнить().Выгрузить();
ТаблицаПоТоварам.Колонки.Добавить("Комплект");
ТаблицаПоТоварам.Колонки.Удалить("Коэффициент");
Для каждого СтрокаТовары Из ТаблицаПоТоварам Цикл
	НайденнаяСтрока = ТабКомплекты.Найти(СтрокаТовары.Номенклатура, "Ссылка");
	Если НайденнаяСтрока <> Неопределено Тогда
		СтрокаТовары.Комплект = НайденнаяСтрока.Комплект;
	КонецЕсли;
КонецЦикла;
ТабТовары = УправлениеЗапасами.СформироватьТаблицуКомплектующих(ТаблицаПоТоварам, Источник);
ТабТовары.Колонки.Добавить("Коэффициент");
Для каждого СтрокаТовары Из ТабТовары Цикл
	СтрокаТовары.Коэффициент = ?(СтрокаТовары.ЕдиницаИзмерения.Коэффициент > 0, СтрокаТовары.ЕдиницаИзмерения.Коэффициент, 1);
	СтрокаТовары.Количество = СтрокаТовары.Количество * СтрокаТовары.Коэффициент;
	СтрокаТовары.Цена = ?(СтрокаТовары.Количество <> 0, СтрокаТовары.Сумма / СтрокаТовары.Количество, 0);
КонецЦикла;

Запросы.СписанныеПартии.УстановитьПараметр("ДокументСсылка", Источник.Ссылка);
Запросы.СписанныеПартии.УстановитьПараметр("Расход", ВидДвиженияНакопления.Расход);
РезультатЗапроса = Запросы.СписанныеПартии.Выполнить();

ТабПартии = РезультатЗапроса.Выгрузить();

КоллекцияОбъектов = ТабТовары.Скопировать();
КоллекцияОбъектов.Очистить();
КоллекцияОбъектов.Колонки.Добавить("Комиссия");
Если УзелДляОбмена.ВариантПереносаСебестоимостиСписанияВБухгалтериюПредприятия <> Перечисления.ВариантыПереносаСебестоимостиСписанияВБухгалтериюПредприятия­.НеПереносить Тогда
	КоллекцияОбъектов.Колонки.Добавить("ДокументОприходования");
	Если УзелДляОбмена.ВариантПереносаСебестоимостиСписанияВБухгалтериюПредприятия = Перечисления.ВариантыПереносаСебестоимостиСписанияВБухгалтериюПредприятия­.ПереноситьДокументПартииИСебестоимость Тогда
		КоллекцияОбъектов.Колонки.Добавить("Себестоимость");
	КонецЕсли;
КонецЕсли;

СтрокаКолонок = "";
Для каждого Колонка Из КоллекцияОбъектов.Колонки Цикл
	Если Колонка.Имя = "Количество" 
	 ИЛИ Колонка.Имя = "Сумма" 
	 ИЛИ Колонка.Имя = "СуммаНДС"
	 ИЛИ Колонка.Имя = "Себестоимость" Тогда
		Продолжить;
	КонецЕсли;
	СтрокаКолонок = СтрокаКолонок + ", " + Колонка.Имя;
КонецЦикла;
СтрокаКолонок = Сред(СтрокаКолонок, 2);

Для каждого СтрокаТЧ ИЗ ТабТовары Цикл
	
	СтруктураПоиска = Новый Структура;
	СтруктураПоиска.Вставить("Номенклатура", СтрокаТЧ.Номенклатура);
	СтруктураПоиска.Вставить("ХарактеристикаНоменклатуры", СтрокаТЧ.ХарактеристикаНоменклатуры);
	Если СтрокаТЧ.Номенклатура.ВестиПартионныйУчетПоСериям Тогда
		СтруктураПоиска.Вставить("СерияНоменклатуры", СтрокаТЧ.СерияНоменклатуры);
	КонецЕсли;
	
	НайденныеСтроки = ТабПартии.НайтиСтроки(СтруктураПоиска);
	
	Цена = ?(СтрокаТЧ.Количество > 0, СтрокаТЧ.Сумма / СтрокаТЧ.Количество, 0);	
	
	ОстКоличество = СтрокаТЧ.Количество;
	ОстСумма      = СтрокаТЧ.Сумма;
	ОстСуммаНДС   = СтрокаТЧ.СуммаНДС;
	Для каждого СтрокаПартии ИЗ НайденныеСтроки Цикл
		Если ОстКоличество > 0 И СтрокаПартии.Количество > 0 Тогда
			НоваяСтрока = КоллекцияОбъектов.Добавить();
			Для каждого Колонка ИЗ ТабТовары.Колонки Цикл
				Если Колонка.Имя = "НомерСтроки" 
				 ИЛИ Колонка.Имя = "Сумма" 
				 ИЛИ Колонка.Имя = "СуммаНДС" Тогда
					Продолжить;
				КонецЕсли;
				НоваяСтрока[Колонка.Имя] = СтрокаТЧ[Колонка.Имя];
			КонецЦикла;
			НоваяСтрока.Количество = Мин(СтрокаПартии.Количество, ОстКоличество);
			НоваяСтрока.Комиссия   = (СтрокаПартии.СтатусПартии = Перечисления.СтатусыПартийТоваров.НаКомиссию);
			
			Если УзелДляОбмена.ВариантПереносаСебестоимостиСписанияВБухгалтериюПредприятия <> Перечисления.ВариантыПереносаСебестоимостиСписанияВБухгалтериюПредприятия­.НеПереносить Тогда
				НоваяСтрока.ДокументОприходования = СтрокаПартии.ДокументОприходования;
				Если УзелДляОбмена.ВариантПереносаСебестоимостиСписанияВБухгалтериюПредприятия = Перечисления.ВариантыПереносаСебестоимостиСписанияВБухгалтериюПредприятия­.ПереноситьДокументПартииИСебестоимость Тогда
					//НоваяСтрока.Себестоимость = СтрокаПартии.Стоимость;
					НоваяСтрока.Себестоимость = (СтрокаПартии.Стоимость*НоваяСтрока.Количество)/СтрокаПартии.Количество;
				КонецЕсли;
			КонецЕсли;
			
			Если НоваяСтрока.Количество = ОстКоличество Тогда
				НоваяСтрока.Сумма    = ОстСумма;
				НоваяСтрока.СуммаНДС = ОстСуммаНДС;
			Иначе
				НоваяСтрока.Цена       = Цена;
				НоваяСтрока.Сумма      = НоваяСтрока.Цена * НоваяСтрока.Количество;
				НоваяСтрока.СуммаНДС   = УчетНДС.РассчитатьСуммуНДС(НоваяСтрока.Сумма, Источник.УчитыватьНДС, Источник.СуммаВключаетНДС,
		                                                   УчетНДС.ПолучитьСтавкуНДС(НоваяСтрока.СтавкаНДС));
			КонецЕсли;
													   
			// Уменьшим количество в таблице партий, чтобы не использовать одну и ту же партию несколько раз
			СтрокаПартии.Количество = СтрокаПартии.Количество - НоваяСтрока.Количество;
			Если УзелДляОбмена.ВариантПереносаСебестоимостиСписанияВБухгалтериюПредприятия = Перечисления.ВариантыПереносаСебестоимостиСписанияВБухгалтериюПредприятия­.ПереноситьДокументПартииИСебестоимость Тогда
			СтрокаПартии.Стоимость  = СтрокаПартии.Стоимость  - НоваяСтрока.Себестоимость;
			КонецЕсли;
			ОстКоличество = ОстКоличество - НоваяСтрока.Количество;
			ОстСумма      = ОстСумма      - НоваяСтрока.Сумма;
			ОстСуммаНДС   = ОстСуммаНДС   - НоваяСтрока.СуммаНДС;
			
		КонецЕсли;
	КонецЦикла;
	
	// Если пратий нет все равно выгружаем остаток товаров как собственные
	Если ОстКоличество <> 0 Тогда
		НоваяСтрока = КоллекцияОбъектов.Добавить();
		Для каждого Колонка ИЗ ТабТовары.Колонки Цикл
			НоваяСтрока[Колонка.Имя] = СтрокаТЧ[Колонка.Имя];
		КонецЦикла;
		НоваяСтрока.Количество = ОстКоличество;
		НоваяСтрока.Комиссия   = Ложь;
		НоваяСтрока.Сумма      = ОстСумма;
		НоваяСтрока.СуммаНДС   = ОстСуммаНДС;
	КонецЕсли;
	
КонецЦикла;

КоллекцияОбъектов.Свернуть(СтрокаКолонок, "Количество, Сумма, СуммаНДС"
+ ?(КоллекцияОбъектов.Колонки.Найти("Себестоимость") <> Неопределено,", Себестоимость",""));