Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: alkuhn am 02.03.10 - 15:10:55

Titel: DocLink in Feld übernehmen
Beitrag von: alkuhn am 02.03.10 - 15:10:55

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

Titel: Re: DocLink in Feld übernehmen
Beitrag von: DAU-in am 02.03.10 - 15:13:09

 'docTech.Vorgang = "DOKLING"

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

Titel: Re: DocLink in Feld übernehmen
Beitrag von: alkuhn am 02.03.10 - 15:20:20

Vorgang ist ein Richtextfeld

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

Titel: Re: DocLink in Feld übernehmen
Beitrag von: Jan Grünklee am 02.03.10 - 15:21:52

Set rtitem = New NotesRichTextItem( docTech, "Vorgang" )
Call rtitem.AppendDocLink( docSource , "Kommentar")

Titel: Re: DocLink in Feld übernehmen
Beitrag von: alkuhn am 02.03.10 - 15:26:58

Hallo Jan,

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

Viele Grüße
Alex

Titel: Re: DocLink in Feld übernehmen
Beitrag von: Jan Grünklee am 02.03.10 - 15:41:44

Hi Alex,

ja das geht den Menschen wie den Leuten  ;)

Gruss Jan

Titel: Re: DocLink in Feld übernehmen
Beitrag von: alkuhn am 02.03.10 - 15:43:09

 :)