|
04.03.2010, 09:27
#36501427
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: г Волжский
Сообщения: 13 823
Рейтинг:
1
/ 0
|
|
|
|
gr_vlа если задача снялась по ошибке?
Таки пусть джоб сам про это и напишет куда-то... Принимающая страница все обработает как надо...
gr_vlКто нибудь делал с запуском в фоновом процесе и обработкой ошибок?
У нас например так работает давно... Вот например вариант с новым синтаксисом
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.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
CopyBD(dirto) ; копирование файла БД с удаленного сервера в dirto
n serv,port,login,ns,rc,res,pass,err
s err= 1
try{
;s par=##class(adm.Nast).%OpenId("REGAUTO")
s serv=par.Get("adrsrc")
s port=par.Get("portsrc")
s login=par.Get("logsrc")
i login="" s login="_SYSTEM"
s pass=par.Get("parsrc")
i pass="" s pas="SYS"
s bd=par.Get("bdsrc")
s bddir=par.Get("bddir")
s rc=##class(%Net.RemoteConnection).%New()
s res=rc.Connect(serv,"%SYS",port,login,pass)
i '+res D LOG("Ошибка подключения к удаленному Cache") q
S res=rc.OpenObjectId("SYS.Database",bd,.per)
i '+res!(per="") {
D LOG("Ошибка подключения к удаленной БД")
d LOG($System.Status.GetErrorText(res))
q
}
D LOG("Подключился к удаленному серверу")
s res=rc.InvokeInstanceMethod(per,"Dismount")
h 5
s lck=##class(%File).Exists(bddir_"\"_"cache.lck")
i '+res!(lck) {
D LOG("Ошибка отмонтирования удаленнной БД")
d LOG($System.Status.GetErrorText(res))
q
}
D LOG("Удаленная БД отмонтирована")
s res=$$Dismount(dirto)
i '+res D LOG("Ошибка отмонтирования локальной БД") q
D LOG("Локальная БД отмонтирована")
s res=##class(%File).Exists(dirto_"\"_"cache.dat")
i res {
D LOG("Удаление локальной БД")
s res=##class(%File).Delete(dirto_"\"_"cache.dat")
i '+res D LOG("Ошибка удаления локальной БД") q
}
D LOG("Копирование удаленной БД")
s res=##class(%File).CopyFile(bddir_"\"_"cache.dat",dirto_"\"_"cache.dat")
i '+res D LOG("Ошибка копирования удаленнной БД") q
D LOG("Выполнено копирование удаленной БД")
s res=rc.InvokeInstanceMethod(per,"Mount")
i '+res D LOG("Ошибка монтирования удаленнной БД") q
D LOG("Выполнено монтирование удаленной БД")
s res=$$Mount(dirto)
i '+res D LOG("Ошибка монтирования локальной БД") q
D LOG("Выполнено монтирование локальной БД")
s err= 0
}
catch
{
D ERROR
}
i err d LOG($System.Status.GetErrorText(res))
q 'err
Вот
как раз и пишет принимающей странице сообщение об ошибке...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
ERROR ; Обработка ошибок
n log,gl,error,stream
s log=$NA(^reg("AutoLog"))
i $G(portal) s log=$NA(^reg("AutoLogPrt"))
D LOG("Обнаружены ошибки в программе, процесс не выполнен")
D LOG("Стек сохранен в журнал ошибок приложений")
D ^AERPROC
s gl=$NA(^UTILITY("%ER",+$H,^UTILITY("%ER",+$H, 0 )))
k ^TmpErrREG
m ^TmpErrREG=@gl
s error=$ZU( 12 ,"")_"error.xml"
d $system.OBJ.Export("^TmpErrREG.GBL",error,"-d")
D SENDMAIL
s par=##class(adm.Nast).%OpenId("REGAUTO")
d par.Set("job","")
d par.%Save()
k par
l -@log
Q
|
|
|
