Столкнулся с проблемой: мне необходимо передать строку из Edit'а в SQL-функцию (путь экспорта файлов на удаленный компьютер). Please, голова уже болит от нехватки идей. Заранее благодарю.

Суть функции: делается выборка из базы и результаты заносятся в текстовики. Выходной путь статический. Текстовики сохраняются на серваке. Необходимо чтобы тхт-шники сохранялись на удаленном клиенте в нужную клиенту папку. Сервак - solaris'овский, клиенты - WinXP, Win2k. Или нужно предоставить код функции.

Вот код:

accept proj prompt "Finder project:"
define out_path=/export/stripe/tmp/petrel/inkl_out

set serverout on
set verify off
declare
cursor get_hdr is
select uwi, dir_srvy_id, source, declination_correction, NORTH_REFERENCE
from &proj..well_dir_srvy_hdr where preferred_flag='Y';
-- and uwi in (select uwi from &proj..well_hdr where node_id is not null);
-- and substr(uwi,1,4) in ('8000');
cursor get_pts (uw varchar2, id varchar2, sour varchar2) is
select md, deviation_angle, azimuth, tvd, dx, dy
from &proj..well_dir_srvy_pts where uwi=uw and dir_srvy_id=id and source=sour
order by md;
cursor get_no_inkl is select uwi, well_name, nvl(drillers_td,3000) md,
nvl(tvd,nvl(drillers_td,3000)) tvd,
nvl(base_delta_x,0) dx,
nvl(base_delta_y,0) dy
from &proj..well_hdr where uwi not in
(select uwi from &proj..well_dir_srvy_hdr);
uwi_ varchar2(20);
well_name_ varchar2(20);
alt_ number;
dir_id varchar2(20);
source_ varchar2(50);
m_skl number;
n_r varchar2(1);
md_ number;
zab_md_ number;
angle number;
azimuth_ number;
tvd_ number;
tvd_ss number;
dx_ number;
dy_ number;
x_ust number;
y_ust number;
x_ number;
y_ number;
f utl_file.file_type;
begin
open get_hdr;
loop
fetch get_hdr into uwi_, dir_id, source_, m_skl, n_r;
exit when get_hdr%notfound;
select well_name, elevation, node_x, node_y into well_name_, alt_, x_ust, y_ust
from &proj..well_hdr a, &proj..nodes b
where uwi=uwi_ and a.node_id=b.node_id(+);
f:=utl_file.fopen('&out_path',well_name_||'_dev_'||uwi_||'.dat','w');
utl_file.put_line(f,'#=====================================================');
utl_file.put_line(f,' MD TVD DX DY');
utl_file.put_line(f,'#=====================================================');

/* utl_file.put_line(f,rpad('MD',10,' ')||rpad('ANGLE',10,' ')||
rpad('AZIMUTH',10,' ')||rpad('TVD',10,' ')||
rpad('DX',10,' ')||rpad('DY',10,' '));
*/
open get_pts(uwi_,dir_id,source_);
loop
fetch get_pts into md_, angle, azimuth_, tvd_, dx_, dy_;
exit when get_pts%notfound;
if n_r='M' then
azimuth_:=azimuth_+m_skl;
end if;
if azimuth_ > 360 then
azimuth_:=azimuth_-360;
end if;
x_:=round(&proj..wellcalc.x_coord(uwi_,md_),2);
y_:=round(&proj..wellcalc.y_coord(uwi_,md_),2);
tvd_ss:=alt_ - &proj..wellcalc.tvdepth(uwi_,md_);
tvd_ss:=round(tvd_ss,2);
utl_file.put_line(f, ' '||
rpad(md_,16,' ')||
rpad(round(tvd_,3),16,' ')||
rpad(round(dx_,3),16,' ')||
rpad(round(dy_,3),16,' ')
);
end loop;
close get_pts;
select drillers_td, tvd, base_delta_x, base_delta_y
into zab_md_, tvd_, dx_, dy_
from &proj..well_hdr where uwi=uwi_;
if zab_md_ > md_ then
utl_file.put_line(f, ' '||
rpad(zab_md_,16,' ')||
rpad(round(tvd_,3),16,' ')||
rpad(round(dx_,3),16,' ')||
rpad(round(dy_,3),16,' ')
);
end if;
utl_file.fclose(f);
end loop;
close get_hdr;

/*open get_no_inkl;
loop
fetch get_no_inkl into uwi_, well_name_, md_, tvd_, dx_, dy_;
exit when get_no_inkl%notfound;
f:=utl_file.fopen('&out_path',well_name_||'_dev_'||uwi_||'.dat','w');
utl_file.put_line(f,'#=====================================================');
utl_file.put_line(f,' MD TVD DX DY');
utl_file.put_line(f,'#=====================================================');
utl_file.put_line(f, ' '||
rpad(0,16,' ')||
rpad(0,16,' ')||
rpad(0,16,' ')||
rpad(0,16,' ')
);
utl_file.put_line(f, ' '||
rpad(md_,16,' ')||
rpad(round(tvd_,3),16,' ')||
rpad(round(dx_,3),16,' ')||
rpad(round(dy_,3),16,' ')
);
utl_file.fclose(f);
end loop;
close get_no_inkl;*/

exception
when others then
dbms_output.put_line('Error:'||sqlerrm);
end;
/