Domino 9 und frühere Versionen > ND7: Entwicklung

DocLink in Feld übernehmen

(1/2) > >>

alkuhn:
Hallo zusammen,

habe nun schon ganz viele Beiträge im Forum gelesen, aber stehe noch immer auf der Leitung und hoffe, dass mir jemand helfen kann.

Ich habe eine Notesdatenbank in der wir Verträge hinterlegt haben. Bei den Verträgen gibt es ein Datumsfeld. Wenn das Datum der heutige Tag ist, wird in der gleichen Datenbank ein Datensatz für unsere Aufgaben erstellt. In diesem neuen Datensatz möchte ich einen Dokumentlink auf den jeweiligen Vertrag einfügen. Das bekomme ich aber nicht hin. Mein Agent sieht wie folgt aus:

Sub Initialize
   
   Dim s As New NotesSession
   Dim dbCurrent As NotesDatabase
   Set dbCurrent = s.CurrentDatabase
   
   Dim docTech As NotesDocument
   Dim docSource As NotesDocument
   Dim docSourceHelp As NotesDocument   
   
   Dim viewMailSend As NotesView
   Set viewMailSend = dbCurrent.GetView( "(HelpDeskAgent6)" )
   
   Set docSource = viewMailSend.GetFirstDocument
   
   While Not ( docSource Is Nothing )
      Set docSourceHelp = viewMailSend.GetNextDocument( docSource )
      Set docTech = dbCurrent.CreateDocument
      docTech.Form = "TR-Vorgang"
      docTech.Art = "Intern"
      docTech.VorgangBearbeiter = "9"
      docTech.TRDringlichkeit = "1"
      docTech.VorgangTyp = "70"
      docTech.Status = "Neu"
      docTech.Status2 = "0"
      docTech.VorgangThema = "Vertragsmanagement"
      docTech.VorgangStichwort = docSource.VertraegeErinnerungBetreff(0)
      
Hier wollte ich den Link einfügen
         'docTech.Vorgang = "DOKLING"
      
      Call docTech.Save( True, True )      
      
      docSource.VertraegeErinnerung = Null
      docSource.Form = "Vertraege"
      Call docSource.Save(True, True)
      Set docSource = docSourceHelp
      
   Wend
End Sub

Kann mir jemand auf die Sprünge helfen?

Viele Grüße

DAU-in:
 'docTech.Vorgang = "DOKLING"

Vorgang ist ein Richtextfeld?
Für was steht Dokling?

alkuhn:
Vorgang ist ein Richtextfeld

Dokling war jetzt einfach nur blabla als Platzhalter um zu zeigen, dass ich in diesem Feld den Link wollte

Jan Grünklee:
Set rtitem = New NotesRichTextItem( docTech, "Vorgang" )
Call rtitem.AppendDocLink( docSource , "Kommentar")

alkuhn:
Hallo Jan,

ich danke Dir!!! Irgendwie stand ich völlig auf der Leitung.

Viele Grüße
Alex

Navigation

[0] Themen-Index

[#] Nächste Seite