2.1.6.3 Final - ApplServer, frmAdminsitrationBugs etc

app/DD_PM_WINDREAM/ClassDataASorDB.vb

@@ -0,0 +1,92 @@
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DigitalData.Modules.Logging
+
+Public Class ClassDataASorDB
+    Private _Logger As Logger
+    Public Sub New()
+        _Logger = LOGGER
+    End Sub
+    Public Function GetDatatable(pDB As String, pSQL As String, pAppServDT As String, pAppServFilter As String, Optional pAppServSort As String = "", Optional pForce As String = "") As DataTable
+        Try
+            Dim oReturnDT As DataTable
+            If EDMIAppServerActive = True And pForce = String.Empty Then
+                Try
+                    Dim oTableResult As TableResult = _Client.GetDatatableByName(pAppServDT, pAppServFilter, pAppServSort)
+                    oReturnDT = oTableResult.Table
+                    If IsNothing(oReturnDT) Then
+                        _Logger.Warn($"Datatable from ApPServData is nothing [{pAppServDT} - {pAppServFilter}] - Failover via DB")
+                        Return GetDatatable(pDB, pSQL, "", "", "", "DB")
+                    End If
+                Catch ex As Exception
+                    _Logger.Warn($"Error getting ApPServData [{pAppServDT} - {pAppServFilter}]")
+                    Return GetDatatable(pDB, pSQL, "", "", "", "DB")
+                End Try
+            Else
+                If pDB = "DD_ECM" Then
+                    oReturnDT = ClassDatabase.Return_Datatable_ConStr(pSQL, CONNECTION_STRING)
+                ElseIf pDB = "IDB" Then
+                    oReturnDT = ClassDatabase.Return_Datatable_ConStr(pSQL, CONNECTION_STRING_IDB)
+                End If
+
+            End If
+            Return oReturnDT
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+    End Function
+
+    Public Function CheckModuleData()
+        Try
+            Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME)
+            Dim DT_CHECKUSER_MODULE As DataTable
+            DT_CHECKUSER_MODULE = GetDatatable("DD_ECM", oSql, "TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'CW'", "", "")
+
+            If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
+                _Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
+                'ERROR_STATE = "NO USER"
+                MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
+                Return False
+            End If
+            If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
+                _Logger.Info(">> Login Username: " & USER_USERNAME, False)
+                _Logger.Info(">> Login time: " & Now.ToString, False)
+                USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
+                USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
+                USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
+                USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
+                USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
+                USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
+                USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
+
+                USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
+                ADDITIONAL_TITLE = DT_CHECKUSER_MODULE.Rows(0).Item("ADDITIONAL_TITLE")
+                If ADDITIONAL_TITLE = String.Empty Then
+                    ADDITIONAL_TITLE = My.Application.Info.ProductName
+                End If
+
+                Return True
+            Else
+                _Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
+                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                'Me.Close()
+                Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
+                MsgBox(msg, MsgBoxStyle.Exclamation)
+                Return False
+            End If
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return False
+        End Try
+
+    End Function
+    Public Sub Refresh_Connections()
+        Try
+            Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
+            Dim oResult As DataTable
+            DT_CONNECTIONS = GetDatatable("DD_ECM", oSql, "TBDD_CONNECTION", "", "", "")
+        Catch ex As Exception
+            _Logger.Error(ex)
+            MsgBox("Unexpected Error in Refresh_Connections: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+End Class

app/DD_PM_WINDREAM/ClassFinalIndex.vb

@@ -1,6 +1,7 @@
 Public Class ClassFinalIndex
     Public INDEX_TYPE_STRING = 1
     Public INDEX_TYPE_INTEGER = 2
+    Public INDEX_TYPE_INTEGER64 = 11
     Public INDEX_TYPE_FLOAT = 3
     Public INDEX_TYPE_BOOLEAN = 4
     Public INDEX_TYPE_DATE = 5
@@ -114,14 +115,23 @@
                 value = NotNull(value, "")
 
                 props.StringValue = value
-            ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER_64 Then
+            ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_INTEGER64 Or type = INDEX_TYPE_VECTOR_INTEGER_64 Then
-                value = NotNull(Of Integer)(value, 0)
+                Try
+                    value = NotNull(Of Integer)(value, 0)
+                    If value = String.Empty Then
+                        props.IntegerValue = 0
+                    Else
+                        props.IntegerValue = Integer.Parse(value)
+                    End If
+                Catch ex As Exception
+                    If value = "SQL-Command" Then
+                        Return props
+                    Else
+                        props.IntegerValue = 99
+                    End If
+
+                End Try
 
-                If value = String.Empty Then
-                    props.IntegerValue = 0
-                Else
-                    props.IntegerValue = Integer.Parse(value)
-                End If
             ElseIf type = INDEX_TYPE_FLOAT Then
                 value = NotNull(Of Double)(value, 0)
 
@@ -143,7 +153,7 @@
             Return props
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical)
+            MsgBox($"Error in ClassFinalIndexSetValue: {ex.Message}", MsgBoxStyle.Critical)
         End Try
     End Function
 

app/DD_PM_WINDREAM/ClassFinalizeDoc.vb

@@ -37,7 +37,7 @@
                         '        LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
                         '    End Try
                         'Next
-                        Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"), USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
+                        Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"))
                         sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
                         sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
                         LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)

app/DD_PM_WINDREAM/ClassInit.vb

@@ -9,7 +9,7 @@ Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 
 Public Class ClassInit
     Public _lizenzManager As ClassLicenseManager
-
+    Private DataASorDB As ClassDataASorDB
     Public Sub New()
     End Sub
 
@@ -43,6 +43,7 @@ Public Class ClassInit
     <STAThread()>
     Public Sub InitUserConfig()
         Try
+            DataASorDB = New ClassDataASorDB
             Dim oUserAppDataPath As String = Application.UserAppDataPath
             Dim oLegacyAppDataPath As String = Application.UserAppDataPath
             Dim oCommonAppDataPath = Application.CommonAppDataPath
@@ -213,6 +214,7 @@ Public Class ClassInit
     <STAThread()>
     Public Sub InitUserLogin(Optional pUSRNAME As String = "")
         Dim oStopWatch As New RefreshHelper.SW("InitUserLogin")
+        Dim oSQL As String
         Try
             If pUSRNAME <> String.Empty Then
                 USER_USERNAME = pUSRNAME
@@ -222,15 +224,9 @@ Public Class ClassInit
 
             Try
                 Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT")
-                Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
+                oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
-
-                If EDMIAppServerActive = True Then
-                    Dim oTableResult As TableResult = _Client.GetDatatableByName("VWDD_USER_CLIENT", $"USERNAME like '{USER_USERNAME}'")
-                    DT_CLIENT_USER = oTableResult.Table
-                Else
-                    DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, "InitUserLogin1")
-                End If
 
+                DT_CLIENT_USER = DataASorDB.GetDatatable("DD_ECM", oSQL, "VWDD_USER_CLIENT", $"USERNAME like '{USER_USERNAME}'")
                 oSQLSW.Done()
 
                 If DT_CLIENT_USER.Rows.Count > 1 Then
@@ -240,8 +236,6 @@ Public Class ClassInit
                 Else
                     ERROR_STATE = "NO CLIENT"
                     Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Client relation")
-                    'Related to a client
-                    '  Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
                     MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2") & vbNewLine & vbNewLine & oSQL, MsgBoxStyle.Exclamation)
                     Exit Sub
                 End If
@@ -253,14 +247,9 @@ Public Class ClassInit
 
             LOGGER.Debug("Username: " & USER_USERNAME)
             Dim oFnct As New RefreshHelper.SW("FNDD_CHECK_USER_MODULE")
-            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
+            oSQL = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
             Dim DT_CHECKUSER_MODULE As DataTable
-            If EDMIAppServerActive = True Then
+            DT_CHECKUSER_MODULE = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'")
-                DT_CHECKUSER_MODULE = oTableResult.Table
-            Else
-                DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(sql, "InitUserLogin2")
-            End If
             oFnct.Done()
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                 LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
@@ -350,41 +339,20 @@ Public Class ClassInit
         oStopWatch.Done()
     End Sub
     <STAThread()>
-    Public Shared Sub InitBasics()
+    Public Sub InitBasics()
         Try
             Dim oStopWatch As New RefreshHelper.SW("InitBasics")
             Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
-            If EDMIAppServerActive = True Then
+            BASEDATA_DT_CONFIG = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_KONFIGURATION", $"GUID = 1")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_KONFIGURATION", $"GUID = 1")
-                BASEDATA_DT_CONFIG = oTableResult.Table
-            Else
-                BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql, "InitBasics1")
-            End If
-
 
             Settings_LoadBasicConfig()
+
             oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1"
-
+            BASEDATA_DT_TBDD_CONNECTION = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_CONNECTION", "")
-            If EDMIAppServerActive = True Then
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_CONNECTION")
-                BASEDATA_DT_TBDD_CONNECTION = oTableResult.Table
-            Else
-                BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql, "InitBasics2")
-            End If
-
-
-
 
             oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
             Dim oTBDD_3RD_PARTY_MODULES As DataTable
-            If EDMIAppServerActive = True Then
+            oTBDD_3RD_PARTY_MODULES = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_3RD_PARTY_MODULES", "")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_3RD_PARTY_MODULES")
-                oTBDD_3RD_PARTY_MODULES = oTableResult.Table
-
-            Else
-                oTBDD_3RD_PARTY_MODULES = ClassDatabase.Return_Datatable(oSql, "InitBasics3")
-            End If
-
 
             For Each oROW As DataRow In oTBDD_3RD_PARTY_MODULES.Rows
                 If oROW.Item("NAME") = "GDPICTURE" Then
@@ -392,37 +360,15 @@ Public Class ClassInit
                 End If
             Next
             oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
-            If EDMIAppServerActive = True Then
+            BASEDATA_DT_GUI_LANGUAGE_PHRASES = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_GUI_LANGUAGE_PHRASE", "")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_GUI_LANGUAGE_PHRASE")
-                BASEDATA_DT_GUI_LANGUAGE_PHRASES = oTableResult.Table
-            Else
-                BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql, "InitBasics4")
-            End If
-
-
-
-            If EDMIAppServerActive = True Then
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
-                BASEDATA_DT_PROFILES_SEARCHES_DOC = oTableResult.Table
-            Else
-                BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
-            End If
 
+            oSql = "select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX"
+            BASEDATA_DT_PROFILES_SEARCHES_DOC = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
             BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
-            If EDMIAppServerActive = True Then
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_MAIN_VIEW_GROUPS")
-                BASEDATA_DTGRID_GROUPS = oTableResult.Table
-            Else
-                BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", "InitBasics6")
-            End If
-            If EDMIAppServerActive = True Then
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_CHART")
-                BASEDATA_DT_CHARTS = oTableResult.Table
-            Else
-                oSql = "SELECT * FROM TBPM_CHART"
-                BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql, "InitBasics7")
-            End If
 
+            oSql = "SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1"
+            BASEDATA_DTGRID_GROUPS = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_MAIN_VIEW_GROUPS", "")
+            BASEDATA_DT_CHARTS = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_CHART", "")
             oStopWatch.Done()
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -431,18 +377,11 @@ Public Class ClassInit
         End Try
     End Sub
     <STAThread()>
-    Public Shared Sub InitBasics2()
+    Public Sub InitBasics2()
         Try
             Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
             Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
-            If EDMIAppServerActive = True Then
+            BASEDATA_DT_VW_PROFILE_USER = DataASorDB.GetDatatable("DD_ECM", oSql, "VWPM_PROFILE_USER", $"USER_ID = {USER_ID}")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("VWPM_PROFILE_USER", $"USER_ID = {USER_ID}")
-                BASEDATA_DT_VW_PROFILE_USER = oTableResult.Table
-            Else
-                BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql, "InitBasics2_1")
-            End If
-
-
 
             If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then
                 LOGGER.Warn($"no profiles for user: '{USER_USERNAME}' configured - Check SQL [{oSql}]!", False)
@@ -457,20 +396,11 @@ Public Class ClassInit
         End Try
     End Sub
     <STAThread()>
-    Private Shared Function Settings_LoadBasicConfig()
+    Private Function Settings_LoadBasicConfig()
         Try
-            Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
+            Dim oSql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
             Dim oDTtbdd_Modules As DataTable
-            If EDMIAppServerActive = True Then
+            oDTtbdd_Modules = DataASorDB.GetDatatable("DD_ECM", oSql, "tbdd_Modules", $" SHORT_NAME = 'PM'")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("tbdd_Modules", $" SHORT_NAME = 'PM'")
-                oDTtbdd_Modules = oTableResult.Table
-                If IsNothing(oDTtbdd_Modules) Then
-                    oDTtbdd_Modules = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
-                End If
-            Else
-                oDTtbdd_Modules = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
-            End If
-
             If oDTtbdd_Modules.Rows.Count = 1 Then
                 Try
                     VERSION_DELIMITER = oDTtbdd_Modules.Rows(0).Item("VERSION_DELIMITER")

app/DD_PM_WINDREAM/ClassPMWindream.vb

@@ -16,6 +16,7 @@ Public Class ClassPMWindream
     Const WMObjectVariableValueTypeUndefined = 0
     Const WMObjectVariableValueTypeString = 1
     Const WMObjectVariableValueTypeInteger = 2
+    Const WMObjectVariableValueTypeInteger64bit = 11
     Const WMObjectVariableValueTypeFloat = 3
     Const WMObjectVariableValueTypeBoolean = 4
     Const WMObjectVariableValueTypeDate = 5
@@ -175,6 +176,17 @@ Public Class ClassPMWindream
                                     End If
                                     convertValue = CInt(value)
                                     _int = True
+                                Case WMObjectVariableValueTypeInteger64bit
+                                    LOGGER.Debug("Typ des windream-Indexes: Integer64bit")
+                                    If IsNumeric(value) = False Then
+                                        frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
+                                        LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!")
+                                        oDocument.Save()
+                                        oDocument.unlock()
+                                        Return False
+                                    End If
+                                    convertValue = CInt(value)
+                                    _int = True
                                 Case WMObjectVariableValueTypeFloat
                                     LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
                                     Try

app/DD_PM_WINDREAM/ClassParamRefresh.vb

@@ -49,7 +49,7 @@
                         IDB_ACTIVE = False
                     Else
                         IDB_ACTIVE = True
-                        LOGGER.Info($"Got an IDB-Connection [{CON_ID}]!")
+                        LOGGER.Debug($"Got an IDB-Connection [{CON_ID}]!")
                     End If
                 ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
                     Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb

@@ -1032,6 +1032,10 @@ Partial Public Class DD_DMSLiteDataSet
         
         Private columnIF_VEKTOR_BEHAVIOUR As Global.System.Data.DataColumn
         
+        Private columnALLOW_NEW_VALUES As Global.System.Data.DataColumn
+        
+        Private columnPREVENT_DUPLICATES As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Sub New()
@@ -1163,6 +1167,22 @@ Partial Public Class DD_DMSLiteDataSet
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property ALLOW_NEW_VALUESColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnALLOW_NEW_VALUES
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property PREVENT_DUPLICATESColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnPREVENT_DUPLICATES
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -1200,9 +1220,9 @@ Partial Public Class DD_DMSLiteDataSet
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal IF_VEKTOR_BEHAVIOUR As String) As TBPM_PROFILE_FINAL_INDEXINGRow
+        Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal ALLOW_NEW_VALUES As Boolean, ByVal PREVENT_DUPLICATES As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow
             Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow)
-            Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE, IF_VEKTOR_BEHAVIOUR}
+            Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE, IF_VEKTOR_BEHAVIOUR, ALLOW_NEW_VALUES, PREVENT_DUPLICATES}
             rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray
             Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow)
             Return rowTBPM_PROFILE_FINAL_INDEXINGRow
@@ -1243,6 +1263,8 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
             Me.columnACTIVE = MyBase.Columns("ACTIVE")
             Me.columnIF_VEKTOR_BEHAVIOUR = MyBase.Columns("IF_VEKTOR_BEHAVIOUR")
+            Me.columnALLOW_NEW_VALUES = MyBase.Columns("ALLOW_NEW_VALUES")
+            Me.columnPREVENT_DUPLICATES = MyBase.Columns("PREVENT_DUPLICATES")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -1272,6 +1294,10 @@ Partial Public Class DD_DMSLiteDataSet
             MyBase.Columns.Add(Me.columnACTIVE)
             Me.columnIF_VEKTOR_BEHAVIOUR = New Global.System.Data.DataColumn("IF_VEKTOR_BEHAVIOUR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnIF_VEKTOR_BEHAVIOUR)
+            Me.columnALLOW_NEW_VALUES = New Global.System.Data.DataColumn("ALLOW_NEW_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnALLOW_NEW_VALUES)
+            Me.columnPREVENT_DUPLICATES = New Global.System.Data.DataColumn("PREVENT_DUPLICATES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnPREVENT_DUPLICATES)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.columnINDEXNAME.AllowDBNull = false
             Me.columnINDEXNAME.MaxLength = 100
@@ -1296,8 +1322,10 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnACTIVE.AllowDBNull = false
             Me.columnACTIVE.DefaultValue = CType(true,Boolean)
             Me.columnIF_VEKTOR_BEHAVIOUR.AllowDBNull = false
-            Me.columnIF_VEKTOR_BEHAVIOUR.DefaultValue = CType("",String)
+            Me.columnIF_VEKTOR_BEHAVIOUR.DefaultValue = CType("Add",String)
             Me.columnIF_VEKTOR_BEHAVIOUR.MaxLength = 25
+            Me.columnALLOW_NEW_VALUES.AllowDBNull = false
+            Me.columnPREVENT_DUPLICATES.AllowDBNull = false
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -4602,12 +4630,12 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnACTIVE.AllowDBNull = false
             Me.columnACTIVE.DefaultValue = CType(false,Boolean)
             Me.columnWD_SEARCH.AllowDBNull = false
+            Me.columnWD_SEARCH.DefaultValue = CType("",String)
             Me.columnWD_SEARCH.MaxLength = 500
             Me.columnNO_OF_DOCUMENTS.AllowDBNull = false
             Me.columnNO_OF_DOCUMENTS.DefaultValue = CType(0,Integer)
             Me.columnADDED_WHO.AllowDBNull = false
             Me.columnADDED_WHO.MaxLength = 30
-            Me.columnADDED_WHEN.AllowDBNull = false
             Me.columnCHANGED_WHO.MaxLength = 30
             Me.columnFINAL_PROFILE.AllowDBNull = false
             Me.columnFINAL_PROFILE.DefaultValue = CType(false,Boolean)
@@ -4616,6 +4644,7 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnTYPE.AllowDBNull = false
             Me.columnTYPE.DefaultValue = CType(1,Short)
             Me.columnWD_OBJECTTYPE.AllowDBNull = false
+            Me.columnWD_OBJECTTYPE.DefaultValue = CType("",String)
             Me.columnWD_OBJECTTYPE.MaxLength = 200
             Me.columnSORT_BY_LATEST.AllowDBNull = false
             Me.columnSORT_BY_LATEST.DefaultValue = CType(true,Boolean)
@@ -4626,7 +4655,7 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnLOG_INDEX.DefaultValue = CType("",String)
             Me.columnLOG_INDEX.MaxLength = 50
             Me.columnSQL_VIEW.AllowDBNull = false
-            Me.columnSQL_VIEW.DefaultValue = CType("",String)
+            Me.columnSQL_VIEW.DefaultValue = CType("select 'NONE'",String)
             Me.columnSQL_VIEW.MaxLength = 2147483647
             Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.AllowDBNull = false
             Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.DefaultValue = CType(false,Boolean)
@@ -10131,6 +10160,28 @@ Partial Public Class DD_DMSLiteDataSet
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property ALLOW_NEW_VALUES() As Boolean
+            Get
+                Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property PREVENT_DUPLICATES() As Boolean
+            Get
+                Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Function IsCHANGED_WHONull() As Boolean
@@ -11709,7 +11760,11 @@ Partial Public Class DD_DMSLiteDataSet
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Property ADDED_WHEN() As Date
             Get
-                Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date)
+                Try 
+                    Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e)
+                End Try
             End Get
             Set
                 Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value
@@ -11935,6 +11990,18 @@ Partial Public Class DD_DMSLiteDataSet
             Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull
         End Sub
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Function IsADDED_WHENNull() As Boolean
+            Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHENColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetADDED_WHENNull()
+            Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull
+        End Sub
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Function IsCHANGED_WHONull() As Boolean
@@ -16175,6 +16242,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
             tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION")
             tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
             tableMapping.ColumnMappings.Add("IF_VEKTOR_BEHAVIOUR", "IF_VEKTOR_BEHAVIOUR")
+            tableMapping.ColumnMappings.Add("ALLOW_NEW_VALUES", "ALLOW_NEW_VALUES")
+            tableMapping.ColumnMappings.Add("PREVENT_DUPLICATES", "PREVENT_DUPLICATES")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -16220,10 +16289,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ 
                 "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROFILE_FINAL_I"& _ 
                 "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ 
-                "_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM         "& _ 
+                "_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"           "& _ 
-                "   TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROFILE"& _ 
+                "              TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_I"& _ 
-                " ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (TBP"& _ 
+                "NDEXING.PREVENT_DUPLICATES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE_FINAL_INDEXING INNER JO"& _ 
-                "M_PROFILE.NAME = @name)"
+                "IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_"& _ 
+                "ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (TBPM_PROFILE.NAME = @name)"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).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, "", "", ""))
             Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
@@ -16279,10 +16349,12 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "G.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM"& _ 
                 "_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFI"& _ 
                 "LE_FINAL_INDEXING.SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROFILE_FINAL_IND"& _ 
-                "EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM      "& _ 
+                "EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR, TBPM_PROFI"& _ 
-                "      TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROF"& _ 
+                "LE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ 
-                "ILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        ("& _ 
+                "                        TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_I"& _ 
-                "TBPM_PROFILE.GUID = @ID)"
+                "NDEXING.PREVENT_DUPLICATES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE_FINAL_INDEXING INNER JO"& _ 
+                "IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_"& _ 
+                "ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (TBPM_PROFILE.GUID = @ID)"
             Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub
@@ -20040,7 +20112,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
                     ByVal Original_WD_SEARCH As String,  _
                     ByVal Original_NO_OF_DOCUMENTS As Integer,  _
                     ByVal Original_ADDED_WHO As String,  _
-                    ByVal Original_ADDED_WHEN As Date,  _
+                    ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date),  _
                     ByVal Original_CHANGED_WHO As String,  _
                     ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date),  _
                     ByVal Original_FINAL_PROFILE As Boolean,  _
@@ -20085,7 +20157,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Else
                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String)
             End If
-            Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date)
+            If (Original_ADDED_WHEN.HasValue = true) Then
+                Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date)
+            Else
+                Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
+            End If
             If (Original_CHANGED_WHO Is Nothing) Then
                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
                 Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb

@@ -1,6 +1,16 @@
 
 
 Partial Public Class DD_DMSLiteDataSet
+    Partial Public Class TBPM_PROFILEDataTable
+        Private Sub TBPM_PROFILEDataTable_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs) Handles Me.ColumnChanging
+            If (e.Column.ColumnName = Me.ACTIVEColumn.ColumnName) Then
+                'Benutzercode hier einfügen
+            End If
+
+        End Sub
+
+    End Class
+
     Partial Class TBPM_PROFILE_CONTROLSDataTable
 
         Private Sub TBPM_PROFILE_CONTROLSDataTable_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs) Handles Me.ColumnChanging

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd

@@ -20,18 +20,18 @@ WHERE        (GUID = @guid)</CommandText>
                   </DbCommand>
                 </DeleteCommand>
                 <InsertCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>INSERT INTO TBPM_PROFILE_FINAL_INDEXING
                          (PROFIL_ID, INDEXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)
 VALUES        (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@IF_VEKTOR_BEHAVIOUR)</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_COMMAND" ColumnName="SQL_COMMAND" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_COMMAND" ColumnName="SQL_COMMAND" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="IF_VEKTOR_BEHAVIOUR" ColumnName="IF_VEKTOR_BEHAVIOUR" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(25)" DbType="AnsiString" Direction="Input" ParameterName="@IF_VEKTOR_BEHAVIOUR" Precision="0" ProviderType="VarChar" Scale="0" Size="25" SourceColumn="IF_VEKTOR_BEHAVIOUR" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="IF_VEKTOR_BEHAVIOUR" ColumnName="IF_VEKTOR_BEHAVIOUR" DataSourceName="" DataTypeServer="varchar(25)" DbType="AnsiString" Direction="Input" ParameterName="@IF_VEKTOR_BEHAVIOUR" Precision="0" ProviderType="VarChar" Scale="0" Size="25" SourceColumn="IF_VEKTOR_BEHAVIOUR" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
@@ -39,7 +39,8 @@ VALUES        (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMA
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>SELECT        TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, 
                          TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, 
-                         TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR
+                         TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR, 
+                         TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATES
 FROM            TBPM_PROFILE_FINAL_INDEXING INNER JOIN
                          TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID
 WHERE        (TBPM_PROFILE.NAME = @name)</CommandText>
@@ -49,7 +50,7 @@ WHERE        (TBPM_PROFILE.NAME = @name)</CommandText>
                   </DbCommand>
                 </SelectCommand>
                 <UpdateCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>UPDATE       TBPM_PROFILE_FINAL_INDEXING</CommandText>
                     <Parameters />
                   </DbCommand>
@@ -69,6 +70,8 @@ WHERE        (TBPM_PROFILE.NAME = @name)</CommandText>
               <Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" />
               <Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
               <Mapping SourceColumn="IF_VEKTOR_BEHAVIOUR" DataSetColumn="IF_VEKTOR_BEHAVIOUR" />
+              <Mapping SourceColumn="ALLOW_NEW_VALUES" DataSetColumn="ALLOW_NEW_VALUES" />
+              <Mapping SourceColumn="PREVENT_DUPLICATES" DataSetColumn="PREVENT_DUPLICATES" />
             </Mappings>
             <Sources>
               <DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorGetMethodName="GetDataBy3" GeneratorSourceName="CmdDelete" Modifier="Public" Name="CmdDelete" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="CmdDelete">
@@ -186,7 +189,8 @@ WHERE        (GUID = @GUID)</CommandText>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>SELECT        TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, 
                          TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, 
-                         TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR
+                         TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, 
+                         TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATES
 FROM            TBPM_PROFILE_FINAL_INDEXING INNER JOIN
                          TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID
 WHERE        (TBPM_PROFILE.GUID = @ID)</CommandText>
@@ -940,7 +944,7 @@ WHERE        (GUID = @GUID)</CommandText>
                       <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
                       <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
@@ -2055,7 +2059,7 @@ ORDER BY Netto DESC</CommandText>
   <xs:element name="DD_DMSLiteDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DD_DMSLiteDataSet" msprop:Generator_UserDSName="DD_DMSLiteDataSet">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent">
+        <xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
@@ -2105,17 +2109,19 @@ ORDER BY Netto DESC</CommandText>
                 </xs:simpleType>
               </xs:element>
               <xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="true" />
-              <xs:element name="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnVarNameInTable="columnIF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInRow="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInTable="IF_VEKTOR_BEHAVIOURColumn" msprop:Generator_UserColumnName="IF_VEKTOR_BEHAVIOUR" default="">
+              <xs:element name="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnVarNameInTable="columnIF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInRow="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInTable="IF_VEKTOR_BEHAVIOURColumn" msprop:Generator_UserColumnName="IF_VEKTOR_BEHAVIOUR" default="Add">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="25" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
+              <xs:element name="ALLOW_NEW_VALUES" msprop:Generator_ColumnVarNameInTable="columnALLOW_NEW_VALUES" msprop:Generator_ColumnPropNameInRow="ALLOW_NEW_VALUES" msprop:Generator_ColumnPropNameInTable="ALLOW_NEW_VALUESColumn" msprop:Generator_UserColumnName="ALLOW_NEW_VALUES" type="xs:boolean" />
+              <xs:element name="PREVENT_DUPLICATES" msprop:Generator_ColumnVarNameInTable="columnPREVENT_DUPLICATES" msprop:Generator_ColumnPropNameInRow="PREVENT_DUPLICATES" msprop:Generator_ColumnPropNameInTable="PREVENT_DUPLICATESColumn" msprop:Generator_UserColumnName="PREVENT_DUPLICATES" type="xs:boolean" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent">
+        <xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@@ -2211,7 +2217,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_RowClassName="TBDD_USERRow" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent">
+        <xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent" msprop:Generator_RowClassName="TBDD_USERRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2276,7 +2282,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_RowClassName="TBPM_TYPERow" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent">
+        <xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent" msprop:Generator_RowClassName="TBPM_TYPERow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2306,7 +2312,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent">
+        <xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2329,7 +2335,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
+        <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2403,7 +2409,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_RowClassName="TBPROFILE_USERRow" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent">
+        <xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent" msprop:Generator_RowClassName="TBPROFILE_USERRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2452,7 +2458,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent">
+        <xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2467,7 +2473,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_RowClassName="TBPM_PROFILERow" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent">
+        <xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILERow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2494,7 +2500,7 @@ ORDER BY Netto DESC</CommandText>
                 </xs:simpleType>
               </xs:element>
               <xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
-              <xs:element name="WD_SEARCH" msprop:Generator_ColumnVarNameInTable="columnWD_SEARCH" msprop:Generator_ColumnPropNameInRow="WD_SEARCH" msprop:Generator_ColumnPropNameInTable="WD_SEARCHColumn" msprop:Generator_UserColumnName="WD_SEARCH">
+              <xs:element name="WD_SEARCH" msprop:Generator_ColumnVarNameInTable="columnWD_SEARCH" msprop:Generator_ColumnPropNameInRow="WD_SEARCH" msprop:Generator_ColumnPropNameInTable="WD_SEARCHColumn" msprop:Generator_UserColumnName="WD_SEARCH" default="">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="500" />
@@ -2509,7 +2515,7 @@ ORDER BY Netto DESC</CommandText>
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
+              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
               <xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
@@ -2534,7 +2540,7 @@ ORDER BY Netto DESC</CommandText>
                 </xs:simpleType>
               </xs:element>
               <xs:element name="TYPE" msprop:Generator_ColumnVarNameInTable="columnTYPE" msprop:Generator_ColumnPropNameInRow="TYPE" msprop:Generator_ColumnPropNameInTable="TYPEColumn" msprop:Generator_UserColumnName="TYPE" type="xs:short" default="1" />
-              <xs:element name="WD_OBJECTTYPE" msprop:Generator_ColumnVarNameInTable="columnWD_OBJECTTYPE" msprop:Generator_ColumnPropNameInRow="WD_OBJECTTYPE" msprop:Generator_ColumnPropNameInTable="WD_OBJECTTYPEColumn" msprop:Generator_UserColumnName="WD_OBJECTTYPE">
+              <xs:element name="WD_OBJECTTYPE" msprop:Generator_ColumnVarNameInTable="columnWD_OBJECTTYPE" msprop:Generator_ColumnPropNameInRow="WD_OBJECTTYPE" msprop:Generator_ColumnPropNameInTable="WD_OBJECTTYPEColumn" msprop:Generator_UserColumnName="WD_OBJECTTYPE" default="">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="200" />
@@ -2556,7 +2562,7 @@ ORDER BY Netto DESC</CommandText>
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="SQL_VIEW" msprop:Generator_ColumnVarNameInTable="columnSQL_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_VIEWColumn" msprop:Generator_UserColumnName="SQL_VIEW" default="">
+              <xs:element name="SQL_VIEW" msprop:Generator_ColumnVarNameInTable="columnSQL_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_VIEWColumn" msprop:Generator_UserColumnName="SQL_VIEW" default="select 'NONE'">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="2147483647" />
@@ -2589,7 +2595,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBWH_CONNECTIONRow">
+        <xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBWH_CONNECTIONRow" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2662,7 +2668,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow">
+        <xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2713,7 +2719,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow">
+        <xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2860,7 +2866,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow">
+        <xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2938,7 +2944,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_GROUPS" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_RowClassName="TBDD_GROUPSRow" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent">
+        <xs:element name="TBDD_GROUPS" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_GROUPSRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2979,7 +2985,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPROFILE_GROUP" msprop:Generator_TableClassName="TBPROFILE_GROUPDataTable" msprop:Generator_TableVarName="tableTBPROFILE_GROUP" msprop:Generator_TablePropName="TBPROFILE_GROUP" msprop:Generator_RowDeletingName="TBPROFILE_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_GROUPRowDeleted" msprop:Generator_UserTableName="TBPROFILE_GROUP" msprop:Generator_RowChangedName="TBPROFILE_GROUPRowChanged" msprop:Generator_RowEvArgName="TBPROFILE_GROUPRowChangeEvent" msprop:Generator_RowClassName="TBPROFILE_GROUPRow">
+        <xs:element name="TBPROFILE_GROUP" msprop:Generator_TableClassName="TBPROFILE_GROUPDataTable" msprop:Generator_TableVarName="tableTBPROFILE_GROUP" msprop:Generator_RowChangedName="TBPROFILE_GROUPRowChanged" msprop:Generator_TablePropName="TBPROFILE_GROUP" msprop:Generator_RowDeletingName="TBPROFILE_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_GROUPRowDeleted" msprop:Generator_RowClassName="TBPROFILE_GROUPRow" msprop:Generator_UserTableName="TBPROFILE_GROUP" msprop:Generator_RowEvArgName="TBPROFILE_GROUPRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -3017,7 +3023,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_TableClassName="FNPM_GET_FREE_USER_FOR_PROFILEDataTable" msprop:Generator_TableVarName="tableFNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_TablePropName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowDeletingName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleting" msprop:Generator_RowChangingName="FNPM_GET_FREE_USER_FOR_PROFILERowChanging" msprop:Generator_RowEvHandlerName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleted" msprop:Generator_UserTableName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowChangedName="FNPM_GET_FREE_USER_FOR_PROFILERowChanged" msprop:Generator_RowEvArgName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent" msprop:Generator_RowClassName="FNPM_GET_FREE_USER_FOR_PROFILERow">
+        <xs:element name="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_TableClassName="FNPM_GET_FREE_USER_FOR_PROFILEDataTable" msprop:Generator_TableVarName="tableFNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowChangedName="FNPM_GET_FREE_USER_FOR_PROFILERowChanged" msprop:Generator_TablePropName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowDeletingName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleting" msprop:Generator_RowChangingName="FNPM_GET_FREE_USER_FOR_PROFILERowChanging" msprop:Generator_RowEvHandlerName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleted" msprop:Generator_RowClassName="FNPM_GET_FREE_USER_FOR_PROFILERow" msprop:Generator_UserTableName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowEvArgName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SequentialOrder" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnSequentialOrder" msprop:Generator_ColumnPropNameInRow="SequentialOrder" msprop:Generator_ColumnPropNameInTable="SequentialOrderColumn" msprop:Generator_UserColumnName="SequentialOrder" type="xs:int" />
@@ -3074,7 +3080,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_EMAIL_TEMPLATE" msprop:Generator_TableClassName="TBDD_EMAIL_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_TEMPLATE" msprop:Generator_RowChangedName="TBDD_EMAIL_TEMPLATERowChanged" msprop:Generator_TablePropName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowDeletingName="TBDD_EMAIL_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_TEMPLATERowDeleted" msprop:Generator_RowClassName="TBDD_EMAIL_TEMPLATERow" msprop:Generator_UserTableName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowEvArgName="TBDD_EMAIL_TEMPLATERowChangeEvent">
+        <xs:element name="TBDD_EMAIL_TEMPLATE" msprop:Generator_TableClassName="TBDD_EMAIL_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_TEMPLATE" msprop:Generator_TablePropName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowDeletingName="TBDD_EMAIL_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_TEMPLATERowDeleted" msprop:Generator_UserTableName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowChangedName="TBDD_EMAIL_TEMPLATERowChanged" msprop:Generator_RowEvArgName="TBDD_EMAIL_TEMPLATERowChangeEvent" msprop:Generator_RowClassName="TBDD_EMAIL_TEMPLATERow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -3132,7 +3138,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_TableClassName="TBDD_GUI_LANGUAGE_PHRASEDataTable" msprop:Generator_TableVarName="tableTBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_TablePropName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowDeletingName="TBDD_GUI_LANGUAGE_PHRASERowDeleting" msprop:Generator_RowChangingName="TBDD_GUI_LANGUAGE_PHRASERowChanging" msprop:Generator_RowEvHandlerName="TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GUI_LANGUAGE_PHRASERowDeleted" msprop:Generator_UserTableName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowChangedName="TBDD_GUI_LANGUAGE_PHRASERowChanged" msprop:Generator_RowEvArgName="TBDD_GUI_LANGUAGE_PHRASERowChangeEvent" msprop:Generator_RowClassName="TBDD_GUI_LANGUAGE_PHRASERow">
+        <xs:element name="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_TableClassName="TBDD_GUI_LANGUAGE_PHRASEDataTable" msprop:Generator_TableVarName="tableTBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowChangedName="TBDD_GUI_LANGUAGE_PHRASERowChanged" msprop:Generator_TablePropName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowDeletingName="TBDD_GUI_LANGUAGE_PHRASERowDeleting" msprop:Generator_RowChangingName="TBDD_GUI_LANGUAGE_PHRASERowChanging" msprop:Generator_RowEvHandlerName="TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GUI_LANGUAGE_PHRASERowDeleted" msprop:Generator_RowClassName="TBDD_GUI_LANGUAGE_PHRASERow" msprop:Generator_UserTableName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowEvArgName="TBDD_GUI_LANGUAGE_PHRASERowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -3233,7 +3239,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITORDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITORRowChanged" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITORRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITORRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITORRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITORRowDeleted" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITORRow" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITORRowChangeEvent">
+        <xs:element name="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITORDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITORRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITORRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITORRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITORRowDeleted" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITORRowChanged" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITORRowChangeEvent" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITORRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Anzahl_AI" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnAnzahl_AI" msprop:Generator_ColumnPropNameInRow="Anzahl_AI" msprop:Generator_ColumnPropNameInTable="Anzahl_AIColumn" msprop:Generator_UserColumnName="Anzahl_AI" type="xs:int" minOccurs="0" />
@@ -3286,7 +3292,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITOR_SERIESRow">
+        <xs:element name="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITOR_SERIESRow" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Title" msprop:Generator_ColumnVarNameInTable="columnTitle" msprop:Generator_ColumnPropNameInRow="Title" msprop:Generator_ColumnPropNameInTable="TitleColumn" msprop:Generator_UserColumnName="Title">
@@ -3302,7 +3308,7 @@ ORDER BY Netto DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWPM_CHART_TOP5" msprop:Generator_TableClassName="VWPM_CHART_TOP5DataTable" msprop:Generator_TableVarName="tableVWPM_CHART_TOP5" msprop:Generator_TablePropName="VWPM_CHART_TOP5" msprop:Generator_RowDeletingName="VWPM_CHART_TOP5RowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_TOP5RowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_TOP5RowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_TOP5RowDeleted" msprop:Generator_UserTableName="VWPM_CHART_TOP5" msprop:Generator_RowChangedName="VWPM_CHART_TOP5RowChanged" msprop:Generator_RowEvArgName="VWPM_CHART_TOP5RowChangeEvent" msprop:Generator_RowClassName="VWPM_CHART_TOP5Row">
+        <xs:element name="VWPM_CHART_TOP5" msprop:Generator_TableClassName="VWPM_CHART_TOP5DataTable" msprop:Generator_TableVarName="tableVWPM_CHART_TOP5" msprop:Generator_RowChangedName="VWPM_CHART_TOP5RowChanged" msprop:Generator_TablePropName="VWPM_CHART_TOP5" msprop:Generator_RowDeletingName="VWPM_CHART_TOP5RowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_TOP5RowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_TOP5RowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_TOP5RowDeleted" msprop:Generator_RowClassName="VWPM_CHART_TOP5Row" msprop:Generator_UserTableName="VWPM_CHART_TOP5" msprop:Generator_RowEvArgName="VWPM_CHART_TOP5RowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="KRED_NAME" msprop:Generator_ColumnVarNameInTable="columnKRED_NAME" msprop:Generator_ColumnPropNameInRow="KRED_NAME" msprop:Generator_ColumnPropNameInTable="KRED_NAMEColumn" msprop:Generator_UserColumnName="KRED_NAME">
@@ -3399,11 +3405,11 @@ ORDER BY Netto DESC</CommandText>
   </xs:element>
   <xs:annotation>
     <xs:appinfo>
-      <msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
+      <msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
-      <msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" msprop:Generator_ParentPropName="TBPM_TYPERow" />
+      <msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_ParentPropName="TBPM_TYPERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" />
-      <msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
+      <msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
-      <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_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" />
+      <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_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" 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_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" 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_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" />
     </xs:appinfo>
   </xs:annotation>
 </xs:schema>

app/DD_PM_WINDREAM/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:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="523" ViewPortY="229" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="-86" 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="12" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
     <Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="26" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
@@ -16,7 +16,7 @@
     <Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="11" X="1391" Y="-70" Height="229" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
     <Shape ID="DesignTable:TBPM_PROFILE" ZOrder="3" X="303" Y="315" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="22" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
-    <Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="8" X="948" Y="398" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="8" X="949" Y="399" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="7" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBDD_GROUPS" ZOrder="15" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
     <Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="9" X="1054" Y="47" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
@@ -61,23 +61,23 @@
       <RoutePoints>
         <Point>
           <X>603</X>
-          <Y>498</Y>
+          <Y>499</Y>
         </Point>
         <Point>
-          <X>948</X>
+          <X>949</X>
-          <Y>498</Y>
+          <Y>499</Y>
         </Point>
       </RoutePoints>
     </Connector>
     <Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="20" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>1248</X>
+          <X>1249</X>
-          <Y>540</Y>
+          <Y>541</Y>
         </Point>
         <Point>
           <X>1300</X>
-          <Y>540</Y>
+          <Y>541</Y>
         </Point>
       </RoutePoints>
     </Connector>

app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -245,6 +245,7 @@
     <Compile Include="ClassAnnotation.vb" />
     <Compile Include="ClassConfig.vb" />
     <Compile Include="ClassControlCreator.vb" />
+    <Compile Include="ClassDataASorDB.vb" />
     <Compile Include="ClassDragDrop.vb" />
     <Compile Include="ClassFinalIndex.vb" />
     <Compile Include="ClassFinalizeDoc.vb" />

app/DD_PM_WINDREAM/ModuleMySettings.vb

@@ -17,7 +17,7 @@
     Public IDB_DT_DOC_DATA As DataTable
     Public TEST_MODE As String = False
     Public NO_DETAIL_PROFILES As Boolean = False
-
+    Public DT_CONNECTIONS As DataTable
     ' Debug Settings
     Public LOG_ERRORS_ONLY As Boolean = True
 

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -43,11 +43,11 @@ Module ModuleRuntimeVariables
     Public CHANGES_FORM_DESIGN As Boolean = False
 
     Public USER_IS_ADMIN As Boolean = False
-    Public USER_ID
+    Public USER_ID = 0
-    Public USER_PRENAME
+    Public USER_PRENAME = ""
-    Public USER_SURNAME
+    Public USER_SURNAME = ""
-    Public USER_SHORTNAME
+    Public USER_SHORTNAME = ""
-    Public USER_EMAIL
+    Public USER_EMAIL = ""
     Public USER_LANGUAGE As String = "de-DE"
     Public USER_DATE_FORMAT As String
     Public USER_EXISTS = False

app/DD_PM_WINDREAM/clsPatterns.vb

@@ -65,7 +65,7 @@ Public Class clsPatterns
                 result = ReplaceIDBAttributes(result, is_SQL)
             End If
             If Not IsNothing(result) Then
-                result = ReplaceUserValues(result, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
+                result = ReplaceUserValues(result)
                 LOGGER.Debug($"input AFTER replacing: [{result}]")
             End If
 
@@ -107,41 +107,39 @@ Public Class clsPatterns
         End Try
     End Function
 
-    Public Shared Function ReplaceUserValues(input As String, prename As Object, surname As Object, shortname As Object, language As String, email As Object, userId As Object, profileId As Object, profileTITLE As Object) As String
+    Public Shared Function ReplaceUserValues(input As String) As String
         Try
             Dim result = input
 
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
-                result = ReplacePattern(result, PATTERN_USER, prename)
+                result = ReplacePattern(result, PATTERN_USER, USER_PRENAME)
             End While
 
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
-                result = ReplacePattern(result, PATTERN_USER, userId)
+                result = ReplacePattern(result, PATTERN_USER, USER_ID)
             End While
 
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
-                result = ReplacePattern(result, PATTERN_USER, surname)
+                result = ReplacePattern(result, PATTERN_USER, USER_SURNAME)
             End While
-            If IsDBNull(shortname) Then
+
-                shortname = ""
-            End If
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
-                result = ReplacePattern(result, PATTERN_USER, shortname)
+                result = ReplacePattern(result, PATTERN_USER, USER_SHORTNAME)
             End While
 
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE)
-                result = ReplacePattern(result, PATTERN_USER, language)
+                result = ReplacePattern(result, PATTERN_USER, USER_LANGUAGE)
             End While
 
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
-                result = ReplacePattern(result, PATTERN_USER, email)
+                result = ReplacePattern(result, PATTERN_USER, USER_EMAIL)
             End While
 
             While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_ID)
-                result = ReplacePattern(result, PATTERN_USER, profileId)
+                result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_ID)
             End While
             While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_TITLE)
-                result = ReplacePattern(result, PATTERN_USER, profileTITLE)
+                result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_TITLE)
             End While
             LOGGER.Debug("pInput AFTER ReplaceUserValues: " & input)
             Return result

app/DD_PM_WINDREAM/frmAdministration.Designer.vb

@@ -109,7 +109,7 @@ Partial Class frmAdministration
         Me.DISPLAY_MODEComboBox = New System.Windows.Forms.ComboBox()
         Me.cmbLOGIndex = New System.Windows.Forms.ComboBox()
         Me.PM_VEKTOR_INDEXComboBox = New System.Windows.Forms.ComboBox()
-        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.TabPageAfterIndex = New System.Windows.Forms.TabPage()
         Me.TabControl2 = New System.Windows.Forms.TabControl()
         Me.TabPage11 = New System.Windows.Forms.TabPage()
         Me.Panel5 = New System.Windows.Forms.Panel()
@@ -288,7 +288,7 @@ Partial Class frmAdministration
         Me.TabPage1.SuspendLayout()
         Me.tabctrl_Profilkonfig.SuspendLayout()
         Me.TabPage5.SuspendLayout()
-        Me.TabPage6.SuspendLayout()
+        Me.TabPageAfterIndex.SuspendLayout()
         Me.TabControl2.SuspendLayout()
         Me.TabPage11.SuspendLayout()
         Me.Panel5.SuspendLayout()
@@ -857,7 +857,7 @@ Partial Class frmAdministration
         '
         resources.ApplyResources(Me.tabctrl_Profilkonfig, "tabctrl_Profilkonfig")
         Me.tabctrl_Profilkonfig.Controls.Add(Me.TabPage5)
-        Me.tabctrl_Profilkonfig.Controls.Add(Me.TabPage6)
+        Me.tabctrl_Profilkonfig.Controls.Add(Me.TabPageAfterIndex)
         Me.tabctrl_Profilkonfig.Name = "tabctrl_Profilkonfig"
         Me.tabctrl_Profilkonfig.SelectedIndex = 0
         '
@@ -935,12 +935,13 @@ Partial Class frmAdministration
         Me.PM_VEKTOR_INDEXComboBox.FormattingEnabled = True
         Me.PM_VEKTOR_INDEXComboBox.Name = "PM_VEKTOR_INDEXComboBox"
         '
-        'TabPage6
+        'TabPageAfterIndex
         '
-        resources.ApplyResources(Me.TabPage6, "TabPage6")
+        resources.ApplyResources(Me.TabPageAfterIndex, "TabPageAfterIndex")
-        Me.TabPage6.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.TabPageAfterIndex.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.TabPage6.Controls.Add(Me.TabControl2)
+        Me.TabPageAfterIndex.Controls.Add(Me.TabControl2)
-        Me.TabPage6.Name = "TabPage6"
+        Me.TabPageAfterIndex.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.TabPageAfterIndex.Name = "TabPageAfterIndex"
         '
         'TabControl2
         '
@@ -1062,6 +1063,7 @@ Partial Class frmAdministration
         'Label6
         '
         resources.ApplyResources(Me.Label6, "Label6")
+        Me.Label6.ForeColor = System.Drawing.Color.Black
         Me.Label6.Name = "Label6"
         '
         'TabPage12
@@ -1912,7 +1914,7 @@ Partial Class frmAdministration
         Me.tabctrl_Profilkonfig.ResumeLayout(False)
         Me.TabPage5.ResumeLayout(False)
         Me.TabPage5.PerformLayout()
-        Me.TabPage6.ResumeLayout(False)
+        Me.TabPageAfterIndex.ResumeLayout(False)
         Me.TabControl2.ResumeLayout(False)
         Me.TabPage11.ResumeLayout(False)
         Me.TabPage11.PerformLayout()
@@ -1993,7 +1995,7 @@ Partial Class frmAdministration
     Friend WithEvents SORT_BY_LATESTCheckBox As System.Windows.Forms.CheckBox
     Friend WithEvents tabctrl_Profilkonfig As System.Windows.Forms.TabControl
     Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
-    Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
+    Friend WithEvents TabPageAfterIndex As System.Windows.Forms.TabPage
     Friend WithEvents Label6 As System.Windows.Forms.Label
     Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -77,12 +77,12 @@ Public Class frmAdministration
             cmbLOGIndex.Enabled = True
             Label9.Enabled = True
             If IDB_ACTIVE = False Then
-                PM_VEKTOR_INDEXComboBox.Enabled = True
-                Label4.Enabled = True
                 If cmbObjekttypen.Text = "DEFAULT" And IDB_ACTIVE = False Then
                     MsgBox("The Objecttype is invalid!", MsgBoxStyle.Exclamation)
                     Exit Sub
                 End If
+                PM_VEKTOR_INDEXComboBox.Enabled = True
+                Label4.Enabled = True
                 Try
                     MyIndicies_Types = New List(Of Integer)
                     MyIndicies = New List(Of String)
@@ -268,17 +268,19 @@ Public Class frmAdministration
     End Sub
     Sub FillProfile_Zuordnung(profileId As Integer)
         Try
-            If Not IsNothing(profileId) Then
+            If IsNothing(profileId) Or IsDBNull(profileId) Then
-                TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId)
+                MsgBox("Something went wrong in choosing a profile. Please select a profile!")
-                TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
+                TabControl1.SelectedIndex = 0
-                Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId)
+                Exit Sub
-
-                TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
-
             End If
+            TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId)
+            TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
+            Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId)
+            TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
+
         Catch ex As Exception
+            'Profilzuordnung'
             LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profilzuordnung:")
         End Try
     End Sub
 
@@ -897,6 +899,7 @@ Public Class frmAdministration
                     Save_FI()
                 End If
                 e.Cancel = True
+
             End If
         End If
         CancelFinalIndexInsert()
@@ -1111,6 +1114,7 @@ Public Class frmAdministration
                 tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
                 CHANGES_FORM_DESIGN = True
                 UNSAVED_CHANGES_PROFILE = False
+                DD_DMSLiteDataSet.AcceptChanges()
             Else
                 tsbStaticInfo.Caption = ""
             End If
@@ -1248,8 +1252,8 @@ Public Class frmAdministration
                 End If
 
                 If INSERT_ACTIVE = True Then
-                    Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR)
+                    Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION)
-                                     VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}')"
+                                     VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}')"
 
                     If ClassDatabase.Execute_non_Query(sql, True) Then
                         tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
@@ -1326,7 +1330,6 @@ Public Class frmAdministration
                         tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}"
                         CHANGES_FORM_DESIGN = True
                     End If
-
                 End If
             End If
         Catch ex As Exception
@@ -1400,6 +1403,8 @@ Public Class frmAdministration
                 End If
             Else
                 UNSAVED_CHANGES_PROFILE = False
+                UNSAVED_CHANGES_FI = False
+                DD_DMSLiteDataSet.AcceptChanges()
             End If
         End If
     End Sub
@@ -1410,6 +1415,8 @@ Public Class frmAdministration
         TBPM_PROFILEBindingSource.EndEdit()
         If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then
             UNSAVED_CHANGES_PROFILE = True
+        Else
+            DD_DMSLiteDataSet.AcceptChanges()
         End If
     End Sub
 
@@ -1641,4 +1648,8 @@ Public Class frmAdministration
             Load_Chart_Konfig()
         End If
     End Sub
+
+    Private Sub GridViewProfile_Click(sender As Object, e As EventArgs) Handles GridViewProfile.Click
+
+    End Sub
 End Class

app/DD_PM_WINDREAM/frmInvDashboard.vb

@@ -107,7 +107,7 @@ Public Class frmInvDashboard
                     Dim oSqlchart = cRow.Item("SQL_COMMAND")
 
                     oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart)
-                    oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
+                    oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart)
 
                     oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID)
                     oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)

app/DD_PM_WINDREAM/frmMain.resx

@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAUgBBwFIAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAVABBwFQAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -334,10 +334,10 @@
     <value>6, 25</value>
   </data>
   <data name="tslblObjectCount.Size" type="System.Drawing.Size, System.Drawing">
-    <value>87, 22</value>
+    <value>16, 22</value>
   </data>
   <data name="tslblObjectCount.Text" xml:space="preserve">
-    <value>ToolStripLabel1</value>
+    <value>...</value>
   </data>
   <data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
     <value>233, 0</value>

app/DD_PM_WINDREAM/frmMain.vb

@@ -43,7 +43,7 @@ Public Class frmMain
     Private allgFunk As New ClassAllgemeineFunktionen
     Private _Init As New ClassInit
     Private CurrNavBarGroup As NavBarGroup
-
+    Private DataASorDB As ClassDataASorDB
 
     Private DT_CHECKUSER_MODULE As DataTable
     Private IsFilterMode As Boolean
@@ -167,6 +167,7 @@ Public Class frmMain
         End Try
 
         Try
+            DataASorDB = New ClassDataASorDB
             bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT
             LOGGER.Debug("Initializing MainForm....")
 
@@ -334,27 +335,18 @@ Public Class frmMain
             SOURCE_INIT = Init_IDB()
             If SOURCE_INIT = True Then
                 Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'"
-                If EDMIAppServerActive = True Then
+                Dim DTIDB_DOC_DATA_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBDD_SQL_COMMANDS", "TITLE = 'PM_IDB_DOC_DATA'")
-                    Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_SQL_COMMANDS", $"TITLE = 'PM_IDB_DOC_DATA'")
+                IDB_DOC_DATA_SQL = DTIDB_DOC_DATA_SQL.Rows(0).Item("SQL_COMMAND")
-                    Dim oDT = oTableResult.Table
-                    If Not IsNothing(oDT) Then
-                        IDB_DOC_DATA_SQL = oDT.Rows(0).Item("SQL_COMMAND")
-                    End If
-
-                Else
-                    IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, "frmMainload-PM_IDPDOCDATA")
-                End If
-
                 LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
             End If
             bsiGeneralInfo.Caption = "IDB active"
-            If EDMIAppServerActive = True Then
-                BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-            Else
-                BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-            End If
-        End If
 
+        End If
+        If EDMIAppServerActive = True Then
+            BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        Else
+            BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        End If
         If BASIC_CONF_VISIBLE = False Then
             RibbonPageGroupBasicConf.Visible = False
         Else
@@ -552,21 +544,23 @@ Public Class frmMain
                     Try
                         GridView_Docs.Columns.Item("CONV_YN").Visible = False
                     Catch ex As Exception
-                        LOGGER.Warn("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
+                        LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
                     End Try
                     Try
                         GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
                         GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
                         GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
                     Catch ex As Exception
-                        LOGGER.Warn("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs")
+                        LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs")
                     End Try
                 End If
 
 
                 Try
-                    GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
+                    Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
-                    GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                    oReducedColName = oReducedColName.Replace("]", "")
+                    GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
+                    GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                 Catch ex As Exception
                     Try
                         GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
@@ -623,7 +617,9 @@ Public Class frmMain
                 NavBarControl1.Visible = True
                 Dim oCountItems As Integer = 0
                 For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-                    If CInt(oProfileRow.Item("FILE_COUNT")) > 0 And (oProfileRow.Item("DISPLAY_MODE") = "Overview and Detail" Or oProfileRow.Item("DISPLAY_MODE") = "Detail") Then
+                    Dim oFileCount = CInt(oProfileRow.Item("FILE_COUNT"))
+                    Dim ODisplayMode = oProfileRow.Item("DISPLAY_MODE")
+                    If oFileCount > 0 And (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then
 
                         oCountItems += 1
                         Dim item1 As NavBarItem = NavBarControl1.Items.Add()
@@ -745,7 +741,7 @@ Public Class frmMain
                 Dim oSQL = foundRows(0)("SQL_VIEW")
 
                 oSQL = clsPatterns.ReplaceInternalValues(oSQL)
-                oSQL = clsPatterns.ReplaceUserValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
+                oSQL = clsPatterns.ReplaceUserValues(oSQL)
 
                 oSQL = oSQL.Replace("@USER_ID", USER_ID)
                 oSQL = oSQL.Replace("@USERNAME", USER_USERNAME)
@@ -897,7 +893,7 @@ Public Class frmMain
             Try
                 GridView_Docs.Columns.Item("CONV_YN").Visible = False
             Catch ex As Exception
-                LOGGER.Warn("Create_Basic_View - Check wether Column CONV_YN is part of select/view")
+                LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view")
             End Try
             If IDB_ACTIVE = True Then
                 Try
@@ -905,7 +901,7 @@ Public Class frmMain
                     GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
                     GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
                 Catch ex As Exception
-                    LOGGER.Warn("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout")
+                    LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout")
                     ResetLayout()
                     Exit Sub
                 End Try
@@ -914,8 +910,10 @@ Public Class frmMain
 
             ' GridView_Docs.OptionsView.ShowIndicator = False
             Try
-                GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
+                Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
-                GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                oReducedColName = oReducedColName.Replace("]", "")
+                GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
+                GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
             Catch ex As Exception
                 Try
                     GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
@@ -1547,14 +1545,9 @@ Public Class frmMain
 
 
             If SOURCE_INIT = True Then
-
+                Dim oSQL = $"select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = CURRENT_ProfilGUID"
                 CURRENT_ProfilGUID = oProfileId
-                If EDMIAppServerActive = True Then
+                CURRENT_DT_FINAL_INDEXING = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}")
-                    Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}")
-                    CURRENT_DT_FINAL_INDEXING = oTableResult.Table
-                Else
-                    CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID), "tsmiMarkedFilesFinish_Click")
-                End If
                 CURRENT_DT_PROFILE.Clear()
                 Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
                 CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
@@ -1662,7 +1655,7 @@ Public Class frmMain
             End If
 
             oSQLOverview = clsPatterns.ReplaceInternalValues(oSQLOverview)
-            oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
+            oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview)
 
             oSQLOverview = oSQLOverview.Replace("@USER_ID", USER_ID)
             oSQLOverview = oSQLOverview.Replace("@USERNAME", USER_USERNAME)
@@ -1681,7 +1674,7 @@ Public Class frmMain
                 If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then
 
                     If ForceReload = False Then
-                        LOGGER.Info("No changes on OverviewHash - so exit Load_Grid_overview")
+                        LOGGER.Debug("No changes on OverviewHash - so exit Load_Grid_overview")
                         Exit Function
                     End If
 
@@ -1868,7 +1861,7 @@ Public Class frmMain
                     Try
                         GridView_Docs.Columns.Item("CONV_YN").Visible = False
                     Catch ex As Exception
-                        LOGGER.Warn("LoadGridOverview - Check wether Column CONV_YN is part of select/view")
+                        LOGGER.Info("LoadGridOverview - Check wether Column CONV_YN is part of select/view")
                     End Try
                     If IDB_ACTIVE = True Then
                         Try
@@ -1876,7 +1869,7 @@ Public Class frmMain
                             GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
                             GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
                         Catch ex As Exception
-                            LOGGER.Warn("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs")
+                            LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs")
                         End Try
                     End If
 
@@ -1884,8 +1877,10 @@ Public Class frmMain
                     'GridView_Docs.OptionsView.ShowIndicator = False
                     LOGGER.Debug(" GridView_Docs.Columns loaded...")
                     Try
-                        GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
+                        Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
-                        GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                        oReducedColName = oReducedColName.Replace("]", "")
+                        GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
+                        GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                     Catch ex As Exception
                         Try
                             GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
@@ -1940,20 +1935,20 @@ Public Class frmMain
 
     Private Async Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
         Await Reset_GridLayout(False)
-
+        Await Decide_Load(False, True)
+        If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
     End Sub
     Async Function Reset_GridLayout(FormLoad As Boolean) As Tasks.Task
         If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo()
         InResetlayout = True
         ' Layout zurücksetzen
         ResetLayout()
-        SaveGridLayout()
+        'SaveGridLayout()
 
         ' Ansicht neu laden
         LoadNavBar()
         Await Decide_Load(FormLoad)
         InResetlayout = False
-        RefreshHelper.LoadViewInfo()
     End Function
 
     Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
@@ -2070,36 +2065,20 @@ Public Class frmMain
         If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo()
     End Sub
     Sub LoadCURRENT_DT_PROFILES()
-        If EDMIAppServerActive = True Then
+        Dim oSQL = "select * from TBPM_PROFILE where ACTIVE = 1"
-            Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE")
+        CURRENT_DT_PROFILES = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE", "")
-            CURRENT_DT_PROFILES = oTableResult.Table
-        Else
-            CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1", "LoadCURRENT_DT_PROFILES")
-        End If
 
     End Sub
     Sub LoadVWPM_CONTROL_INDEX()
         Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
-        If EDMIAppServerActive = True Then
+        DTVWCONTROLS_INDEX = DataASorDB.GetDatatable("DD_ECM", oSQL, "VWPM_CONTROL_INDEX", "")
-            Dim oTableResult As TableResult = _Client.GetDatatableByName("VWPM_CONTROL_INDEX")
-            DTVWCONTROLS_INDEX = oTableResult.Table
-        Else
-            DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL, "LoadVWPM_CONTROL_INDEX")
-        End If
-
     End Sub
     Sub GetBaseData(pMode As String)
         Dim oStopWatch As New RefreshHelper.SW("GetBaseData")
         Try
             Dim oSQL = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
             Dim DT_CHECKUSER_MODULE As DataTable
-            If EDMIAppServerActive = True Then
+            DT_CHECKUSER_MODULE = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'")
-                DT_CHECKUSER_MODULE = oTableResult.Table
-            Else
-                DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(oSQL, "GetBaseData1")
-            End If
-
 
 
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(10)
@@ -2114,24 +2093,14 @@ Public Class frmMain
                 CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone()
             End If
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(40)
-
+            oSQL = "select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX"
-            If EDMIAppServerActive = True Then
+            BASEDATA_DT_PROFILES_SEARCHES_DOC = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
-                BASEDATA_DT_PROFILES_SEARCHES_DOC = oTableResult.Table
-            Else
-                BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
-            End If
-
             If pMode = "Load" Then
                 BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
             End If
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(50)
-            If EDMIAppServerActive = True Then
+            oSQL = "select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX"
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_SEARCH", "TYPE = 'SQL'", "PROFILE_ID,TAB_INDEX")
+            BASEDATA_DT_PROFILES_SEARCHES_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_SEARCH", "TYPE = 'SQL'", "PROFILE_ID,TAB_INDEX")
-                BASEDATA_DT_PROFILES_SEARCHES_SQL = oTableResult.Table
-            Else
-                BASEDATA_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
-            End If
             If pMode = "Load" Then
                 BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Clone()
             End If
@@ -2142,13 +2111,7 @@ Public Class frmMain
                 DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone()
             End If
             oSQL = $"SELECT * FROM TBPM_PROFILE_CONTROLS WHERE LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'"
-            If EDMIAppServerActive = True Then
+            DTCONTROLS_WITH_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "DTCONTROLS_WITH_SQL", "", "")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("DTCONTROLS_WITH_SQL")
-                DTCONTROLS_WITH_SQL = oTableResult.Table
-            Else
-                DTCONTROLS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL, "GetBaseData5")
-            End If
-
 
 
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(85)

app/DD_PM_WINDREAM/frmMassValidator.vb

@@ -1044,7 +1044,7 @@ Public Class frmMassValidator
                 Continue For
             End If
 
-            sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
+            sql = clsPatterns.ReplaceUserValues(sqlStatement)
             sql = clsPatterns.ReplaceInternalValues(sql)
             LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql)
             'sql = ClassPatterns.ReplaceInternalValues(sqlStatement)

app/DD_PM_WINDREAM/frmValidator.vb

@@ -28,7 +28,7 @@ Public Class frmValidator
     Dim WD_Search As String
     Dim finalProfile As Boolean
     Dim Move2Folder As String
-
+    Private DataASorDB As ClassDataASorDB
     Private allgFunk As New ClassAllgemeineFunktionen
 
     'speichert die DocumentDaten
@@ -107,18 +107,25 @@ Public Class frmValidator
 
     'End Function
     Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        LOGGER.Debug("###frmValidation_Load###")
+        Try
-        PMDelimiter = "~"
+            LOGGER.Debug("###frmValidation_Load###")
-        Override = False
+            DataASorDB = New ClassDataASorDB
-        ItemWorked = False
+
-        SplitContainer1.Panel2Collapsed = True
+            PMDelimiter = "~"
-        docCounter = 1
+            Override = False
-        OLD_Document_Path = ""
+            ItemWorked = False
-        first_control = Nothing
+            SplitContainer1.Panel2Collapsed = True
-        me_closing = False
+            docCounter = 1
-        'pdfxchange = False
+            OLD_Document_Path = ""
-        'sumatra = False
+            first_control = Nothing
-        FormLoaded = False
+            me_closing = False
+            'pdfxchange = False
+            'sumatra = False
+            FormLoaded = False
+        Catch ex As Exception
+            LOGGER.Warn($"Error in frmValidation_load1: {ex.Message}")
+        End Try
+
         Try
             If My.Settings.frmValidatorPosition.IsEmpty = False Then
                 If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then
@@ -139,6 +146,7 @@ Public Class frmValidator
 
         Dim _step = 0
         Try
+
             DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE)
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -788,39 +796,16 @@ Public Class frmValidator
         Try
             pnldesigner.Controls.Clear()
             Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
-
+            DTCONTROLS = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_CONTROLS_LANGUAGE", $"LANGUAGE = '{USER_LANGUAGE}' AND PROFIL_ID = {CURRENT_ProfilGUID}", "Y_LOC, X_LOC")
-            If EDMIAppServerActive = True Then
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_CONTROLS_LANGUAGE", $"LANGUAGE = '{USER_LANGUAGE}' AND PROFIL_ID = {CURRENT_ProfilGUID}", "Y_LOC, X_LOC")
-                DTCONTROLS = oTableResult.Table
-            Else
-                DTCONTROLS = ClassDatabase.Return_Datatable(oSQL, "Create_Controls1")
-            End If
-
 
             oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME,T.FORMATTYPE,T.FORMATSTRING from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE CONTROL_ACTIVE = 1  AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0 ORDER BY T.SEQUENCE"
-            If EDMIAppServerActive = True Then
+            DTGRID_COLUMNS_WITH_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "DTGRID_COLUMNS_WITH_SQL", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("DTGRID_COLUMNS_WITH_SQL", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
-                DTGRID_COLUMNS_WITH_SQL = oTableResult.Table
-            Else
-                DTGRID_COLUMNS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL, "Create_Controls2")
-            End If
 
             oSQL = $"SELECT T.* from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1  AND  T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE"
-            If EDMIAppServerActive = True Then
+            DTGRID_COLUMNS = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_CONTROL_TABLE", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_CONTROL_TABLE", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
-                DTGRID_COLUMNS = oTableResult.Table
-            Else
-                DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL, "Create_Controls3")
-            End If
 
             oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME,T.FORMATTYPE,T.FORMATSTRING from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1  AND  T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1 ORDER BY T.SEQUENCE"
-            If EDMIAppServerActive = True Then
+            DTGRID_SQL_DEFINITION = DataASorDB.GetDatatable("DD_ECM", oSQL, "DTGRID_SQL_DEFINITION", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
-                Dim oTableResult As TableResult = _Client.GetDatatableByName("DTGRID_SQL_DEFINITION", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
-                DTGRID_SQL_DEFINITION = oTableResult.Table
-            Else
-                DTGRID_SQL_DEFINITION = ClassDatabase.Return_Datatable(oSQL, "Create_Controls4")
-            End If
-
             Dim oCount As Integer = 0
 
             For Each oControlRow As DataRow In DTCONTROLS.Rows
@@ -1236,19 +1221,13 @@ Public Class frmValidator
             If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then
                 Try
                     Dim CONTROL_ID = DirectCast(box.Tag, ClassControlCreator.ControlMetadata).Guid
-                    Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, box.Name)
+                    Dim oSql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, box.Name)
-                    Dim DT As DataTable
+                    Dim DTCONTROLS_UEBP As DataTable
-                    If EDMIAppServerActive = True Then
+                    DTCONTROLS_UEBP = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_PROFILE_CONTROLS_SQL_UEP", $"PROFIL_ID = {CURRENT_ProfilGUID} AND SQL_UEBERPRUEFUNG LIKE '%{box.Name}%'")
-                        Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_CONTROLS_SQL_UEP", $"AND PROFIL_ID = {CURRENT_ProfilGUID} AND SQL_UEBERPRUEFUNG LIKE '%{box.Name}%'")
-                        DTCONTROLS = oTableResult.Table
-                    Else
-                        DT = ClassDatabase.Return_Datatable(sql, "OnTextBoxKeyUp")
-                    End If
 
 
-
+                    If Not IsNothing(DTCONTROLS_UEBP) And DTCONTROLS_UEBP.Rows.Count > 0 Then
-                    If Not IsNothing(DT) And DT.Rows.Count > 0 Then
+                        For Each ROW As DataRow In DTCONTROLS_UEBP.Rows
-                        For Each ROW As DataRow In DT.Rows
                             Try
                                 Dim displayboxname = ROW.Item(0).ToString
                                 If Not IsDBNull(ROW.Item(1)) And Not IsDBNull(ROW.Item(2)) Then
@@ -1318,11 +1297,15 @@ Public Class frmValidator
         If IsNothing(oSQL) Then
             Exit Sub
         End If
+
+        If Check_UpdateIndexe() = False Then
+
+            Exit Sub
+        End If
         Override_SQLCommand = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL2")
         If IsNothing(Override_SQLCommand) Then
             Override_SQLCommand = ""
         End If
-        ' = $"select SQL_UEBERPRUEFUNG,SQL2 FROM TBPM_PROFILE_CONTROLS WHERE GUID = {oControlID}"
         oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, True)
         Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, True)
         Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL, "onCustomButtonClick")
@@ -1333,7 +1316,6 @@ Public Class frmValidator
             MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
             Exit Sub
         End If
-        'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
         Dim oAction
         Dim oControlName
         Dim oQuestion
@@ -3890,14 +3872,9 @@ Public Class frmValidator
 
                 If includeFI = True Then
                     Try
-                        Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID}"
+                        Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND ACTIVE = 1"
                         Dim oDTFinalIndexing As DataTable
-                        If EDMIAppServerActive = True Then
+                        oDTFinalIndexing = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}")
-                            Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}")
-                            oDTFinalIndexing = oTableResult.Table
-                        Else
-                            oDTFinalIndexing = ClassDatabase.Return_Datatable(oSQL, "Finish_WFStep")
-                        End If
 
                         If oDTFinalIndexing?.Rows.Count > 0 Then
                             'Jetzt finale Indexe setzen