MS v2.0

app/DD_PM_WINDREAM/frmMassValidator.vb

@@ -58,7 +58,7 @@ Public Class frmMassValidator
             Size = My.Settings.frmMassValidatorSize
         End If
         Try
-            DTCONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID & " ORDER BY Y_LOC, X_LOC")
+            DTCONTROLS = ClassDatabase.Return_Datatable($"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (1,{USER_LANGUAGE},CTR_TEXT) CTRL_CAPTION_LANG,* FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC")
             LOGGER.Debug("Profile Data geladen")
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -129,6 +129,7 @@ Public Class frmMassValidator
 
     End Sub
     Sub Load_Controls()
+        Dim oLastControl As String
         Try
             pnldesigner.Controls.Clear()
 
@@ -136,7 +137,7 @@ Public Class frmMassValidator
 
             For Each oControlRow As DataRow In DTCONTROLS.Rows
                 Dim oControl As Control
-
+                oLastControl = $"CtrlName {oControlRow.Item("NAME")}, CtrlIndexname: {oControlRow.Item("INDEX_NAME")}"
                 Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
                     Case "TXT"
                         LOGGER.Debug("Versuch TXT zu laden")
@@ -378,8 +379,7 @@ Public Class frmMassValidator
                 LoadSimpleData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid)
             Next
         Catch ex As Exception
-            LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
-
+            LOGGER.Warn($"Unexpexted Error in Load_Controls [{oLastControl}] - ex.Message")
         End Try
     End Sub
     Public Sub onLookUp1(sender As Object, SelectedValues As List(Of String))