response muß ich natürlich noch setzen, aber da bekomme ich grade keinen Verweis auf das aktuelle Doc.
mit Source.Document klappt es nicht. Ist ja auch vom Typ uiDocument.
Momentan siehts wie folgt aus:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim response As NotesDocument
Dim parent As NotesDocument
'...set value of response...
Set db = session.CurrentDatabase
Set response =
Set parent = db.GetDocumentByUNID ( response.ParentDocumentUNID )
parent.Status = "Bestellt"
'...
End Sub
das hat funktioniert, danke.
Hab gestern noch ne Weile probiert und bin auch auf was gekommen. Das mit der Statusanzeige funktioniert soweit. Nun liegts noch an der Verknüpfung.
Hab im Moment eine Tabelle mit 20 Zeilen und eine Spalte in der ich eine grüne Ampel anzeigen lasse, wenn das Teil bestellt wurde. Am schönsten wärs natürlich den Link auf das Child-Doc gleich mit der Ampelgrafik zu verknüpfen, sodaß ein Klick darauf zur entsprechenden Bestellung führt. Da in einer Bestellung ja auch mehrere Teile (Zeilen in der Tabelle) bestellt worden sein können, haben evtl. mehrere Ampeln das gleiche Ziel. Aber wie krieg ich nun die Verknüpfung auf die Grafiken? Probier mir grad nen Wolf...
mit:
parent.DocLink = response.NotesURL
bekomme ich zwar einen Link, aber wie krieg ich den als Verknüpung? Am besten auf die Ampel...
Grüße,
Andreas
P.S.: Mein Code im Moment:
Sub Postsave(Source As Notesuidocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim response As NotesDocument
Dim parent As NotesDocument
'...set value of response...
Set db = session.CurrentDatabase
Set response = source.Document
Set parent = db.GetDocumentByUNID ( response.ParentDocumentUNID )
If parent.BStatus_1(0) = "1" Then parent.BStatus_1 = "Bestellt" : parent.chk1_1 = "."
If parent.BStatus_2(0) = "1" Then parent.BStatus_2 = "Bestellt" : parent.chk1_2 = "."
If parent.BStatus_3(0) = "1" Then parent.BStatus_3 = "Bestellt" : parent.chk1_3 = "."
If parent.BStatus_4(0) = "1" Then parent.BStatus_4 = "Bestellt" : parent.chk1_4 = "."
If parent.BStatus_5(0) = "1" Then parent.BStatus_5 = "Bestellt" : parent.chk1_5 = "."
If parent.BStatus_6(0) = "1" Then parent.BStatus_6 = "Bestellt" : parent.chk1_6 = "."
If parent.BStatus_7(0) = "1" Then parent.BStatus_7 = "Bestellt" : parent.chk1_7 = "."
If parent.BStatus_8(0) = "1" Then parent.BStatus_8 = "Bestellt" : parent.chk1_8 = "."
If parent.BStatus_9(0) = "1" Then parent.BStatus_9 = "Bestellt" : parent.chk1_9 = "."
If parent.BStatus_10(0) = "1" Then parent.BStatus_10 = "Bestellt" : parent.chk10_1 = "."
If parent.BStatus_11(0) = "1" Then parent.BStatus_11 = "Bestellt" : parent.chk1_11 = "."
If parent.BStatus_12(0) = "1" Then parent.BStatus_12 = "Bestellt" : parent.chk1_12 = "."
If parent.BStatus_13(0) = "1" Then parent.BStatus_13 = "Bestellt" : parent.chk1_13 = "."
If parent.BStatus_14(0) = "1" Then parent.BStatus_14 = "Bestellt" : parent.chk1_14 = "."
If parent.BStatus_15(0) = "1" Then parent.BStatus_15 = "Bestellt" : parent.chk1_15 = "."
If parent.BStatus_16(0) = "1" Then parent.BStatus_16 = "Bestellt" : parent.chk1_16 = "."
If parent.BStatus_17(0) = "1" Then parent.BStatus_17 = "Bestellt" : parent.chk1_17 = "."
If parent.BStatus_18(0) = "1" Then parent.BStatus_18 = "Bestellt" : parent.chk1_18 = "."
If parent.BStatus_19(0) = "1" Then parent.BStatus_19 = "Bestellt" : parent.chk1_19 = "."
If parent.BStatus_20(0) = "1" Then parent.BStatus_20 = "Bestellt" : parent.chk1_20 = "."
Call parent.Save(True , False)
'...
End Sub