MS LOg Hensel

app/DD_PM_WINDREAM/frmValidator.vb

@@ -92,6 +92,7 @@ Public Class frmValidator
 
     'End Function
     Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        LOGGER.Debug("###frmValidation_Load###")
         PMDelimiter = "~"
         Override = False
         ItemWorked = False
@@ -103,19 +104,24 @@ Public Class frmValidator
         'pdfxchange = False
         'sumatra = False
         FormLoaded = False
-        If My.Settings.frmValidatorPosition.IsEmpty = False Then
-            If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then
-                Location = My.Settings.frmValidatorPosition
-            End If
-        End If
-        If My.Settings.frmValidatorSize.IsEmpty = False Then
-            If My.Settings.frmValidatorWindowState = "Normal" Then
-                Size = My.Settings.frmValidatorSize
-            Else
-                Me.WindowState = FormWindowState.Maximized
+        Try
+            If My.Settings.frmValidatorPosition.IsEmpty = False Then
+                If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then
+                    Location = My.Settings.frmValidatorPosition
+                End If
             End If
+            If My.Settings.frmValidatorSize.IsEmpty = False Then
+                If My.Settings.frmValidatorWindowState = "Normal" Then
+                    Size = My.Settings.frmValidatorSize
+                Else
+                    Me.WindowState = FormWindowState.Maximized
+                End If
+
+            End If
+        Catch ex As Exception
+            LOGGER.Info($"Error loading position: {ex.Message}")
+        End Try
 
-        End If
         Dim _step = 0
         Try
             DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE)
@@ -125,7 +131,6 @@ Public Class frmValidator
         Try
             _step = 1
             TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
-            TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
 
             _step = 2
 
@@ -133,9 +138,6 @@ Public Class frmValidator
             Dim oExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}"
             DTVWCONTROLS_INDEX.Select(oExpression, "Y_LOC, X_LOC").CopyToDataTable(DTVWCONTROL_INDEX, LoadOption.PreserveChanges)
 
-            'Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
-            'DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL)
-            'VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName)
             _step = 3
             LOGGER.Debug("Profile Data loaded")
         Catch ex As Exception
@@ -145,6 +147,8 @@ Public Class frmValidator
             LOGGER.Info(">> Error in LOADING profile-data: " & ex.Message, True)
             Me.Close()
         End Try
+        LOGGER.Debug("frmValidation_Load finished till Step 3!")
+
 
         Try
             If CURRENT_DT_PROFILE.Rows.Count = 0 Then
@@ -152,10 +156,16 @@ Public Class frmValidator
                 MsgBox("ProfileData could not be loaded - Profile: " & CURRENT_ProfilName, MsgBoxStyle.Critical, "Attention:")
                 Me.Close()
             End If
+            _step = 4
+            LOGGER.Debug("Step 4")
             If CURRENT_DT_PROFILE.Rows.Count > 1 Then
                 MsgBox("More than 1 profile (" & CURRENT_DT_PROFILE.Rows.Count & ") returned!!", MsgBoxStyle.Critical, "Attention:")
             Else
+                _step = 5
+                LOGGER.Debug("Step 5")
                 If CURRENT_DT_PROFILE.Rows.Count = 1 Then
+                    _step = 6
+                    LOGGER.Debug("Step 6")
                     For Each oProfileRow As DataRow In CURRENT_DT_PROFILE.Rows
                         PROFIL_FINISH_SQL = oProfileRow.Item("SQL_BTN_FINISH")
                         PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX")
@@ -4590,7 +4600,7 @@ Public Class frmValidator
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
-            LOGGER.Info(" Fehler bei Delete_File", True)
+            LOGGER.Info("Fehler bei Delete_File")
             LOGGER.Info(">> Fehlermeldung: " & ex.Message)
             Return False
         End Try
@@ -4602,10 +4612,14 @@ Public Class frmValidator
 
     Public Sub New()
         MyBase.New
-        ' Dieser Aufruf ist für den Designer erforderlich.
+        LOGGER.Debug("Initialize Components...")
         InitializeComponent()
-        _frmValidatorSearch = New frmValidatorSearch
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        LOGGER.Debug("Initialize _frmValidatorSearch...")
+        Try
+            _frmValidatorSearch = New frmValidatorSearch
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
     End Sub
 
     <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>