(0) Меняй платформу или ищи в другом ошибку
У меня выводит на 8.3.27.1688
ОбъектСсылка = Справочники.Валюты.ПустаяСсылка();
Для Каждого ТекРеквизит Из ОбъектСсылка.Метаданные().СтандартныеРеквизиты Цикл
ИмяРеквизита = ТекРеквизит.Имя;
ЗначениеРеквизита = ОбъектСсылка[ИмяРеквизита];
ТипРеквизита = ТипЗнч(ЗначениеРеквизита);
ТекстСообщения = СтрШаблон("Имя реквизита = %1, Тип = %2, Значение = %3", ИмяРеквизита, ТипРеквизита, ЗначениеРеквизита);
Сообщить(ТекстСообщения);
КонецЦикла;