Проверка наличия реквизитов у документа

Функция ЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) Экспорт
    Перем Реквизит;
    Если (ПустоеЗначение(ВидДокумента) = 1) ИЛИ
        (ПустоеЗначение(ИмяРеквизита) = 1) Тогда
        Возврат Нет;
    КонецЕсли;
    Реквизит=Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита);
    Возврат ?(Реквизит.Выбран()=1, Да, Нет );
КонецФункции

Функция ЕстьРеквизитТЧ(ИмяРеквизита,ВидДокумента) Экспорт
    Перем Реквизит;
    Если (ПустоеЗначение(ВидДокумента) = 1) ИЛИ
        (ПустоеЗначение(ИмяРеквизита) = 1) Тогда
        Возврат Нет;
    КонецЕсли;
    Реквизит=Метаданные.Документ(ВидДокумента).РеквизитТабличнойЧасти(ИмяРеквизита);
    Возврат ?(Реквизит.Выбран()=1, Да, Нет );
КонецФункции