Как очистить все реквизиты и табличные части документа

Бывает необходимо программно очистить все  табличные части и реквизиты документа.Ниже приведена процедура очистки любого документа Процедура ОчиститьДокумент(Документ)    Для Каждого Рек Из Документ.Метаданные().Реквизиты Цикл        Документ[Рек.Имя]=Неопределено;    КонецЦикла;    Для Каждого Тч Из Документ.Метаданные().ТабличныеЧасти Цикл        Документ[Тч.Имя].Очистить();    КонецЦикла;КонецПроцедуры