Исключение из цикла объектов помеченных на удаление
Добрый день. В печатной форме есть следующий код:
Но он захватывает и данные помеченные на удаление.
Вопрос как сделать исключение из этого списка, т.е. чтоб значения помеченных на удаление объектов не брались во внимание.
Сейчас он их суммирует.
Пробовал таким образом:
Но это не сработало...
Если СтрТовар.Упаковка.Вес=0 Тогда
выбр=Справочники.УпаковкиЕдиницыИзмерения.Выбрать(,СтрТовар.Номенклатура);
Пока выбр.Следующий() Цикл
Если СокрП(выбр.ЕдиницаИзмерения) ="шт" Тогда
Вес=Вес+выбр.Вес*СтрТовар.КоличествоУпаковок;
Объем=Объем+выбр.Объем*СтрТовар.КоличествоУпаковок;
КонецЕсли;
КонецЦикла
Иначе......
ПоказатьНо он захватывает и данные помеченные на удаление.
Вопрос как сделать исключение из этого списка, т.е. чтоб значения помеченных на удаление объектов не брались во внимание.
Сейчас он их суммирует.
Пробовал таким образом:
Если СтрТовар.Упаковка.Вес=0 Тогда
выбр=Справочники.УпаковкиЕдиницыИзмерения.Выбрать(,СтрТовар.Номенклатура);
Пока выбр.Следующий() Цикл
Если СокрП(выбр.ЕдиницаИзмерения) ="шт" и ссылка.ПометкаУдаления = 0 Тогда
Вес=Вес+выбр.Вес*СтрТовар.КоличествоУпаковок;
Объем=Объем+выбр.Объем*СтрТовар.КоличествоУпаковок;
КонецЕсли;
КонецЦикла
Иначе......
ПоказатьНо это не сработало...
По теме из базы знаний
- Обработка "Партионное удаление объектов" для 1С:Предприятие-7.7
- Фоновое Задание "Удаление помеченных объектов" (не монопольно)
- Удаление сотен тысяч документов за несколько часов из УТ11
- Групповое удаление помеченных на удаление документов без контроля ссылочной целостности для УТ 10.3
- Очистка базы от наработанных данных организации
Найденные решения
выбр=Справочники.УпаковкиЕдиницыИзмерения.Выбрать(,СтрТовар.Номенклатура);
Пока выбр.Следующий() Цикл
Если выбр.ПометкаУдаления Тогда
Продолжить;
КонецЕсли;
Если СокрП(выбр.ЕдиницаИзмерения) ="шт" и ссылка.ПометкаУдаления = 0 Тогда
Вес=Вес+выбр.Вес*СтрТовар.КоличествоУпаковок;
Объем=Объем+выбр.Объем*СтрТовар.КоличествоУпаковок;
КонецЕсли;
КонецЦикла
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
выбр=Справочники.УпаковкиЕдиницыИзмерения.Выбрать(,СтрТовар.Номенклатура);
Пока выбр.Следующий() Цикл
Если выбр.ПометкаУдаления Тогда
Продолжить;
КонецЕсли;
Если СокрП(выбр.ЕдиницаИзмерения) ="шт" и ссылка.ПометкаУдаления = 0 Тогда
Вес=Вес+выбр.Вес*СтрТовар.КоличествоУпаковок;
Объем=Объем+выбр.Объем*СтрТовар.КоличествоУпаковок;
КонецЕсли;
КонецЦикла
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот