Ну а в вашем коде ошибка в том, что после получения выборки нужно спозиционироваться на первую запись для этого нужно перед Документ = Документы.МодернизацияОС.НайтиПоНомеру(Выборка.Номер);
Вызвать Выборка.Следующий()
Подсказка: Для редактирования своего ответа щелкните по значку (справа)