Domino 9 und frühere Versionen > ND7: Entwicklung

Frontend mit eingebetteter Ansicht aktualisieren

<< < (3/8) > >>

koehlerbv:
Warum? Das ist doch der gleiche Fakt wie Deine leere embedded view ...

Bernhard

botschi:
Ja, eben...
Das riecht doch nach Pipikram! "Kategorie nicht gefunden" kann ja gar nicht sein, weil es ja ein Dokument mit der Kategorie gibt.
Wer schnallt das denn nicht rechtzeitig? Der Ansichtenindex? Der DB-Index?

Liegts am Kot?

--- Code: ---Dim ws As New NotesUIWorkspace
On Error Goto fehler

Dim s As New NotesSession
Dim ivSaem As NotesDatabase
Dim ivPoolDB As NotesDatabase
Dim ivFrontendIndexAntrag As notesuidocument
Dim ivBackendIndexAntrag As notesdocument
Dim ivProfil As notesdocument
Dim ivDialogbox As Variant

Set ivFrontendIndexAntrag = ws.CurrentDocument
Set ivBackendIndexAntrag = ivFrontendIndexAntrag.Document

Set ivSaem = s.CurrentDatabase
Set ivProfil = ivSaem.GetProfileDocument("Profildokument")

Set gvIndexdokument = ivSaem.CreateDocument
gvIndexdokument.form = "frmIndex_Antrag"
Call gvIndexdokument.ComputeWithForm(True, True)
'######## mit Konfig-DB den Pfad zum Pool holen #############

Dim ivPoolName As String
Dim ivPoolServer As String

ivPoolName = ivProfil.db(0)
ivPoolServer = ivProfil.server(0)
Set ivPoolDB = s.GetDatabase(ivPoolServer, ivPoolName)

dlgbox_aufrufen:
ivDialogbox = ws.PickListStrings(3, False , ivPoolServer, ivPoolName, "viw_index_geplant", "Bitte auswählen" _
, "Welcher geplante Index soll hinzugefügt werden?", 7, ivFrontendIndexAntrag.FieldGetText("tabname"))
If (Isempty(ivDialogbox)) Then
Exit Sub
End If

Set gvIndexdokument_DP = ivPoolDB.GetDocumentByUNID(Cstr(ivDialogbox(0)))
gvIndexdokument.neu = "N"
gvIndexdokument.nr = ivBackendIndexAntrag.indexnummer(0)
gvIndexdokument.tabname = ivBackendIndexAntrag.tabname(0)
gvIndexdokument.ticketnr = ivBackendIndexAntrag.ticketnr(0)
gvIndexdokument.str_ticketnr = ivBackendIndexAntrag.str_ticketnr(0)
gvIndexdokument.aufnehmer = ivBackendIndexAntrag.aufnehmer(0)
gvIndexdokument.status = ivBackendIndexAntrag.status(0)
gvIndexdokument.meldedatum = Today
        Call gvIndexdokument.Save(True, False)
'###################################################
' werte aus dem Indexdokument in dieses dokument übernehmen und speichern
' Call uebernehmen
' #########################################
' Dim view As NotesView
' Set view = ivsaem.GetView("viw_indizesalle_no")
' Call view.Refresh

Call ws.ViewRefresh

Exit Sub
fehler:
Msgbox Erl
End Sub
--- Ende Code ---

koehlerbv:
Naja, die Meldung ist doch richtig: Die embedded view ist leer, ergo "Kategorie nicht gefunden".

DB-Index? Was soll das sein (oder welcher - es gibt zahlreiche Indizes in einer Notes-DB  ;)). Es ist der Ansichtsindex - zumindest die Sicht Deines NotesUIWorkspace hierauf. Sehr mystisch, das ganze, zumal es ja ab dem zweiten Dokument funktioniert.

Hast Du noch eine andere Client-Version zur Verfügung? Was passiert in einer lokalen Replik?

Bernhard

botschi:
Ich habe eben eine neue DB erstellt und dort funktioniert es!
Es muss mit meiner Maske zu tun haben... Ich erstell sie mal neu.
Jedenfalls liegt es an mir oder meiner DB, Du kannst mir da wohl nicht mehr helfen. Das Prinzip funktioniert ja einwandfrei!

Eine andere Clientversion habe ich nicht, Lokal hab ich es noch nicht ausprobiert.

Matthias

botschi:
Also ich meine den Fehler gefunden zu haben, obwohl mir das mehr als blödsinnig vorkommt!

Wenn ich meine Formel der Ansichtsauswahl der eingebetteten Ansicht (die auch die Aktion hat) ohne den Aliasnamen schreibe
SELECT ((Form = "Index zu Antrag"))  & geloescht = ""
funktioniert es.

Wenn die Auswahl so aussieht
SELECT ((Form = "Index zu Antrag") | (Form = "frmIndex_Antrag"))  & geloescht = ""
funktioniert es nicht.

Kann das sein? Kann ich die Ansicht dazu bringen auch mit dem Aliasnamen zu arbeiten?

Matthias

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete