Make DisplayFormat configurable for TextBoxes and GridColumns, Fix Typo, Properly Convert Dates and Numbers in Vector Fields

app/TaskFlow/ClassControlCreator.vb

@@ -47,11 +47,21 @@ Public Class ClassControlCreator
     Public Const AGGREGATE_NONE = "NONE"
     Public Const AGGREGATE_TOTAL_INTEGER = "TOTAL_INTEGER"
     Public Const AGGREGATE_TOTAL_FLOAT = "TOTAL_FLOAT"
+    Public Const AGGREGATE_TOTAL_CURRENCY = "TOTAL_CURRENCY"
     Public Const AGGREGATE_TOTAL_MIN = "TOTAL_MIN"
     Public Const AGGREGATE_TOTAL_MAX = "TOTAL_MAX"
     Public Const AGGREGATE_TOTAL_AVG = "TOTAL_AVG"
     Public Const AGGREGATE_TOTAL_COUNT = "TOTAL_COUNT"
 
+    Public Const CONTROL_TYPE_TEXT = "TEXT"
+    Public Const CONTROL_TYPE_INTEGER = "INTEGER"
+    Public Const CONTROL_TYPE_BOOLEAN = "BOOLEAN"
+    Public Const CONTROL_TYPE_DOUBLE = "DOUBLE"
+    Public Const CONTROL_TYPE_CURRENCY = "CURRENCY"
+    Public Const CONTROL_TYPE_DATE = "DATE"
+    Public Const CONTROL_TYPE_DATETIME = "DATETIME"
+
+
     Public Shared Property Logger As Logger
 
     ''' <summary>
@@ -509,18 +519,20 @@ Public Class ClassControlCreator
                 .ReadOnly = False
             }
             Select Case oRow.Item("TYPE_COLUMN")
-                Case "TEXT"
+                Case CONTROL_TYPE_TEXT
                     oColumn.DataType = GetType(String)
-                Case "INTEGER"
+                Case CONTROL_TYPE_INTEGER
                     oColumn.DataType = GetType(Integer)
-                Case "BOOLEAN"
+                Case CONTROL_TYPE_DOUBLE
+                    oColumn.DataType = GetType(Double)
+                Case CONTROL_TYPE_CURRENCY
+                    oColumn.DataType = GetType(Double)
+                Case CONTROL_TYPE_BOOLEAN
                     oColumn.DataType = GetType(Boolean)
                 Case Else
                     oColumn.DataType = GetType(String)
             End Select
 
-
-
             oDatatable.Columns.Add(oColumn)
 
             ' Fetch and cache Combobox results
@@ -599,17 +611,38 @@ Public Class ClassControlCreator
             Dim oSequence As Integer = oColumnData.Item("SEQUENCE")
             oCol.VisibleIndex = oSequence
 
+            Dim oColumnType As String = oColumnData.Item("TYPE_COLUMN")
+
+            Select Case oColumnType
+                Case "INTEGER"
+                    oCol.DisplayFormat.FormatType = FormatType.Custom
+                    oCol.DisplayFormat.FormatString = "N0"
+
+                Case "DOUBLE"
+                    oCol.DisplayFormat.FormatType = FormatType.Custom
+                    oCol.DisplayFormat.FormatString = "N2"
+
+                Case "CURRENCY"
+                    oCol.DisplayFormat.FormatType = FormatType.Custom
+                    oCol.DisplayFormat.FormatString = "C2"
+            End Select
+
             Dim oSummaryFunction As String = oColumnData.Item("SUMMARY_FUNCTION")
 
             Select Case oSummaryFunction
                 Case AGGREGATE_TOTAL_INTEGER
                     oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
-                    oCol.SummaryItem.DisplayFormat = "SUM: {0:0}"
+                    oCol.SummaryItem.DisplayFormat = "SUM: {0:N0}"
                     oShouldDisplayFooter = True
 
                 Case AGGREGATE_TOTAL_FLOAT
                     oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
-                    oCol.SummaryItem.DisplayFormat = "SUM: {0:n2}"
+                    oCol.SummaryItem.DisplayFormat = "SUM: {0:N2}"
+                    oShouldDisplayFooter = True
+
+                Case AGGREGATE_TOTAL_CURRENCY
+                    oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
+                    oCol.SummaryItem.DisplayFormat = "SUM: {0:C2}"
                     oShouldDisplayFooter = True
 
                 Case AGGREGATE_TOTAL_AVG

app/TaskFlow/ClassFormat.vb

@@ -0,0 +1,118 @@
+Imports System.Globalization
+Imports DevExpress.CodeParser
+Imports DevExpress.Data.Controls
+Imports DevExpress.XtraPrinting
+
+Public Class ClassFormat
+    Public Const CURRENCY_FORMAT = "C2"
+    Public Const DECIMAL_FORMAT = "F"
+    Public Const DATE_FORMAT = "d"
+    Public Const DATETIME_FORMAT = "G"
+
+    Public Shared Function GetFormattedValue(pControlName As String, pValueObject As Object, pFormatString As String) As String
+        Try
+            If pFormatString <> String.Empty Then
+                ' https://learn.microsoft.com/en-us/dotnet/api/system.datetime.tostring?view=net-7.0#system-datetime-tostring(system-string)
+
+                Select Case pFormatString
+                    Case ClassControlCreator.CONTROL_TYPE_CURRENCY ' 16,325.63 €
+                        If TypeOf pValueObject Is Double Then
+                            Dim oFormattedValue As Double = pValueObject
+                            Return oFormattedValue.ToString(CURRENCY_FORMAT)
+
+                        ElseIf TypeOf pValueObject Is String Then
+                            Dim oFormattedValue As Double
+                            Double.TryParse(pValueObject, oFormattedValue)
+                            Return oFormattedValue.ToString(CURRENCY_FORMAT)
+
+                        Else
+                            Return Nothing
+
+                        End If
+
+                    Case ClassControlCreator.CONTROL_TYPE_DOUBLE ' 16325,63
+                        If TypeOf pValueObject Is Double Then
+                            Dim oFormattedValue As Double = pValueObject
+                            Return oFormattedValue.ToString(DECIMAL_FORMAT)
+
+                        ElseIf TypeOf pValueObject Is String Then
+                            Dim oFormattedValue As Double
+                            Double.TryParse(pValueObject, oFormattedValue)
+                            Return oFormattedValue.ToString(DECIMAL_FORMAT)
+
+                        Else
+                            Return Nothing
+                        End If
+
+                    Case ClassControlCreator.CONTROL_TYPE_DATE ' 15.06.2008
+                        Dim oFormattedValue As DateTime
+
+                        If TypeOf pValueObject Is DateTime Then
+                            oFormattedValue = pValueObject
+                            Return oFormattedValue.ToString(DATE_FORMAT)
+
+                        ElseIf TypeOf pValueObject Is String Then
+                            DateTime.TryParse(pValueObject, oFormattedValue)
+                            Return oFormattedValue.ToString(DATE_FORMAT)
+
+                        Else
+                            Return Nothing
+                        End If
+
+                    Case ClassControlCreator.CONTROL_TYPE_DATETIME ' 15.06.2008 9:15:07
+                        Dim oFormattedValue As DateTime
+
+                        If TypeOf pValueObject Is DateTime Then
+                            oFormattedValue = pValueObject
+                            Return oFormattedValue.ToString(DATETIME_FORMAT)
+                        ElseIf TypeOf pValueObject Is String Then
+                            DateTime.TryParse(pValueObject, oFormattedValue)
+                            Return oFormattedValue.ToString(DATETIME_FORMAT)
+                        Else
+                            Return Nothing
+                        End If
+
+                    Case Else ' Unknown Format String
+                        LOGGER.Warn("Format String [{0}] for Control [{1}] is not valid!", pFormatString, pControlName)
+                        Return Nothing
+
+                End Select
+            Else
+                Return Nothing
+            End If
+        Catch ex As Exception
+            LOGGER.Warn($"Unexpected error while formatting Value for Control [{0}]", pControlName)
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Converts a string according to the type information, using the invariant culture
+    ''' </summary>
+    ''' <param name="pValue"></param>
+    ''' <param name="pType"></param>
+    ''' <returns></returns>
+    Public Shared Function GetConvertedValue(pValue As Object, pType As String) As Object
+        Dim oConvertedValue = pValue
+
+        Select Case pType
+            Case ClassControlCreator.CONTROL_TYPE_DOUBLE
+                If Double.TryParse(pValue, NumberStyles.Float, CultureInfo.InvariantCulture, oConvertedValue) Then
+                    Return oConvertedValue
+                End If
+
+            Case ClassControlCreator.CONTROL_TYPE_CURRENCY
+                If Double.TryParse(pValue, NumberStyles.Currency, CultureInfo.InvariantCulture, oConvertedValue) Then
+                    Return oConvertedValue
+                End If
+
+            Case ClassControlCreator.CONTROL_TYPE_INTEGER
+                If Integer.TryParse(pValue, NumberStyles.Integer, CultureInfo.InvariantCulture, oConvertedValue) Then
+                    Return oConvertedValue
+                End If
+        End Select
+
+        Return oConvertedValue
+    End Function
+End Class

app/TaskFlow/DD_DMSLiteDataSet.Designer.vb

@@ -4583,6 +4583,10 @@ Partial Public Class DD_DMSLiteDataSet
         
         Private columnSAVE_CHANGE_ON_ENABLED As Global.System.Data.DataColumn
         
+        Private columnFORMAT_STRING As Global.System.Data.DataColumn
+        
+        Private columnBACKCOLOR_IF As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
@@ -4946,6 +4950,22 @@ Partial Public Class DD_DMSLiteDataSet
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public ReadOnly Property FORMAT_STRINGColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnFORMAT_STRING
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public ReadOnly Property BACKCOLOR_IFColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnBACKCOLOR_IF
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -5023,9 +5043,11 @@ Partial Public Class DD_DMSLiteDataSet
                     ByVal SQL_ENABLE_ON_LOAD_CONID As Byte,  _
                     ByVal CONTROL_ACTIVE As Boolean,  _
                     ByVal TABLE_ORDER_COLUMN As String,  _
-                    ByVal SAVE_CHANGE_ON_ENABLED As Boolean) As TBPM_PROFILE_CONTROLSRow
+                    ByVal SAVE_CHANGE_ON_ENABLED As Boolean,  _
+                    ByVal FORMAT_STRING As String,  _
+                    ByVal BACKCOLOR_IF As String) As TBPM_PROFILE_CONTROLSRow
             Dim rowTBPM_PROFILE_CONTROLSRow As TBPM_PROFILE_CONTROLSRow = CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE, TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENABLED}
+            Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE, TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENABLED, FORMAT_STRING, BACKCOLOR_IF}
             If (Not (parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE) Is Nothing) Then
                 columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE(0)
             End If
@@ -5098,6 +5120,8 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnCONTROL_ACTIVE = MyBase.Columns("CONTROL_ACTIVE")
             Me.columnTABLE_ORDER_COLUMN = MyBase.Columns("TABLE_ORDER_COLUMN")
             Me.columnSAVE_CHANGE_ON_ENABLED = MyBase.Columns("SAVE_CHANGE_ON_ENABLED")
+            Me.columnFORMAT_STRING = MyBase.Columns("FORMAT_STRING")
+            Me.columnBACKCOLOR_IF = MyBase.Columns("BACKCOLOR_IF")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5185,6 +5209,10 @@ Partial Public Class DD_DMSLiteDataSet
             MyBase.Columns.Add(Me.columnTABLE_ORDER_COLUMN)
             Me.columnSAVE_CHANGE_ON_ENABLED = New Global.System.Data.DataColumn("SAVE_CHANGE_ON_ENABLED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnSAVE_CHANGE_ON_ENABLED)
+            Me.columnFORMAT_STRING = New Global.System.Data.DataColumn("FORMAT_STRING", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnFORMAT_STRING)
+            Me.columnBACKCOLOR_IF = New Global.System.Data.DataColumn("BACKCOLOR_IF", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnBACKCOLOR_IF)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.columnGUID.AutoIncrement = true
             Me.columnGUID.AllowDBNull = false
@@ -5231,6 +5259,7 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnTABLE_ORDER_COLUMN.DefaultValue = CType("",String)
             Me.columnTABLE_ORDER_COLUMN.MaxLength = 250
             Me.columnSAVE_CHANGE_ON_ENABLED.AllowDBNull = false
+            Me.columnFORMAT_STRING.AllowDBNull = false
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -12513,6 +12542,32 @@ Partial Public Class DD_DMSLiteDataSet
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Property FORMAT_STRING() As String
+            Get
+                Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FORMAT_STRINGColumn),String)
+            End Get
+            Set
+                Me(Me.tableTBPM_PROFILE_CONTROLS.FORMAT_STRINGColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Property BACKCOLOR_IF() As String
+            Get
+                Try 
+                    Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.BACKCOLOR_IFColumn),String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BACKCOLOR_IF in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e)
+                End Try
+            End Get
+            Set
+                Me(Me.tableTBPM_PROFILE_CONTROLS.BACKCOLOR_IFColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property TBPM_PROFILERow() As TBPM_PROFILERow
@@ -12752,6 +12807,18 @@ Partial Public Class DD_DMSLiteDataSet
             Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) = Global.System.Convert.DBNull
         End Sub
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Function IsBACKCOLOR_IFNull() As Boolean
+            Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.BACKCOLOR_IFColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Sub SetBACKCOLOR_IFNull()
+            Me(Me.tableTBPM_PROFILE_CONTROLS.BACKCOLOR_IFColumn) = Global.System.Convert.DBNull
+        End Sub
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow()
@@ -20216,6 +20283,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
             tableMapping.ColumnMappings.Add("CONTROL_ACTIVE", "CONTROL_ACTIVE")
             tableMapping.ColumnMappings.Add("TABLE_ORDER_COLUMN", "TABLE_ORDER_COLUMN")
             tableMapping.ColumnMappings.Add("SAVE_CHANGE_ON_ENABLED", "SAVE_CHANGE_ON_ENABLED")
+            tableMapping.ColumnMappings.Add("FORMAT_STRING", "FORMAT_STRING")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -20229,18 +20297,20 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "N, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FON"& _ 
                 "T_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VK"& _ 
                 "T_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         REGEX_MESSAGE"& _ 
-                "_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SAVE_CHANGE_ON_ENABLED)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,"& _ 
+                "_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SAVE_CHANGE_ON_ENABLED, "& _ 
-                "@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@INDEX_NAME,@TYP,@VALIDATION,@CHOICE_LIST"& _ 
+                "FORMAT_STRING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_"& _ 
-                ",@CONNECTION_ID,@SQL_UEBERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYLE,@FONT_SIZE,@FONT_F"& _ 
+                "LOC,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@INDEX_NAME,@TYP,@VALIDATI"& _ 
-                "AMILY,@FONT_COLOR,@READ_ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,@MULTISELECT,@VKT_AD"& _ 
+                "ON,@CHOICE_LIST,@CONNECTION_ID,@SQL_UEBERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYLE,@FO"& _ 
-                "D_ITEM,@VKT_PREVENT_MULTIPLE_VALUES,@REGEX_MATCH,@REGEX_MESSAGE_DE,@REGEX_MESSAG"& _ 
+                "NT_SIZE,@FONT_FAMILY,@FONT_COLOR,@READ_ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,@MULT"& _ 
-                "E_EN,@IMAGE_CONTROL,@SQL2,@SQL_ENABLE,@SAVE_CHANGE_ON_ENABLED);   "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ 
+                "ISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES,@REGEX_MATCH,@REGEX_MESSAGE_D"& _ 
-                " PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHA"& _ 
+                "E,@REGEX_MESSAGE_EN,@IMAGE_CONTROL,@SQL2,@SQL_ENABLE,@SAVE_CHANGE_ON_ENABLED,@FO"& _ 
-                "NGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID,"& _ 
+                "RMAT_STRING);     "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y"& _ 
-                " SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLO"& _ 
+                "_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDAT"& _ 
-                "R, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREV"& _ 
+                "ION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, F"& _ 
-                "ENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN FROM TBPM_P"& _ 
+                "ONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MUL"& _ 
-                "ROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY Y_LOC, X_LOC"
+                "TISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_"& _ 
+                "DE, REGEX_MESSAGE_EN FROM TBPM_PROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) "& _ 
+                "ORDER BY Y_LOC, X_LOC"
             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -20277,6 +20347,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ENABLE", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ENABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_CHANGE_ON_ENABLED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_CHANGE_ON_ENABLED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMAT_STRING", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.UpdateCommand.Connection = Me.Connection
             Me._adapter.UpdateCommand.CommandText = "UPDATE       TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET                PROFIL_ID = @PROFIL_ID, NA"& _ 
@@ -20292,13 +20363,14 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "CH = @REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         REGEX_MESSAGE_DE = @REGEX_MESSAGE_"& _ 
                 "DE, REGEX_MESSAGE_EN = @REGEX_MESSAGE_EN, IMAGE_CONTROL = @IMAGE_CONTROL, SQL2 ="& _ 
                 " @SQL2, SQL_ENABLE = @SQL_ENABLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         SAVE_CHANGE_ON_ENAB"& _ 
-                "LED = @SAVE_CHANGE_ON_ENABLED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID);   "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ 
+                "LED = @SAVE_CHANGE_ON_ENABLED, FORMAT_STRING = @FORMAT_STRING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUI"& _ 
-                "GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN"& _ 
+                "D = @Original_GUID);    "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_"& _ 
-                ", CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTIO"& _ 
+                "LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, V"& _ 
-                "N_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT"& _ 
+                "ALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_ST"& _ 
-                "_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT"& _ 
+                "YLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALU"& _ 
-                "_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN FROM T"& _ 
+                "E, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_ME"& _ 
-                "BPM_PROFILE_CONTROLS WHERE (GUID = @GUID) ORDER BY Y_LOC, X_LOC"
+                "SSAGE_DE, REGEX_MESSAGE_EN FROM TBPM_PROFILE_CONTROLS WHERE (GUID = @GUID) ORDER"& _ 
+                " BY Y_LOC, X_LOC"
             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -20332,6 +20404,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ENABLE", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ENABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_CHANGE_ON_ENABLED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_CHANGE_ON_ENABLED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMAT_STRING", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
         End Sub
@@ -20357,8 +20430,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "             REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL"& _ 
                 "2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, C"& _ 
                 "ONTROL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENA"& _ 
-                "BLED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @guid)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER "& _ 
+                "BLED, FORMAT_STRING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID ="& _ 
-                "BY Y_LOC, X_LOC"
+                " @guid)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
@@ -20438,8 +20511,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "P, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, I"& _ 
                 "MAGE_CONTROL, SQL2, SQL_ENABLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         SET_CONTROL_DATA, SQL"& _ 
                 "_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE, TABLE_ORDER_COLUMN, S"& _ 
-                "AVE_CHANGE_ON_ENABLED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE_CONTROLS AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        "& _ 
+                "AVE_CHANGE_ON_ENABLED, FORMAT_STRING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE_CONTROLS AS T"& _ 
-                "(PROFIL_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
+                ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (PROFIL_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
             Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -20595,7 +20668,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
                     ByVal IMAGE_CONTROL() As Byte,  _
                     ByVal SQL2 As String,  _
                     ByVal SQL_ENABLE As String,  _
-                    ByVal SAVE_CHANGE_ON_ENABLED As Boolean) As Integer
+                    ByVal SAVE_CHANGE_ON_ENABLED As Boolean,  _
+                    ByVal FORMAT_STRING As String) As Integer
             Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer)
             If (NAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("NAME")
@@ -20719,6 +20793,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 Me.Adapter.InsertCommand.Parameters(33).Value = CType(SQL_ENABLE,String)
             End If
             Me.Adapter.InsertCommand.Parameters(34).Value = CType(SAVE_CHANGE_ON_ENABLED,Boolean)
+            If (FORMAT_STRING Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("FORMAT_STRING")
+            Else
+                Me.Adapter.InsertCommand.Parameters(35).Value = CType(FORMAT_STRING,String)
+            End If
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -20771,6 +20850,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
                     ByVal SQL2 As String,  _
                     ByVal SQL_ENABLE As String,  _
                     ByVal SAVE_CHANGE_ON_ENABLED As Boolean,  _
+                    ByVal FORMAT_STRING As String,  _
                     ByVal Original_GUID As Integer,  _
                     ByVal GUID As Integer) As Integer
             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer)
@@ -20885,8 +20965,13 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(SQL_ENABLE,String)
             End If
             Me.Adapter.UpdateCommand.Parameters(31).Value = CType(SAVE_CHANGE_ON_ENABLED,Boolean)
-            Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_GUID,Integer)
+            If (FORMAT_STRING Is Nothing) Then
-            Me.Adapter.UpdateCommand.Parameters(33).Value = CType(GUID,Integer)
+                Throw New Global.System.ArgumentNullException("FORMAT_STRING")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(32).Value = CType(FORMAT_STRING,String)
+            End If
+            Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Integer)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then

app/TaskFlow/DD_DMSLiteDataSet.xsc

@@ -123,11 +123,9 @@
     <TableUISetting Name="TBPM_PROFILE">
       <ColumnUISettings>
         <ColumnUISetting Name="TYPE">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>

app/TaskFlow/DD_DMSLiteDataSet.xsd

@@ -972,8 +972,8 @@ WHERE        (GUID = @Original_GUID)</CommandText>
                     <CommandText>INSERT INTO TBPM_PROFILE_CONTROLS
                          (PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, 
                          HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, 
-                         REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SAVE_CHANGE_ON_ENABLED)
+                         REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SAVE_CHANGE_ON_ENABLED, FORMAT_STRING)
-VALUES        (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@INDEX_NAME,@TYP,@VALIDATION,@CHOICE_LIST,@CONNECTION_ID,@SQL_UEBERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYLE,@FONT_SIZE,@FONT_FAMILY,@FONT_COLOR,@READ_ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES,@REGEX_MATCH,@REGEX_MESSAGE_DE,@REGEX_MESSAGE_EN,@IMAGE_CONTROL,@SQL2,@SQL_ENABLE,@SAVE_CHANGE_ON_ENABLED);   
+VALUES        (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@INDEX_NAME,@TYP,@VALIDATION,@CHOICE_LIST,@CONNECTION_ID,@SQL_UEBERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYLE,@FONT_SIZE,@FONT_FAMILY,@FONT_COLOR,@READ_ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES,@REGEX_MATCH,@REGEX_MESSAGE_DE,@REGEX_MESSAGE_EN,@IMAGE_CONTROL,@SQL2,@SQL_ENABLE,@SAVE_CHANGE_ON_ENABLED,@FORMAT_STRING);     
 SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN FROM TBPM_PROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY Y_LOC, X_LOC</CommandText>
                     <Parameters>
                       <Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -1011,6 +1011,7 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD
                       <Parameter AllowDbNull="true" AutogeneratedName="SQL2" ColumnName="SQL2" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL2" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL2" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="SQL_ENABLE" ColumnName="SQL_ENABLE" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL_ENABLE" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL_ENABLE" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="SAVE_CHANGE_ON_ENABLED" ColumnName="SAVE_CHANGE_ON_ENABLED" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SAVE_CHANGE_ON_ENABLED" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SAVE_CHANGE_ON_ENABLED" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="FORMAT_STRING" ColumnName="FORMAT_STRING" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@FORMAT_STRING" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="FORMAT_STRING" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
@@ -1019,7 +1020,7 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD
                     <CommandText>SELECT        GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, 
                          SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, 
                          REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE, 
-                         TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENABLED
+                         TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENABLED, FORMAT_STRING
 FROM            TBPM_PROFILE_CONTROLS
 WHERE        (GUID = @guid)
 ORDER BY Y_LOC, X_LOC</CommandText>
@@ -1036,7 +1037,7 @@ SET                PROFIL_ID = @PROFIL_ID, NAME = @NAME, CTRL_TYPE = @CTRL_TYPE,
                          FONT_STYLE = @FONT_STYLE, FONT_SIZE = @FONT_SIZE, FONT_FAMILY = @FONT_FAMILY, FONT_COLOR = @FONT_COLOR, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, 
                          DEFAULT_VALUE = @DEFAULT_VALUE, MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH = @REGEX_MATCH, 
                          REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE, REGEX_MESSAGE_EN = @REGEX_MESSAGE_EN, IMAGE_CONTROL = @IMAGE_CONTROL, SQL2 = @SQL2, SQL_ENABLE = @SQL_ENABLE, 
-                         SAVE_CHANGE_ON_ENABLED = @SAVE_CHANGE_ON_ENABLED
+                         SAVE_CHANGE_ON_ENABLED = @SAVE_CHANGE_ON_ENABLED, FORMAT_STRING = @FORMAT_STRING
 WHERE        (GUID = @Original_GUID);    
 SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN FROM TBPM_PROFILE_CONTROLS WHERE (GUID = @GUID) ORDER BY Y_LOC, X_LOC</CommandText>
                     <Parameters>
@@ -1072,6 +1073,7 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD
                       <Parameter AllowDbNull="true" AutogeneratedName="SQL2" ColumnName="SQL2" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL2" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL2" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="SQL_ENABLE" ColumnName="SQL_ENABLE" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL_ENABLE" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL_ENABLE" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="SAVE_CHANGE_ON_ENABLED" ColumnName="SAVE_CHANGE_ON_ENABLED" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SAVE_CHANGE_ON_ENABLED" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SAVE_CHANGE_ON_ENABLED" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="FORMAT_STRING" ColumnName="FORMAT_STRING" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@FORMAT_STRING" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="FORMAT_STRING" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
@@ -1121,6 +1123,7 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD
               <Mapping SourceColumn="CONTROL_ACTIVE" DataSetColumn="CONTROL_ACTIVE" />
               <Mapping SourceColumn="TABLE_ORDER_COLUMN" DataSetColumn="TABLE_ORDER_COLUMN" />
               <Mapping SourceColumn="SAVE_CHANGE_ON_ENABLED" DataSetColumn="SAVE_CHANGE_ON_ENABLED" />
+              <Mapping SourceColumn="FORMAT_STRING" DataSetColumn="FORMAT_STRING" />
             </Mappings>
             <Sources>
               <DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdControlExists" Modifier="Public" Name="cmdControlExists" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdControlExists">
@@ -1248,7 +1251,7 @@ WHERE        (GUID = @Original_GUID);</CommandText>
                     <CommandText>SELECT        dbo.FNPM_LANGUAGE_CONTROL_TEXT(NAME, @USER_LANGUAGE, CTRL_TYPE, CTRL_TEXT) AS CTRL_CAPTION_LANG, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, CHOICE_LIST, CONNECTION_ID, 
                          CTRL_TEXT, CTRL_TYPE, DEFAULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, GUID, HEIGHT, INDEX_NAME, LOAD_IDX_VALUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH, 
                          REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TYP, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, IMAGE_CONTROL, SQL2, SQL_ENABLE, 
-                         SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE, TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENABLED
+                         SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE, TABLE_ORDER_COLUMN, SAVE_CHANGE_ON_ENABLED, FORMAT_STRING
 FROM            TBPM_PROFILE_CONTROLS AS T
 WHERE        (PROFIL_ID = @profil_id)
 ORDER BY Y_LOC, X_LOC</CommandText>
@@ -2664,6 +2667,8 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
                 </xs:simpleType>
               </xs:element>
               <xs:element name="SAVE_CHANGE_ON_ENABLED" msprop:Generator_ColumnPropNameInTable="SAVE_CHANGE_ON_ENABLEDColumn" msprop:Generator_ColumnPropNameInRow="SAVE_CHANGE_ON_ENABLED" msprop:Generator_UserColumnName="SAVE_CHANGE_ON_ENABLED" msprop:Generator_ColumnVarNameInTable="columnSAVE_CHANGE_ON_ENABLED" type="xs:boolean" />
+              <xs:element name="FORMAT_STRING" msprop:Generator_ColumnPropNameInRow="FORMAT_STRING" msprop:Generator_ColumnPropNameInTable="FORMAT_STRINGColumn" msprop:Generator_ColumnVarNameInTable="columnFORMAT_STRING" msprop:Generator_UserColumnName="FORMAT_STRING" type="xs:string" />
+              <xs:element name="BACKCOLOR_IF" msprop:Generator_ColumnPropNameInRow="BACKCOLOR_IF" msprop:Generator_ColumnPropNameInTable="BACKCOLOR_IFColumn" msprop:Generator_ColumnVarNameInTable="columnBACKCOLOR_IF" msprop:Generator_UserColumnName="BACKCOLOR_IF" type="xs:string" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
@@ -3268,8 +3273,8 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="SHOW_DOCUMENT" msprop:Generator_UserColumnName="SHOW_DOCUMENT" msprop:Generator_ColumnPropNameInTable="SHOW_DOCUMENTColumn" msprop:Generator_ColumnPropNameInRow="SHOW_DOCUMENT" msprop:Generator_ColumnVarNameInTable="columnSHOW_DOCUMENT" type="xs:boolean" default="true" />
+              <xs:element name="SHOW_DOCUMENT" msprop:Generator_ColumnPropNameInTable="SHOW_DOCUMENTColumn" msprop:Generator_ColumnPropNameInRow="SHOW_DOCUMENT" msprop:Generator_UserColumnName="SHOW_DOCUMENT" msprop:Generator_ColumnVarNameInTable="columnSHOW_DOCUMENT" type="xs:boolean" default="true" />
-              <xs:element name="TARGET_PATH_BLIND_FILE" msprop:Generator_ColumnPropNameInRow="TARGET_PATH_BLIND_FILE" msprop:Generator_ColumnPropNameInTable="TARGET_PATH_BLIND_FILEColumn" msprop:Generator_ColumnVarNameInTable="columnTARGET_PATH_BLIND_FILE" msprop:Generator_UserColumnName="TARGET_PATH_BLIND_FILE" default="">
+              <xs:element name="TARGET_PATH_BLIND_FILE" msprop:Generator_UserColumnName="TARGET_PATH_BLIND_FILE" msprop:Generator_ColumnPropNameInTable="TARGET_PATH_BLIND_FILEColumn" msprop:Generator_ColumnPropNameInRow="TARGET_PATH_BLIND_FILE" msprop:Generator_ColumnVarNameInTable="columnTARGET_PATH_BLIND_FILE" default="">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="500" />
@@ -3352,9 +3357,9 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
   </xs:element>
   <xs:annotation>
     <xs:appinfo>
-      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" />
+      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" />
-      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" />
+      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" />
-      <msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
+      <msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE" />
     </xs:appinfo>
   </xs:annotation>
 </xs:schema>

app/TaskFlow/DD_DMSLiteDataSet.xss

@@ -4,7 +4,7 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="801" ViewPortY="-84" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="801" ViewPortY="154" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="14" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
     <Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="2" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />

app/TaskFlow/ModuleControlProperties.vb

@@ -210,6 +210,39 @@ Public Module ModuleControlProperties
         <Category(ClassConstants.CAT_VALIDATION)>
         <Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))>
         Public Property RegexMessage As String
+
+        <DisplayName("Display Format String")>
+        <Category(ClassConstants.CAT_DISPLAY)>
+        <TypeConverter(GetType(DisplayFormatConverter))>
+        Public Property DisplayFormat As String
+
+        Public Class DisplayFormatConverter
+            Inherits TypeConverter
+
+            Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
+                Return True
+            End Function
+
+            Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
+                Dim displayFormatList = New List(Of String) From {
+                    ClassControlCreator.CONTROL_TYPE_TEXT,
+                    ClassControlCreator.CONTROL_TYPE_BOOLEAN,
+                    ClassControlCreator.CONTROL_TYPE_INTEGER,
+                    ClassControlCreator.CONTROL_TYPE_DOUBLE,
+                    ClassControlCreator.CONTROL_TYPE_CURRENCY
+                }
+                Dim values As New StandardValuesCollection(displayFormatList)
+                Return values
+            End Function
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                If IsNothing(value) Then
+                    Return ""
+                Else
+                    Return value.ToString()
+                End If
+            End Function
+        End Class
     End Class
 
     Public Class LabelProperties

app/TaskFlow/TaskFlow.vbproj

@@ -271,6 +271,7 @@
     <Compile Include="ClassDragDrop.vb" />
     <Compile Include="ClassFinalIndex.vb" />
     <Compile Include="ClassFinalizeDoc.vb" />
+    <Compile Include="ClassFormat.vb" />
     <Compile Include="ClassIDBData.vb" />
     <Compile Include="ClassImageSelector.vb" />
     <Compile Include="ClassImageValue.vb" />

app/TaskFlow/frmColumn_Detail.Designer.vb

@@ -83,6 +83,8 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.TYPE_COLUMNComboBox2 = New DevExpress.XtraEditors.LookUpEdit()
         CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -130,6 +132,8 @@ Partial Class frmColumn_Detail
         CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TYPE_COLUMNComboBox2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'TBPM_CONTROL_TABLEBindingSource
@@ -248,6 +252,7 @@ Partial Class frmColumn_Detail
         Me.LayoutControl1.Controls.Add(Me.DEFAULTVALUETextBox)
         Me.LayoutControl1.Controls.Add(Me.SEQUENCETextBox)
         Me.LayoutControl1.Controls.Add(Me.SUMMARY_FUNCTIONCombobox)
+        Me.LayoutControl1.Controls.Add(Me.TYPE_COLUMNComboBox2)
         resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.Root = Me.Root
@@ -262,7 +267,7 @@ Partial Class frmColumn_Detail
         '
         Me.TYPE_COLUMNComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "TYPE_COLUMN", True))
         Me.TYPE_COLUMNComboBox.FormattingEnabled = True
-        Me.TYPE_COLUMNComboBox.Items.AddRange(New Object() {resources.GetString("TYPE_COLUMNComboBox.Items"), resources.GetString("TYPE_COLUMNComboBox.Items1"), resources.GetString("TYPE_COLUMNComboBox.Items2")})
+        Me.TYPE_COLUMNComboBox.Items.AddRange(New Object() {resources.GetString("TYPE_COLUMNComboBox.Items"), resources.GetString("TYPE_COLUMNComboBox.Items1"), resources.GetString("TYPE_COLUMNComboBox.Items2"), resources.GetString("TYPE_COLUMNComboBox.Items3"), resources.GetString("TYPE_COLUMNComboBox.Items4")})
         resources.ApplyResources(Me.TYPE_COLUMNComboBox, "TYPE_COLUMNComboBox")
         Me.TYPE_COLUMNComboBox.Name = "TYPE_COLUMNComboBox"
         '
@@ -440,9 +445,9 @@ Partial Class frmColumn_Detail
         '
         Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
         Me.Root.GroupBordersVisible = False
-        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem12, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlGroup1, Me.LayoutControlItem18, Me.LayoutControlItem19, Me.LayoutControlItem22, Me.LayoutControlItem23})
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem12, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlGroup1, Me.LayoutControlItem18, Me.LayoutControlItem19, Me.LayoutControlItem22, Me.LayoutControlItem23, Me.LayoutControlItem21})
         Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(573, 669)
+        Me.Root.Size = New System.Drawing.Size(556, 688)
         Me.Root.TextVisible = False
         '
         'LayoutControlItem1
@@ -451,7 +456,7 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem1.Name = "LayoutControlItem1"
         Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem1.Size = New System.Drawing.Size(553, 40)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(536, 40)
         resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
         Me.LayoutControlItem1.TextSize = New System.Drawing.Size(112, 13)
         '
@@ -461,7 +466,7 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
         Me.LayoutControlItem2.Name = "LayoutControlItem2"
         Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(553, 40)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(536, 40)
         resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
         Me.LayoutControlItem2.TextSize = New System.Drawing.Size(112, 13)
         '
@@ -471,7 +476,7 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80)
         Me.LayoutControlItem3.Name = "LayoutControlItem3"
         Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(553, 40)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(536, 40)
         resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
         Me.LayoutControlItem3.TextSize = New System.Drawing.Size(112, 13)
         '
@@ -481,104 +486,104 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120)
         Me.LayoutControlItem4.Name = "LayoutControlItem4"
         Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(276, 40)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(268, 40)
         resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4")
         Me.LayoutControlItem4.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem5
         '
         Me.LayoutControlItem5.Control = Me.REGEX_MATCHTextBox
-        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 201)
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 241)
         Me.LayoutControlItem5.Name = "LayoutControlItem5"
         Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem5.Size = New System.Drawing.Size(472, 46)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(457, 46)
         resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
         Me.LayoutControlItem5.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem6
         '
         Me.LayoutControlItem6.Control = Me.SimpleButton1
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(472, 201)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(457, 241)
         Me.LayoutControlItem6.Name = "LayoutControlItem6"
-        Me.LayoutControlItem6.Size = New System.Drawing.Size(81, 46)
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(79, 46)
         Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem6.TextVisible = False
         '
         'LayoutControlItem8
         '
         Me.LayoutControlItem8.Control = Me.SQL_COMMANDTextBox
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 327)
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 367)
         Me.LayoutControlItem8.Name = "LayoutControlItem8"
         Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(472, 46)
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(457, 46)
         resources.ApplyResources(Me.LayoutControlItem8, "LayoutControlItem8")
         Me.LayoutControlItem8.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem7
         '
         Me.LayoutControlItem7.Control = Me.REGEX_MESSAGE_DETextBox
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 247)
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 287)
         Me.LayoutControlItem7.Name = "LayoutControlItem7"
         Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem7.Size = New System.Drawing.Size(553, 40)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(536, 40)
         resources.ApplyResources(Me.LayoutControlItem7, "LayoutControlItem7")
         Me.LayoutControlItem7.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem9
         '
         Me.LayoutControlItem9.Control = Me.SimpleButton2
-        Me.LayoutControlItem9.Location = New System.Drawing.Point(472, 327)
+        Me.LayoutControlItem9.Location = New System.Drawing.Point(457, 367)
         Me.LayoutControlItem9.Name = "LayoutControlItem9"
-        Me.LayoutControlItem9.Size = New System.Drawing.Size(81, 46)
+        Me.LayoutControlItem9.Size = New System.Drawing.Size(79, 46)
         Me.LayoutControlItem9.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem9.TextVisible = False
         '
         'LayoutControlItem10
         '
         Me.LayoutControlItem10.Control = Me.TextEdit7
-        Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 413)
+        Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 453)
         Me.LayoutControlItem10.Name = "LayoutControlItem10"
         Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem10.Size = New System.Drawing.Size(276, 40)
+        Me.LayoutControlItem10.Size = New System.Drawing.Size(268, 40)
         resources.ApplyResources(Me.LayoutControlItem10, "LayoutControlItem10")
         Me.LayoutControlItem10.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem12
         '
         Me.LayoutControlItem12.Control = Me.CHANGED_WHOTextBox
-        Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 453)
+        Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 493)
         Me.LayoutControlItem12.Name = "LayoutControlItem12"
         Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem12.Size = New System.Drawing.Size(276, 40)
+        Me.LayoutControlItem12.Size = New System.Drawing.Size(268, 40)
         resources.ApplyResources(Me.LayoutControlItem12, "LayoutControlItem12")
         Me.LayoutControlItem12.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem11
         '
         Me.LayoutControlItem11.Control = Me.TextEdit8
-        Me.LayoutControlItem11.Location = New System.Drawing.Point(276, 413)
+        Me.LayoutControlItem11.Location = New System.Drawing.Point(268, 453)
         Me.LayoutControlItem11.Name = "LayoutControlItem11"
         Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem11.Size = New System.Drawing.Size(277, 40)
+        Me.LayoutControlItem11.Size = New System.Drawing.Size(268, 40)
         resources.ApplyResources(Me.LayoutControlItem11, "LayoutControlItem11")
         Me.LayoutControlItem11.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem13
         '
         Me.LayoutControlItem13.Control = Me.TextEdit10
-        Me.LayoutControlItem13.Location = New System.Drawing.Point(276, 453)
+        Me.LayoutControlItem13.Location = New System.Drawing.Point(268, 493)
         Me.LayoutControlItem13.Name = "LayoutControlItem13"
         Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem13.Size = New System.Drawing.Size(277, 40)
+        Me.LayoutControlItem13.Size = New System.Drawing.Size(268, 40)
         resources.ApplyResources(Me.LayoutControlItem13, "LayoutControlItem13")
         Me.LayoutControlItem13.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlGroup1
         '
         Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem16, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17, Me.LayoutControlItem20})
-        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 493)
+        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 533)
         Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
-        Me.LayoutControlGroup1.Size = New System.Drawing.Size(553, 156)
+        Me.LayoutControlGroup1.Size = New System.Drawing.Size(536, 135)
         resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
         '
         'LayoutControlItem16
@@ -586,7 +591,7 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem16.Control = Me.VALIDATIONCheckbox
         Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControlItem16.Name = "LayoutControlItem16"
-        Me.LayoutControlItem16.Size = New System.Drawing.Size(264, 24)
+        Me.LayoutControlItem16.Size = New System.Drawing.Size(256, 24)
         Me.LayoutControlItem16.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem16.TextVisible = False
         '
@@ -595,54 +600,54 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem14.Control = Me.READ_ONLYCheckBox
         Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 24)
         Me.LayoutControlItem14.Name = "LayoutControlItem14"
-        Me.LayoutControlItem14.Size = New System.Drawing.Size(529, 23)
+        Me.LayoutControlItem14.Size = New System.Drawing.Size(512, 22)
         Me.LayoutControlItem14.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem14.TextVisible = False
         '
         'LayoutControlItem15
         '
         Me.LayoutControlItem15.Control = Me.LOAD_IDX_VALUECheckBox
-        Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 47)
+        Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 46)
         Me.LayoutControlItem15.Name = "LayoutControlItem15"
-        Me.LayoutControlItem15.Size = New System.Drawing.Size(529, 23)
+        Me.LayoutControlItem15.Size = New System.Drawing.Size(512, 22)
         Me.LayoutControlItem15.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem15.TextVisible = False
         '
         'LayoutControlItem17
         '
         Me.LayoutControlItem17.Control = Me.ADVANCED_LOOKUPCheckbox
-        Me.LayoutControlItem17.Location = New System.Drawing.Point(0, 70)
+        Me.LayoutControlItem17.Location = New System.Drawing.Point(0, 68)
         Me.LayoutControlItem17.Name = "LayoutControlItem17"
-        Me.LayoutControlItem17.Size = New System.Drawing.Size(529, 43)
+        Me.LayoutControlItem17.Size = New System.Drawing.Size(512, 22)
         Me.LayoutControlItem17.TextSize = New System.Drawing.Size(0, 0)
         Me.LayoutControlItem17.TextVisible = False
         '
         'LayoutControlItem20
         '
         Me.LayoutControlItem20.Control = Me.SUMMARY_FUNCTIONCombobox
-        Me.LayoutControlItem20.Location = New System.Drawing.Point(264, 0)
+        Me.LayoutControlItem20.Location = New System.Drawing.Point(256, 0)
         Me.LayoutControlItem20.Name = "LayoutControlItem20"
-        Me.LayoutControlItem20.Size = New System.Drawing.Size(265, 24)
+        Me.LayoutControlItem20.Size = New System.Drawing.Size(256, 24)
         resources.ApplyResources(Me.LayoutControlItem20, "LayoutControlItem20")
         Me.LayoutControlItem20.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem18
         '
         Me.LayoutControlItem18.Control = Me.DEFAULTVALUETextBox
-        Me.LayoutControlItem18.Location = New System.Drawing.Point(0, 373)
+        Me.LayoutControlItem18.Location = New System.Drawing.Point(0, 413)
         Me.LayoutControlItem18.Name = "LayoutControlItem18"
         Me.LayoutControlItem18.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem18.Size = New System.Drawing.Size(553, 40)
+        Me.LayoutControlItem18.Size = New System.Drawing.Size(536, 40)
         resources.ApplyResources(Me.LayoutControlItem18, "LayoutControlItem18")
         Me.LayoutControlItem18.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem19
         '
         Me.LayoutControlItem19.Control = Me.SEQUENCETextBox
-        Me.LayoutControlItem19.Location = New System.Drawing.Point(276, 120)
+        Me.LayoutControlItem19.Location = New System.Drawing.Point(268, 120)
         Me.LayoutControlItem19.Name = "LayoutControlItem19"
         Me.LayoutControlItem19.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem19.Size = New System.Drawing.Size(277, 40)
+        Me.LayoutControlItem19.Size = New System.Drawing.Size(268, 40)
         resources.ApplyResources(Me.LayoutControlItem19, "LayoutControlItem19")
         Me.LayoutControlItem19.TextSize = New System.Drawing.Size(112, 13)
         '
@@ -653,19 +658,40 @@ Partial Class frmColumn_Detail
         Me.LayoutControlItem22.Location = New System.Drawing.Point(0, 160)
         Me.LayoutControlItem22.Name = "LayoutControlItem22"
         Me.LayoutControlItem22.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem22.Size = New System.Drawing.Size(553, 41)
+        Me.LayoutControlItem22.Size = New System.Drawing.Size(536, 41)
         Me.LayoutControlItem22.TextSize = New System.Drawing.Size(112, 13)
         '
         'LayoutControlItem23
         '
         Me.LayoutControlItem23.Control = Me.LU_CAPTIONTextBox
         resources.ApplyResources(Me.LayoutControlItem23, "LayoutControlItem23")
-        Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 287)
+        Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 327)
         Me.LayoutControlItem23.Name = "LayoutControlItem23"
         Me.LayoutControlItem23.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem23.Size = New System.Drawing.Size(553, 40)
+        Me.LayoutControlItem23.Size = New System.Drawing.Size(536, 40)
         Me.LayoutControlItem23.TextSize = New System.Drawing.Size(112, 13)
         '
+        'LayoutControlItem21
+        '
+        Me.LayoutControlItem21.Control = Me.TYPE_COLUMNComboBox2
+        Me.LayoutControlItem21.Location = New System.Drawing.Point(0, 201)
+        Me.LayoutControlItem21.Name = "LayoutControlItem21"
+        Me.LayoutControlItem21.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem21.Size = New System.Drawing.Size(536, 40)
+        resources.ApplyResources(Me.LayoutControlItem21, "LayoutControlItem21")
+        Me.LayoutControlItem21.TextSize = New System.Drawing.Size(112, 13)
+        '
+        'TYPE_COLUMNComboBox2
+        '
+        Me.TYPE_COLUMNComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "TYPE_COLUMN", True))
+        resources.ApplyResources(Me.TYPE_COLUMNComboBox2, "TYPE_COLUMNComboBox2")
+        Me.TYPE_COLUMNComboBox2.MenuManager = Me.RibbonControl1
+        Me.TYPE_COLUMNComboBox2.Name = "TYPE_COLUMNComboBox2"
+        Me.TYPE_COLUMNComboBox2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("TYPE_COLUMNComboBox2.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
+        Me.TYPE_COLUMNComboBox2.Properties.NullText = resources.GetString("TYPE_COLUMNComboBox2.Properties.NullText")
+        Me.TYPE_COLUMNComboBox2.Properties.PopupSizeable = False
+        Me.TYPE_COLUMNComboBox2.StyleController = Me.LayoutControl1
+        '
         'frmColumn_Detail
         '
         Me.Appearance.Options.UseFont = True
@@ -727,6 +753,8 @@ Partial Class frmColumn_Detail
         CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TYPE_COLUMNComboBox2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout
 
@@ -790,4 +818,6 @@ End Sub
     Friend WithEvents LU_CAPTIONTextBox As TextBox
     Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents TYPE_COLUMNComboBox2 As DevExpress.XtraEditors.LookUpEdit
 End Class

app/TaskFlow/frmColumn_Detail.resx

@@ -152,10 +152,10 @@
     <value>573, 67</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 736</value>
+    <value>0, 735</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>573, 21</value>
+    <value>573, 22</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -185,10 +185,10 @@
     <value>RibbonPage2</value>
   </data>
   <data name="LU_CAPTIONTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 307</value>
+    <value>144, 347</value>
   </data>
   <data name="LU_CAPTIONTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 20</value>
+    <value>392, 20</value>
   </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="LU_CAPTIONTextBox.TabIndex" type="System.Int32, mscorlib">
@@ -207,7 +207,7 @@
     <value>4</value>
   </data>
   <data name="TYPE_COLUMNComboBox.Items" xml:space="preserve">
-    <value>STRING</value>
+    <value>TEXT</value>
   </data>
   <data name="TYPE_COLUMNComboBox.Items1" xml:space="preserve">
     <value>INTEGER</value>
@@ -215,11 +215,17 @@
   <data name="TYPE_COLUMNComboBox.Items2" xml:space="preserve">
     <value>BOOLEAN</value>
   </data>
+  <data name="TYPE_COLUMNComboBox.Items3" xml:space="preserve">
+    <value>DOUBLE</value>
+  </data>
+  <data name="TYPE_COLUMNComboBox.Items4" xml:space="preserve">
+    <value>CURRENCY</value>
+  </data>
   <data name="TYPE_COLUMNComboBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 180</value>
+    <value>144, 180</value>
   </data>
   <data name="TYPE_COLUMNComboBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 21</value>
+    <value>392, 21</value>
   </data>
   <data name="TYPE_COLUMNComboBox.TabIndex" type="System.Int32, mscorlib">
     <value>25</value>
@@ -237,10 +243,10 @@
     <value>5</value>
   </data>
   <data name="GUIDTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 20</value>
+    <value>144, 20</value>
   </data>
   <data name="GUIDTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 20</value>
+    <value>392, 20</value>
   </data>
   <data name="GUIDTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -258,10 +264,10 @@
     <value>6</value>
   </data>
   <data name="SPALTENNAMETextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 60</value>
+    <value>144, 60</value>
   </data>
   <data name="SPALTENNAMETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 20</value>
+    <value>392, 20</value>
   </data>
   <data name="SPALTENNAMETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>5</value>
@@ -279,10 +285,10 @@
     <value>7</value>
   </data>
   <data name="SPALTEN_HEADERTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 100</value>
+    <value>144, 100</value>
   </data>
   <data name="SPALTEN_HEADERTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 20</value>
+    <value>392, 20</value>
   </data>
   <data name="SPALTEN_HEADERTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>6</value>
@@ -303,14 +309,14 @@
     <value>0</value>
   </data>
   <data name="SPALTENBREITETextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 140</value>
+    <value>144, 140</value>
   </data>
   <assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="SPALTENBREITETextBox.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
     <value>Combo</value>
   </data>
   <data name="SPALTENBREITETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>140, 20</value>
+    <value>124, 20</value>
   </data>
   <data name="SPALTENBREITETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>7</value>
@@ -328,10 +334,10 @@
     <value>9</value>
   </data>
   <data name="REGEX_MATCHTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 221</value>
+    <value>144, 261</value>
   </data>
   <data name="REGEX_MATCHTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>336, 20</value>
+    <value>313, 20</value>
   </data>
   <data name="REGEX_MATCHTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>8</value>
@@ -349,7 +355,7 @@
     <value>10</value>
   </data>
   <data name="SimpleButton1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>484, 213</value>
+    <value>469, 253</value>
   </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="SimpleButton1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
@@ -359,7 +365,7 @@
     <value>10, 10, 10, 10</value>
   </data>
   <data name="SimpleButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>77, 42</value>
+    <value>75, 42</value>
   </data>
   <data name="SimpleButton1.TabIndex" type="System.Int32, mscorlib">
     <value>9</value>
@@ -380,10 +386,10 @@
     <value>11</value>
   </data>
   <data name="REGEX_MESSAGE_DETextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 267</value>
+    <value>144, 307</value>
   </data>
   <data name="REGEX_MESSAGE_DETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 20</value>
+    <value>392, 20</value>
   </data>
   <data name="REGEX_MESSAGE_DETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>10</value>
@@ -401,10 +407,10 @@
     <value>12</value>
   </data>
   <data name="SQL_COMMANDTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 347</value>
+    <value>144, 387</value>
   </data>
   <data name="SQL_COMMANDTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>336, 20</value>
+    <value>313, 20</value>
   </data>
   <data name="SQL_COMMANDTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>11</value>
@@ -422,13 +428,13 @@
     <value>13</value>
   </data>
   <data name="SimpleButton2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>484, 339</value>
+    <value>469, 379</value>
   </data>
   <data name="SimpleButton2.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
     <value>10, 10, 10, 10</value>
   </data>
   <data name="SimpleButton2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>77, 42</value>
+    <value>75, 42</value>
   </data>
   <data name="SimpleButton2.TabIndex" type="System.Int32, mscorlib">
     <value>12</value>
@@ -449,10 +455,10 @@
     <value>14</value>
   </data>
   <data name="TextEdit7.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 433</value>
+    <value>144, 473</value>
   </data>
   <data name="TextEdit7.Size" type="System.Drawing.Size, System.Drawing">
-    <value>140, 20</value>
+    <value>124, 20</value>
   </data>
   <data name="TextEdit7.TabIndex" type="System.Int32, mscorlib">
     <value>13</value>
@@ -470,10 +476,10 @@
     <value>15</value>
   </data>
   <data name="TextEdit8.Location" type="System.Drawing.Point, System.Drawing">
-    <value>412, 433</value>
+    <value>412, 473</value>
   </data>
   <data name="TextEdit8.Size" type="System.Drawing.Size, System.Drawing">
-    <value>141, 20</value>
+    <value>124, 20</value>
   </data>
   <data name="TextEdit8.TabIndex" type="System.Int32, mscorlib">
     <value>14</value>
@@ -491,10 +497,10 @@
     <value>16</value>
   </data>
   <data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 473</value>
+    <value>144, 513</value>
   </data>
   <data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>140, 20</value>
+    <value>124, 20</value>
   </data>
   <data name="CHANGED_WHOTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>15</value>
@@ -512,10 +518,10 @@
     <value>17</value>
   </data>
   <data name="TextEdit10.Location" type="System.Drawing.Point, System.Drawing">
-    <value>412, 473</value>
+    <value>412, 513</value>
   </data>
   <data name="TextEdit10.Size" type="System.Drawing.Size, System.Drawing">
-    <value>141, 20</value>
+    <value>124, 20</value>
   </data>
   <data name="TextEdit10.TabIndex" type="System.Int32, mscorlib">
     <value>16</value>
@@ -533,13 +539,13 @@
     <value>18</value>
   </data>
   <data name="READ_ONLYCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>24, 560</value>
+    <value>24, 602</value>
   </data>
   <data name="READ_ONLYCheckBox.Properties.Caption" xml:space="preserve">
     <value>Read Only</value>
   </data>
   <data name="READ_ONLYCheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>525, 19</value>
+    <value>508, 18</value>
   </data>
   <data name="READ_ONLYCheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>17</value>
@@ -557,13 +563,13 @@
     <value>19</value>
   </data>
   <data name="LOAD_IDX_VALUECheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>24, 583</value>
+    <value>24, 624</value>
   </data>
   <data name="LOAD_IDX_VALUECheckBox.Properties.Caption" xml:space="preserve">
     <value>Lade Indexdaten</value>
   </data>
   <data name="LOAD_IDX_VALUECheckBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>525, 19</value>
+    <value>508, 18</value>
   </data>
   <data name="LOAD_IDX_VALUECheckBox.TabIndex" type="System.Int32, mscorlib">
     <value>18</value>
@@ -581,13 +587,13 @@
     <value>20</value>
   </data>
   <data name="VALIDATIONCheckbox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>24, 536</value>
+    <value>24, 578</value>
   </data>
   <data name="VALIDATIONCheckbox.Properties.Caption" xml:space="preserve">
     <value>Muss ausgefüllt werden</value>
   </data>
   <data name="VALIDATIONCheckbox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>260, 19</value>
+    <value>252, 18</value>
   </data>
   <data name="VALIDATIONCheckbox.TabIndex" type="System.Int32, mscorlib">
     <value>19</value>
@@ -605,13 +611,13 @@
     <value>21</value>
   </data>
   <data name="ADVANCED_LOOKUPCheckbox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>24, 606</value>
+    <value>24, 646</value>
   </data>
   <data name="ADVANCED_LOOKUPCheckbox.Properties.Caption" xml:space="preserve">
     <value>Erweitertes Auswahl Control (für lange Listen)</value>
   </data>
   <data name="ADVANCED_LOOKUPCheckbox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>525, 19</value>
+    <value>508, 18</value>
   </data>
   <data name="ADVANCED_LOOKUPCheckbox.TabIndex" type="System.Int32, mscorlib">
     <value>20</value>
@@ -629,10 +635,10 @@
     <value>22</value>
   </data>
   <data name="DEFAULTVALUETextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>136, 393</value>
+    <value>144, 433</value>
   </data>
   <data name="DEFAULTVALUETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>417, 20</value>
+    <value>392, 20</value>
   </data>
   <data name="DEFAULTVALUETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>21</value>
@@ -659,7 +665,7 @@
     <value>Combo</value>
   </data>
   <data name="SEQUENCETextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>141, 20</value>
+    <value>124, 20</value>
   </data>
   <data name="SEQUENCETextBox.TabIndex" type="System.Int32, mscorlib">
     <value>22</value>
@@ -677,7 +683,7 @@
     <value>24</value>
   </data>
   <data name="SUMMARY_FUNCTIONCombobox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>404, 536</value>
+    <value>404, 578</value>
   </data>
   <data name="SUMMARY_FUNCTIONCombobox.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
     <value>Combo</value>
@@ -686,7 +692,7 @@
     <value />
   </data>
   <data name="SUMMARY_FUNCTIONCombobox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>145, 20</value>
+    <value>128, 20</value>
   </data>
   <data name="SUMMARY_FUNCTIONCombobox.TabIndex" type="System.Int32, mscorlib">
     <value>23</value>
@@ -703,6 +709,33 @@
   <data name="&gt;&gt;SUMMARY_FUNCTIONCombobox.ZOrder" xml:space="preserve">
     <value>25</value>
   </data>
+  <data name="TYPE_COLUMNComboBox2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>144, 221</value>
+  </data>
+  <data name="TYPE_COLUMNComboBox2.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
+    <value>Combo</value>
+  </data>
+  <data name="TYPE_COLUMNComboBox2.Properties.NullText" xml:space="preserve">
+    <value />
+  </data>
+  <data name="TYPE_COLUMNComboBox2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>392, 20</value>
+  </data>
+  <data name="TYPE_COLUMNComboBox2.TabIndex" type="System.Int32, mscorlib">
+    <value>27</value>
+  </data>
+  <data name="&gt;&gt;TYPE_COLUMNComboBox2.Name" xml:space="preserve">
+    <value>TYPE_COLUMNComboBox2</value>
+  </data>
+  <data name="&gt;&gt;TYPE_COLUMNComboBox2.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;TYPE_COLUMNComboBox2.Parent" xml:space="preserve">
+    <value>LayoutControl1</value>
+  </data>
+  <data name="&gt;&gt;TYPE_COLUMNComboBox2.ZOrder" xml:space="preserve">
+    <value>26</value>
+  </data>
   <data name="LayoutControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
@@ -766,8 +799,11 @@
   <data name="LayoutControlItem23.Text" xml:space="preserve">
     <value>Caption Auswahldialog:</value>
   </data>
+  <data name="LayoutControlItem21.Text" xml:space="preserve">
+    <value>Datentyp:</value>
+  </data>
   <data name="LayoutControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>573, 669</value>
+    <value>573, 668</value>
   </data>
   <data name="LayoutControl1.TabIndex" type="System.Int32, mscorlib">
     <value>33</value>
@@ -1006,6 +1042,12 @@
   <data name="&gt;&gt;LayoutControlItem23.Type" xml:space="preserve">
     <value>DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;LayoutControlItem21.Name" xml:space="preserve">
+    <value>LayoutControlItem21</value>
+  </data>
+  <data name="&gt;&gt;LayoutControlItem21.Type" xml:space="preserve">
+    <value>DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmColumn_Detail</value>
   </data>

app/TaskFlow/frmColumn_Detail.vb

@@ -25,11 +25,20 @@ Public Class frmColumn_Detail
                 {ClassControlCreator.AGGREGATE_NONE, "Keine Summierung"},
                 {ClassControlCreator.AGGREGATE_TOTAL_INTEGER, "Summe (Ganzzahl)"},
                 {ClassControlCreator.AGGREGATE_TOTAL_FLOAT, "Summe (Zwei Nachkommastellen)"},
+                {ClassControlCreator.AGGREGATE_TOTAL_CURRENCY, "Summe (Währung)"},
                 {ClassControlCreator.AGGREGATE_TOTAL_COUNT, "Anzahl"},
                 {ClassControlCreator.AGGREGATE_TOTAL_MIN, "Minimum"},
                 {ClassControlCreator.AGGREGATE_TOTAL_MAX, "Maximum"},
                 {ClassControlCreator.AGGREGATE_TOTAL_AVG, "Durchschnitt"}
             }
+
+            TYPE_COLUMNComboBox2.Properties.DataSource = New Dictionary(Of String, String) From {
+                {ClassControlCreator.CONTROL_TYPE_TEXT, "Text"},
+                {ClassControlCreator.CONTROL_TYPE_BOOLEAN, "Boolean"},
+                {ClassControlCreator.CONTROL_TYPE_INTEGER, "Ganzzahl"},
+                {ClassControlCreator.CONTROL_TYPE_DOUBLE, "Fließkommazahl"},
+                {ClassControlCreator.CONTROL_TYPE_CURRENCY, "Währung"}
+            }
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
@@ -180,4 +189,8 @@ Public Class frmColumn_Detail
             End If
         End If
     End Sub
+
+    Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
+
+    End Sub
 End Class

app/TaskFlow/frmFormDesigner.vb

@@ -9,6 +9,7 @@ Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Language
 Imports System.Drawing
 Imports DigitalData.GUIs.Common
+Imports DevExpress.Utils.Filtering.Internal
 
 Public Class frmFormDesigner
     Public ProfileId As Integer
@@ -124,13 +125,13 @@ Public Class frmFormDesigner
                 TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
                 TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
             Catch ex As Exception
-                _LOGGER.Error(ex)
+                _Logger.Error(ex)
                 MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
             End Try
 
             LoadControls()
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:")
         End Try
     End Sub
@@ -318,226 +319,11 @@ Public Class frmFormDesigner
                 End Select
             Next
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             MsgBox("Unexpected error in LoadControls " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
         End Try
 
     End Sub
-    'Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown, btnButton.MouseDown
-    '    If Designer_Locked Then
-    '        Exit Sub
-    '    End If
-    '    Mouse_IsPressed = True
-
-    '    CurrentControl = Nothing
-    '    Try
-    '        TBPM_PROFILE_CONTROLSBindingSource.Clear()
-    '    Catch ex As Exception
-    '        _Logger.Error(ex)
-    '    End Try
-    'End Sub
-
-    'Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove, btnButton.MouseMove
-    '    If Designer_Locked Then
-    '        Exit Sub
-    '    End If
-    '    If Mouse_IsPressed Then
-    '        Dim btn As Button = sender
-    '        Dim dragDropData As String
-
-    '        Select Case btn.Name
-    '            Case "btnlabel"
-    '                dragDropData = ClassControlCreator.PREFIX_LABEL
-    '            Case "btntextbox"
-    '                dragDropData = ClassControlCreator.PREFIX_TEXTBOX
-    '            Case "btncmb"
-    '                dragDropData = ClassControlCreator.PREFIX_COMBOBOX
-    '            Case "btndtp"
-    '                dragDropData = ClassControlCreator.PREFIX_DATETIMEPICKER
-    '            Case "btnVektor"
-    '                dragDropData = ClassControlCreator.PREFIX_DATAGRIDVIEW
-    '            Case "btnTabelle"
-    '                dragDropData = ClassControlCreator.PREFIX_TABLE
-    '            Case "btnCheckbox"
-    '                dragDropData = ClassControlCreator.PREFIX_CHECKBOX
-    '            Case "btnLine"
-    '                dragDropData = ClassControlCreator.PREFIX_LINE
-    '            Case "btnButton"
-    '                dragDropData = ClassControlCreator.PREFIX_BUTTON
-    '        End Select
-
-    '        btn.DoDragDrop(dragDropData, DragDropEffects.Copy)
-    '    End If
-    'End Sub
-
-    'Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp, btnButton.MouseUp
-    '    Mouse_IsPressed = False
-    'End Sub
-
-    'Private Sub pnlDesigner_DragDrop(sender As Object, e As DragEventArgs) Handles pnldesigner.DragDrop
-    '    If Designer_Locked Then
-    '        Exit Sub
-    '    End If
-    '    Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position)
-
-    '    Mouse_IsPressed = False
-
-    '    Try
-    '        Select Case e.Data.GetData(DataFormats.Text)
-    '            Case ClassControlCreator.PREFIX_LABEL
-    '                Dim label = ClassControlCreator.CreateNewLabel(cursorPosition)
-    '                SetMovementHandlers(label)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = label
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-
-    '                pnldesigner.Controls.Add(label)
-
-    '            Case ClassControlCreator.PREFIX_TEXTBOX
-    '                Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition)
-    '                SetMovementHandlers(txt)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = txt
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-    '                pnldesigner.Controls.Add(txt)
-
-    '            Case ClassControlCreator.PREFIX_COMBOBOX
-    '                Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition)
-    '                SetMovementHandlers(cmb)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = cmb
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-    '                pnldesigner.Controls.Add(cmb)
-
-    '            Case ClassControlCreator.PREFIX_DATETIMEPICKER
-    '                Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition)
-    '                SetMovementHandlers(dtp)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = dtp
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-    '                pnldesigner.Controls.Add(dtp)
-
-    '            Case ClassControlCreator.PREFIX_CHECKBOX
-    '                Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition)
-    '                SetMovementHandlers(chk)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = chk
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-    '                pnldesigner.Controls.Add(chk)
-
-    '            Case ClassControlCreator.PREFIX_DATAGRIDVIEW
-    '                Dim lc As LookupControl3 = ClassControlCreator.CreateNewLookupControl(cursorPosition)
-
-    '                SetMovementHandlers(lc)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = lc
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-    '                pnldesigner.Controls.Add(lc)
-
-    '            Case ClassControlCreator.PREFIX_TABLE
-    '                Dim tb = ClassControlCreator.CreateNewTable(cursorPosition)
-
-    '                SetMovementHandlers(tb)
-    '                AddHandler tb.MouseClick, AddressOf gridControl_MouseClick
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                Dim oControlId = GetLastID()
-
-    '                CurrentControl = tb
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = oControlId,
-    '                    .ReadOnly = False
-    '                }
-
-    '                TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME)
-    '                TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME)
-
-    '                pnldesigner.Controls.Add(tb)
-    '            Case ClassControlCreator.PREFIX_LINE
-    '                Dim line = ClassControlCreator.CreateNewLine(cursorPosition)
-
-    '                SetMovementHandlers(line)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = line
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-
-    '                pnldesigner.Controls.Add(line)
-    '            Case ClassControlCreator.PREFIX_BUTTON
-    '                Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition)
-
-    '                SetMovementHandlers(oButton)
-
-    '                TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width)
-    '                CHANGES_IN_ADMINISTRATION = True
-    '                CurrentControl = oButton
-    '                CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
-    '                    .Guid = GetLastID(),
-    '                    .ReadOnly = False
-    '                }
-
-
-    '                pnldesigner.Controls.Add(oButton)
-    '        End Select
-    '    Catch ex As Exception
-    '        _Logger.Error(ex)
-    '        _Logger.Info($"Error while Adding new control {e.Data.GetData(DataFormats.Text)}:")
-    '        _Logger.Info(ex)
-    '    End Try
-    'End Sub
-
-    'Private Sub pnlDesigner_DragEnter(sender As System.Object, e As DragEventArgs) Handles pnldesigner.DragEnter
-    '    ' Check the format of the data being dropped. 
-    '    If (e.Data.GetDataPresent(DataFormats.Text)) Then
-    '        ' Display the copy cursor. 
-    '        e.Effect = DragDropEffects.Copy
-    '    Else
-    '        ' Display the no-drop cursor. 
-    '        e.Effect = DragDropEffects.None
-    '    End If
-    'End Sub
 
     Private Function GetLastID()
         Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId)
@@ -612,7 +398,7 @@ Public Class frmFormDesigner
                 GridControlContextMenu.Show(Cursor.Position.X, Cursor.Position.Y)
             End If
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             MsgBox("Error while loading Column Configuration: " & vbCrLf & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -631,7 +417,7 @@ Public Class frmFormDesigner
                 End If
             End If
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "DeleteControl:")
         End Try
     End Sub
@@ -640,9 +426,6 @@ Public Class frmFormDesigner
         Return pnldesigner.PointToClient(Cursor.Position)
     End Function
 
-
-
-
     ''' <summary>
     ''' Setzt die Eventhandler für ein Control, die für die Bewegung via Drag & Drop und das Laden der Eigentschaften verantwortlich sind
     ''' </summary>
@@ -731,7 +514,7 @@ Public Class frmFormDesigner
             MyBase.Cursor = Cursors.Default
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical)
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             Mouse_IsMoving = False
             Mouse_IsPressed = False
         End Try
@@ -760,7 +543,7 @@ Public Class frmFormDesigner
                 End If
             End If
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             Mouse_IsMoving = False
         End Try
     End Sub
@@ -835,9 +618,9 @@ Public Class frmFormDesigner
             Try
                 TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, USER_LANGUAGE, ProfileId)
             Catch ex As Exception
-                _LOGGER.Error(ex)
+                _Logger.Error(ex)
-                _LOGGER.Info("Error while executing TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil in LoadControlProperties:")
+                _Logger.Info("Error while executing TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil in LoadControlProperties:")
-                _LOGGER.Info(ex)
+                _Logger.Info(ex)
             End Try
 
             Dim oControlId = DirectCast(sender.Tag, ClassControlCreator.ControlMetadata).Guid
@@ -848,7 +631,7 @@ Public Class frmFormDesigner
 
             ' Control-Id wurde nicht in DataRow gefunden
             If IsNothing(oRow) Then
-                _LOGGER.Info($"Error while filtering Controls by Guid '{oControlId}' in LoadControlProperties:")
+                _Logger.Info($"Error while filtering Controls by Guid '{oControlId}' in LoadControlProperties:")
                 MsgBox($"Control mit der Id {oControlId} wurde nicht gefunden!", MsgBoxStyle.Critical, "Fehler beim Laden der Control Eigenschaften")
 
                 Exit Sub
@@ -889,6 +672,7 @@ Public Class frmFormDesigner
                 txtProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
                 txtProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
                 txtProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
+                txtProps.DisplayFormat = oRow.ItemEx("FORMAT_STRING", ClassControlCreator.CONTROL_TYPE_TEXT)
 
                 props = txtProps
 
@@ -1091,148 +875,20 @@ Public Class frmFormDesigner
 
             Case "RegexMessage"
                 UpdateSingleValue("REGEX_MESSAGE_DE", newValue)
+
             Case "Active"
                 UpdateSingleValue("CONTROL_ACTIVE", IIf(newValue = True, 1, 0))
+
             Case "CtrlImage"
                 Dim myPath As ImageValue = newValue
                 UpdateImage(myPath.Value)
+
+            Case "DisplayFormat"
+                UpdateSingleValue("FORMAT_STRING", newValue)
+
         End Select
     End Sub
 
-
-
-    Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs)
-        Dim oldValue As Object = e.OldValue
-        Dim newValue = e.ChangedItem.Value
-
-        'Dim prop As String = e.ChangedItem.Label
-        Dim prop As String = e.ChangedItem.PropertyDescriptor.Name
-
-
-        Select Case prop
-            Case "DisplayAsLookUpControl"
-                If UpdateSingleValue("CTRL_TYPE", "LOOKUP") = True Then
-                    MsgBox("Type has been changed. Controls will be reloaded!", MsgBoxStyle.Information, "")
-                    LoadControls()
-                End If
-            Case "DisplayAsComboBox"
-                If UpdateSingleValue("CTRL_TYPE", "CMB") = True Then
-                    MsgBox("Type has been changed. Controls will be reloaded!", MsgBoxStyle.Information, "")
-                    LoadControls()
-                End If
-            Case "Location"
-                UpdateSingleValue("X_LOC", DirectCast(newValue, Point).X)
-                UpdateSingleValue("Y_LOC", DirectCast(newValue, Point).Y)
-
-                CurrentControl.Location = newValue
-
-            Case "X"
-                UpdateSingleValue("X_LOC", CInt(newValue))
-
-                CurrentControl.Location = New Point(newValue, CurrentControl.Location.Y)
-
-            Case "Y"
-                UpdateSingleValue("Y_LOC", CInt(newValue))
-
-                CurrentControl.Location = New Point(CurrentControl.Location.X, newValue)
-
-            Case "Size"
-                UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width)
-                UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height)
-
-                CurrentControl.Size = newValue
-
-            Case "Width"
-                UpdateSingleValue("WIDTH", CInt(newValue))
-
-                CurrentControl.Size = New Size(newValue, CurrentControl.Size.Height)
-
-            Case "Height"
-                UpdateSingleValue("HEIGHT", CInt(newValue))
-
-                CurrentControl.Size = New Size(CurrentControl.Size.Width, newValue)
-
-            Case "Name"
-                UpdateSingleValue("NAME", newValue)
-
-                CurrentControl.Name = newValue
-
-            Case "Index"
-                UpdateSingleValue("INDEX_NAME", newValue)
-
-            Case "Text"
-                UpdateSingleValue("CTRL_TEXT", newValue)
-
-                CurrentControl.Text = newValue
-
-            Case "Required"
-                UpdateSingleValue("VALIDATION", IIf(newValue = True, 1, 0))
-
-            Case "ReadOnly"
-                UpdateSingleValue("READ_ONLY", IIf(newValue = True, 1, 0))
-            Case "SaveChangeOnReadOnly"
-                UpdateSingleValue("SAVE_CHANGE_ON_ENABLED", IIf(newValue = True, 1, 0))
-            Case "Font"
-                Dim font As Font = newValue
-                Dim fontSize As Integer = Math.Truncate(font.SizeInPoints)
-                UpdateSingleValue("FONT_SIZE", fontSize)
-                UpdateSingleValue("FONT_FAMILY", font.FontFamily.Name)
-                UpdateSingleValue("FONT_STYLE", CInt(font.Style))
-
-                CurrentControl.Font = font
-            Case "TextColor"
-                Dim color As Color = newValue
-                UpdateSingleValue("FONT_COLOR", ColorTranslator.ToWin32(color))
-
-                CurrentControl.ForeColor = color
-            Case "SQLCommand"
-                UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue)
-                UpdateSingleValue("CHOICE_LIST", "")
-
-            Case "Enable_SQL"
-                UpdateSingleValue("SQL_ENABLE", newValue)
-                UpdateSingleValue("CHOICE_LIST", "")
-
-            Case "Enable_SQL_OnLoad"
-                UpdateSingleValue("SQL_ENABLE_ON_LOAD", newValue)
-                UpdateSingleValue("CHOICE_LIST", "")
-
-            Case "Override_SQL"
-                UpdateSingleValue("SQL2", newValue)
-                UpdateSingleValue("CHOICE_LIST", "")
-
-            Case "SetControlData"
-                UpdateSingleValue("SET_CONTROL_DATA", newValue)
-                UpdateSingleValue("CHOICE_LIST", "")
-
-            Case "ChoiceList"
-                UpdateSingleValue("CHOICE_LIST", newValue)
-                UpdateSingleValue("SQL_UEBERPRUEFUNG", "")
-
-            Case "MultiSelect"
-                UpdateSingleValue("MULTISELECT", IIf(newValue = True, 1, 0))
-
-            Case "AllowAddNewValues"
-                UpdateSingleValue("VKT_ADD_ITEM", IIf(newValue = True, 1, 0))
-
-            Case "PreventDuplicates"
-                UpdateSingleValue("VKT_PREVENT_MULTIPLE_VALUES", IIf(newValue = True, 1, 0))
-
-            Case "DefaultValue"
-                UpdateSingleValue("DEFAULT_VALUE", newValue)
-
-            Case "Regex"
-                UpdateSingleValue("REGEX_MATCH", newValue)
-
-            Case "RegexMessage"
-                UpdateSingleValue("REGEX_MESSAGE_DE", newValue)
-            Case "Active"
-                UpdateSingleValue("CONTROL_ACTIVE", IIf(newValue = True, 1, 0))
-            Case "CtrlImage"
-                Dim myPath As ImageValue = newValue
-                UpdateImage(myPath.Value)
-        End Select
-    End Sub
     Private Function UpdateImage(ImageLocation As String)
         Try
             Dim image As Bitmap = CType(System.Drawing.Image.FromFile(ImageLocation, True), Bitmap)
@@ -1256,10 +912,10 @@ Public Class frmFormDesigner
             Return True
 
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             Dim oMsg = $"UpdateImage - Error while saving Control (Id: {CURRENT_CONTROL_ID}): {vbCrLf}{ex.Message}"
             MsgBox(oMsg)
-            _LOGGER.Info(oMsg)
+            _Logger.Info(oMsg)
             Return False
         End Try
     End Function
@@ -1289,13 +945,13 @@ Public Class frmFormDesigner
                 Return True
             End If
 
-
+            Return False
 
         Catch ex As Exception
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
             Dim oMsg = $"UpdateSingleValue - Fehler beim Speichern von Control (Id: {guid}, column: {columnName}): {vbCrLf}{ex.Message}"
             MsgBox(oMsg)
-            _LOGGER.Info(oMsg)
+            _Logger.Info(oMsg)
             Return False
         End Try
     End Function
@@ -1314,7 +970,7 @@ Public Class frmFormDesigner
         Catch ex As Exception
             Dim oMsg = $"MenuItemAddColumn_Click - Fehler beim Hinzufügen von einer neuen Spalte: {vbCrLf}{ex.Message}"
             MsgBox(oMsg)
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
         End Try
     End Sub
 
@@ -1347,7 +1003,7 @@ Public Class frmFormDesigner
             End If
         Catch ex As Exception
             MsgBox("Error in Saving Profile SQLFinish: " & vbNewLine & vbNewLine & ex.Message)
-            _LOGGER.Error(ex)
+            _Logger.Error(ex)
         End Try
     End Sub
 
@@ -1592,9 +1248,9 @@ Public Class frmFormDesigner
                     RibPGCtrlWidth.Enabled = True
                 End If
             Catch ex As Exception
-                _LOGGER.Error(ex)
+                _Logger.Error(ex)
-                _LOGGER.Info($"Error while Adding new control {ControlSelected}:")
+                _Logger.Info($"Error while Adding new control {ControlSelected}:")
-                _LOGGER.Info(ex)
+                _Logger.Info(ex)
             End Try
             Me.Cursor = Cursors.Default
             ControlSelected = ""

app/TaskFlow/frmMain.resx

@@ -124,46 +124,46 @@
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
-        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADu
-        CAAAAk1TRnQBSQFMAgEBAgEAAfgBCQH4AQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgIAAQoBAAEKARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
-        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+        AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
-        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+        AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
-        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+        AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
-        AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+        AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
-        AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+        AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
-        AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+        AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
-        ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+        AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
-        AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+        AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
-        AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+        AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
-        AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+        ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
-        AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+        AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
-        AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+        ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
-        AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+        AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
-        AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+        AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
-        AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+        AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
-        ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+        AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
-        Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+        AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
-        AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+        AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
-        AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+        AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
-        AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+        ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
-        ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+        AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
-        Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+        ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
-        AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+        ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
-        AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+        AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
-        AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+        AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
-        AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+        AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
-        AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+        ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
-        AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0YAAQgEcgEICgABGgEc
+        Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9GAAEIBHIBCAoAARoBHAJ0
-        AnQBHAEaKQABcgFVAVoCWwFaAVUBTwgAAXQBeQF6AuUBegF5AXQnAAJVAVoBWwLkAVsBWgJVBgABdAJ6
+        ARwBGikAAXIBVQFaAlsBWgFVAU8IAAF0AXkBegLlAXoBeQF0JwACVQFaAVsC5AFbAVoCVQYAAXQCegTl
-        BOUBegF5AVIlAAFPAVUCWgRbAVoCVQFPBAABUgFZAXoG5QF6AlIjAAEIAlUIWgJVAQgCAAEaAVIBWQF6
+        AXoBeQFSJQABTwFVAloEWwFaAlUBTwQAAVIBWQF6BuUBegJSIwABCAJVCFoCVQEIAgABGgFSAVkBegbl
-        BuUBWQFYAVIBGiIAAU8CVQdaA1UBTwIAAUwBUgpZAVIBTCIAAU8BNApVATQBLgIAAUwBUgFTCFkBUwFS
+        AVkBWAFSARoiAAFPAlUHWgNVAU8CAAFMAVIKWQFSAUwiAAFPATQKVQE0AS4CAAFMAVIBUwhZAVMBUgFM
-        AUwiAAEtAzMHNAIzAS0CAAIrAjIGUwIyAisiAAFPAS0BMwhVATQCLQIAAUwCKwhTAVICKyIAAQgBLQFV
+        IgABLQMzBzQCMwEtAgACKwIyBlMCMgIrIgABTwEtATMIVQE0Ai0CAAFMAisIUwFSAisiAAEIAS0BVQiX
-        CJcBVQEtAQgCAAEaASsBUgh1AVIBKwEaIwABAgGXCJgBlwEtBAABKgF0CJoBdAErJQABTwEIARsFwgHx
+        AVUBLQEIAgABGgErAVIIdQFSASsBGiMAAQIBlwiYAZcBLQQAASoBdAiaAXQBKyUAAU8BCAEbBcIB8QFP
-        AU8GAAFMARoBGwQaARsBGgFSJwABTwEIAfMC/wHzAQgBcggAAUwBGgT2ARoBdCkAAQgEcgEICgABGgR0
+        BgABTAEaARsEGgEbARoBUicAAU8BCAHzAv8B8wEIAXIIAAFMARoE9gEaAXQpAAEIBHIBCAoAARoEdAEa
-        ARplAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAE/wQAAfgBHwH4AR8EAAHw
+        ZQABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEABP8EAAH4AR8B+AEfBAAB8AEP
-        AQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAGAAQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAGA
+        AfABDwQAAeABBwHgAQcEAAHAAQMBwAEDBAABgAEBAYABAQQAAYABAQGAAQEEAAGAAQEBgAEBBAABgAEB
-        AQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAHAAQMBwAEDBAAB4AEHAeABBwQAAfABDwHwAQ8EAAH4
+        AYABAQQAAYABAQGAAQEEAAGAAQEBgAEBBAABwAEDAcABAwQAAeABBwHgAQcEAAHwAQ8B8AEPBAAB+AEf
-        AR8B+AEfBAAE/wQACw==
+        AfgBHwQABP8EAAs=
 </value>
   </data>
   <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -501,7 +501,7 @@
     <value>Out of Range - Fenster wiederherstellen</value>
   </data>
   <data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
-    <value>283, 76</value>
+    <value>283, 98</value>
   </data>
   <data name="&gt;&gt;ContextMenuNotifyIcon.Name" xml:space="preserve">
     <value>ContextMenuNotifyIcon</value>
@@ -1942,7 +1942,7 @@
     <value>True</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>25</value>
+    <value>147</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
     <value>9, 19</value>

app/TaskFlow/frmValidator.vb

@@ -4,20 +4,21 @@ Imports System.Runtime.InteropServices
 Imports System.IO
 Imports System.Text.RegularExpressions
 Imports System.ComponentModel
+Imports System.Globalization
 Imports DigitalData.Controls.LookupGrid
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Language
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
 Imports DigitalData.Modules.EDMI.API.Constants
-Imports DevExpress.XtraBars
 Imports DigitalData.GUIs.Common.DocumentResultList
 Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.ZooFlow.Constants
 Imports DigitalData.GUIs.Common
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraBars
 Imports DevExpress.XtraGrid.Columns
-Imports System.Globalization
 
 Public Class frmValidator
     Private Property Current_Document As DocumentResultList.Document = Nothing
@@ -2638,8 +2639,8 @@ Public Class frmValidator
             LOGGER.Info("LoadNextDocument - Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
             If CURRENT_DOC_GUID > 0 Then
                 If (OPERATION_MODE_FS = ClassConstants.OpModeFS_PWM Or OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM) And GetDocPathWindows(0) = False Then
-                    SetStatusLabel($"File not accessable: {DocPathWindows}", "DarkOrange")
+                    SetStatusLabel($"File not accessible: {DocPathWindows}", "DarkOrange")
-                    MsgBox("The file can not be diplayed or is not accessable!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
+                    MsgBox("The file can not be diplayed or is not accessible!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
                 End If
                 If IDB_ACTIVE = False Then
                     If CreateWMObject() = False Then
@@ -3182,67 +3183,12 @@ Public Class frmValidator
 
                                             End If
                                         End If
-
                                     End If
 
                                     Try
                                         Dim oFormatString As String = oControlRow.ItemEx("CTRL_FORMAT_STRING", "")
-                                        If oFormatString <> String.Empty Then
+                                        oFormattedValue = ClassFormat.GetFormattedValue(oControl.Name, oValueFromSource, oFormatString)
-                                            ' https://learn.microsoft.com/en-us/dotnet/api/system.datetime.tostring?view=net-7.0#system-datetime-tostring(system-string)
 
-                                            Select Case oFormatString
-                                                Case "Currency" ' 16,325.63 €
-                                                    Dim oValue As Double = oValueFromSource
-                                                    oFormattedValue = oValue.ToString("C2")
-
-                                                Case "Decimal" ' 16325,63
-                                                    Dim oValue As Double = oValueFromSource
-                                                    oFormattedValue = oValue.ToString("F")
-
-                                                Case "Date" ' 15.06.2008
-                                                    Dim oValue As DateTime = oValueFromSource
-                                                    oFormattedValue = oValue.ToString("d")
-
-                                                Case "DateTime" ' 15.06.2008 9:15:07
-                                                    Dim oValue As DateTime = oValueFromSource
-                                                    oFormattedValue = oValue.ToString("G")
-
-                                            End Select
-
-                                        End If
-                                    Catch ex As Exception
-                                        LOGGER.Warn($"Unexpected error in Format String [{oControl.Name}]: {ex.Message}")
-                                        LOGGER.Error(ex)
-                                    End Try
-
-                                    Try
-                                        'Dim oFormatString As String = oControlRow.ItemEx("CTRL_FORMAT_STRING", "")
-                                        'If oFormatString <> String.Empty Then
-                                        '    Try
-                                        '        Dim oSPlit = Split(oFormatString, ";")
-                                        '        If oSPlit(0) = "Decimal" Then
-                                        '            LOGGER.Debug("FORMAT_STRING DECIMAL")
-                                        '            oFormattedValue = oValueFromSource
-                                        '            LOGGER.Debug($"Unformatted String: {oFormattedValue}")
-                                        '            Dim oFormattedDec As Decimal = oValueFromSource
-                                        '            If oSPlit.Length = 3 Then
-                                        '                oFormattedValue = $"{oFormattedDec.ToString(oSPlit(1))} {oSPlit(2)}"
-                                        '            ElseIf oSPlit.Length = 4 Then
-                                        '                oFormattedValue = $"{oFormattedDec.ToString(oSPlit(1), New CultureInfo(oSPlit(2)))} {oSPlit(3)}"
-                                        '            Else
-                                        '                oFormatString = oFormatString.Replace("Decimal;", "")
-                                        '            End If
-                                        '            LOGGER.Debug($"Formatted String: {oFormattedValue}")
-
-
-                                        '        End If
-                                        '    Catch ex As Exception
-                                        '        LOGGER.Warn($"Unexpected error in Format String [{oControl.Name}]: {ex.Message}")
-                                        '        LOGGER.Error(ex)
-                                        '    End Try
-
-
-                                        'End If
                                         If Not IsNothing(oFormattedValue) And oFormattedValue <> String.Empty Then
                                             oControl.Text = NotNull(oFormattedValue, oDefaultValue)
                                         Else
@@ -3264,11 +3210,13 @@ Public Class frmValidator
                                                     Dim oSQl = $"SELECT CASE WHEN {oExpression} THEN CONVERT(BIT,1) ELSE CONVERT(BIT,0) END "
                                                     Dim oColorName = IIf(DatabaseECM.GetScalarValue(oSQl), oSPlit(1), oSPlit(2))
                                                     oControl.BackColor = Color.FromName(oColorName)
-                                                    If oColorName = "Green" Or oColorName = "Blue" Or oColorName = "Red" Then
+
-                                                        oControl.ForeColor = Color.FromName("White")
+                                                    oControl.ForeColor = GraphicsEx.GetContrastedColor(oControl.BackColor)
-                                                    Else
+                                                    'If oColorName = "Green" Or oColorName = "Blue" Or oColorName = "Red" Then
-                                                        oControl.ForeColor = Color.FromName("Black")
+                                                    '    oControl.ForeColor = Color.FromName("White")
-                                                    End If
+                                                    'Else
+                                                    '    oControl.ForeColor = Color.FromName("Black")
+                                                    'End If
                                                 End If
                                             End If
                                         Catch ex As Exception
@@ -3447,25 +3395,37 @@ Public Class frmValidator
                                                             If oColValuesfromSource.Length > 8 Then
                                                                 LOGGER.Warn("Fill Grid Error - Max 8 columns can be configured!")
                                                             End If
-                                                            Select Case oColValuesfromSource.Length
-                                                                Case 1
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0)})
-                                                                Case 2
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
-                                                                Case 3
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
-                                                                Case 4
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
-                                                                Case 5
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4)})
-                                                                Case 6
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5)})
-                                                                Case 7
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6)})
-                                                                Case 8
-                                                                    oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6), oColValuesfromSource(7)})
 
-                                                            End Select
+                                                            Dim oRowData As New List(Of Object)
+
+                                                            For index = 1 To oColValuesfromSource.Length
+                                                                Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN")
+                                                                Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType)
+                                                                oRowData.Add(oConvertedValue)
+                                                            Next
+
+                                                            oDataSource.Rows.Add(oRowData.ToArray())
+
+                                                            'Select Case oColValuesfromSource.Length
+                                                            '    Case 1
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0)})
+                                                            '    Case 2
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
+                                                            '    Case 3
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
+                                                            '    Case 4
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
+                                                            '    Case 5
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4)})
+                                                            '    Case 6
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5)})
+                                                            '    Case 7
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6)})
+                                                            '    Case 8
+                                                            '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6), oColValuesfromSource(7)})
+                                                            'End Select
+
+
                                                         ElseIf oValueType = "System.Data.DataTable" Then
                                                             Dim oMyDatatable As DataTable = oValueFromSource
                                                             LOGGER.Debug($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count)
@@ -3473,28 +3433,39 @@ Public Class frmValidator
                                                                 LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...")
                                                                 oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter)
                                                                 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...")
+
                                                                 If oColValuesfromSource.Length > 8 Then
                                                                     LOGGER.Warn("Fill Grid with DatatableSplit Error - Max 8 columns can be configured!")
                                                                 End If
-                                                                Select Case oColValuesfromSource.Length
-                                                                    Case 1
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0)})
-                                                                    Case 2
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
-                                                                    Case 3
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
-                                                                    Case 4
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
-                                                                    Case 5
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4)})
-                                                                    Case 6
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5)})
-                                                                    Case 7
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6)})
-                                                                    Case 8
-                                                                        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6), oColValuesfromSource(7)})
 
-                                                                End Select
+                                                                Dim oRowData As New List(Of Object)
+
+                                                                For index = 1 To oColValuesfromSource.Length
+                                                                    Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN")
+                                                                    Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType)
+                                                                    oRowData.Add(oConvertedValue)
+                                                                Next
+
+                                                                oDataSource.Rows.Add(oRowData.ToArray())
+
+                                                                'Select Case oColValuesfromSource.Length
+                                                                '    Case 1
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0)})
+                                                                '    Case 2
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
+                                                                '    Case 3
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
+                                                                '    Case 4
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
+                                                                '    Case 5
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4)})
+                                                                '    Case 6
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5)})
+                                                                '    Case 7
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6)})
+                                                                '    Case 8
+                                                                '        oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3), oColValuesfromSource(4), oColValuesfromSource(5), oColValuesfromSource(6), oColValuesfromSource(7)})
+                                                                'End Select
 
                                                             Next
                                                         End If
@@ -5424,9 +5395,12 @@ Public Class frmValidator
 
                             Dim oValueList As New List(Of String)
 
-                            For Each item In oRow.ItemArray
+                            For Each item As Object In oRow.ItemArray
                                 item = NotNull(item, String.Empty)
-                                If TypeOf item IsNot String Then item.ToString()
+                                ' Convert to string using InvariantCulture, so converting back from string does not screw up values
+                                If TypeOf item IsNot String Then
+                                    item = String.Format(CultureInfo.InvariantCulture, "{0}", item)
+                                End If
                                 oValueList.Add(item)
                             Next