zzzz5555
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Для Каждого Товар из Товары Цикл
ОсталосьСписать = Товар.Количество;
МассивПартий = ТаблицаПартий.НайтиСтроки(Новый Структура("Товар",Товар));
Для Каждого Партия из МассивПартий Цикл
Если Партия.Количество < ОсталосьСписать Тогда
СписываемоеКоличество = Партия.Количество;
//ОсталосьСписать = ОсталосьСписать - СписываемоеКоличество; // - убираем
Иначе
СписываемоеКоличество = ОсталосьСписать;
КонецЕсли;
ОсталосьСписать = ОсталосьСписать - СписываемоеКоличество; // - добавляем
Если ОсталосьСписать = 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла; |
|
Всего записей: 847 | Зарегистр. 26-10-2009 | Отправлено: 14:44 28-03-2014 | Исправлено: zzzz5555, 15:00 28-03-2014 |
|
