Русских букв нет. Перепроверил.
Какое имя сервера имеется ввиду?
В любом случае, чтобы исключить влияние DNS, попробую сегодня в обед заменить все доменные имена на IP-адреса во всех документах Server и Connection.
Если поможет - буду мучать сисадмина на тему DNS. Но только мне кажется, что проблема не в этом. Все-таки репликация остальных баз проходит.
Ок, сейчас напишу скрипт, он пройдется по всем базам и проверит ReplicaID.
Это на самый крайний случай. У нас АК (точнее, доки Person) реплицируется через инет с контрагентом.
Если я изменю ID реплики, репликация перестанет работать.
Проверил. На Server1 только одна реплика этой базы.
Заодно выложу скрипт, может кому пригодится.
Код:
Sub Initialize
On Error Goto ErrCatch
Dim s As New NotesSession
Dim uiw As New NotesUIWorkspace
Dim thisdb As NotesDatabase
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim basedb As NotesDatabase
Dim sBaseReplicaID As String, sDBReplicaID As String
Set thisdb = s.CurrentDatabase
Set dbdir = s.GetDbDirectory(thisdb.Server)
Set basedb = s.GetDatabase(thisdb.Server, "names.nsf", False)
sBaseReplicaID = basedb.ReplicaID
Set db = dbdir.GetFirstDatabase(1246)
Do Until db Is Nothing
sDBReplicaID = db.ReplicaID
If sBaseReplicaID = sDBReplicaID Then
Print db.FilePath & " " db.Title
End If
Set db = dbdir.GetNextDatabase()
Loop
Goto es
ErrCatch:
Msgbox Error$ & " в строке " & Erl
Resume es
es:
End Sub
