Domino 9 und frühere Versionen > Entwicklung

Ansichten öffnen aus anderen DBs

(1/3) > >>

DomAdmin:
Hallo Leute,

ich versuche über eine Aktion eine Maske (?) aufzurufen, die mir die Ansicht aus einer vorgegebenen anderen Datenbank anzeigt, aus der Ansicht kann ich dann ein oder vielleicht auch mehrere Dokumente auswählen und mit dem Button OK werden die ausgewählten Dokumente in meine Datenbank kopiert !!

:P :o :'( :'( :'(

Ich weiß nur nicht wie !!!

Bitte helft mir !

Ich hab mich bis jetzt immer nur mit sehr einfachen Formeln herumgeschlagen, weil ich versuche es mir selbst beizubringen !!

Liebe Grüße DomAdmin

Axel:
Hi,

schau die mal @Picklist an.


Axel

DomAdmin:
Hallo Axel !

Das hab ich versucht, ich kriege auch eine Liste angezeigt aber wie verbinde ich das mit @Command([EditCopy]) und natürlich dann noch mit @Command([EditPaste]) in meine DB ??


Die Formel lautet:
@PickList( [Custom] ; "SERVER":"Datenbank" ; "Reservations By Date" ; "Test" ; "Eingabeaufforderung"; 1)

Aber wie kriege ich bei der Auswahl das GESAMTE Dokument rüber ?

Axel:
Hi,

das geht, glaube ich, nicht so ohne weiteres. Was mir dazu einfällt, wäre eine Lösung mit Script.

Ich versuch's mal ansatzweise aus dem Kopf.

In einen Action-Button packst du folgenden Code:

Sub Click

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim currentDB AS NotesDatabase
Dim collection As NotesDocumentCollection
Dim sourcedoc As NotesDocument
Dim destinationdoc AS NotesDocument
Dim idx As Integer

'Anpassen!!
Const sourceServer = "Name des Servers"
Const sourceDBName = "Name der Quell-Datenbank"
Const sourceView = "Name der Ansicht für Picklist"

Set currentDB = session.CurrentDatabase

Set collection = workspace.PickListCollection(1, True, sourceServer, sourceDBName,sourceView,"Titel", "Bitte Dokument(e) wählen")

For idx = 1 to collection.Count
 Set sourcedoc = collection.GetNthDocument
 Set destinationdoc = New NotesDocument(currentDB)
 Call destinationdoc.CopyAllItems(sourcedoc, True)
 Call destinationdoc.Save(True,True)
Next

End Sub

Versuch's mal damit. Ich hoffe ich hab keinen Fehler gemacht.

Axel

DomAdmin:
Hallo Axel,

ich habe das mal so eingestzt und die Anpassungen getätigt, nur leider krieg ich einen Fehler in Zeile 20:

bei "Set sourcedoc = collection.GetNthDocument "

kommt der Fehler "Click: 20: Missing argument for:GetNthDocument"

Was soll ich denn jetzt machen, kann ja den Script nicht abspeichern !!

Bitte hilf mir nochmal !!  :-[

Grüße
DomAdmin

Navigation

[0] Themen-Index

[#] Nächste Seite