Форум продуктов IBM Lotus

Продукты IBM Lotus => IBM Lotus Notes & Domino => Тема начата: asilovar от 27 Февраль 2010, 15:04:36

Название: Ошибка при обращении к папкам
Отправлено: asilovar от 27 Февраль 2010, 15:04:36

Создали папки (Spam, Поставщики и т.д.) в почтовом клиенте (6.5.4, домино версии 7.0.2).
При обращении к папкам выдает такую ощибку: Illegal circular USE: DocExpProcessing
При этом в папку письма не складываются через правила.
Как эту ошибку убрать ?

Название: Re: Ошибка при обращении к папкам
Отправлено: U1946KU от 27 Февраль 2010, 16:47:23

Actions - Папка - Обновление структуры папок

Название: Re: Ошибка при обращении к папкам
Отправлено: asilovar от 01 Март 2010, 08:17:16

Цитата: U1946KU от 27 Февраль 2010, 16:47:23

Actions - Папка - Обновление структуры папок

Сделал, только ошибка осталась, в новых папках только кнопка Новая записка по-русски, остальные по-аглийски (только названия кнопок, меню русское)

Название: Re: Ошибка при обращении к папкам
Отправлено: asilovar от 01 Март 2010, 08:39:41

После перезапуска клиента ошибка ушла, только появилась ошибка при просмотре правил: Cannot find external name: VIEW

Название: Re: Ошибка при обращении к папкам
Отправлено: ViV от 01 Март 2010, 14:19:54

Цитата: asilovar от 01 Март 2010, 08:17:16

Сделал, только ошибка осталась, в новых папках только кнопка Новая записка по-русски, остальные по-аглийски (только названия кнопок, меню русское)

Клиент Lotus Notes русский? Почтовый шаблон русский?

Название: Re: Ошибка при обращении к папкам
Отправлено: ViV от 01 Март 2010, 14:21:04

Цитата: asilovar от 01 Март 2010, 08:39:41

После перезапуска клиента ошибка ушла, только появилась ошибка при просмотре правил: Cannot find external name: VIEW

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

Название: Re: Ошибка при обращении к папкам
Отправлено: asilovar от 01 Март 2010, 14:40:17

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

Название: Re: Ошибка при обращении к папкам
Отправлено: asilovar от 01 Март 2010, 14:51:14

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

Название: Re: Ошибка при обращении к папкам
Отправлено: Zinych от 01 Март 2010, 14:58:59

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

Название: Re: Ошибка при обращении к папкам
Отправлено: U1946KU от 01 Март 2010, 15:00:43

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

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

(с) не моё