Остатки в накладной

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

	
	Движения.ТоварыОрганизацийБУ.Записывать = Истина;
	Движения.Продажи.Записывать=Истина;
	
	Движения.ТоварыОрганизацийБУ.Записать();
	Движения.Продажи.Записать();
			
	Запрос = Новый Запрос("ВЫБРАТЬ
	                      |	РеализацияТоваровУслугТовары.Номенклатура КАК Номенклатура,
	                      |	СУММА(РеализацияТоваровУслугТовары.Количество) КАК Количество,
	                      |	СУММА(РеализацияТоваровУслугТовары.Сумма) КАК Сумма
	                      |ПОМЕСТИТЬ ВТ
	                      |ИЗ
	                      |	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
	                      |ГДЕ
	                      |	РеализацияТоваровУслугТовары.Ссылка = &Ссылка
	                      |
	                      |СГРУППИРОВАТЬ ПО
	                      |	РеализацияТоваровУслугТовары.Номенклатура
	                      |
	                      |ИНДЕКСИРОВАТЬ ПО
	                      |	Номенклатура
	                      |;
	                      |
	                      |////////////////////////////////////////////////////////////­////////////////////
	                      |ВЫБРАТЬ
	                      |	ВТ.Номенклатура КАК Номенклатура,
	                      |	ВТ.Количество КАК КоличествоВДокументе,
	                      |	ВТ.Сумма КАК СуммаВДокументе,
	                      |	ТоварыОрганизацийБУОстатки.Партия,
	                      |	ЕСТЬNULL(ТоварыОрганизацийБУОстатки.КоличествоОстаток, 0) КАК КоличествоОстаток,
	                      |	ЕСТЬNULL(ТоварыОрганизацийБУОстатки.СуммаОстаток, 0) КАК СуммаОстаток
	                      |ИЗ
	                      |	ВТ КАК ВТ
	                      |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыОрганизацийБУ.Остатки(
	                      |				&МоментВремени,
	                      |				Номенклатура В
	                      |					(ВЫБРАТЬ
	                      |						ВТ.Номенклатура
	                      |					ИЗ
	                      |						ВТ КАК ВТ)) КАК ТоварыОрганизацийБУОстатки
	                      |		ПО ВТ.Номенклатура = ТоварыОрганизацийБУОстатки.Номенклатура
	                      |
	                      |УПОРЯДОЧИТЬ ПО
	                      |	ТоварыОрганизацийБУОстатки.Партия.МоментВремени ВОЗР
	                      |ИТОГИ
	                      |	МАКСИМУМ(КоличествоВДокументе),
	                      |	МАКСИМУМ(СуммаВДокументе),
	                      |	СУММА(КоличествоОстаток),
	                      |	СУММА(СуммаОстаток)
	                      |ПО
	                      |	Номенклатура");
	Запрос.УстановитьПараметр("МоментВремени", МоментВремени());
	Запрос.УстановитьПараметр("Ссылка",Ссылка);
	
	Если МетодСписания = Перечисления.УчетнаяПолитика.ЛИФО Тогда
		Запрос.Текст = СтрЗаменить(Запрос.Текст, "ВОЗР", "УБЫВ"); // если лифо - сортируем по УБЫВанию  
	КонецЕсли;  
	
	ВыборкаНоменклатура = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	
	Пока ВыборкаНоменклатура.Следующий() Цикл
		
		Если НЕ ВыборкаНоменклатура.Номенклатура.Услуга и ВыборкаНоменклатура.КоличествоОстаток < ВыборкаНоменклатура.КоличествоВДокументе Тогда			
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = "Не хватает " + Строка(ВыборкаНоменклатура.КоличествоВДокументе - ВыборкаНоменклатура.КоличествоОстаток) + " единиц номенклатуры " + ВыборкаНоменклатура.Номенклатура + ". Проведение невозможно.";
			Сообщение.Сообщить();
			Отказ = Истина;			
		КонецЕсли; 		
				
		Если Отказ Тогда 
			Продолжить;
		КонецЕсли;
		
			ОсталосьСписать  = ВыборкаНоменклатура.КоличествоВДокументе;
						
			ВыборкаДетЗаписи = ВыборкаНоменклатура.Выбрать(); 			
			Пока ВыборкаДетЗаписи.Следующий() И ОсталосьСписать <> 0 Цикл
				
				Если НЕ ВыборкаДетЗаписи.Номенклатура.Услуга Тогда
					
					КСписанию = Мин(ОсталосьСписать, ВыборкаДетЗаписи.КоличествоОстаток);
					
					Если Средняя Тогда
						СуммаСписания = ?(ВыборкаНоменклатура.КоличествоОстаток = КСписанию, 
											ВыборкаНоменклатура.СуммаОстаток, 
											ВыборкаНоменклатура.СуммаОстаток/ВыборкаНоменклатура.КоличествоОстаток * КСписанию);
					Иначе
						СуммаСписания = ?(ВыборкаДетЗаписи.КоличествоОстаток = КСписанию, 
											ВыборкаДетЗаписи.СуммаОстаток, 
											ВыборкаДетЗаписи.СуммаОстаток/ВыборкаДетЗаписи.КоличествоОстаток * КСписанию);
					КонецЕсли;
					
					НовоеДвижение = Движения.ТоварыОрганизацийБУ.ДобавитьРасход();
					НовоеДвижение.Организация = Организация;
					НовоеДвижение.Период = Дата;
					НовоеДвижение.Регистратор = Ссылка;
					НовоеДвижение.Количество = КСписанию;
					НовоеДвижение.Номенклатура = ВыборкаДетЗаписи.Номенклатура;
					Если НЕ Средняя Тогда
						НовоеДвижение.Партия = ВыборкаДетЗаписи.Партия;
					КонецЕсли;
					НовоеДвижение.Сумма = СуммаСписания;
				КонецЕсли;				
				
				НовоеДвижение = Движения.Продажи.Добавить();
				НовоеДвижение.Активность = Истина;
				НовоеДвижение.Период = Дата;
				НовоеДвижение.Регистратор = Ссылка;    
				НовоеДвижение.Номенклатура = ВыборкаДетЗаписи.Номенклатура;
				НовоеДвижение.Сумма = ВыборкаДетЗаписи.СуммаВДокументе;
				
				Если НовоеДвижение.Номенклатура.Услуга Тогда
					НовоеДвижение.Себестоимость = 0;
					НовоеДвижение.Количество = ВыборкаНоменклатура.КоличествоВДокументе; 
				Иначе
					НовоеДвижение.Количество = КСписанию;
					НовоеДвижение.Себестоимость = СуммаСписания;
					НовоеДвижение.Наценка = НовоеДвижение.Сумма - НовоеДвижение.Себестоимость;
					НовоеДвижение.НаценкаПроцент = ((НовоеДвижение.Сумма / НовоеДвижение.Себестоимость) *100 ) - 100;
					ОсталосьСписать = ОсталосьСписать - КСписанию;
				КонецЕсли;
								
			КонецЦикла;