wuwei12,
Пример
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| РасходнаяНакладнаяТовары.Номенклатура,
| СУММА(РасходнаяНакладнаяТовары.Количество) КАК Количество,
| МАКСИМУМ(РасходнаяНакладнаяТовары.Цена) КАК Цена,
| СУММА(РасходнаяНакладнаяТовары.Сумма) КАК Сумма
|ПОМЕСТИТЬ ВТ_Товары
|ИЗ
| Документ.РасходнаяНакладная.Товары КАК РасходнаяНакладнаяТовары
|ГДЕ
| РасходнаяНакладнаяТовары.Ссылка = &Документ
|
|СГРУППИРОВАТЬ ПО
| РасходнаяНакладнаяТовары.Номенклатура
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_Товары.Номенклатура КАК Номенклатура,
| ОстаткиНоменклатурыОстаткиИОбороты.Партия КАК Партия,
| ВТ_Товары.Количество КАК ТребуемоеКоличество,
| ОстаткиНоменклатурыОстаткиИОбороты.КоличествоПриход КАК КоличествоОстаток,
| ОстаткиНоменклатурыОстаткиИОбороты.СуммаПриход КАК СуммаОстаток,
| ВТ_Товары.Сумма КАК Сумма,
| ВТ_Товары.Цена КАК Цена
|ИЗ
| ВТ_Товары КАК ВТ_Товары
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиНоменклатуры.ОстаткиИОбороты КАК ОстаткиНоменклатурыОстаткиИОбороты
| ПО ВТ_Товары.Номенклатура = ОстаткиНоменклатурыОстаткиИОбороты.Номенклатура
|
|УПОРЯДОЧИТЬ ПО
| Номенклатура,
| ОстаткиНоменклатурыОстаткиИОбороты.Партия.Ссылка УБЫВ,
| ОстаткиНоменклатурыОстаткиИОбороты.Партия.Дата УБЫВ
|ИТОГИ
| МАКСИМУМ(ТребуемоеКоличество),
| СУММА(КоличествоОстаток),
| СУММА(СуммаОстаток),
| МАКСИМУМ(Сумма)
|ПО
| Номенклатура";

Если Метод = Перечисления.УчетнаяПолитика.ФИФО Тогда
Запрос.Текст = СтрЗаменить(Запрос.Текст,"УБЫВ","ВОЗР");
КонецЕсли;

Запрос.УстановитьПараметр("Документ",Ссылка );
Результат = Запрос.Выполнить();
ВыборкаТовары = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаТовары.Следующий() Цикл

Если ВыборкаТовары.ТребуемоеКоличество>ВыборкаТовары.КоличествоОстаток Тогда //Проверяем остаток
Сообщить("Не хватает количества");
Отказ = Истина;
Продолжить;
КонецЕсли;

Себестоимость = 0;
ОсталосьСписать = ВыборкаТовары.ТребуемоеКоличество; //Общее необходимое количество
ВыборкаПартии = ВыборкаТовары.Выбрать();

Пока ВыборкаПартии.Следующий() Цикл

Если ВыборкаПартии.КоличествоОстаток<=ОсталосьСписать тогда
СписатьКоличество = ВыборкаПартии.КоличествоОстаток; //Количество по партиям отдельно
СписатьСебестоимость = ВыборкаПартии.СуммаОстаток; //Сумма по партиям отдельно
ОсталосьСписать = ОсталосьСписать-СписатьКоличество; //Общее количество - количество с "Партии"
Иначе
СписатьКоличество = ОсталосьСписать;
СписатьСебестоимость = ВыборкаПартии.СуммаОстаток/ВыборкаПартии.КоличествоОстаток*СписатьКоличество;
ОсталосьСписать = 0;

КонецЕсли;

//Делаем движение
Движение = Движения.ОстаткиНоменклатуры.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Номенклатура = ВыборкаПартии.Номенклатура;
Движение.Партия = ВыборкаПартии.Партия;
Движение.Период = Дата;
Движение.Склад = Склад;
Движение.Количество = СписатьКоличество;
Движение.Сумма = СписатьСебестоимость;

Если ОсталосьСписать = 0 Тогда
Прервать;
КонецЕсли;

КонецЦикла;