Очистка реквизитов и табличных частей документа при копировании

Процедура ПриКопировании(ОбъектКопирования)
    Если РольДоступна("Стажер") Тогда 
        ТекстОшибки = "Копирование заявок запрещено!";
        ВызватьИсключение ТекстОшибки;
    КонецЕсли; 
КонецПроцедуры

Процедура ПриКопировании(ОбъектКопирования)
    Если РольДоступна("Стажер") Тогда 
        ОчиститьРеквизиты();
    КонецЕсли; 
КонецПроцедуры
 
Процедура ОчиститьРеквизиты() 
    ЗначениеОрганизации = ЭтотОбъект.Организация;
    МетаданныеДокумента = ЭтотОбъект.Метаданные();
    // Очищаем реквизиты документа
    Для Каждого ТекРеквизит Из МетаданныеДокумента.Реквизиты Цикл
        ЭтотОбъект[ТекРеквизит.Имя] = Неопределено;
    КонецЦикла; 
    // Очищаем табличные части
    Для Каждого ТЧ Из МетаданныеДокумента.ТабличныеЧасти Цикл
        ЭтотОбъект[ТЧ.Имя].Очистить();
    КонецЦикла;   
    // Восстанавливаем "Организацию"
    Если ЗначениеЗаполнено(ЗначениеОрганизации) Тогда
        ЭтотОбъект.Организация = ЗначениеОрганизации;
    КонецЕсли  
КонецПроцедуры