
Удалить все документы выбранного типа. Массовая установка пометки на удаление. Пакетное удаление документов.
Использовать следует осторожно. Документы удаляются без возможности восстановления.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
&НаСервере Процедура ОчиститьВсеДокументыНаСервере() ВыборкаДокументов= Документы.ПриходнаяНакладная.Выбрать(); Пока ВыборкаДокументов.Следующий() Цикл Док= ВыборкаДокументов.ПолучитьОбъект(); Док.УстановитьПометкуУдаления(Истина); Док.Записать(); КонецЦикла; Док= Документы.ПриходнаяНакладная.Выбрать(); Пока Док.Следующий() Цикл Док.ПолучитьОбъект().Удалить(); КонецЦикла; Сообщить("Журнал документов ПриходнаяНакладная очищен"); ЗакрытьОкноСлужебныеСообщения(); КонецПроцедуры |
Если у Вас появились вопросы по статье или остались нерешенные проблемы обсудить их Вы можете на Форуме 1С Вопросы и ответы
Добавить комментарий
Для отправки комментария вам необходимо авторизоваться.