Hi,
schau dir mal die Klasse NotesAgent und dort insbesondere die Methode Run an. Dort steht alles beschrieben.
Du brauchst allerdings nicht unbedingt einen Agenten.
Du kannst das auch mit einer rekursiven Funktion im QuerySave-Event machen.
Sub UpdateAllResponseDocs( docToCheck As NotesDocument)
On Error Resume Next
Dim responseDocuments As NotesDocumentCollection
Dim responseDoc As NotesDocument
Dim m As Integer
Print "Updating Response Docs for " & docToCheck.Form(0)
Set responseDocuments = docToCheck.Responses '...get all immediate responses of this document
If responseDocuments.Count > 0 Then
For m = 1 To responseDocuments.Count '..could use your while loop here instead
Set responseDoc = responseDocuments.GetNthDocument(m)
'..update your items here
Call responseDoc.Save (True, True)
'...this sub gets recursively called until all response docs are updated
Call UpdateAllResponseDocs( responseDoc )
Next
End If
End Sub
Beispielaufruf:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Set curDoc = Source.Document
'..code to create the empItems record array has been deleted from here
Call UpdateAllResponseDocs (curDoc)
End Sub
Axel
Da brauchst Du den Parameter nicht zu übergeben, sondern kannst die DocID des aktuellen Dokuments über die NotesUI Klassen holen.
bsp:
dim uiws as new notesuiworkspace
dim uidoc as notesuidocument
dim doc as notesdocument
dim docid as string
set uidoc = uiws.currentdocument
set doc = uidoc.document
docid=doc.universalid
'so oder so ähnlich
d. h. er ändert mir auch nix!
Woran könnte das liegen?
Die Kontaktmaske rufe ich mit folgendem Formelbefehl aus der Firmenmaske per Aktionsleiste auf:
@If(@IsDocBeingEdited=0;@Command([Compose]; "Kontakt");@Prompt([YesNo]; "Lotus Notes"; "Möchten Sie dieses neue Dokument Speichern?")=1;@Do(@Command([FileSave]);@Command([EditDocument];0);@Command([Compose]; "Kontakt"));@Return(""))
Könnte es sein, dass er so gar keine Beziehung herstellt?
Dim org As String
org = docToCheck.AdrOrganization
das hab ich mal noch eingebaut um die Daten aus der Firmenmaske auszulesen! In der Variablen steht aber auch nichts drin...
Könnte es da sein, dass ich da mit dem Klassenmodell ein wenig durcheinander komme? Kurz der Weg den ich gehe:
im QuerySave:
Dim curDoc As NotesDocument
Set curDoc = Source.Document
Call UpdateAllResponseDocs (curDoc)
und weiter in der Sub Update...:
Sub UpdateAllResponseDocs( docToCheck As NotesDocument)
On Error Resume Next
Dim responseDocuments As NotesDocumentCollection
Dim responseDoc As NotesDocument
Dim org As String
...
org = docToCheck.AdrOrganization
...
Set responseDocuments = docToCheck.Responses
Kann es sein, dass ich da mit Vererbung oder Beziehung ein wenig durcheinander komme? oder ist das schon der richtige Weg?
Danke schonmal an alle...!