Domino 9 und frühere Versionen > ND6: Entwicklung

Konflikte bei Haupt- und Antwortdokumenten

<< < (3/3)

cash:
ja das habe ich eingestellt ohne Erfolg...

Habe jetzt mein Script mal umgeschrieben nun stampe ich nicht mehr alle Antwortdokumente aufeinmal sondern einzeln. Wie kann ich jetzt dort die Antwortdokument mit der Form "Kommision" ausschließen?

Sub Initialize
   
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim agent As NotesAgent
   Dim respdoc As NotesDocument
   Dim parent As NotesDocument
   Set db = session.CurrentDatabase
   
   Set agent = session.CurrentAgent
   Set parent = db.GetDocumentByID(agent.ParameterDocID)
   'Set parent = db.GetDocumentByUNid(Source.Document.ParentDocumentUNID) 'wenn der Script im Queryclose ist
   
   Set dc = parent.Responses
   Set doc = dc.GetFirstDocument()
   
   If dc Is Nothing Then
      Print {error #} & Cstr(Err()) & { } & Error() & { in line } & { } &  Cstr(Erl())
      Exit Sub
   End If
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("leser_response", parent.leser_response)
      Call doc.Save( True, False )
      Set doc = dc.GetNextDocument(doc)
   Wend
   
End Sub

Gruß

Thomas

DAU-in:
if not doc.form(0) = "blabla" then

end if

?

cash:
jau Super... Klappt und es kommen auch anscheinend keine Konflikte mehr.

Wobei ich das vermutlich erst in ein paar Wochen wirklich sagen kann....

Die ersten beiden Tests verliefen zumindst positiv....

Vielen Dank

Thomas

Navigation

[0] Themen-Index

[*] Vorherige Sete