Регистр.ОборотыТоваров.ПривязыватьСтроку(НомерСтроки);
Регистр.ОборотыТоваров.ДвижениеВыполнить();
Регистр.ОборотыТоваров.Склад = СкладП;
Регистр.ОборотыТоваров.Товар = Товар;
Регистр.ОборотыТоваров.Сорт = Сорт;
Регистр.ОборотыТоваров.Количество = Списывать;
Регистр.ОборотыТоваров.СуммаУ = Стоимость;
Регистр.ОборотыТоваров.ФлагДвижения = 2;
Регистр.ОборотыТоваров.ПривязыватьСтроку(НомерСтроки);
Регистр.ОборотыТоваров.ДвижениеВыполнить();
КонецЦикла;
КонецЦикла;
ИначеЕсли Константа.МетодСписания=Перечисление.МетодСписания.ЛИФО Тогда
// Здесь будет записана методика списания по LIFO
ТабЗн1=СоздатьОбъект("ТаблицаЗначений");
ТабЗн2=СоздатьОбъект("ТаблицаЗначений");
ТабЗн2.НоваяКолонка("Партия","Документ.ПриходнаяНакладная");
ТабЗн2.НоваяКолонка("КоличествоП","Число",14,2);
ТабЗн2.НоваяКолонка("СуммаП","Число",19,2);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
КолВыб=КолО;
РегОст.УстановитьФильтр(СкладО,Товар,Сорт);
РегОст.ВыгрузитьИтоги(ТабЗн1,1,1);
ТабЗн1.Свернуть("4","5,6");
ТабЗн1.ВыбратьСтроки();
Пока ТабЗн1.ПолучитьСтроку()=1 Цикл
Прт=ТабЗн1.Партия;
Ост=ТабЗн1.Количество;
Сум=ТабЗн1.СуммаП;
Если Ост>0 Тогда // есть что проверять
ТабЗн2.НоваяСтрока();