Код не переходит к текущей строке

Question

Добрый день! Подскажите пожалуйста, что я делаю не так

В данном коде я хочу, чтобы создавалась новая строка в ТЧ  (пустая)
Далее программа переходила бы сразу к ней (этой пустой строке) и там происходит всё остальное.
В итоге новая затирает текущую и переход к новой таки и не происходит. 

[1C-CODE]&НаКлиенте
Процедура Документы_ЗагрузитьФайл(Команда)
	
	НоваяСтрока = Объект.Документы.Добавить();
	Для Каждого Стр из Объект.Документы Цикл
		Если Стр.ИмяФайла = "" Тогда
			Элементы.Документы.ТекущаяСтрока = НоваяСтрока;
			ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
			ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
			
			Попытка
				ДиалогОткрытияФайла.Заголовок = "Выберите файл";
			Исключение
				Возврат;
			КонецПопытки;
			ПроцедураОбработки  = Новый ОписаниеОповещения("ВыполнитьЗагрузку", ЭтаФорма, Элементы.Документы.ТекущиеДанные);
			НачатьПомещениеФайла(ПроцедураОбработки, ,ДиалогОткрытияФайла, Истина, УникальныйИдентификатор);
			
			КонецЕсли;
	КонецЦикла;
[/1C-CODE]


Также на всякий случай процедура, которая в этой же форме, куда заходит вышеидущий код.

[1C-CODE]&НаКлиенте
Процедура ВыполнитьЗагрузку(Результат, Адрес, ПомещаемыйФайл, СтрокаДанных) Экспорт

Если НЕ Результат Тогда
Возврат;

КонецЕсли;	
Файл = Новый Файл(ПомещаемыйФайл);
СтрокаДанных.ИмяФайла = Файл.Имя;
СтрокаДанных.ИмяФайлаВХранилище = Служебный.ЗагрузитьФайлНаСервере(Адрес, Файл.Расширение);
Если СтрокаДанных.ИмяФайлаВХранилище <> "" Тогда
СтрокаДанных.ЕстьДокумент = Истина;
КонецЕсли;
КонецПроцедуры[/1C-CODE]

Accepted Answer

(1) А я бы так ))

[CODE]
&НаКлиенте
Процедура Документы_ЗагрузитьФайл(Команда)
 
            ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
            ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
            
            Попытка
                ДиалогОткрытияФайла.Заголовок = "Выберите файл";
            Исключение
                Возврат;
            КонецПопытки;
            ПроцедураОбработки  = Новый ОписаниеОповещения("ВыполнитьЗагрузку", ЭтаФорма);
            НачатьПомещениеФайла(ПроцедураОбработки, ,ДиалогОткрытияФайла, Истина, УникальныйИдентификатор);
  

КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьЗагрузку(Результат, Адрес, ПомещаемыйФайл) Экспорт

Если НЕ Результат Тогда
Возврат;

КонецЕсли;    

СтрокаДанных= Объект.Документы.Добавить();

Файл = Новый Файл(ПомещаемыйФайл);
СтрокаДанных.ИмяФайла = Файл.Имя;
СтрокаДанных.ИмяФайлаВХранилище = Служебный.ЗагрузитьФайлНаСервере(Адрес, Файл.Расширение);
Если СтрокаДанных.ИмяФайлаВХранилище <> "" Тогда
СтрокаДанных.ЕстьДокумент = Истина;
КонецЕсли;
КонецПроцедуры
[/CODE]