Domino 9 und frühere Versionen > Entwicklung

Farbe der Maske ändern

<< < (5/5)

koehlerbv:

--- Zitat ---Das Querysave geht nicht, da das ja vor dem Speichern kommt. Dadurch würde das Item wieder erstellt. Ich habe es probiert.
--- Ende Zitat ---
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

Navigation

[0] Themen-Index

[*] Vorherige Sete