Доброго времени суток. Автоматизирую выгрузку.
Версия ibexpert 2020.7.28.1
Планирую в дальнейшем через батник запускать IBEScript.exe my.scr
в некоторой таблице в значении храню дату предыдущей выгрузки.
в конце хочу сделать update
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
execute ibeblock
as
declare variable LAST_EXPORT_1C_DATE varchar(19);
declare variable CURRENT_EXPORT_1C_DATE varchar(19);
declare variable str_path varchar(180);
begin
str_path = 'd:\database\obmen-1c\';
try
CREATE CONNECTION Con1 DBNAME '127.0.0.1:work'
USER 'sysdba' PASSWORD 'masterkey'
clientlib 'c:\Program Files\Firebird\Firebird_3_0\fbclient.dll'
sql_dialect 1 names win1251;
try
USE Con1;
CURRENT_EXPORT_1C_DATE = ibec_Now;
select first 1 PARAMVAL from parameters where PARAMNAME = 'LAST_EXPORT_1C_DATE' into :LAST_EXPORT_1C_DATE;
-- ibec_MessageDlg(:LAST_EXPORT_1C_DATE ,2,4); --правильно отображает значение из таблицы
-- ibec_MessageDlg(:CURRENT_EXPORT_1C_DATE ,2,4);
update parameters set PARAMVAL=:NEW_EXPORT_1C_DATE where PARAMNAME = 'LAST_EXPORT_1C_DATE';
FINALLY
CLOSE CONNECTION Con1;
end
except
ErrSQLCode = ibec_err_SQLCode();
if (ErrSQLCode = -902) then
ibec_MessageDlg('Ошибка подключения к базе Firebyrd '||ibec_err_Message(), 1, 4);
else ibec_MessageDlg(ibec_err_Message(), 1, 4);
end; --try
end
Обновление параметра не происходит. (Такой параметр существует в таблице) Явно что то простейшее делаю не так?
Кроме того использовал запрос вида:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
execute ibeblock
as
declare variable str varchar(19);
declare variable str_path varchar(180);
begin
str_path = 'd:\database\obmen-1c\';
try
CREATE CONNECTION Con1 DBNAME '127.0.0.1:work'
USER 'sysdba' PASSWORD 'masterkey'
clientlib 'c:\Program Files\Firebird\Firebird_3_0\fbclient.dll'
sql_dialect 1 names win1251;
try
USE Con1;
with recursive
sprgroup_tree (parentid,kod, name)
as
(
select g1.parentid,kod,name from sprgroup g1
where g1.parentid =2
union all
select g2.parentid, g2.kod, cast(g2.name as varchar(100))
from sprgroup g2 join sprgroup_tree s on g2.parentid = s.kod
)
select
case when parentid =2 then 0 else parentid end
as parentid,
kod,
name
from sprgroup_tree
EXPORT AS CSV INTO %path||'3spr-group.csv' OPTIONS 'OmitCaptions; Delimiter=;';
FINALLY
CLOSE CONNECTION Con1;
end
except
ErrSQLCode = ibec_err_SQLCode();
if (ErrSQLCode = -902) then
ibec_MessageDlg('Ошибка подключения к базе Firebyrd '||ibec_err_Message(), 1, 4);
else ibec_MessageDlg(ibec_err_Message(), 1, 4);
end; --try
end
Спотыкается select case when parentid =2 then 0 else parentid end as parentid, kod, name from sprgroup_tree
Не знает что такое sprgroup_tree - не поддерживается with ?
