diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index f310ad0..692f696 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -922,10 +922,10 @@ Public Class frmMain Try frmValidator.Show() Catch ex As Exception - LOGGER.Warn($"Error opening Form frmValidator [{ex.Message}]") LOGGER.Warn($"ex.InnerException.Message [{ex.InnerException.Message}]") LOGGER.Warn($"ex.InnerException.Source [{ex.InnerException.Source}]") + LOGGER.Error(ex.InnerException) MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 1a7be9e..eba22a6 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -18,6 +18,8 @@ Public Class frmValidator Dim PROFIL_FINISH_SQL Dim PROFIL_LOGINDEX + Dim oErrorMessage + Private PMDelimiter As String Dim WD_Search As String @@ -41,7 +43,6 @@ Public Class frmValidator 'Anzahl der validierten Dokumente Dim Anzahl_validierte_Dok As Integer = 0 Dim me_closing As Boolean = False - Dim oErrorMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput") Dim first_control As Control Dim last_control As Control Dim _Indexe_Loaded As Boolean = False @@ -246,6 +247,9 @@ Public Class frmValidator End If End If + + oErrorMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput") + LOGGER.Debug("frmValidation_Load finished!") Catch ex As Exception LOGGER.Error(ex) @@ -4611,7 +4615,7 @@ Public Class frmValidator Public Const SW_SHOW As Short = 5 Public Sub New() - MyBase.New + 'MyBase.New LOGGER.Debug("Initialize Components...") InitializeComponent() LOGGER.Debug("Initialize _frmValidatorSearch...")