neznauой, там LOG'а не видно, скорее всего не весь код выложили.
Да... Это только часть.
Дело в том что вот это
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.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
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
Dismount(bd) ; Отмонтировать БД
n o
zn "%SYS"
s res=1
s o=##class(SYS.Database).%OpenId(bd)
s:o'="" res=o.Dismount()
d o.%Close()
zn spset
i '+res q 0
q 1
Нормально работало в 2007... Но при переходе на 2009 выяснилось () что у БД теперь три (!) состояния:
- Не подмонтировано
- Монтировано
- Отмонтировано
И при ситуации "Не подмонтировано", хотя в Портале четко написано "монтировать при старте", наша програмка не может отмонтировать БД...
По совету ИС нужно проверить состояние БД и если оно "Не подмонтировано" - примонтировать её.
Модернизирую код (пока для локальной БД)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dismount(bd) ; Отмонтировать БД
n o,res
zn "%SYS"
s o=##class(SYS.Database).%OpenId(bd)
s res=$$Dsmnt
d o.%Close()
zn spset
i 'res q 0
q 1
Dsmnt() ; Собственно отмонтирование
n res
q:o="" 0
s:'o.Mounted res=o.Mount()
s res=o.Dismount()
q res
Все! Таже ошибка. Нет программы... Куда чего девается я х/з...
