Способ сортировки по убывающей
ТабЗн2.Партия=Прт;
ТабЗн2.КоличествоП=Ост;
ТабЗн2.СуммаП=Сум;
КонецЕсли;
КонецЦикла;
ТабЗн1.Очистить();
ТабЗн2.Сортировать("1-",1);
// Способ сортировки по убывающей (-)
ТабЗн2.ВыбратьСтроки();
Пока ТабЗн2.ПолучитьСтроку()=1 Цикл
Ост=ТабЗн2.КоличествоП;
Сум=ТабЗн2.СуммаП;
ЦенаПП=Окр(Сум/Ост,2,1);
Парт=ТабЗн2.Партия;
Если КолВыб>Ост Тогда // Ост
Регистр.ОстаткиТоваров.Склад = СкладО;
Регистр.ОстаткиТоваров.Товар = Товар;
Регистр.ОстаткиТоваров.Сорт = Сорт;
Регистр.ОстаткиТоваров.Партия = Парт;
Регистр.ОстаткиТоваров.Количество = Ост;
Регистр.ОстаткиТоваров.СуммаП = Окр(ЦенаПП*Ост,2,1);
Регистр.ОстаткиТоваров.СуммаД = Окр(Цена*Ост,2,1);
Регистр.ОстаткиТоваров.ФлагДвижения = 2;
Регистр.ОстаткиТоваров.ПривязыватьСтроку(НомерСтроки);
Регистр.ОстаткиТоваров.ДвижениеРасходВыполнить();
Регистр.ОстаткиТоваров.Склад = СкладП;
Регистр.ОстаткиТоваров.Товар = Товар;
Регистр.ОстаткиТоваров.Сорт = Сорт;
Регистр.ОстаткиТоваров.Партия = Парт;
Регистр.ОстаткиТоваров.Количество = Ост;
Регистр.ОстаткиТоваров.СуммаП = Окр(ЦенаПП*Ост,2,1);
Содержание Назад Вперед