mamanelli
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Для Каждого Товар из Товары Цикл ОсталосьСписать = Товар.Количество; МассивПартий = ТаблицаПартий.НайтиСтроки(Новый Структура("Товар",Товар)); Для Каждого Партия из МассивПартий Цикл Если Партия.Количество < ОсталосьСписать Тогда СписываемоеКоличество = Партия.Количество; ОсталосьСписать = ОсталосьСписать - СписываемоеКоличество; Иначе СписываемоеКоличество = ОсталосьСписать; Прервать; КонецЕсли; Если ОсталосьСписать = 0 Тогда Прервать; КонецЕсли; КонецЦикла; КонецЦикла; | Всего записей: 884 | Зарегистр. 13-11-2006 | Отправлено: 15:27 27-03-2014 | Исправлено: mamanelli, 15:40 27-03-2014 |
|