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?
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