Crea una replica in locale del database incriminato e poi crea un agente dove gli metti dentro questo codice
Agente da eseguire dal menù
[IMG]/dominopoint/new_forum.nsf/(Uploads)/ELME-7GFGR3/$File/2008-07-11_143633.gif[/IMG]
Dim s As New notessession
Dim db As notesdatabase
Dim rulesfolder As notesview
Dim rules As notesviewentrycollection
Dim rule As notesviewentry
Dim ruledoc As notesdocument
Set db=s.currentdatabase
Set rulesfolder=db.getview("Rules")
Set rules=rulesfolder.allentries
Set profile=db.GetProfileDocument("CalendarProfile")
\'Optional code to remove rule entries from the Calendar Profile which did not disable as expected.
\'The code can be used if you want to "clean out" the rule entirely in the profile.
\'NOTE: The code below will disable the C&S Miniview rule so it must be manually re-enabled.
If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
profile.Use_CalendarRule = "0"
End If
Set Count=profile.getfirstitem("$FilterFormulaCount")
Call count.remove
Forall ff In profile.Items
If ff.type = 1536 And Lcase(Left(ff.name,15)) = "$filterformula_1" Then
Call ff.remove
End If
\'End Forall
\'Call profile.Save(True, True)
If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
number=1
Else
number=0
End If
Set rule=rules.getfirstentry
While Not rule Is Nothing
Set ruledoc=rule.document
ruledoc.ordernum=Cstr(number)
Call ruledoc.save(True, True)
Set rule=rules.getnextentry(rule)
number=number+1
Wend
poi verifica con notes peek che sia sparita la regola dal db in locale... se funziona riesegui la stessa cosa sul db su server
|