MS

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -219,17 +219,15 @@
     Public Class Label : Inherits _BaseControl
 
         Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
+            Dim Sql
+            Dim ControlId As Integer
             Try
-                Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
-                If ControlId = 272 Then
-                    Console.WriteLine("272")
-                End If
+                ControlId = DirectCast(control.Tag, ClassControlMetadata).Id
                 Dim autoValue
 
                 Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
                 If drarray.Length > 0 Then
                     Dim ID = drarray(0)("CONNECTION_ID").ToString
-                    Dim Sql
                     If Not IsNothing(ID) Then
                         Sql = drarray(0)("SQL_COMMAND").ToString
                         Sql = ClassControlValues.ReplaceSqlCommandPlaceholders(Sql, recordId, parentRecordId, entity_ID)
@@ -254,8 +252,9 @@
                     End If
                 End If
             Catch ex As Exception
-                MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message)
+                MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                 ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
+                ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
             End Try
 
         End Sub