AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2021-03-18 15:08:18 +01:00
parent 65a7aed759
commit 71642ddf92
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Global_Indexer/frmAdministration.vb
View File

@ -63,10 +63,15 @@ Public Class frmAdministration
ComboBox3.DataSource = oDatatable ComboBox3.DataSource = oDatatable
Try 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) Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
LOGGER.Debug("...Done TBDD_EINGANGSARTEN")
Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES) Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
LOGGER.Debug("...Done TBDD_MODULES")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try End Try
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
@ -207,7 +212,7 @@ Public Class frmAdministration
Dim oNewID As Integer Dim oNewID As Integer
oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString) oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)
If IsNumeric(oNewID) Then 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 If ClassDatabase.Execute_non_Query(osql) = False Then
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text) MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
End If End If