Вот первые строки кода:

Функция глПредставлениеДокумента(Документ) Экспорт
   Если (ТипЗначения(Документ)=12)
   и    (ПустоеЗначение(Документ)=0)
   Тогда  

не понятно зачем здесь проверяется "ПустоеЗначение(Документ)=0"?
ведь уже есть проверка на тип, значит это уже точно документ.

Какой смысл выдавать пустую строку для документа даже если он еще не записан?

Пустое значение может быть как определенного типа так и неопределенного. Т.ч. условие вполне нормальное.

(1) это понятно, но тип уже проверяется. ясно что это документ.
зачем для незаписанного документа выдавать пустую строку?

(2) Документ есть, но он не выбран, т.е. пустая ссылка :)

Скажем входящий параметр может быть реквизитом чего угодно типа типа документ, , но незаполненным, или значением из ТЗ, определенного типа, тогда, тип определены будет правильно, но самого документа не будет...

(2) Возможно вызов процедуры предназначен для другого использования? Например для представления в отчете.

а почему именно для незаписанного?

Д = СоздатьОбъект("Документ.ХХХ");
Сообщить(глПредставлениеДокумента(Д));


+(5) пустое значение и не записанный документ это разные вещи. В случае не записанного документа необходимо передавать контекст формы документа

Значение на пустоты проверяется хотя бы даже для того, чтобы впоследствии всегда корректно сработал код, допустим:
Документ.НомерДокВходящий
из этой же процедуры, если Документ окажется неопределен, то Документ.НомерДокВходящий вернет тебе просто ошибку...

+(8) И соответственно, если Документ будет определен, но это не документ, то скорее всего Документ.НомерДокВходящий и Документ.НомерДок опять таки вернут тебе ошибку, потому что такие реквизиты наблюдаются только у документов

Для универсальности

Например

Док=СоздатьОбъект("Документ");
глПредставлениеДокумента(Док)

Как раз тот случай, когда ПустоеЗначение(Документ)=1

(9) НомерДокВходящий наблюдается не во всех документах. :)

Хотя судя по коду оно здесь лишнее
Функция глНазваниеДокументаВЖурнале(Док) Экспорт
                   
   Если ПустоеЗначение(Док)=1 Тогда
       Возврат("");
   КонецЕсли;
   ....
           
КонецФункции

Функция глПредставлениеДокумента(Документ) Экспорт
   
   Если (ТипЗначения(Документ)=12)
   и    (ПустоеЗначение(Документ)=0)
   Тогда
       Возврат глНазваниеДокументаВЖурнале(Документ) + " №"
             + СокрЛП(Документ.НомерДок) + " от "
             + Документ.ДатаДок;
   КонецЕсли;
   Возврат ""
   
КонецФункции    // глПредставлениеДокумента()

хм..

(11) Именно поэтому в этой процедурке проверяется наличие реквизита НомерДокВходящий у документа, а вот если реквизита этого у документа нет, то используется реквизит НомерДок уже без проверки на наличие его, что правильно именно для документа...

(12) Не лишнее, см. (8-9)

В следующем коде эта функция выдает пустую строку, хотя документ есть в базе:


   Док = СоздатьОбъект("Документ");
   Док.ВыбратьДокументы(, дПоследняяДата);
   Пока Док.ПолучитьДокумент() = 1 Цикл
           Сообщить("док: " + глПредставлениеДокумента(Док));

а если обращаться к реквизитам: Док.НомерДок, то все ОК

то есть вполне можно сформировать представление для этого случая, но функция возвращает пустую строку

Сообщить("док: " + глПредставлениеДокумента(Док.ТекущийДокумент()));

Здесь надо обращаться как в (19)

(20) обращение как в (19) - это лишнее обращение к базе,
и если я перебираю все документы для вывода в отчет например - будет заметное замедление

этого надо по возможности избегать

Хотя (12) прав, я бы написал так:

Если (ТипЗначения(Документ)=12) Тогда
Если    (ПустоеЗначение(Документ)=0)
Тогда
Иначе

КонецЕсли;
КонецЕсли;

(21) Это может быть и замедление, но для 1С 7.7 это как раз правильный вариант, а вот (16) неправильный

(21)В твоем случае Док - объект, а Док.ТекущийДокумент() - ссылка

программно можно определить ссылка это или объект?

(25): ?(ЗначениеВСтрокуВнутр(тДок)<>ЗначениеВСтрокуВнутр(тДок.ТекущийДокумент()),"НЕ ","")+"ССЫЛКА!.."