From 71642ddf9221fab6e74b9d897eea283122064402 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 18 Mar 2021 15:08:18 +0100 Subject: [PATCH] MS --- Global_Indexer/frmAdministration.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb index f1525d8..f49fd9d 100644 --- a/Global_Indexer/frmAdministration.vb +++ b/Global_Indexer/frmAdministration.vb @@ -63,10 +63,15 @@ Public Class frmAdministration ComboBox3.DataSource = oDatatable Try - Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART) + 'Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART) + Load_Dokart() + LOGGER.Debug("...Done Load_Dokart") Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN) + LOGGER.Debug("...Done TBDD_EINGANGSARTEN") Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES) + LOGGER.Debug("...Done TBDD_MODULES") Catch ex As Exception + LOGGER.Error(ex) MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try If IDB_ACTIVE = False Then @@ -207,7 +212,7 @@ Public Class frmAdministration Dim oNewID As Integer oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString) If IsNumeric(oNewID) Then - Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}" + Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}" If ClassDatabase.Execute_non_Query(osql) = False Then MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text) End If