Autor Thema: DocLinks in neuem Dokument anfügen  (Gelesen 1251 mal)

Driri

  • Gast
DocLinks in neuem Dokument anfügen
« am: 29.01.04 - 13:51:56 »
Hallo,

folgendes Szenario :

- neues Dokument
- Picklist wird geöffnet, gewählte Dokumente kommen in eine Collection
- für jedes Dokument aus der Collection wird ein DocLink im neuen Dokument in einem RichTextfeld erzeugt

Ich habe das jetzt mit Hilfe von ata's Reopen-Function gelöst und das klappt auch wunderbar.

Jetzt hatte ich gerade eine Diskussion mit meinem Kollegen und er meint, es müßte auch anders gehen und zwar in dem ich mir den Doc-Handle des uidocs hole und dann ein neues RTItem erzeuge.

Man läßt ja nix unversucht und ich hab das mal getestet, aber wie ich eigentlich auch erwartet hatte, passiert natürlich nichts.

Also Frage : Hat mein Kollege recht und ich finde einfach nur nicht die benötigten Methoden ?

Ist eigentlich nur Interessehalber, denn mit dem Reopen funktionierts ja wunderbar, aber wenns auch einfacher gehen sollte, lerne ich ja gerne dazu  :D

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:DocLinks in neuem Dokument anfügen
« Antwort #1 am: 29.01.04 - 14:34:49 »
Hi,

so ganz klar ist mir das nicht, was dein Kollege meint. Ich hab's das mal so gemacht.

Ich lege das neue Dokument im Backend an, speichere es ab, öffne es dann im Frontend (über das doc-Handle) und lösche dann das Backend-Dokument.

Vielleicht hat es ja das gemeint.

Code-Auszug

...
Set taskdoc = New NotesDocument(maildb)
taskdoc.Form = "Task"
...

...
'Anlegen und füllen des Richtextfeldes
Set rtitem = taskdoc.CreateRichTextItem("Body" )
Call rtitem.AppendText(doc.Aktionen(0))   
   
Call rtitem.AddNewLine(2)
Call rtitem.AppendText("Vorgang -> ")   
Call rtitem.AppendDocLink(doc, "")
   
If Not iAdressDbError Then
  Call rtitem.AddNewLine(2)
  Call rtitem.AppendText("Adresse -> ")   
  Call rtitem.AppendDocLink(adrdoc, "")      
End If  'If Not iAdressDbError Then
   
Call taskdoc.Save(True,False)  'Temp. Speichern des Backend-Doc. damit RTF-Feld angezeigt wird.   
Set taskuidoc = workspace.EditDocument(True, taskdoc)  'Dokument im Frontend öffnen
Call taskdoc.Remove(True)  'Das Dokument, das im Backend erstellt wurde, löschen
...

Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Driri

  • Gast
Re:DocLinks in neuem Dokument anfügen
« Antwort #2 am: 29.01.04 - 15:07:54 »
Hi,

er war sich eben auch nicht sicher, meinte aber, es müßte auch anders gehen. Vermutlich meinte er so einen Weg, wie Du ihn aufgezeigt hast.

Aber da das auch nicht einfacher ist, als das Reopen zu verwenden, macht das in meinen Augen kaum einen Unterschied.

Danke auf jeden Fall für den Hinweis.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz