Akam1
Комса | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Для Каждого Товар из Товары Цикл
ОсталосьСписать = Товар.Количество;
МассивПартий = ТаблицаПартий.НайтиСтроки(Новый Структура("Товар",Товар));
Для Каждого Партия из МассивПартий Цикл
Если Партия.Количество < ОсталосьСписать Тогда
СписываемоеКоличество = Партия.Количество;
Иначе
СписываемоеКоличество = ОсталосьСписать;
КонецЕсли;
//списываем в партии необходимое количество товара
Партия.Количество = Партия.Количество - СписываемоеКоличество;
//вычисляем сколько осталось списать
ОсталосьСписать = ОсталосьСписать - СписываемоеКоличество;
Если ОсталосьСписать = 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
//обнуляем количество текущего товара - мы его списали в партиях
Товар.Количество = 0;
КонецЦикла; |
Всего записей: 26360 | Зарегистр. 20-04-2006 | Отправлено: 01:35 28-03-2014 | Исправлено: Akam1, 01:35 28-03-2014 |
|
