Domino 9 und frühere Versionen > ND6: Entwicklung
Link auf Child Dokumente
Andreas Huhn:
Guten Morgen,
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:
--- Code: ---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
--- Ende Code ---
Andreas Huhn:
Probiere noch rum, aber es klappt noch nicht.
Versuche gerade einfach mal den Link in ein RichText Item zu bekommen..
Klappt noch nicht so...
Dim rtitem As NotesRichTextItem
'...
Set rtitem = parent.GetFirstItem( "DocLink" )
Call rtitem.AppendDocLink( db , response.NotesURL )
enny:
Mal so ne Frage neben bei warum verwendest du keine Eingebettete Ansicht.
In dieser Ansicht würdest du dann einfach alle Antworten anzeigen lassen.
In der ersten Spalte der Ansicht eine Kategorie auf @Text($Ref), in der zweiten
vielleicht eine Beschreibung und in der dritten ein Symbol für den Status.
Anschließend im Hauptdokument die Eingebettete Ansicht auf @Text(@DocumentUniqueID)
einschränken.
Der Vorteil wäre das du keine Aktualisierung am Hauptdokument durchführen musst und
das Antwort-Dokument aus dem Hauptdokument öffnen kannst.
MfG
Enrico
Andreas Huhn:
Hallo Enny,
schon berechtigt deine Frage. Ich bin hier armer Praktikant der sich versucht noch ein paar Wochen durchs Projekt zu beißen. Es hat auf Nachfrage geheißen ich soll es genau so umsetzen wie es in der Verbesserungs-Vorgabe steht und falls am Ende noch Zeit ist überlegt man sich das vielleicht noch. Ausnahme wäre daß es so nicht möglich ist. Aber ich versuche im Moment die Anforderung noch zu erfüllen. Aus dem Grund versuche ich heute schon den ganzen Tag diese DocLinks zu erzeugen.......
Viele Grüße,
Andreas
boemitsu:
--- Zitat von: Andreas Huhn am 15.11.05 - 09:39:36 ---Dim rtitem As NotesRichTextItem
'...
Set rtitem = parent.GetFirstItem( "DocLink" )
Call rtitem.AppendDocLink( db , response.NotesURL )
--- Ende Zitat ---
Willst du tatsächlich einen DB-Link ? Nach dem lesen des Threads denke ich wohl eher auf das child Dokument
Probier dies:
'aus der Hilfe
Set notesRichTextItem = New NotesRichTextItem( notesDocument, name$ )
Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ] )
'code
dim s as new notessession
dim db as notesdatabase
dim parentdoc as notesdocument
dim parentiuind as string
dim refdoc as notesdocument
parentuind = source.document.ParentDocumentUNID
set db = s.CurrentDatabase
set parentdoc = db.getdocumentbyuind(parentuind)
set refdoc = source.document
Set rtitem = New NotesRichTextItem(parentdoc,"deinRTItem")
Call rtitem.AppendDocLink(refdoc,"Link zu Bestellung")
call parentdoc.save(true,false)
HTH
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln