Процедура ЗаписьИсторииЧекККМПриЗаписи(Источник, Отказ) Экспорт      
	//Если ЗначениеЗаполнено(Источник.ЗаказКлиента) Тогда Возврат; КонецЕсли;
	
	ТоварыВДокументе=Источник.Товары.Выгрузить(,"Продавец,Номенклатура,Характеристика,Количество,Цена,Сумма");   
	ТоварыВДокументе.Свернуть("Продавец,Номенклатура,Характеристика","Количество,Цена,Сумма");
	ТоварыВЗаказе=Источник.ЗаказКлиента.Товары.Выгрузить(,"Номенклатура,Характеристика,Количество,Цена,Сумма"); 
	ТоварыВЗаказе.Свернуть("Номенклатура,Характеристика","Количество,Цена,Сумма");
	
	Если ЗначениеЗаполнено(Источник.ЗаказКлиента) Тогда 
		заказ=Источник.ЗаказКлиента.Получитьобъект();
		заказ.Движения.ПродажиМенеджеровПоБрендам.Очистить(); 
		заказ.Движения.ПродажиМенеджеровПоБрендам.Записать();
	КонецЕсли;
		Попытка
			Источник.ПолучитьСсылкуНового();   
		Исключение КонецПопытки;
		
	Движ=Источник.Движения.ПродажиМенеджеровПоБрендам;    
	
	Движ.Записывать=Истина;
	
	Движ.Очистить();
	
	
	Для Каждого стр из ТоварыВДокументе Цикл     
		
		
		отбор=Новый Структура;
		отбор.Вставить("Номенклатура",стр.Номенклатура);
		отбор.Вставить("Характеристика",стр.Характеристика); 
		
		СтрокиРег =ТоварыВЗаказе.НайтиСтроки(отбор); 		 
		
		м=Движ.Добавить();
		м.Активность=Истина;
		м.Регистратор=Источник.ссылка; 
		м.Период=Источник.Дата;
		м.Номенклатура  = стр.Номенклатура;    
		м.Характеристика   = стр.Характеристика;  
		м.Бренд        = стр.Номенклатура.Марка;
		м.Количество     = стр.Количество; 
		м.Цена          = стр.Цена;        
		м.Сумма        = стр.Сумма;  				 
		м.Менеджер=Источник.ЗаказКлиента.Менеджер;			


		Если СтрокиРег.Количество()=1 Тогда 
			Если  стр.Количество>СтрокиРег[0].Количество Тогда   
				добавлено= стр.Количество-СтрокиРег[0].Количество;
				м.Количество=СтрокиРег[0].Количество;
		 		Движ.Записать(Истина);	
		        ///////////////////////////// 
				м=Движ.Добавить();
				м.Активность=Истина;
				м.Регистратор=Источник.ссылка; 
				м.Период=Источник.Дата;
				м.Номенклатура  = стр.Номенклатура;    
				м.Характеристика   = стр.Характеристика;  
				м.Бренд        = стр.Номенклатура.Марка;
				м.Количество     = добавлено; 
				м.Цена          = стр.Цена;        
				м.Сумма        = добавлено*стр.Цена; 
				м.Менеджер= ПараметрыСеанса.ТекущийПользователь;
			КонецЕсли;
		КонецЕсли;

	КонецЦикла;  
	
		 Движ.Записать(Истина);	

КонецПроцедуры