jj

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
 

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...")