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

по крайней мере вывод ошибки не по БСПшному

количество и сумма неправильно списываются

да и вообще, запустить, да проверить

1. количество надо списывать необходимое, а не остаток партии
2. себестоимость списывать пропорционально списываемому количеству к общему остатку партии

+ Блокировку данных бы добавить.

так автор, вроде, утверждает, а не спрашивает... Что вы тут со своими советами?

как это в коде правильно написать:
1. количество надо списывать необходимое, а не остаток партии
2. себестоимость списывать пропорционально списываемому количеству к общему остатку партии

а где момент документа?

(7)
1. списывать надо у тебя РезультатКол
проверять, что прекратить списывать надо:
Если РезультатКол=0 Тогда

2. Движение.Сумма = ВыборкаПартия.СуммаОстаток*РезультатКол/ВыборкаПартия.Количество;

а количество?

(10) внимательно прочитал в (9)?

(0) Количество из ТЧ документа вообще не участвует в списании, т.е. что вы списываете - непонятно.
Остатки в запросе всегда получаются на текущий момент времени, т.е. при проведении документа задним числом списываться будут всё равно партии, актуальный на сейчас, а не на тогда.
Это что - задача в институте? Или тест при приеме на работу?

а если его повторно провести вообще шикарно будет

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

исправил

(14) списывать нужно количество из документа, а не из партии

> ПеремКолвоКСписанию = ВыборкаНомен.Остаток; - вы списываете весь остаток товара, а не количество, указанное в ТЧ.
Или так и задумано?

Есть же у Чистова расписанный алгоритм списания по партиям, там чуть не каждая строка прокомментирована, что и зачем делается

http://1c.chistov.pro/2014/03/blog-post.html ?

(14) условие выхода из цикла не исправил
ну и предыдущие движения надо очистить и записать

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

как правильно? что дописать? проверка на дату в запросе по документу списания правильная?

да выкинь ты его нафиг

Про параметры виртуальной таблицы не в курсе?

Вообще, зачем вам весь этот огород? Это во-первых.
А во-вторых, запустите и проверьте, правильно ли оно работает)

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

условие выхода из цикла не исправил
ну и предыдущие движения надо очистить и записать

поправь пожалуйста; где это исправить нужно

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

подправил с очисткой движений,
где это: условие выхода из цикла не исправил ?

Вы думаете, что если 100 раз скопипастить один и тот же текст, народ сдастся и признает, что это правильно?

(27)
вместо: Если ПеремКолвоКСписанию = 0 Тогда
надо: Если РезультатКол=0 Тогда

еще нужно что-то исправить?

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

спасибо (27)

не вот так должно быть:

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

?

Вы всё еще списываете остатки в регистре, а не количество из ТЧ. Это нормально для вашей задачи?
Список номенклатуры тоже можно заложить в параметры виртуальной таблицы.
Вместо даты лучше использовать момент времени документа.

Дальше не вчитывалась, но просто я лично не люблю прерывания в тел цикла. Некрасиво это. Но это уже наверное дело вкуса.

Подскажите пожалуйста как мне правильно скорректировать списание,чтобы списывалось кол-во из тч документа и сделать условие на Момент времени документа ?

ах да...

вот это:
ПеремКолвоКСписанию = ВыборкаНомен.Остаток;
бред да

надо брать из документа количество

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

как - надо брать из документа количество ?

(37) В запрос передавайте не список номенклатуры, а таблицу - номенклатура, количество.
Чтобы на выходе у вас была таблица Номенклатура, Количество к списанию, Остаток. Таким образом вы сможете контролировать, хватает ли у вас вообще остатков, а после уже списывать по партиям.

В запрос передавайте не список номенклатуры, а таблицу - номенклатура, количество - это сделать через временную таблицу?

Стаж 7 лет...
Всё, мне стало скучно, да и конфа обновилась.
Дальше сама

Насколько я помню, в книге Радченко, по основам программирования, есть сквозной пример с фифо.
Еще есть пример задачи из экзамена на спеца по платформе с фифо.
В общем в инете полно примеров.
P.S. примеров на все случаи жизни в интернете нет.

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

правильно ?

(46) нет

в чем ошибся?

ну нельзя же вот так кодить онлайн

я понимаю,но надо правильно составить запрос..

ВТ  неправильно собрал
забываешь о характеристике, серии, качестве и складе

(51) согласно описанию в (0) нет таких измерений

таблица примитивна, этого: характеристике, серии, качестве и складе - нет

странно, в (48) мужской род, а в личной карточке - женский...

(54) транс

(55) https://vk.com/video16010346_170148650

Бесплатный сервис коллективной отладки на Мисте. Волшебнику пора уже деньги брать с ленивых студентов.

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

что не так я делаю в запросе ?