Löschen von Dokumenten aus einer DB zur anderen

[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

[Alexis]

Bernhard,

leider sehe ich den Link in der Maske nicht  

Nicht nach Abspeichern,
Feld "Link" als RTF mit Mehrfachwerten oder auch nicht,
Feld "Link" berechnet oder auch nicht.

Hast Du noch 'ne Idee?
Kann der Debugger helfen?

Alexis

[koehlerbv]

Deklariere mal Dein rtitem als NotesRichTextItem statt als Variant. Und dann schau mal im Debugger, wie die Variablen nacheinander belegt werden.
Auf die Schnelle sehe ich nicht, was sonst nicht paßt.

So long,
Bernhard

[Alexis]

Berhard,

mir fällt nur auf, dass uidoc vom Typ Variant ist.

Als NotesDocument deklariert erhalte ich die Fehlermeldung in der Zeile Set uidoc = workspace.CurrentDocument "Type mismatch CurrentDocument"


Alexis

[koehlerbv]

Da habe ich total übersehen, daß Du ja uidoc gar nicht deklariert hast:
Dim uidoc as NotesUIDocument

Dazu noch ein Tip: Schreibe nie eine einzige Zeile LS, ohne in die Options des Moduls eingetragen zu haben:
Option Declare

HTH,
Bernhard

[Alexis]

Hallo Forum, hallo Bernhard,

leider bin ich bis jetzt noch nicht erfolgreich, obwohl die Hilfestellung von Berhard für mich Script-Greenhorn prima war und nun leider   Urlaub ansteht. Hier der letzte Stand des Scripts, vielleicht hat noch jemand in der Zwischenzeit 'ne Idee, warum der Link nicht in der Maske erscheint. Nach dem Urlaub geht' weiter.

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  ' Reservierung
   Dim uidoc As NotesUIDocument ' Bewirtungsmaske
   Dim docCurrent As NotesDocument
   Dim rtitem As NotesRichTextItem
   
   Set db=session.CurrentDatabase
   Set collection = workspace.PickListCollection(1, False,_
   "DE01-SPK24/DE01","DOW012.nsf","My Reservations","My Dialog", _
   "Please select a document.")              
   
     If collection.Count <> 1 Then
      Messagebox "Eine Reservierung auswählen"
      Exit Sub
   End If
   
   Set doc = collection.GetFirstDocument          
   Set uidoc = workspace.CurrentDocument
   Set docCurrent = uidoc.Document          
   Set rtitem = New NotesRichTextItem( docCurrent, "Link" )
   Call rtitem.AppendDocLink (doc, "Link", "Link")      
   
End Sub

Danke und tschüss
Alexis

[koehlerbv]

Hm, Du fügst den Link im Backend ein, speichern tust Du dann aber offensichtlich im FrontEnd.Das UI-Dokument weiß aber nicht, was Du hinter seinem Rücken getan hast.
Beende mal Deine Aktion mit einem
Call docCurrent.Save (True, False, True)

HTH,
Bernhard