Domino 9 und frühere Versionen > Administration & Userprobleme
Dokument über Button in Seite öffnen
lenchen2:
Hallo!
Erst mal vielen Dank, dass es in diesem Forum immer so viele Tipps gibt - ohne wär ich schon oft aufgeschmissen gewesen.
Nur leider hab ich jetzt ein Problem zu dem ich im Forum auch keine Lösung gefunden hab:-(
Hab in einen Button in einer Seite (im linken Frame) ein LotusScript gepackt.
Das sucht mir abhängig vom aktuellen User das dazugehörige Dokument aus.
Jetzt soll genau dieses Dokument im "main"-Frame geöffnet werden.
Und genau da liegt mein Problem- dacht eigentlich, dass das nicht so schwer sein dürfte, aber - falsch gedacht..
Kann mir jemand helfen?
Gruß Lenchen2
Hab meinen Code mal unten hin kopiert.
Sub Initialize
'Global
Dim a As String
Dim oSession As New NotesSession
Dim DBs As Notesdatabase
Dim DB As Notesdatabase
Dim DBView As NotesView
Dim View As NotesView
Dim dDoc As NotesDocument
Dim Doc As NotesDocument
Dim vc As NotesViewEntryCollection
Dim UserName As String
Dim entry As NotesViewEntry
Dim sOE As String
Dim ws As New NotesUIWorkspace
Set DBs = oSession.getDatabase(....nsf)
UserName = oSession.UserNamelist(0).Abbreviated 'aktuellen User auslesen
Set View=DBs.GetView("Mitarbeiter nach Name")
Set vc = view.GetAllEntriesByKey(UserName)
If Not (vc Is Nothing) Then
Set entry = vc.GetNthEntry(1) ' zieht das erste Summendokument des Users
Set Doc= entry.document
sOE = getItemT(Doc,"MI_OE") ' zieht die zum User gehörende OE
If sOE<>"" Then
Set view=DBs.GetView("Übersicht1")
Set vc = view.GetAllEntriesByKey(sOE)
If Not (vc Is Nothing) Then
Set entry = vc.GetNthEntry(1)
Set Doc= entry.document
Call ws.SetTargetFrame("main") <---Hier hängt's!
Call ws.EditDocument(Doc) <---Diese Befehle mag LN wohl hier nicht
End If
End if
....
End Sub
koehlerbv:
Welche Meldungen bekommst Du bzw. welche (unerwünschte) Reaktionen kannst Du beobachten ?
Bernhard
lenchen2:
Guten Morgen!
Also wenn ich zu "Call ws.editdocument(doc)" komme dann bringt er die Fehlermeldung als Messagebox "Notes Error - Der angegebene Befehl ist vom Arbeitsbereich aus nicht verfügbar"
Weißt du warum? Ich leider nicht...
Gruß Lenchen2
lenchen2:
Hallo Ihr da drausen!
Hat jemand Zeit mir weiterzuhelfen - bin am verzweifeln...
Gruß Lenchen2
Thomas Schulte:
--- Zitat von: lenchen2 am 20.12.05 - 07:20:44 ---Also wenn ich zu "Call ws.editdocument(doc)" komme dann bringt er die Fehlermeldung als Messagebox "Notes Error - Der angegebene Befehl ist vom Arbeitsbereich aus nicht verfügbar"
Weißt du warum? Ich leider nicht...
--- Ende Zitat ---
Weil der Intelligenzbolzen den Focus leider nicht auf dem main Frame, sondern immer noch auf den Navi Frame hat.
So ein ähnliches Problem haben wir aktuell im !!Help!!, wo man Aktionen aus der Navigation heraus aufrufen kann. Ein Createdocument funktioniert solange wie man ein neues Hauptdokument erstellt. Will man ein Antwort Dokument erstellen geht das in die Hose weil er den Focus verliert.
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln