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