Compare commits

...

3 Commits

3 changed files with 6783 additions and 7235 deletions

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

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