Pusch_27042016

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -148,6 +148,9 @@ Public Class ClassControlBuilder
             Dim control As Control = DirectCast(sender, Control)
             Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
             CONTROL_ID = controlId
+            If CONTROL_ID = 29 Then
+                Console.WriteLine("Obacht")
+            End If
             Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
             Dim value
 
@@ -175,7 +178,13 @@ Public Class ClassControlBuilder
             If datatable.Rows.Count = 0 Then
                 Exit Sub
             End If
+            If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
+                Exit Sub
+            End If
 
+            If CURRENT_RECORD_ID = 0 Then
+                Exit Sub
+            End If
             For Each row As DataRow In datatable.Rows
                 Dim sqlcommand As String = row.Item("SQL_COMMAND_1")
 
@@ -263,7 +272,7 @@ Public Class ClassControlBuilder
                             If dt.Rows.Count = 1 Then
                                 Try
                                     Dim value1 As String = dt.Rows(0).Item(0)
-                                    ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, True)
+                                    ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, 999, True)
                                     Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
                                     Dim id = ClassDatabase.Execute_Scalar(sql1)