select value_char into f_name
		from initial_data
		where name_val='f_bb_way_reestr_txt';
		in_file := client_Text_IO.Fopen(f_name, 'w');
		open file_rec;
		loop		
			fetch file_rec into dat,ndok,tn,fio,acc,suma;
			if file_rec%found then
				fio:=rtrim(ltrim(fio, ' '),' ');
				p := INSTR (fio, ' ');
				nam := SUBSTR(fio,  1 , p -  1 );
				fio := ltrim(SUBSTR (fio, p +  1 ),' ');
				p := INSTR (fio, ' ');
				nam1 := SUBSTR(fio,  1 , p -  1 );
				nam2 := ltrim(SUBSTR (fio, p +  1 ),' ');
				begin
					s:='"'||dat||'","'||ndok||'","","'||tn||'","'||nam||'","'||nam1||'","'||nam2||'","'||acc||'","'||ltrim(to_char(suma,'999999999999999.00'),' ')||'"';
					message(s);
					client_Text_IO.Put_Line(in_file,s);
				end;
			end if;
			exit when file_rec%notfound;
	end loop;
	client_Text_IO.Fclose(in_file);
	close file_rec;
	if client_Text_IO.is_open(in_file) then message('открыт'); end if;
	client_host('cmd /c del C:\SMFO\SPISKI\balt.txt');