Удаление не нужных записей из табличной части 1С
Задача: выставить верное количество остатков на складе. Удалить из табличной части строки с нулевым количеством.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
для каждого стр из НоменклатураДляПодбора цикл Запрос = Новый Запрос("ВЫБРАТЬ | ТоварыНаСкладахОстатки.КоличествоОстаток, | ТоварыНаСкладахОстатки.Номенклатура |ИЗ | РегистрНакопления.ТоварыНаСкладах.Остатки(&Период, ) КАК ТоварыНаСкладахОстатки |ГДЕ | ТоварыНаСкладахОстатки.Склад = &Склад | И ТоварыНаСкладахОстатки.Номенклатура = &Номенклатура"); Запрос.УстановитьПараметр("Склад",СтруктураИсходныхПараметров["Склад"]); Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура); Запрос.УстановитьПараметр("Период",ТекущаяДата()); Результат = Запрос.Выполнить().Выбрать(); такиостаток=0; пока Результат.Следующий() цикл такиостаток=Результат.КоличествоОстаток; конеццикла; стр.КоличествоСвободныйОстаток=такиостаток; конеццикла; СтрокиКУдалению = НоменклатураДляПодбора.НайтиСтроки(Новый Структура("КоличествоСвободныйОстаток",0)); Для каждого СтрокаТаблицы Из СтрокиКУдалению Цикл НоменклатураДляПодбора.Удалить(СтрокаТаблицы); КонецЦикла; |