Продукты IBM Lotus > IBM Lotus Notes & Domino

Ошибка при обращении к папкам

<< < (2/2)

ViV:

--- Цитата: asilovar от 01 Март 2010, 08:39:41 ---После перезапуска клиента ошибка ушла, только появилась ошибка при просмотре правил: Cannot find external name: VIEW

--- Конец цитаты ---

Попробуйте сделать Replace Design для базы данных.

asilovar:
Шаблон русский, сейчас попробую сделать Replace

asilovar:
Replace сделал, наследование мастер-базы отключил, только один хрен ошибка при просмотре правил и правила, эти самые, не работают

Zinych:
Версия шаблона базы больше версии клиента?
если да, попробуйте на более свежем клиенте обновить структуру папки в ручном режиме, указав соответственно для Rules тип структуры Правила

U1946KU:
Попробуйте отключить правила агентом:

Sub Initialize
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim profile As NotesDocument
   Dim doc As NotesDocument
   Dim rules As NotesView
   Dim item As NotesItem
   Dim server As String
   Dim DBPath As String
   Dim count As Integer
   
   count = 0
   Print count   , "№1 Обнулили счетчик"
   server = ws.Prompt(PROMPT_OKCANCELEDIT, "Server", "Specify the name of the server that the DB with the bad rules is on.")
   DBPath = ws.Prompt(PROMPT_OKCANCELEDIT, "DB Filepath", "Specify the filepath to the DB that needs to be fixed.")
   Set db = New NotesDatabase(server, DBPath)
   If Not db.IsOpen Then
      Messagebox "The server or DBPath was entered incorrectly." & Chr(10) & "Server: " & server & Chr(10) & "DB Filepath: " & DBPath
      Exit Sub
   End If
   
   Set profile = db.GetProfileDocument("CalendarProfile")
   Set rules = db.GetView("Rules")
   
' Disable all of the rules that there are. Period!!!
   Print count, "№2"
   If Not profile Is Nothing Then
      If rules.AllEntries.Count > 0 Then
         Call profile.ReplaceItemValue("$FilterFormulaCount", Cstr(rules.AllEntries.Count))
      Elseif profile.HasItem("$FilterFormulaCount") Then
         Call profile.RemoveItem("$FilterFormulaCount")
      End If
      Forall items In profile.Items
         If items.type = 1536 Then
            If Lcase(Left(items.name,7)) = "$filter" Then
               Call items.remove()
            End If
         End If
      End Forall
      Call profile.Save(True,True,True)
   End If
' Mark the bit on every rules document still present in the rules folder for disabled and be sure that the ordernum starts at 0
   Print count   , "№3"
   Set doc = rules.GetFirstDocument()
   While Not doc Is Nothing
      Call doc.ReplaceItemValue("Enable", "0")
      Call doc.ReplaceItemValue("OrderNum",count)
      count = count + 1
      Print count   , "№4 В цикле"   
      Call doc.Save(True,False,True)
      Set doc = rules.GetNextDocument(doc)   
   Wend
   
   Call rules.Refresh()
   Print "Complete"
End Sub

(с) не моё

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница