Seite drucken - Doc_link verändert sich

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Hedwig14 am 16.02.09 - 10:02:54

Titel: Doc_link verändert sich
Beitrag von: Hedwig14 am 16.02.09 - 10:02:54

Hallo,

ich habe eine Mail in dem ein Doc_link eingebunden ist.

Dieses Mail leite ich per Script einem anderen Nutzer zu.
Dabei verändert sich die Verlinkung aus dem ursprungsmail und verweißt auf die
Mail Datenbank.

Wie kann das passieren ?

Titel: Re: Doc_link verändert sich
Beitrag von: Felix Ziegler am 16.02.09 - 10:07:53

Hallo Hedwig,

poste doch bitte kurz den Code mit dem du die Mail weiterleitest.
Und vielleicht kurz beide Doklinks, also die NotesURL.

Danke, Felix

Titel: Re: Doc_link verändert sich
Beitrag von: Hedwig14 am 16.02.09 - 10:11:19

Hier der Code der Weiterleitung

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As Notesdatabase
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim Profildoc As NotesDocument

   Dim rc As Variant
   Dim gruppe As String
   Dim memberliste As Variant
   Dim person As NotesName

   On Error Goto catch

   Set db = session.CurrentDatabase
   Set uidoc=ws.currentDocument
   Set doc = uidoc.Document
   Set ProfilDoc = db.GetProfileDocument( "(Konfiguration)" )
   heute = Today()
   profilgruppe = ProfilDoc.CFG_ZuweisenGruppe(0)

   If doc.document_status(0) = "erledigt" Then
      Msgbox "Sie können keine bereits erledigten Dokumente zuweisen.",,db.Title
      Exit Sub
   End If

   If profilgruppe = "" Then
   'Gruppe anhand des PK Names auflösen
      postkorbtitel = db.Title
      gruppe = Mid$(postkorbtitel, 3,99)
   Else
      'Gruppe aus Profil verwenden
      gruppe = profilgruppe
   End If

   'ist die gruppe auch vorhanden ?
   Dim nab As New NotesDatabase("","names.nsf")
   Dim grpView As NotesView
   Dim gruppendoc As NotesDocument

   Set nab = New NotesDatabase(db.server,"names.nsf")
   Set grpView = nab.GetView("Groups")
   Set gruppendoc = grpView.GetDocumentByKey(gruppe)

   If Not gruppendoc Is Nothing Then
      'Gruppen auflösen
      memberliste = getPersonMembers(gruppe)

      SortiertesArray = QuickSort(memberliste) 'sortieren
      SortiertesArray = Arrayappend( SortiertesArray, "andere Person- (Datenbank-Zugriff beachten !)" )
      SortiertesArray = unique(SortiertesArray)   'doppelte werte löschen

      rc =ws.prompt(PROMPT_OKCANCELLIST,"Personenauswahl","Bitte wählen Sie eine Person aus!",SortiertesArray(0),Fulltrim(SortiertesArray))

      If ( Isempty( rc ) ) Then
         Exit Sub
      Elseif rc = "andere Person- (Datenbank-Zugriff beachten !)" Then
         rc = ws.PickListStrings(PICKLIST_NAMES, False)
         If ( Isempty( rc ) ) Then
            Exit Sub
         Else
            Set person = session.CreateName(rc(0))
         End If
      Else
         Set person = session.CreateName(rc)
      End If
   Else
      rc = ws.PickListStrings(PICKLIST_NAMES, False)
      If ( Isempty( rc ) ) Then
         Exit Sub
      Else
         Set person = session.CreateName(rc(0))
      End If
   End If


   'Dokument anpassen
   doc.document_status = "zugewiesen"
   doc.document_send = person.Common
   doc.document_bearbeiter = person.Common
   doc.document_historie = doc.GetItemValue("document_historie")(0) & Chr$(10) & heute &_
   ": " & session.CommonUserName &" wies das Dokument: " & person.Common &" zu"
   Call doc.Save( False, True )

   'Mail senden
   Dim mdoc As NotesDocument
   Set mdoc = New NotesDocument(db)
   mdoc.Form = "Memo"
   mdoc.Subject = "Ihnen wurde eine Mail zugewiesen!"
   Set rtItem= New NotesRichTextItem( mdoc , "Body")

   Call rtitem.AppendText("Ihnen wurde eine Mail zugewiesen!")
   Call rtitem.AddNewline (2)
   Call rtitem.AppendText("Sie erreichen die Mail über folgendes Symbol:")
   Call rtitem.AddNewline (2)
   Call rtitem.AppendDocLink(doc, "")
   Call mdoc.Send (False, person.Canonical)

   Call uidoc.Close

finally:
   Exit Sub
catch:
   On Error Resume Next
   errorcode$=Cstr(Err)
   If errorcode$<>"4412" Then   ' Fehler in der Feldvalidierung nicht extra ausgeben
      errline= "Fehler: "+ErrorCode$+" " +Error +" in Zeile: " +Cstr(Erl)
      Msgbox(errline)
'      Call nlog.logerror(0,errline)
   End If
   Resume finally

End Sub

Titel: Re: Doc_link verändert sich
Beitrag von: Felix Ziegler am 16.02.09 - 10:28:42

Ich verstehe Frage glaube ich nicht richtig.

Der Link müsste auf das aktuelle geöffnete Dokument verweisen. Wahrscheinlich eine Mail, wenn du den Button in der Maildatenbank drückst...

Titel: Re: Doc_link verändert sich
Beitrag von: Hedwig14 am 16.02.09 - 10:33:09

Eigenschaften vom veränderten DocLink siehe Anhang

Titel: Re: Doc_link verändert sich
Beitrag von: Felix Ziegler am 16.02.09 - 11:14:22

Und woher kommt der erste DocLink? Steht der in der Mail schon drin?

Du erstellst ja mit dem Code eine nagelneue Mail...

Zitat

Code

 'Mail senden
   Dim mdoc As NotesDocument
   Set mdoc = New NotesDocument(db)   
   mdoc.Form = "Memo"   
   mdoc.Subject = "Ihnen wurde eine Mail zugewiesen!"
   Set rtItem= New NotesRichTextItem( mdoc , "Body")
   
   Call rtitem.AppendText("Ihnen wurde eine Mail zugewiesen!")
   Call rtitem.AddNewline (2)
   Call rtitem.AppendText("Sie erreichen die Mail über folgendes Symbol:")
   Call rtitem.AddNewline (2)            
   Call rtitem.AppendDocLink(doc, "")
   Call mdoc.Send (False, person.Canonical)

Titel: Re: Doc_link verändert sich
Beitrag von: Hedwig14 am 16.02.09 - 11:23:42

der erste DocLink steht der in der Mail schon drin, ja !

Ablauf:
1: Aus einer Anwendung wird eine Mail an die Mail-In Datenbank mit DokLink gesendet
2: Aus der Mail-In DB wird die Mail an den Bearbeiter zugewiesen.
3. Der erhält die o.g. Mail (neu) mit Link auf die Mail in der Mail-In
4: Der Link im ursprungs Dok ist aber überschrieben....

Ich habe keinen Olan wie das passieren kann !?!??!

Titel: Re: Doc_link verändert sich
Beitrag von: Felix Ziegler am 16.02.09 - 12:16:48

Also wird der Link im Dokument "doc" verändert?!
Dann tippe ich drauf, dass im QuerySave oder QueryClose der Maske noch was drin steht.
Der Code den du geposted hast scheint richtig zu sein...

Titel: Re: Doc_link verändert sich
Beitrag von: Hedwig14 am 16.02.09 - 12:32:54

Ja, der Link wird im doc geändert.

Ich habe jetzt mal eine normale Mail mit einem beliebigen Doc-Link an die Mail-In-DB gesendet
und diese Mail zugewiesen. Dann wird der Link nicht geändert.
Demanch nur wenn er aus der Anwenung kommt !

Query Open und Close sind leer !

Ich stehe total auf dem Schlauch !

Titel: Re: Doc_link verändert sich
Beitrag von: Felix Ziegler am 16.02.09 - 13:24:34

Das einzige was mir noch auffällt, ist die Reihenfolge der Parameter bei doc.Save( ... ) ... Gibts vielleicht einen Speicher- und Replizierkonflikt?

Titel: Re: Doc_link verändert sich
Beitrag von: BigWim am 17.02.09 - 09:23:59

Zitat

Ich stehe total auf dem Schlauch !

das kenn ich!

Zitat

Dabei verändert sich die Verlinkung aus dem ursprungsmail und verweißt auf die
Mail Datenbank.

Das hatte ich auch mal. Konnte den Fehler auch nicht finden - mangels Wiederholbarkeit!

Ich hatte seinerzeit mit Haupt- und Antwortdokumenten experimentiert, die zudem sowohl im Backend als auch im Frontend gespeichert werden konnten. (Bernhard & Co graust es jetzt bestimmt, aber was tut man nicht alles aus Unerfahrenheit).

Ich habe letztendlich das Konzept der Datenbank umgestellt ...

Wenn ich das richtig verstanden habe, ändert sich der Link von einer Dokumentenverknüpfung in eine Datenbankbankverknüpfung; dann kann das auch noch ein Berechtigungs- oder/und Zugriffsproblem sein.

Wie gesagt, ich konnte es nicht nachstellen & und damit auch nicht beweisen, bin mir aber fast sicher, dass es in meinem Fall so war. Vielleicht hilft es ja ein Stück weiter.

Viel Erfolg
Markus

Titel: Re: Doc_link verändert sich
Beitrag von: Barbara am 29.03.10 - 15:59:55

Hallo Hedwig,
ich hole diesen Thread mal nach oben, in der Hoffnung, dass es vielleicht neue Ansätze gibt. Ich arbeite zwar mit 6.55 habe aber genau das gleiche Problem.
User geht über ein Doclink und öffnet ein Dokument in einer anderen Datenbank (evt. muss er den Server wechseln). Dort druckt er lediglich einen Anhang aus. Fenster schließen, zurück ins Ursprungsdokument.
Hier wird der Status verändert, Dokument gespeichert. Kein Querysave etc. - Der Doclink wird zum Datenbanklink. Aber nicht reproduzierbar und auch nicht immer.
Könnte es an der Verbindung zu einem anderen Server liegen? Die Datenbank liegt nur auf einem Server, User von 13 anderen Servern greifen darauf zu.

Gruß

Barbara

Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Hedwig14 am 16.02.09 - 10:02:54