string ls_path_prefix, ls_out_name, ls_dest
long ll_out, i
open (w_bank_filename)
ls_path_prefix = g_nv_nastr.fnv_get_nastr('G_zarpl_mn_path')
if is_sks_filter = '-1' then
	MessageBox('Предупреждение..', 'Не выбран банк.')
	return
end if
if is_sks_filter = '8220' then
	ls_out_name= ls_path_prefix +  mid(dw_sks.GetItemString( 1 , 'Txt'),  32 ,  4 ) +'.txt'			
	//GetFileSaveName("Сохранение в файл...", ls_out_name, ls_out_name)
	ll_out=FileOpen(ls_out_name,LineMode!,Write!, LockWrite!, Replace!)
	for i =  1  to dw_sks.RowCount()
		ls_dest = dw_sks.GetItemString(i, 'Txt')
		if mid(ls_dest, len(ls_dest),  1 ) <> '|' then
			FileWrite(ll_out, ls_dest)
		end if 
	next
else
	ls_out_name= ls_path_prefix + 'transfer.txt'
	ll_out=FileOpen(ls_out_name,LineMode!,Write!, LockWrite!, Replace!)
	for i =  1  to dw_sks.RowCount()
		ls_dest = dw_sks.GetItemString(i, 'Txt')
		FileWrite(ll_out, ls_dest)
	next
end if
fileclose(ll_out)
MessageBox('', 'Сохранён файл: '+ls_out_name)
MessageBox('',w_bank_filename.sle_filename.Text)
return