Популярный скрипт, но в общем доступе нет. Пользуйтесь.

Запрос = Новый Запрос;

Запрос.Текст ="ВЫБРАТЬ

| ДокументыФизическихЛиц.Серия КАК Серия,

| ДокументыФизическихЛиц.Номер КАК Номер,

| ДокументыФизическихЛиц.ДатаВыдачи КАК ДатаВыдачи,

| ДокументыФизическихЛиц.КемВыдан КАК КемВыдан,

| ДокументыФизическихЛиц.КодПодразделения КАК КодПодразделения

|ИЗ

| РегистрСведений.ДокументыФизическихЛиц КАК ДокументыФизическихЛиц

|ГДЕ

| ДокументыФизическихЛиц.Физлицо = &Физлицо";

Запрос.УстановитьПараметр("Физлицо", Файл.ВладелецФайла.Подготовил.ФизЛицо);

РезультатЗапроса = Запрос.Выполнить();

Выборка = РезультатЗапроса.Выбрать();

РезультатОбработки = "";

Если Выборка.Следующий() Тогда

     РезультатОбработки = "серия " + Выборка.Серия + " номер " + Выборка.Номер +  ", выдан " +Выборка.КемВыдан + " дата выдачи " + формат(Выборка.ДатаВыдачи,"ДЛФ=Д");

КонецЕсли;