MS_proxyRecordConnect und Positionen

app/DD-Record-Organizer/ClassControlCommandsUI.vb

@@ -808,7 +808,13 @@ Public Class ClassControlCommandsUI
             Case Else
                 Return Nothing
         End Select
+
     End Function
+    Public Class MyBaseClass
+    End Class
+
+    Public Class MyDerivedClass : Inherits MyBaseClass
+    End Class
     Public Shared Function Check_and_Format_Value(ControlID As Integer, RecordID As Integer, Value As String)
         Try
             Dim expression As String
@@ -822,8 +828,15 @@ Public Class ClassControlCommandsUI
                 FORMAT_TYPE = CONTROL_ROW(i)("FORMAT_TYPE")
                 CONTROL_TYPE = CONTROL_ROW(i)("CONTROL_TYPE_ID")
             Next
+            If CONTROL_TYPE = 0 And FORMAT_TYPE Is Nothing Then
+                If IsDate(Value) Then
+                    CONTROL_TYPE = 4
 
-            Select Case FORMAT_TYPE
+                End If
+
+            End If
+
+                Select Case FORMAT_TYPE
                 Case "Currency"
                     If Not Value = String.Empty Then
                         Value = Decimal.Parse(Value, Globalization.NumberStyles.Currency).ToString