Probleme mit dem Rückgabewert einer Funktion

[hOtze]

Moje!

Hab hier mal wieder ein Prob, was ich mir nicht erklären kann! Hoffe ihr könnt mir helfen.

Habe eine Funktion der ich diverse Parameter mitgebe. DIese Funktion soll dann aufgrunde der Parameter eine Piclist liefern, und dann aufgrunde der Auswahl das entsprechende Dokument der Funktion als NotesDocument zurückgeben!

Die Funktion habe ich in eine Scriptbibliothek eingelagert!

Sie Funktioniert auch soweit! Im Debuger sehe ich das das dokument einwandfrei selektiert wird, aber leider wird das doc nicht aus der Funktion übermittelt! Woran kann das liegen?

Ich poste gleich auch mal den code bevor jemand fragt:

--------------------------------------------BUTTON SCRIPT
Dim ws As New NotesUiWorkspace
Dim s As New NotesSession

Dim doc As NotesDocument
Dim zdoc As NotesDocument
Dim db As NotesDatabase
Dim link As String
Dim ansicht As String

Set doc = ws.CurrentDocument.Document
Set db = s.CurrentDatabase


ansicht = "Navigatoren"

'------ [FUNKTIONSAUFRUF] -----------
Set zdoc = PickListView(db.filename, ansicht,2 )
'------ [FUNKTIONSAUFRUF] -----------


If zdoc Is Nothing Then
Exit Sub
End If

--------------------------------------------FUNCTION SCRIPT
Function PicklistView(dbname As String, viewname As String, columnr As Integer) As NotesDocument

Dim ws As New NotesUiWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim zieldb As NotesDatabase
Dim zieldoc As NotesDocument
Dim result As Variant
Dim dbpfad As String



Set db = s.CurrentDatabase
dbpfad =pfad+"\" +dbname

result = ws.PickListStrings( PICKLIST_CUSTOM, False, server,dbpfad , viewname, "[BOG Logistik] Document Picker" , "Bitte ein Dokument auswählen: " , Cstr(columnr) )
If Isempty(result) Then
Exit Function
End If
If result(0) = "" Then
result = Msgbox("Fehlerhafte Auswahll! Es wurde kein Dokument ausgewählt! Bitte wiederholen Sie ihre Auswahl!",0+16,"[BOG Logistik] Document Picker")
Exit Function
End If

Set zieldb = s.GetDatabase(server,pfad + "\"+ dbname)
Set zieldoc = zieldb.GetDocumentByUnId(result(0))
Set PickListView = zieldoc
End Function

[Performance]

wenn du ein dok zurückgeben willst mach es doch mit der Picklistcollection

das geht schneller - deine suche nach der Auswahl entfällt

cu

[hOtze]

Ja gut das werde ich gleich nach Mittag mal austesten, aber woran liegt das das das Dokument nicht zurüggegeben wird!

Die Zuweisung in der Funktion funktioniert ja noch! (laut debugger)
nur wenn er dann wieder ins UrsprungsScript springt, is es nicht mehr da!  

[Performance]

wie rufst du die Funktion auf ?

notesdok = PicklistView("", "", 1)  oder ?

müsste funktionieren


cu

[hOtze]

Jiep rufe die Funktion so auf

'------ [FUNKTIONSAUFRUF] -----------
Set zdoc = PickListView(db.filename, ansicht,2 )
'------ [FUNKTIONSAUFRUF] -----------

zdoc ist auch als NotesDocument deklariert, genau so wie der Rückgabewert der Funktion!  


--------------EDIT------------------------------------------------------------------



Hab jetzt gerade mal ausprobiert: und laß mir nicht das Dokument, sondern dessen ID zurück geben also einen String!

Shizophren ist das der String einwandfrei übergeben wird, will ich das aber mit dem Dokument machen, funktioniert das nicht!
WARUM?? Hilfe! Bin hier total am verzweifeln! Was mach ich denn falsch?



--------------EDIT------------------------------------------------------------------
Soooooo ..... wenns intressiert habe gerade im LDD die Lösung gefunden!
Die Funktion muß als static deklariert sein!

[Performance]

ok - wenn du den String zurückbekommst musst du deine zieldb auch öffnen
Set zieldb = s.GetDatabase(server,pfad + "\"+ dbname)
flag =  zieldb.open(server, dbfile)
if flag then
Set zieldoc = zieldb.GetDocumentByUnId(result(0))
end if

-- das ist aber der komplizierte Weg, vor allem weil du in der gleichen db nochmal die gleiche db initialisierst und öffnest eben über eine neue Variable.


ich würde das so machen:
Dim col As NotesDocumentCollection
Set col = ws.PickListCollection( PICKLIST_CUSTOM, False, db.server, db.filepath, viewname, "Document Picker" , "Bitte ein Dokument auswählen" )
If Not col Is Nothing Then
   Set PicklistView = col.GetFirstDocument
End If



cu

[Doc Torte]

schon mal probiert, das "Set" wegzulassen und einfach nur zu schreiben :

PickListView = zieldoc

[Performance]

@Doc Torte

hast du das schon probiert  

ich glaube jetzt brauche ich noch einen Beta Blocker  


cu

[Doc Torte]

@Performance


...danke, wer lesen kann ist klar im Vorteil -

1:0 für Dich !

[ToniTester]

hey hOtze, danke dass du die Lösung da noch mit reingeschrieben hast. Hat mir gleich weitergeholfen!
Hier nochmal der komplette Link zum LDD Thread:
http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/a0fd37d07868ea8a852568fc00444570?OpenDocument
----------------------------------------------------
...und in der Hilfe steht's natürlich auch drinnen 
Static
Optional. Specifies that the values of the function's local variables are saved between calls to the function.