Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 

Фильтр = "Текст(*.txt)|*.txt";                 

ДиалогСохраненияФайла.Фильтр = Фильтр; 

ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 

ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 

Если ДиалогСохраненияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; 

// выбрали файл, сохраняем в него данные

// код... 

КонецЕсли;   

 Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 

Фильтр = "Текст(*.txt)|*.txt";                 

ДиалогСохраненияФайла.Фильтр = Фильтр; 

ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 

ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 

Если ДиалогСохраненияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; 

	// выбрали файл, сохраняем в него Проводки

	ТекДок = Новый ТекстовыйДокумент;

	Для Каждого Стр Из Проводки Цикл

		Состояние("Выгружаю строку: "+Строка(Стр.НомерСтроки));

		ТекДок.ДобавитьСтроку(Строка(стр.СчетДт)+"~"+Строка(стр.СчетКт)+"~"+Строка(стр.Физлицо.Код)+"~"+Формат(стр.СуммаВыгр,"ЧГ=0"));

	КонецЦикла;	

КонецЕсли;	

ТекДок.Записать(ПутьКФайлу);