Диалог выбора файла открывается 2 раза

[gulnyr]

Код:

Код Выделить Развернуть

&НаКлиенте
Процедура ВыбратьФайлОрганизацииНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Описание = Новый ОписаниеОповещения("ВыборФайлаЗавершение", ЭтотОбъект);
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Показать(Описание);                                                                    

Диалог.Заголовок = "Выберите файл";
Если Диалог.Выбрать() Тогда
ДиалогПолноеИмяФайла = Диалог.ПолноеИмяФайла;
КаталогПредв = Новый Файл(ДиалогПолноеИмяФайла);
ДиалогПолноеИмяФайла = КаталогПредв.Имя;
Сообщить(ДиалогПолноеИмяФайла);
КонецЕсли;

КонецПроцедуры


&НаКлиенте
Процедура ВыборФайлаЗавершение(ВыбранныеФайлы, ДопПараметр) Экспорт
Если ВыбранныеФайлы = Неопределено Тогда
Возврат
КонецЕсли;
ВыбратьФайлОрганизации = ВыбранныеФайлы[0]
КонецПроцедуры
Диалог выбора файла открывается 2 раза. Как исправить?

[antoneus]

Оставить или Диалог.Показать или Диалог.Выбрать

[gulnyr]

antoneus, смысл в том, что в поле ввода хотелось бы чтобы путь к файлу отобразилась + чтобы имя файла выводилось в переменной (ДиалогПолноеИмяФайла). Можно ли как-то их объединить, при этом чтобы диалоговое окно открывалось только 1 раз?

[antoneus]

Код Выделить Развернуть

&НаКлиенте
Процедура ВыбратьФайлОрганизацииНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

    СтандартнаяОбработка = Ложь;               
    Описание = Новый ОписаниеОповещения("ВыборФайлаЗавершение", ЭтотОбъект);       
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Показать(Описание);                                                                                       
           
КонецПроцедуры


&НаКлиенте
Процедура ВыборФайлаЗавершение(ВыбранныеФайлы, ДопПараметр) Экспорт
    Если ВыбранныеФайлы = Неопределено Тогда
        Возврат
    КонецЕсли;
    ДиалогПолноеИмяФайла = ВыбранныеФайлы[0]
КонецПроцедуры

[gulnyr]

antoneus, а как имя файла вывести? Который так выводилось:

Код Выделить Развернуть

КаталогПредв = Новый Файл(ДиалогПолноеИмяФайла);
ДиалогПолноеИмяФайла = КаталогПредв.Имя;

[antoneus]

Так и вывести.

Код Выделить Развернуть

КаталогПредв = Новый Файл(ДиалогПолноеИмяФайла);
ИмяФайлаКотороеНужноВывести = КаталогПредв.Имя;