Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: friedolin am 04.12.03 - 16:43:11

Titel: ...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: friedolin am 04.12.03 - 16:43:11

 ??? ???

dieses LS öffnet mir gezielt das dokument in einer ander DB, aber ich
möchte jetzt nur die Ansicht gezielt öffnen
was und wo müssen die Befehle noch stehen, bin noch kein LS-Spezi
irgendetwas mit OpenView hab ich gelesen aber ich bekomm es nicht auf die Reihe.

Sorry, brauche mal Eure hilfe!

friedolin

Sub Click(Source As Button)
   On Error Goto ende
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim WinNr3 As String
   
   Set ws = New notesUIWorkspace
   Set uidoc = ws.currentDocument.Document

   Set db = session.GetDatabase( "ODN-RD/RD/DATA/DE", "orbis/adminaddr.nsf" )
   Set view = db.GetView( "(Alles nach WinNr)" )
   
   WinNr3 = Mid$(uidoc.WinNr(0), 2, 3)
   Set doc = view.getdocumentbykey(WinNr3)
   Call ws.editdocument(False, doc,)
   Exit Sub
ende:
   Msgbox "Adress-Link nicht möglich, WinNr > " + WinNr3 + " wurde nicht gefunden!" , 48, "Adress-Link Error"
   Exit Sub
End Sub

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: Driri am 04.12.03 - 17:32:26

Hi,

du kannst über die UIDatabase eine View öffnen.

Dim ws as New NotesUIWorkspace
Dim uidb as NotesUIDatabase

Set uidb = ws.CurrentDatabase

Call db.OpenView("Ansicht")


Übrigens : In deinem Script fehlt noch die Deklarierung des uidocs  ;)

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: koehlerbv am 04.12.03 - 17:41:16

Zitat

Übrigens : In deinem Script fehlt noch die Deklarierung des uidocs

Aus diesem Grunde sollte man ja auch immer, bevor man auch nur eine einzige Zeile in ein neues Modul schreibt, Option Declare setzen.

By the way: Der Variablenname uidoc ist extrem unglücklich gewählt, da der Name ja impliziert, es handele sich dabei um ein NotesUIDocument - eingesetzt wird er aber für ein NotesDocument.
Das kann einem später erheblichen Ärger (bei der Fehlersuche) bescheren. Natürlich steht es jedem frei, eine Variable auch TanteHerta zu nennen, aber ...  ;)

HTH,
Bernhard

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: friedolin am 05.12.03 - 09:11:59

 ???

hallo diri,
habe es mal so ergänzt, kommt aber auf folgende fehler:



Sub Click(Source As Button)
   On Error Goto ende
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uidb As NotesUIDatabase
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim WinNr3 As String
   
   Set ws = New notesUIWorkspace
   Set uidoc = ws.currentDocument.Document
   Set uidb = ws.CurrentDatabase
   
   Set db = session.GetDatabase( "ODN-RD/RD/ORGA DATA/DE", "orbis/adminaddr.nsf" )
      
   WinNr3 = Mid$(uidoc.WinNr(0), 2, 3)
   -- Fehler:  WinNr is not a member

   Call db.OpenView( "($WinNr)" , WinNr3 )
   -- Fehler:  OpenView is not a member

   Exit Sub
ende:
   Msgbox "Adress-Link nicht möglich, WinNr > " + WinNr3 + " wurde nicht gefunden!" , 48, "Adress-Link Error"
   Exit Sub
End Sub

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: Glombi am 05.12.03 - 09:14:49

Das
Set uidoc = ws.currentDocument.Document

ist KEIN NotesUIDocument, sondern ein NotesDocument

Der Name uidoc ist unglücklich, besser Du nennst es nur doc.

Andreas

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: Glombi am 05.12.03 - 09:16:36

 Call db.OpenView( "($WinNr)" , WinNr3 )
   -- Fehler:  OpenView is not a member

OpenView ist eine Methode der NotesUIDatabase, nicht der NotesDatabase.
Am besten ist, wenn Du mal in der Designer Hilfe nachsiehst, welche Methode es in welcher Klasse gibt.

Andreas

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: friedolin am 05.12.03 - 10:44:51

...so funktioniert es ja (in der current-db),
aber ich möchte ja die gleiche ansicht in einer ander db  

Database( "ODN-RD/RD/ORGA DATA/DE", "orbis/adminaddr.nsf" )


Sub Click(Source As Button)
   On Error Goto ende
   
   Dim db As NotesDatabase
   Dim uidb As NotesUIDatabase
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim WinNr3 As String
   
   Set ws = New notesUIWorkspace
   Set doc = ws.currentDocument.Document
   Set uidb = ws.CurrentDatabase
         
   WinNr3 = Mid$(doc.WinNr(0), 2, 3)
   Call uidb.OpenView( "($WinNr)" , WinNr3 )
   Exit Sub
   
ende:
   Msgbox "Adress-Link nicht möglich, WinNr > " + WinNr3 + " wurde nicht gefunden!" , 48, "Adress-Link Error"
   Exit Sub
End Sub

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: Glombi am 05.12.03 - 10:49:44

Mach Dich mit folgendem vertraut:

Call notesUIWorkspace.OpenDatabase( server$, file$, view$, key$, newInstance, temp )

Damit kannst Du eine andere Datenbank öffnen und gleich in eine bestimmte View springen.

Andreas

Titel: Re:...Ansicht öffnen aus anderer DB mittels Openview
Beitrag von: friedolin am 05.12.03 - 14:24:23

 :D   ???
hallo andreas,
das mit opendatabase hat soweit geklappt, er öffnet nun aber
zwei ansichten. zuerst die von mir gewünschte und dann noch die ansicht die vom navigator aus geöffnet wird. das ist blöd. kann man das auch noch in den griff bekommen?

fiedolin