MS New Properties

app/DD_PM_WINDREAM/frmMassValidator.vb

@@ -371,7 +371,7 @@ Public Class frmMassValidator
                 oCount += 1
             Next
             LOGGER.Debug("Controls geladen")
-            LOGGER.Info("")
+
             CTRLS_Loaded = True
             FillIndexValues()
             For Each oControl As Control In pnldesigner.Controls
@@ -379,7 +379,7 @@ Public Class frmMassValidator
             Next
         Catch ex As Exception
             LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
-            LOGGER.Info("")
+
         End Try
     End Sub
     Public Sub onLookUp1(sender As Object, SelectedValues As List(Of String))
@@ -1120,7 +1120,6 @@ Public Class frmMassValidator
 
         'Eingaben auf Form überprüfen
         If CheckAndUpdateIndices() = False Then
-
             Dim workedFiles As Integer
             For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
                 If docrow.Item("DOC_ID") = 0 Then
@@ -1133,7 +1132,6 @@ Public Class frmMassValidator
                 GetWMDocPathWindows(0)
 
                 If CreateWMObject() = True Then
-
                     If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then
                         Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
                         If ClassDatabase.Execute_non_Query(sql) = True Then
@@ -1311,12 +1309,12 @@ Public Class frmMassValidator
         Dim oResult As String
         Dim oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},{_CheckStandard})"
         oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
-        LOGGER.Debug($"Checking file [{oResult}] exists?...")
+        LOGGER.Debug($"Checking file 0 GDP [{oResult}] exists?...")
         If File.Exists(oResult) = False Then
             LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
             oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)"
             oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
-            LOGGER.Debug($"Checking file [{oResult}] exists?...")
+            LOGGER.Debug($"Checking file 1 GDP [{oResult}] exists?...")
             If File.Exists(oResult) = False Then
                 Return False
             End If