Autor Thema: Probleme mit AppendDocLink  (Gelesen 7329 mal)

Offline pimpfling

  • Senior Mitglied
  • ****
  • Beiträge: 367
  • Geschlecht: Männlich
Probleme mit AppendDocLink
« am: 19.05.08 - 12:22:36 »
Hallo

Ich möchte per Button aus einem bestehenden Dokument (Dok1) ein neues erstellen (Dok2).
Das neue Dokument (Dok2) soll in einem Feld die DocumentIID in einem Textfeld beinhalten und zusätzlich einen Doc_Link auf das Dok1 in einem RT Feld haben.
Das pasten der DocID in ein Feld des Dok2 funktioniert - nur das einfügen des Doc_Links geht nicht.

Folgende Fehlermeldung bekomme ich:
"Type mismatch in method AssignClassInstance: AINSTANCE found, Unknown expected"

Button Code:
Sub Click(Source As Button)
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim uidoc2 As NotesUIDocument
   Dim rtitem As NotesRichTextItem
   Dim doc As NotesDocument
   
   Set uidoc = uiws.CurrentDocument
   Call uidoc.Save
   id = uidoc.FieldGetText("main_docid")
   Set doc = uidoc.Document
   
   Set uidoc2 = uiws.ComposeDocument("","","frmToDo")   
   Set uidoc2 = uiws.CurrentDocument
   
   Call uidoc2.FieldSetText("ToDo_did",id)
                Set rtitem = uidoc2.document.GetFirstItem( "ToDo_doclink" )
   Call rtitem.AppendDocLink( doc, "Link zum Hauptdokument")
End Sub

Wo steckt der Fehler?
Gruß Stefan

----------------------------------
EDV-Systeme verarbeiten, womit sie gefüttert werden. Kommt Mist rein, kommt Mist raus.

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Probleme mit AppendDocLink
« Antwort #1 am: 19.05.08 - 13:12:21 »
1) Es fehlt ein ErrorHandling (On Error Goto ...)
2) und daraus sich ergebend die Zeilennummer, in welcher der Fehler auftritt. IMHO hat der gepostete Code nix mit dem Fehler zu tun.
3) Willst Du da ev. eine Haupt-/Antwort-Dokument Hierarchie aufbauen?
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline pimpfling

  • Senior Mitglied
  • ****
  • Beiträge: 367
  • Geschlecht: Männlich
Re: Probleme mit AppendDocLink
« Antwort #2 am: 19.05.08 - 13:51:56 »
Hallo

Danke für die schnelle Antwort.
Ich habe jetzt heraus gefunden das der Fehler in der folgenden Zeile auftritt:
Set rtitem = uidoc2.document.GetFirstItem( "ToDo_doclink" )

Mir ist nicht klar wo dort der Type Mismatch auftritt...

Im Prinzip will ich mehrere Dokumente (Dok2) mit einem Dokuemt (Dok1) verknüpfen.
Die Dok2 Dokumente werden dann in einer embedded View im Dok1 angezeigt (funktioniert über die DokID)
Kann ich das auch mit Antwortdokumenten machen?
Ich werde mir die Anleitung für die Antwortdokumente mal ansehen...
Gruß Stefan

----------------------------------
EDV-Systeme verarbeiten, womit sie gefüttert werden. Kommt Mist rein, kommt Mist raus.

Offline Andrew Harder

  • Senior Mitglied
  • ****
  • Beiträge: 295
  • Geschlecht: Männlich
Re: Probleme mit AppendDocLink
« Antwort #3 am: 19.05.08 - 13:57:02 »
flag = notesDocument.Save( force, createResponse [, markRead ] )

Boolean. If True, the current document becomes a response to the original document...

Zur Info: Notes speichert dann die UniversalID des Vaterdokumentes im Feld $REF.
Wenn Du also eine Anicht hast und die Erste Spalte genau dieses Feld anzeigen würde...

Andy

Offline pimpfling

  • Senior Mitglied
  • ****
  • Beiträge: 367
  • Geschlecht: Männlich
Re: Probleme mit AppendDocLink
« Antwort #4 am: 19.05.08 - 16:07:04 »
Klingt einfach :)

Werde ich mal ausprobieren, danke...
Gruß Stefan

----------------------------------
EDV-Systeme verarbeiten, womit sie gefüttert werden. Kommt Mist rein, kommt Mist raus.

Offline pimpfling

  • Senior Mitglied
  • ****
  • Beiträge: 367
  • Geschlecht: Männlich
Re: Probleme mit AppendDocLink
« Antwort #5 am: 20.05.08 - 11:35:37 »
Hat wunderbar funktioniert - vielen Dank.
Gruß Stefan

----------------------------------
EDV-Systeme verarbeiten, womit sie gefüttert werden. Kommt Mist rein, kommt Mist raus.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz