From 4941572a8549b0f488b639639077ced3cee6093e Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 22 Apr 2020 15:14:15 +0200
Subject: [PATCH] jj

---
 app/DD_PM_WINDREAM/frmMain.vb      | 2 +-
 app/DD_PM_WINDREAM/frmValidator.vb | 8 ++++++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index 419fca1..5f4216d 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...")