Farbe der Maske ändern

[koehlerbv]

Das Querysave geht nicht, da das ja vor dem Speichern kommt. Dadurch würde das Item wieder erstellt. Ich habe es probiert.

Ich meinte das in dem Kontext "$PaperColor und $PapaerColorEx entfernen, $PaperColor neu setzen". Dann stört ja das $PaperColorEx nicht, wenn es wieder erstellt wird. Ich hab's aber nicht ausprobiert.

PostSave ist natürlich eleganter  

Terminate habe ich auch nicht verstanden, vor allem mit der Nebenwirkung, dass ein Speichern dann IMMER erfolgt.

Bernhard

[TMC]

@All,

Habe hier eine Test-DB reingestellt:
http://www.atnotes.de/index.php?board=9;action=display;threadid=12006

Gelöst habe ich es über's PostSave, da werfe ich einfach $Paper-Items raus:


Sub Postsave(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   
   Set doc = Source.Document   
   
   While (doc.HasItem("$PaperColorEx"))
      Set item = doc.GetFirstItem("$PaperColorEx")
      Call item.Remove
   Wend
   
   While (doc.HasItem("$PaperColor"))
      Set item = doc.GetFirstItem("$PaperColor")
      Call item.Remove
   Wend
   
   Dim iPaperColor As Integer
   iPaperColor = Cint ( doc.ColorName(0))
   
   Dim itemPaper As New NotesItem( doc, "$PaperColor", iPaperColor )
   Call doc.save(True,True,True)
End Sub