Domino 9 und frühere Versionen > Entwicklung

Löschen von Dokumenten aus einer DB zur anderen

<< < (5/7) > >>

koehlerbv:
Schick' doch bitte mal den Code, den Du schon fertig hast.

Alexis:
Hier mein Code:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Set db=session.CurrentDatabase
                'Öffnet Fenster in der Ressourcen-Datenbank
   Set collection = workspace.PickListCollection(1, True,_
   "DE01-SPK24/DE01","local\File012.nsf","My Reservations","Überschrift", _
   "Please select a document")
   ?????????   
   Set rtitem = New NotesRichTextItem( doc, "Link" )
   Call rtitem.AppendDocLink( doc, "" )
   
End Sub

koehlerbv:
Sag zunächst der PicklistCollection, daß nur ein Doc gewählt werden kann (sonst müßtest Du ja n Links einfügen.

Aus der Collection holst Du Dir dann das erste (und einzige) Dokument:
Set doc = collection.GetFirstDocument.
Und damit hastDu auch schon den Parameter LinkTo (wie schon im Code vorhanden).
Nach Picklist würde ich auf gültige Auswahl checken:
If collection.Count <> 0 then
   <Gemecker>
   Exit Sub
End If

HTH,
Bernhard

Alexis:
Hallo Berhard,

tut mir leid, bin zu dumm für Script und benötige noch einmal Support.

Bin jetzt schon mal so weit, dass ich beliebige Daten des ausgewählten PickList-Objektes kriege und auch einbinden kann. Nicht jedoch den Link ???

Was muss ich ändern:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim rtitem As Variant   
   Set db=session.CurrentDatabase
   
   
   Set collection = workspace.PickListCollection(1, False,_
   "DOW-DE01-SPK24/DE01/DOW","local\deuta\de012.nsf","Meine Reservierungen","Auswahlmaske", "Reservierung auswählen")
   
   If collection.Count <> 1 Then
      Messagebox "Eine Reservierung auswählen"
      Exit Sub
   End If
   
   Set doc = collection.GetFirstDocument
   ' Beispiel Parameter auslesen
   Set uidoc = workspace.CurrentDocument  
   Call uidoc.FieldAppendText( "Sonstiges", doc.Authors(0))
   ?????????
   Set rtitem = New NotesRichTextItem( doc, "Link" )
   Call rtitem.AppendDocLink( doc, "Link")   
   
End Sub

Deine Hilfe wäre mir sehr recht.

Alexis

koehlerbv:
doc ist das zu verlinkende Doc, und uidoc ist sicherlich das Dokument, wo der Link 'rein soll.

Set doc = collection.GetFirstDocument
   ' Beispiel Parameter auslesen
   Set uidoc = workspace.CurrentDocument  
   Call uidoc.FieldAppendText( "Sonstiges", doc.Authors(0))
   ?????????

   'Mit den folgenden beiden Zeilen erzeugst Du das Link-Feld samt Link im zu verlinkenden Dokument - was sicher nicht erwünscht ist:
   Set rtitem = New NotesRichTextItem( doc, "Link" )
   Call rtitem.AppendDocLink( doc, "Link")  
   
Daher:
   Dim docCurrent as NotesDocument
   Set uidoc = workspace.CurrentDocument  
   Set docCurrent = uidoc.Document
   Set rtitem = New NotesRichTextItem( docCurrent, "Link" )
   Call rtitem.AppendDocLink (doc, "Link")  

Da rtitem ja ein RTF ist, ist das Ergebnis erst nach dem Speichern und erneutem Öffnen des uidocs zu sehen.

HTH,
Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete