Domino 9 und frühere Versionen > ND8: Entwicklung

Ansicht einer anderen DB öffnen und zu einer bestimmten Kategorie spring

<< < (2/3) > >>

C_T:
Berhnhard, perfekt. Da macht doch direkt was klick bei mir, das hab ich echt mal wieder vergessen.

Das probier ich direkt aus.

Anbei aber schonmal die Buttons falls es nicht der Fehler ist.

Formel 1
DBSettingsDocUNID ist eine "Konfigurationsdokument" in der DB die die ReplicaID der DB B enthält


--- Code: ---_replicaID := @GetDocField(DBSettingsDocUNID;"GlobalTestResultReplicaID");
_replicaID := @Left(_replicaID;8)+":"+@Right(_replicaID;8);
@Command([FileOpenDBRepID];_replicaID);
@PostedCommand([SwitchView];"vAllByName");
REM {@Command([FileOpenDBRepID];_replicaID;"";"vAllByName";TrialNumber;@False;@False);};
REM {@Command([FileOpenDatabase];server:db;view;key;@False;@False);};
--- Ende Code ---

Formel 2
DBSettingsDocUNID ist eine "Konfigurationsdokument" in der DB die die ReplicaID der DB B enthält


--- Code: ---_replicaID := @GetDocField(DBSettingsDocUNID;"GlobalTestResultReplicaID");
_replicaID := @Left(_replicaID;8)+":"+@Right(_replicaID;8);
@Command([FileOpenDBRepID];_replicaID;"";"vAllByName";TrialNumber;@False;@False);
--- Ende Code ---

Script 1
Das Errorhandling habe ich mal der Übersichtlichkeit entfernt

--- Code: ---Sub Click(Source As Button)
'Global Definitions
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession

'DB Definitions
Set curDB = session.CurrentDatabase()
Set curUIDoc = workspace.CurrentDocument
Set curDoc = curUIDoc.Document

'####################################################################################

Set configDoc = curDB.GetView("vDBSettings").getFirstDocument() 'Konfigurationsdokument

Set testDB = New NotesDatabase("","")
Call testDB.OpenByReplicaID(curDB.Server,configDoc.GlobalTestResultReplicaID(0))

If Not testDB Is Nothing Then
Set testview = testDB.GetView("vAllByName")
Call workspace.OpenDatabase(testDB.Server,testDB.FilePath,"vAllByName",curDoc.TrialNumber(0),False)
End If
End Sub

--- Ende Code ---

Script 2
Das Errorhandling habe ich mal der Übersichtlichkeit entfernt

--- Code: ---Sub Click(Source As Button)
'Global Definitions
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession

'DB Definitions
Set curDB = session.CurrentDatabase()
Set curUIDoc = workspace.CurrentDocument
Set curDoc = curUIDoc.Document

'####################################################################################

Set configDoc = curDB.GetView("vDBSettings").getFirstDocument() 'Konfigurationsdokument

Set testDB = New NotesDatabase("","")
Call testDB.OpenByReplicaID(curDB.Server,configDoc.GlobalTestResultReplicaID(0))

If Not testDB Is Nothing Then
Set testview = testDB.GetView("vAllByName")
Call workspace.OpenDatabase(testDB.Server,testDB.FilePath)
Call workspace.CurrentDatabase.OpenView("vAllByName")
End If
End Sub

--- Ende Code ---

Script 3
Das Errorhandling habe ich mal der Übersichtlichkeit entfernt

--- Code: ---Sub Click(Source As Button)
'Global Definitions
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession

'DB Definitions
Set curDB = session.CurrentDatabase()
Set curUIDoc = workspace.CurrentDocument
Set curDoc = curUIDoc.Document

'####################################################################################

Set configDoc = curDB.GetView("vDBSettings").getFirstDocument() 'Konfigurationsdokument

Set testDB = New NotesDatabase("","")
Call testDB.OpenByReplicaID(curDB.Server,configDoc.GlobalTestResultReplicaID(0))

If Not testDB Is Nothing Then
Set testview = testDB.GetView("vAllByName")
Call workspace.OpenDatabase(testDB.Server,testDB.FilePath)
Call workspace.OpenFrameSet("start_ByName") 'Das ist ein Frameset das ich neu erstellt habe, welches die Ansicht "vAllByName" als Standardansicht hat.
End If
End Sub

--- Ende Code ---

C_T:
Also folgendes funktioniert halb:

Es wir die richtige View geöffnet und er sprint zur richtigen Kategorie.
Jedoch wird zusätzlich die Standardansicht der DB B geöffnet und das versteh ich grad net.


--- Code: ---'Global Definitions
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession

'DB Definitions
Set curDB = session.CurrentDatabase()
Set curUIDoc = workspace.CurrentDocument
Set curDoc = curUIDoc.Document

'####################################################################################

Set configDoc = curDB.GetView("vDBSettings").getFirstDocument()

Set testDB = New NotesDatabase("","")
Call testDB.OpenByReplicaID(curDB.Server,configDoc.GlobalTestResultReplicaID(0))

If Not testDB Is Nothing Then
Set testview = testDB.GetView("vAllByName")

Dim testUIDB As NotesUIDatabase
Call workspace.OpenDatabase(testDB.Server,testDB.FilePath)
Call workspace.SetTargetFrame("frame_bottom")
Call workspace.CurrentDatabase.OpenView(testview.Name,curDoc.TrialNumber(0))
End If
--- Ende Code ---

koehlerbv:
Da war doch noch irgendwas mit dem Parameter replaceView in OpenDatabase ...  ;)

Bernhard

C_T:
auch ausprobiert,

leider keinen Effekt

C_T:
OK vergesst es,

klarer Fall von

"Kopiere nie, aber auch NIE eine Ansicht die du nicht selbst gebaut hast."

Oder in Kurzform, da war Code in der Ansicht den ich nicht bemerkt habe und der einfach nur quatsch ist.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete