From 4f1ff62ce6bdbe679ee833a2668bd4e725fde58d Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 1 Dec 2022 14:22:40 +0100 Subject: [PATCH] MS Release 2.3.9.1 --- app/DD_PM_WINDREAM/ClassConfig.vb | 7 + app/DD_PM_WINDREAM/ClassInit.vb | 9 + app/DD_PM_WINDREAM/ClassParamRefresh.vb | 1 + .../DD_DMSLiteDataSet.Designer.vb | 4178 ++++++++--------- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 744 ++- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 6 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 3 + app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../frmAdministration.Designer.vb | 36 +- app/DD_PM_WINDREAM/frmAdministration.resx | 1968 +++----- app/DD_PM_WINDREAM/frmAdministration.vb | 2 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 8 +- app/DD_PM_WINDREAM/frmLicense.Designer.vb | 44 +- app/DD_PM_WINDREAM/frmLicense.resx | 356 +- app/DD_PM_WINDREAM/frmLicense.vb | 19 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 132 +- app/DD_PM_WINDREAM/frmMain.resx | 195 +- app/DD_PM_WINDREAM/frmMain.vb | 122 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 13 +- app/DD_PM_WINDREAM/frmValidator.resx | 355 +- app/DD_PM_WINDREAM/frmValidator.vb | 30 +- app/SetupVS19/Product.wxs | 3 +- 22 files changed, 3910 insertions(+), 4323 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassConfig.vb b/app/DD_PM_WINDREAM/ClassConfig.vb index 8e389c4..789fe6f 100644 --- a/app/DD_PM_WINDREAM/ClassConfig.vb +++ b/app/DD_PM_WINDREAM/ClassConfig.vb @@ -1,4 +1,5 @@ Imports DigitalData.Modules.Config.ConfigAttributes +Imports DigitalData.Modules.Logging Public Class ClassConfig ' Global Settings (from computerconfig, overridable by userconfig) @@ -36,5 +37,11 @@ Public Class ClassConfig Public Property LastExportPath As String = "" Public Property ADDITIONAL_SEARCHES_LOAD_ONCLICK As Boolean = True Public Property GridFontSizeDelta As Integer = 0 + Public Property ProfileConfig As New ProfileUserConfig + Public Class ProfileUserConfig + Public Property ProfileID As Integer + Public Property ShowFile As Boolean = True + Public Property ShowSearchesDirect As Boolean = True + End Class End Class diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 4dc63e4..b6cccbd 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -245,6 +245,15 @@ Public Class ClassInit LOGGER.Debug("license initialized....") LICENSE_PROFILES = split(2) + + Try + Dim oMod = split(3) + If Not IsNothing(split(3)) Then + LIC_MODULES = split(3) + End If + Catch ex As Exception + + End Try Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected error in Refresh license: " & ex.Message, True) diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index 39a2ad3..abfee72 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -16,6 +16,7 @@ Public Class ClassParamRefresh oLicenseoverSQL = True ElseIf oRow.Item("TITLE") = "PM_PROFILES_USER" Then SQL_PROFILES_USER = oRow.Item("SQL_COMMAND") + LOGGER.Info($"SQL FROM SQLCommands DD: {SQL_PROFILES_USER}") End If Next End If diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 97c8b33..3e9916c 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -76,7 +76,7 @@ Partial Public Class DD_DMSLiteDataSet Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -88,7 +88,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -183,7 +183,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ Public ReadOnly Property TBPM_PROFILE_FINAL_INDEXING() As TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -193,7 +193,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_KONFIGURATION() As TBPM_KONFIGURATIONDataTable @@ -203,7 +203,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable @@ -213,7 +213,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_TYPE() As TBPM_TYPEDataTable @@ -223,7 +223,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_ERROR_LOG() As TBPM_ERROR_LOGDataTable @@ -233,7 +233,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable @@ -243,7 +243,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPROFILE_USER() As TBPROFILE_USERDataTable @@ -253,7 +253,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_PROFILE_FILES() As TBPM_PROFILE_FILESDataTable @@ -263,7 +263,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBWH_CHECK_PROFILE_CONTROLS() As TBWH_CHECK_PROFILE_CONTROLSDataTable @@ -273,7 +273,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_PROFILE_CONTROLS() As TBPM_PROFILE_CONTROLSDataTable @@ -283,7 +283,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_CONTROL_TABLE() As TBPM_CONTROL_TABLEDataTable @@ -293,7 +293,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable @@ -303,7 +303,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPROFILE_GROUP() As TBPROFILE_GROUPDataTable @@ -313,7 +313,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property FNPM_GET_FREE_USER_FOR_PROFILE() As FNPM_GET_FREE_USER_FOR_PROFILEDataTable @@ -323,7 +323,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_EMAIL_TEMPLATE() As TBDD_EMAIL_TEMPLATEDataTable @@ -333,7 +333,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_GUI_LANGUAGE_PHRASE() As TBDD_GUI_LANGUAGE_PHRASEDataTable @@ -343,7 +343,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property VWPM_CHART_INVOICE_MONITOR() As VWPM_CHART_INVOICE_MONITORDataTable @@ -353,7 +353,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property VWPM_CHART_INVOICE_MONITOR_SERIES() As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable @@ -363,7 +363,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property VWPM_CHART_TOP5() As VWPM_CHART_TOP5DataTable @@ -373,7 +373,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_PROFILE() As TBPM_PROFILEDataTable @@ -383,7 +383,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBWH_CONNECTION() As TBWH_CONNECTIONDataTable @@ -393,7 +393,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -406,7 +406,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -415,7 +415,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -424,7 +424,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -432,7 +432,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DD_DMSLiteDataSet = CType(MyBase.Clone,DD_DMSLiteDataSet) cln.InitVars @@ -441,19 +441,19 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -537,7 +537,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -546,13 +546,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(MyBase.Tables("TBPM_PROFILE_FINAL_INDEXING"),TBPM_PROFILE_FINAL_INDEXINGDataTable) If (initTable = true) Then @@ -686,7 +686,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "DD_DMSLiteDataSet" Me.Prefix = "" @@ -744,133 +744,133 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_FINAL_INDEXING() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_KONFIGURATION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBDD_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_TYPE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_ERROR_LOG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPROFILE_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_FILES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBWH_CHECK_PROFILE_CONTROLS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_CONTROLS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_CONTROL_TABLE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPROFILE_GROUP() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeFNPM_GET_FREE_USER_FOR_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBDD_EMAIL_TEMPLATE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBDD_GUI_LANGUAGE_PHRASE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeVWPM_CHART_INVOICE_MONITOR() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeVWPM_CHART_INVOICE_MONITOR_SERIES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeVWPM_CHART_TOP5() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -878,7 +878,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -927,67 +927,67 @@ Partial Public Class DD_DMSLiteDataSet Return type End Function - _ + _ Public Delegate Sub TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent) - _ + _ Public Delegate Sub TBPM_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_KONFIGURATIONRowChangeEvent) - _ + _ Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) - _ + _ Public Delegate Sub TBPM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_TYPERowChangeEvent) - _ + _ Public Delegate Sub TBPM_ERROR_LOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_ERROR_LOGRowChangeEvent) - _ + _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) - _ + _ Public Delegate Sub TBPROFILE_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_USERRowChangeEvent) - _ + _ Public Delegate Sub TBPM_PROFILE_FILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FILESRowChangeEvent) - _ + _ Public Delegate Sub TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent) - _ + _ Public Delegate Sub TBPM_PROFILE_CONTROLSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_CONTROLSRowChangeEvent) - _ + _ Public Delegate Sub TBPM_CONTROL_TABLERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_CONTROL_TABLERowChangeEvent) - _ + _ Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) - _ + _ Public Delegate Sub TBPROFILE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_GROUPRowChangeEvent) - _ + _ Public Delegate Sub FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent) - _ + _ Public Delegate Sub TBDD_EMAIL_TEMPLATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_TEMPLATERowChangeEvent) - _ + _ Public Delegate Sub TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GUI_LANGUAGE_PHRASERowChangeEvent) - _ + _ Public Delegate Sub VWPM_CHART_INVOICE_MONITORRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_INVOICE_MONITORRowChangeEvent) - _ + _ Public Delegate Sub VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent) - _ + _ Public Delegate Sub VWPM_CHART_TOP5RowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_TOP5RowChangeEvent) - _ + _ Public Delegate Sub TBPM_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILERowChangeEvent) - _ + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) ''' @@ -1027,7 +1027,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnPREVENT_DUPLICATES As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_FINAL_INDEXING" @@ -1037,7 +1037,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1055,14 +1055,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -1070,7 +1070,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE @@ -1078,7 +1078,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1086,7 +1086,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1094,7 +1094,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1102,7 +1102,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1110,7 +1110,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1118,7 +1118,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -1126,7 +1126,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND @@ -1134,7 +1134,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION @@ -1142,7 +1142,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -1150,7 +1150,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property IF_VEKTOR_BEHAVIOURColumn() As Global.System.Data.DataColumn Get Return Me.columnIF_VEKTOR_BEHAVIOUR @@ -1158,7 +1158,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ALLOW_NEW_VALUESColumn() As Global.System.Data.DataColumn Get Return Me.columnALLOW_NEW_VALUES @@ -1166,7 +1166,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PREVENT_DUPLICATESColumn() As Global.System.Data.DataColumn Get Return Me.columnPREVENT_DUPLICATES @@ -1174,7 +1174,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -1183,33 +1183,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow Get Return CType(Me.Rows(index),TBPM_PROFILE_FINAL_INDEXINGRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanging As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanged As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleting As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleted As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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, 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, ALLOW_NEW_VALUES, PREVENT_DUPLICATES} @@ -1219,13 +1219,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_FINAL_INDEXINGDataTable = CType(MyBase.Clone,TBPM_PROFILE_FINAL_INDEXINGDataTable) cln.InitVars @@ -1233,13 +1233,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_FINAL_INDEXINGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnVALUE = MyBase.Columns("VALUE") @@ -1258,7 +1258,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) @@ -1319,25 +1319,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_PROFILE_FINAL_INDEXINGRow() As TBPM_PROFILE_FINAL_INDEXINGRow Return CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_FINAL_INDEXINGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangedEvent) Is Nothing) Then @@ -1346,7 +1346,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangingEvent) Is Nothing) Then @@ -1355,7 +1355,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletedEvent) Is Nothing) Then @@ -1364,7 +1364,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletingEvent) Is Nothing) Then @@ -1373,13 +1373,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1490,7 +1490,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnADMIN_SECURITY As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_KONFIGURATION" @@ -1500,7 +1500,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1518,14 +1518,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1533,7 +1533,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LIZENZENColumn() As Global.System.Data.DataColumn Get Return Me.columnLIZENZEN @@ -1541,7 +1541,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -1549,7 +1549,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -1557,7 +1557,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -1565,7 +1565,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -1573,7 +1573,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INTERVALL_CKECK_NO_OF_FILESColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERVALL_CKECK_NO_OF_FILES @@ -1581,7 +1581,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -1589,7 +1589,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_ACTIVE @@ -1597,7 +1597,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM @@ -1605,7 +1605,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP @@ -1613,7 +1613,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER @@ -1621,7 +1621,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW @@ -1629,7 +1629,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_REMINDER_HEADER @@ -1637,7 +1637,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_REMINDER_FOOTER @@ -1645,7 +1645,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnVEKTOR_DELIMITER @@ -1653,7 +1653,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnADMIN_PW @@ -1661,7 +1661,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn Get Return Me.columnADMIN_SECURITY @@ -1669,7 +1669,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -1678,33 +1678,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_KONFIGURATIONRow Get Return CType(Me.Rows(index),TBPM_KONFIGURATIONRow) End Get End Property - _ + _ Public Event TBPM_KONFIGURATIONRowChanging As TBPM_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBPM_KONFIGURATIONRowChanged As TBPM_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBPM_KONFIGURATIONRowDeleting As TBPM_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBPM_KONFIGURATIONRowDeleted As TBPM_KONFIGURATIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_KONFIGURATIONRow( _ ByVal GUID As Byte, _ ByVal LIZENZEN As String, _ @@ -1732,13 +1732,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Byte) As TBPM_KONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPM_KONFIGURATIONDataTable) cln.InitVars @@ -1746,13 +1746,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_KONFIGURATIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnLIZENZEN = MyBase.Columns("LIZENZEN") @@ -1775,7 +1775,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1839,25 +1839,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_KONFIGURATIONRow() As TBPM_KONFIGURATIONRow Return CType(Me.NewRow,TBPM_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_KONFIGURATIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_KONFIGURATIONRowChangedEvent) Is Nothing) Then @@ -1866,7 +1866,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_KONFIGURATIONRowChangingEvent) Is Nothing) Then @@ -1875,7 +1875,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_KONFIGURATIONRowDeletedEvent) Is Nothing) Then @@ -1884,7 +1884,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_KONFIGURATIONRowDeletingEvent) Is Nothing) Then @@ -1893,13 +1893,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1996,7 +1996,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSHORTNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_USER" @@ -2006,7 +2006,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2024,14 +2024,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2039,7 +2039,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -2047,7 +2047,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -2055,7 +2055,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -2063,7 +2063,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL @@ -2071,7 +2071,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2079,7 +2079,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2087,7 +2087,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2095,7 +2095,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2103,7 +2103,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -2111,7 +2111,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -2119,7 +2119,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2128,33 +2128,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property - _ + _ Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String, ByVal SHORTNAME As String) As TBDD_USERRow Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME} @@ -2164,13 +2164,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars @@ -2178,13 +2178,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -2200,7 +2200,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2243,25 +2243,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBDD_USERRow() As TBDD_USERRow Return CType(Me.NewRow,TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then @@ -2270,7 +2270,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then @@ -2279,7 +2279,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then @@ -2288,7 +2288,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then @@ -2297,13 +2297,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2390,7 +2390,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_TYPE" @@ -2400,7 +2400,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2418,14 +2418,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2433,7 +2433,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -2441,7 +2441,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2449,7 +2449,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2457,7 +2457,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2465,7 +2465,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2473,7 +2473,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2482,33 +2482,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_TYPERow Get Return CType(Me.Rows(index),TBPM_TYPERow) End Get End Property - _ + _ Public Event TBPM_TYPERowChanging As TBPM_TYPERowChangeEventHandler - _ + _ Public Event TBPM_TYPERowChanged As TBPM_TYPERowChangeEventHandler - _ + _ Public Event TBPM_TYPERowDeleting As TBPM_TYPERowChangeEventHandler - _ + _ Public Event TBPM_TYPERowDeleted As TBPM_TYPERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_TYPERow(ByVal row As TBPM_TYPERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_TYPERow(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPM_TYPERow Dim rowTBPM_TYPERow As TBPM_TYPERow = CType(Me.NewRow,TBPM_TYPERow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -2518,13 +2518,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBPM_TYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_TYPERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_TYPEDataTable = CType(MyBase.Clone,TBPM_TYPEDataTable) cln.InitVars @@ -2532,13 +2532,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_TYPEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -2549,7 +2549,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2579,25 +2579,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_TYPERow() As TBPM_TYPERow Return CType(Me.NewRow,TBPM_TYPERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_TYPERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_TYPERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_TYPERowChangedEvent) Is Nothing) Then @@ -2606,7 +2606,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_TYPERowChangingEvent) Is Nothing) Then @@ -2615,7 +2615,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_TYPERowDeletedEvent) Is Nothing) Then @@ -2624,7 +2624,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_TYPERowDeletingEvent) Is Nothing) Then @@ -2633,13 +2633,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_TYPERow(ByVal row As TBPM_TYPERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2724,7 +2724,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_ERROR_LOG" @@ -2734,7 +2734,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2752,14 +2752,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2767,7 +2767,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -2775,7 +2775,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERROR_MSGColumn() As Global.System.Data.DataColumn Get Return Me.columnERROR_MSG @@ -2783,7 +2783,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2791,7 +2791,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2799,7 +2799,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2808,33 +2808,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_ERROR_LOGRow Get Return CType(Me.Rows(index),TBPM_ERROR_LOGRow) End Get End Property - _ + _ Public Event TBPM_ERROR_LOGRowChanging As TBPM_ERROR_LOGRowChangeEventHandler - _ + _ Public Event TBPM_ERROR_LOGRowChanged As TBPM_ERROR_LOGRowChangeEventHandler - _ + _ Public Event TBPM_ERROR_LOGRowDeleting As TBPM_ERROR_LOGRowChangeEventHandler - _ + _ Public Event TBPM_ERROR_LOGRowDeleted As TBPM_ERROR_LOGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_ERROR_LOGRow(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPM_ERROR_LOGRow Dim rowTBPM_ERROR_LOGRow As TBPM_ERROR_LOGRow = CType(Me.NewRow,TBPM_ERROR_LOGRow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN} @@ -2844,13 +2844,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_ERROR_LOGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_ERROR_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_ERROR_LOGDataTable = CType(MyBase.Clone,TBPM_ERROR_LOGDataTable) cln.InitVars @@ -2858,13 +2858,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_ERROR_LOGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -2874,7 +2874,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2902,25 +2902,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_ERROR_LOGRow() As TBPM_ERROR_LOGRow Return CType(Me.NewRow,TBPM_ERROR_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_ERROR_LOGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_ERROR_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_ERROR_LOGRowChangedEvent) Is Nothing) Then @@ -2929,7 +2929,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_ERROR_LOGRowChangingEvent) Is Nothing) Then @@ -2938,7 +2938,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_ERROR_LOGRowDeletedEvent) Is Nothing) Then @@ -2947,7 +2947,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_ERROR_LOGRowDeletingEvent) Is Nothing) Then @@ -2956,13 +2956,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3065,7 +3065,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSYS_CONNECTION As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_CONNECTION" @@ -3075,7 +3075,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3093,14 +3093,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3108,7 +3108,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3116,7 +3116,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER @@ -3124,7 +3124,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER @@ -3132,7 +3132,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK @@ -3140,7 +3140,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -3148,7 +3148,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD @@ -3156,7 +3156,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -3164,7 +3164,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -3172,7 +3172,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -3180,7 +3180,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -3188,7 +3188,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -3196,7 +3196,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -3204,7 +3204,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSYS_CONNECTION @@ -3212,7 +3212,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3221,33 +3221,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get Return CType(Me.Rows(index),TBDD_CONNECTIONRow) End Get End Property - _ + _ Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal SYS_CONNECTION As Boolean) As TBDD_CONNECTIONRow Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION} @@ -3257,13 +3257,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) cln.InitVars @@ -3271,13 +3271,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -3296,7 +3296,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3348,25 +3348,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Return CType(Me.NewRow,TBDD_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CONNECTIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then @@ -3375,7 +3375,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then @@ -3384,7 +3384,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then @@ -3393,7 +3393,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then @@ -3402,13 +3402,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3497,7 +3497,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSHORTNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPROFILE_USER" @@ -3507,7 +3507,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3525,14 +3525,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3540,7 +3540,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -3548,7 +3548,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -3556,7 +3556,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -3564,7 +3564,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL @@ -3572,7 +3572,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -3580,7 +3580,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -3588,7 +3588,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3597,33 +3597,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_USERRow Get Return CType(Me.Rows(index),TBPROFILE_USERRow) End Get End Property - _ + _ Public Event TBPROFILE_USERRowChanging As TBPROFILE_USERRowChangeEventHandler - _ + _ Public Event TBPROFILE_USERRowChanged As TBPROFILE_USERRowChangeEventHandler - _ + _ Public Event TBPROFILE_USERRowDeleting As TBPROFILE_USERRowChangeEventHandler - _ + _ Public Event TBPROFILE_USERRowDeleted As TBPROFILE_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPROFILE_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As TBPROFILE_USERRow Dim rowTBPROFILE_USERRow As TBPROFILE_USERRow = CType(Me.NewRow,TBPROFILE_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, COMMENT, SHORTNAME} @@ -3633,13 +3633,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPROFILE_USERDataTable = CType(MyBase.Clone,TBPROFILE_USERDataTable) cln.InitVars @@ -3647,13 +3647,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPROFILE_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -3665,7 +3665,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3697,25 +3697,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPROFILE_USERRow() As TBPROFILE_USERRow Return CType(Me.NewRow,TBPROFILE_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPROFILE_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPROFILE_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPROFILE_USERRowChangedEvent) Is Nothing) Then @@ -3724,7 +3724,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPROFILE_USERRowChangingEvent) Is Nothing) Then @@ -3733,7 +3733,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPROFILE_USERRowDeletedEvent) Is Nothing) Then @@ -3742,7 +3742,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPROFILE_USERRowDeletingEvent) Is Nothing) Then @@ -3751,13 +3751,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3838,7 +3838,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnDMS_ERSTELLT_DATE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_FILES" @@ -3848,7 +3848,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3866,14 +3866,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3881,7 +3881,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FILE_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_PATH @@ -3889,7 +3889,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DMS_ERSTELLT_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDMS_ERSTELLT_DATE @@ -3897,7 +3897,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3906,33 +3906,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FILESRow Get Return CType(Me.Rows(index),TBPM_PROFILE_FILESRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_FILESRowChanging As TBPM_PROFILE_FILESRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FILESRowChanged As TBPM_PROFILE_FILESRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FILESRowDeleting As TBPM_PROFILE_FILESRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FILESRowDeleted As TBPM_PROFILE_FILESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_PROFILE_FILESRow(ByVal FILE_PATH As String, ByVal DMS_ERSTELLT_DATE As Date) As TBPM_PROFILE_FILESRow Dim rowTBPM_PROFILE_FILESRow As TBPM_PROFILE_FILESRow = CType(Me.NewRow,TBPM_PROFILE_FILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILE_PATH, DMS_ERSTELLT_DATE} @@ -3942,13 +3942,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FILESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_FILESDataTable = CType(MyBase.Clone,TBPM_PROFILE_FILESDataTable) cln.InitVars @@ -3956,13 +3956,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_FILESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILE_PATH = MyBase.Columns("FILE_PATH") @@ -3970,7 +3970,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3989,25 +3989,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_PROFILE_FILESRow() As TBPM_PROFILE_FILESRow Return CType(Me.NewRow,TBPM_PROFILE_FILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_FILESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_FILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_FILESRowChangedEvent) Is Nothing) Then @@ -4016,7 +4016,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_FILESRowChangingEvent) Is Nothing) Then @@ -4025,7 +4025,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_FILESRowDeletedEvent) Is Nothing) Then @@ -4034,7 +4034,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_FILESRowDeletingEvent) Is Nothing) Then @@ -4043,13 +4043,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4142,7 +4142,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_CHECK_PROFILE_CONTROLS" @@ -4152,7 +4152,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4170,14 +4170,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4185,7 +4185,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4193,7 +4193,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_TYPE @@ -4201,7 +4201,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEX_NAME @@ -4209,7 +4209,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP @@ -4217,7 +4217,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION @@ -4225,7 +4225,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get Return Me.columnCHOICE_LIST @@ -4233,7 +4233,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -4241,7 +4241,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_UEBERPRUEFUNG @@ -4249,7 +4249,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4258,33 +4258,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow Get Return CType(Me.Rows(index),TBWH_CHECK_PROFILE_CONTROLSRow) End Get End Property - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanging As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanged As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleting As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleted As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal INDEX_NAME As String, ByVal TYP As String, ByVal VALIDATION As Boolean, ByVal CHOICE_LIST As String, ByVal CONNECTION_ID As Short, ByVal SQL_UEBERPRUEFUNG As String) As TBWH_CHECK_PROFILE_CONTROLSRow Dim rowTBWH_CHECK_PROFILE_CONTROLSRow As TBWH_CHECK_PROFILE_CONTROLSRow = CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG} @@ -4294,13 +4294,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CHECK_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_CHECK_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBWH_CHECK_PROFILE_CONTROLSDataTable) cln.InitVars @@ -4308,13 +4308,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_CHECK_PROFILE_CONTROLSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -4328,7 +4328,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4367,25 +4367,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow Return CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_CHECK_PROFILE_CONTROLSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_CHECK_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then @@ -4394,7 +4394,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then @@ -4403,7 +4403,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then @@ -4412,7 +4412,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then @@ -4421,13 +4421,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4584,7 +4584,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSAVE_CHANGE_ON_ENABLED As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_CONTROLS" @@ -4594,7 +4594,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4612,14 +4612,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4627,7 +4627,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -4635,7 +4635,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4643,7 +4643,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_TYPE @@ -4651,7 +4651,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_TEXT @@ -4659,7 +4659,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnX_LOC @@ -4667,7 +4667,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnY_LOC @@ -4675,7 +4675,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -4683,7 +4683,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -4691,7 +4691,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -4699,7 +4699,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -4707,7 +4707,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEX_NAME @@ -4715,7 +4715,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP @@ -4723,7 +4723,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION @@ -4731,7 +4731,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get Return Me.columnCHOICE_LIST @@ -4739,7 +4739,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -4747,7 +4747,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_UEBERPRUEFUNG @@ -4755,7 +4755,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnHEIGHT @@ -4763,7 +4763,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWIDTH @@ -4771,7 +4771,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_STYLE @@ -4779,7 +4779,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_SIZE @@ -4787,7 +4787,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_FAMILY @@ -4795,7 +4795,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_COLOR @@ -4803,7 +4803,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY @@ -4811,7 +4811,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_IDX_VALUE @@ -4819,7 +4819,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT_VALUE @@ -4827,7 +4827,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn Get Return Me.columnMULTISELECT @@ -4835,7 +4835,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn Get Return Me.columnVKT_ADD_ITEM @@ -4843,7 +4843,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn Get Return Me.columnVKT_PREVENT_MULTIPLE_VALUES @@ -4851,7 +4851,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MATCH @@ -4859,7 +4859,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_DE @@ -4867,7 +4867,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_EN @@ -4875,7 +4875,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property IMAGE_CONTROLColumn() As Global.System.Data.DataColumn Get Return Me.columnIMAGE_CONTROL @@ -4883,7 +4883,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL2 @@ -4891,7 +4891,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_ENABLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ENABLE @@ -4899,7 +4899,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SET_CONTROL_DATAColumn() As Global.System.Data.DataColumn Get Return Me.columnSET_CONTROL_DATA @@ -4907,7 +4907,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_ENABLE_ON_LOADColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ENABLE_ON_LOAD @@ -4915,7 +4915,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_ENABLE_ON_LOAD_CONIDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ENABLE_ON_LOAD_CONID @@ -4923,7 +4923,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONTROL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_ACTIVE @@ -4931,7 +4931,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TABLE_ORDER_COLUMNColumn() As Global.System.Data.DataColumn Get Return Me.columnTABLE_ORDER_COLUMN @@ -4939,7 +4939,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SAVE_CHANGE_ON_ENABLEDColumn() As Global.System.Data.DataColumn Get Return Me.columnSAVE_CHANGE_ON_ENABLED @@ -4947,7 +4947,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4956,33 +4956,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_CONTROLSRow Get Return CType(Me.Rows(index),TBPM_PROFILE_CONTROLSRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_CONTROLSRowChanging As TBPM_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_CONTROLSRowChanged As TBPM_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_CONTROLSRowDeleting As TBPM_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_CONTROLSRowDeleted As TBPM_PROFILE_CONTROLSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_PROFILE_CONTROLSRow( _ ByVal parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE As TBPM_PROFILERow, _ ByVal NAME As String, _ @@ -5035,13 +5035,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_CONTROLSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBPM_PROFILE_CONTROLSDataTable) cln.InitVars @@ -5049,13 +5049,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_CONTROLSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -5101,7 +5101,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -5234,25 +5234,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow Return CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_CONTROLSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then @@ -5261,7 +5261,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then @@ -5270,7 +5270,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then @@ -5279,7 +5279,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then @@ -5288,13 +5288,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5417,7 +5417,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnLU_CAPTION As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_CONTROL_TABLE" @@ -5427,7 +5427,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5445,14 +5445,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -5460,7 +5460,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_ID @@ -5468,7 +5468,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SPALTENNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSPALTENNAME @@ -5476,7 +5476,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SPALTEN_HEADERColumn() As Global.System.Data.DataColumn Get Return Me.columnSPALTEN_HEADER @@ -5484,7 +5484,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SPALTENBREITEColumn() As Global.System.Data.DataColumn Get Return Me.columnSPALTENBREITE @@ -5492,7 +5492,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION @@ -5500,7 +5500,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get Return Me.columnCHOICE_LIST @@ -5508,7 +5508,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -5516,7 +5516,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND @@ -5524,7 +5524,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY @@ -5532,7 +5532,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_IDX_VALUE @@ -5540,7 +5540,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -5548,7 +5548,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -5556,7 +5556,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -5564,7 +5564,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -5572,7 +5572,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MATCH @@ -5580,7 +5580,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_EN @@ -5588,7 +5588,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_DE @@ -5596,7 +5596,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -5604,7 +5604,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT_VALUE @@ -5612,7 +5612,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADVANCED_LOOKUPColumn() As Global.System.Data.DataColumn Get Return Me.columnADVANCED_LOOKUP @@ -5620,7 +5620,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SUMMARY_FUNCTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSUMMARY_FUNCTION @@ -5628,7 +5628,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TYPE_COLUMNColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_COLUMN @@ -5636,7 +5636,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LU_CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnLU_CAPTION @@ -5644,7 +5644,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -5653,33 +5653,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_CONTROL_TABLERow Get Return CType(Me.Rows(index),TBPM_CONTROL_TABLERow) End Get End Property - _ + _ Public Event TBPM_CONTROL_TABLERowChanging As TBPM_CONTROL_TABLERowChangeEventHandler - _ + _ Public Event TBPM_CONTROL_TABLERowChanged As TBPM_CONTROL_TABLERowChangeEventHandler - _ + _ Public Event TBPM_CONTROL_TABLERowDeleting As TBPM_CONTROL_TABLERowChangeEventHandler - _ + _ Public Event TBPM_CONTROL_TABLERowDeleted As TBPM_CONTROL_TABLERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_CONTROL_TABLERow( _ ByVal parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1 As TBPM_PROFILE_CONTROLSRow, _ ByVal SPALTENNAME As String, _ @@ -5715,13 +5715,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_CONTROL_TABLERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_CONTROL_TABLERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_CONTROL_TABLEDataTable = CType(MyBase.Clone,TBPM_CONTROL_TABLEDataTable) cln.InitVars @@ -5729,13 +5729,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_CONTROL_TABLEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") @@ -5764,7 +5764,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -5857,25 +5857,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_CONTROL_TABLERow() As TBPM_CONTROL_TABLERow Return CType(Me.NewRow,TBPM_CONTROL_TABLERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_CONTROL_TABLERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_CONTROL_TABLERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_CONTROL_TABLERowChangedEvent) Is Nothing) Then @@ -5884,7 +5884,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_CONTROL_TABLERowChangingEvent) Is Nothing) Then @@ -5893,7 +5893,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_CONTROL_TABLERowDeletedEvent) Is Nothing) Then @@ -5902,7 +5902,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_CONTROL_TABLERowDeletingEvent) Is Nothing) Then @@ -5911,13 +5911,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6014,7 +6014,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS" @@ -6024,7 +6024,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6042,14 +6042,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -6057,7 +6057,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -6065,7 +6065,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnECM_FK_ID @@ -6073,7 +6073,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn Get Return Me.columnAD_SYNC @@ -6081,7 +6081,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL @@ -6089,7 +6089,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -6097,7 +6097,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -6105,7 +6105,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -6113,7 +6113,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -6121,7 +6121,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -6129,7 +6129,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -6137,7 +6137,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -6146,33 +6146,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property - _ + _ Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPSRow Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -6182,13 +6182,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars @@ -6196,13 +6196,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -6218,7 +6218,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6260,25 +6260,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then @@ -6287,7 +6287,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then @@ -6296,7 +6296,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then @@ -6305,7 +6305,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then @@ -6314,13 +6314,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6411,7 +6411,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPROFILE_GROUP" @@ -6421,7 +6421,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6439,14 +6439,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -6454,7 +6454,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -6462,7 +6462,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -6470,7 +6470,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -6478,7 +6478,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -6486,7 +6486,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -6494,7 +6494,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -6502,7 +6502,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -6510,7 +6510,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -6519,33 +6519,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_GROUPRow Get Return CType(Me.Rows(index),TBPROFILE_GROUPRow) End Get End Property - _ + _ Public Event TBPROFILE_GROUPRowChanging As TBPROFILE_GROUPRowChangeEventHandler - _ + _ Public Event TBPROFILE_GROUPRowChanged As TBPROFILE_GROUPRowChangeEventHandler - _ + _ Public Event TBPROFILE_GROUPRowDeleting As TBPROFILE_GROUPRowChangeEventHandler - _ + _ Public Event TBPROFILE_GROUPRowDeleted As TBPROFILE_GROUPRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPROFILE_GROUPRow(ByVal NAME As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPROFILE_GROUPRow Dim rowTBPROFILE_GROUPRow As TBPROFILE_GROUPRow = CType(Me.NewRow,TBPROFILE_GROUPRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -6555,13 +6555,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_GROUPRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_GROUPRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPROFILE_GROUPDataTable = CType(MyBase.Clone,TBPROFILE_GROUPDataTable) cln.InitVars @@ -6569,13 +6569,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPROFILE_GROUPDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -6588,7 +6588,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6621,25 +6621,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPROFILE_GROUPRow() As TBPROFILE_GROUPRow Return CType(Me.NewRow,TBPROFILE_GROUPRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPROFILE_GROUPRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPROFILE_GROUPRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPROFILE_GROUPRowChangedEvent) Is Nothing) Then @@ -6648,7 +6648,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPROFILE_GROUPRowChangingEvent) Is Nothing) Then @@ -6657,7 +6657,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPROFILE_GROUPRowDeletedEvent) Is Nothing) Then @@ -6666,7 +6666,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPROFILE_GROUPRowDeletingEvent) Is Nothing) Then @@ -6675,13 +6675,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6774,7 +6774,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnUSER_COMMENT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "FNPM_GET_FREE_USER_FOR_PROFILE" @@ -6784,7 +6784,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6802,14 +6802,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn Get Return Me.columnSequentialOrder @@ -6817,7 +6817,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -6825,7 +6825,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_NAME @@ -6833,7 +6833,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_PRENAME @@ -6841,7 +6841,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_SURNAME @@ -6849,7 +6849,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_SHORTNAME @@ -6857,7 +6857,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_EMAIL @@ -6865,7 +6865,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_LANGUAGE @@ -6873,7 +6873,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USER_COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_COMMENT @@ -6881,7 +6881,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -6890,33 +6890,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As FNPM_GET_FREE_USER_FOR_PROFILERow Get Return CType(Me.Rows(index),FNPM_GET_FREE_USER_FOR_PROFILERow) End Get End Property - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanging As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanged As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleting As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleted As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal USER_ID As Integer, ByVal USER_NAME As String, ByVal USER_PRENAME As String, ByVal USER_SURNAME As String, ByVal USER_SHORTNAME As String, ByVal USER_EMAIL As String, ByVal USER_LANGUAGE As String, ByVal USER_COMMENT As String) As FNPM_GET_FREE_USER_FOR_PROFILERow Dim rowFNPM_GET_FREE_USER_FOR_PROFILERow As FNPM_GET_FREE_USER_FOR_PROFILERow = CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT} @@ -6926,7 +6926,7 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As FNPM_GET_FREE_USER_FOR_PROFILEDataTable = CType(MyBase.Clone,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) cln.InitVars @@ -6934,13 +6934,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New FNPM_GET_FREE_USER_FOR_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnSequentialOrder = MyBase.Columns("SequentialOrder") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -6954,7 +6954,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSequentialOrder) @@ -6989,25 +6989,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewFNPM_GET_FREE_USER_FOR_PROFILERow() As FNPM_GET_FREE_USER_FOR_PROFILERow Return CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New FNPM_GET_FREE_USER_FOR_PROFILERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(FNPM_GET_FREE_USER_FOR_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangedEvent) Is Nothing) Then @@ -7016,7 +7016,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangingEvent) Is Nothing) Then @@ -7025,7 +7025,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletedEvent) Is Nothing) Then @@ -7034,7 +7034,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletingEvent) Is Nothing) Then @@ -7043,13 +7043,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7144,7 +7144,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_TEMPLATE" @@ -7154,7 +7154,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7172,14 +7172,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7187,7 +7187,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE @@ -7195,7 +7195,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBJECT @@ -7203,7 +7203,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_BODY1Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY1 @@ -7211,7 +7211,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_BODY2Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY2 @@ -7219,7 +7219,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_BODY3Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY3 @@ -7227,7 +7227,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -7235,7 +7235,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -7243,7 +7243,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -7251,7 +7251,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -7259,7 +7259,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -7268,33 +7268,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_TEMPLATERow Get Return CType(Me.Rows(index),TBDD_EMAIL_TEMPLATERow) End Get End Property - _ + _ Public Event TBDD_EMAIL_TEMPLATERowChanging As TBDD_EMAIL_TEMPLATERowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_TEMPLATERowChanged As TBDD_EMAIL_TEMPLATERowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_TEMPLATERowDeleting As TBDD_EMAIL_TEMPLATERowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_TEMPLATERowDeleted As TBDD_EMAIL_TEMPLATERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBDD_EMAIL_TEMPLATERow(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_TEMPLATERow Dim rowTBDD_EMAIL_TEMPLATERow As TBDD_EMAIL_TEMPLATERow = CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -7304,13 +7304,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_TEMPLATERow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_TEMPLATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EMAIL_TEMPLATEDataTable = CType(MyBase.Clone,TBDD_EMAIL_TEMPLATEDataTable) cln.InitVars @@ -7318,13 +7318,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_TEMPLATEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnTITLE = MyBase.Columns("TITLE") @@ -7339,7 +7339,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -7385,25 +7385,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBDD_EMAIL_TEMPLATERow() As TBDD_EMAIL_TEMPLATERow Return CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_TEMPLATERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_TEMPLATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowChangedEvent) Is Nothing) Then @@ -7412,7 +7412,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowChangingEvent) Is Nothing) Then @@ -7421,7 +7421,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletedEvent) Is Nothing) Then @@ -7430,7 +7430,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletingEvent) Is Nothing) Then @@ -7439,13 +7439,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7554,7 +7554,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnINTERNAL As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GUI_LANGUAGE_PHRASE" @@ -7564,7 +7564,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7582,14 +7582,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7597,7 +7597,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property MODULEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODULE @@ -7605,7 +7605,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE @@ -7613,7 +7613,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE @@ -7621,7 +7621,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CAPT_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnCAPT_TYPE @@ -7629,7 +7629,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING1 @@ -7637,7 +7637,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING2 @@ -7645,7 +7645,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING3Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING3 @@ -7653,7 +7653,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING4Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING4 @@ -7661,7 +7661,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING5Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING5 @@ -7669,7 +7669,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING6 @@ -7677,7 +7677,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -7685,7 +7685,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -7693,7 +7693,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -7701,7 +7701,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -7709,7 +7709,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property OBJ_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJ_NAME @@ -7717,7 +7717,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL @@ -7725,7 +7725,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -7734,33 +7734,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GUI_LANGUAGE_PHRASERow Get Return CType(Me.Rows(index),TBDD_GUI_LANGUAGE_PHRASERow) End Get End Property - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowChanging As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowChanged As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleting As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleted As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBDD_GUI_LANGUAGE_PHRASERow( _ ByVal _MODULE As String, _ ByVal TITLE As String, _ @@ -7786,13 +7786,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GUI_LANGUAGE_PHRASERow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GUI_LANGUAGE_PHRASERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GUI_LANGUAGE_PHRASEDataTable = CType(MyBase.Clone,TBDD_GUI_LANGUAGE_PHRASEDataTable) cln.InitVars @@ -7800,13 +7800,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GUI_LANGUAGE_PHRASEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMODULE = MyBase.Columns("MODULE") @@ -7828,7 +7828,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -7901,25 +7901,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBDD_GUI_LANGUAGE_PHRASERow() As TBDD_GUI_LANGUAGE_PHRASERow Return CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GUI_LANGUAGE_PHRASERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GUI_LANGUAGE_PHRASERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangedEvent) Is Nothing) Then @@ -7928,7 +7928,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangingEvent) Is Nothing) Then @@ -7937,7 +7937,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletedEvent) Is Nothing) Then @@ -7946,7 +7946,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletingEvent) Is Nothing) Then @@ -7955,13 +7955,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8058,7 +8058,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnNettoSumme_ZK As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWPM_CHART_INVOICE_MONITOR" @@ -8068,7 +8068,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8086,14 +8086,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Anzahl_AIColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_AI @@ -8101,7 +8101,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoSumme_AIColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoSumme_AI @@ -8109,7 +8109,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Anzahl_PEColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_PE @@ -8117,7 +8117,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoSumme_PEColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoSumme_PE @@ -8125,7 +8125,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Anzahl_FFColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_FF @@ -8133,7 +8133,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoSumme_FFColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoSumme_FF @@ -8141,7 +8141,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Anzahl_FIFColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_FIF @@ -8149,7 +8149,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoSumme_FIFColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoSumme_FIF @@ -8157,7 +8157,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Anzahl_ZKColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl_ZK @@ -8165,7 +8165,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WFStateColumn() As Global.System.Data.DataColumn Get Return Me.columnWFState @@ -8173,7 +8173,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoSumme_ZKColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoSumme_ZK @@ -8181,7 +8181,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -8190,33 +8190,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITORRow Get Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITORRow) End Get End Property - _ + _ Public Event VWPM_CHART_INVOICE_MONITORRowChanging As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - _ + _ Public Event VWPM_CHART_INVOICE_MONITORRowChanged As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - _ + _ Public Event VWPM_CHART_INVOICE_MONITORRowDeleting As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - _ + _ Public Event VWPM_CHART_INVOICE_MONITORRowDeleted As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddVWPM_CHART_INVOICE_MONITORRow(ByVal Anzahl_AI As Integer, ByVal NettoSumme_AI As String, ByVal Anzahl_PE As Integer, ByVal NettoSumme_PE As String, ByVal Anzahl_FF As Integer, ByVal NettoSumme_FF As String, ByVal Anzahl_FIF As Integer, ByVal NettoSumme_FIF As String, ByVal Anzahl_ZK As Integer, ByVal WFState As String, ByVal NettoSumme_ZK As String) As VWPM_CHART_INVOICE_MONITORRow Dim rowVWPM_CHART_INVOICE_MONITORRow As VWPM_CHART_INVOICE_MONITORRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) Dim columnValuesArray() As Object = New Object() {Anzahl_AI, NettoSumme_AI, Anzahl_PE, NettoSumme_PE, Anzahl_FF, NettoSumme_FF, Anzahl_FIF, NettoSumme_FIF, Anzahl_ZK, WFState, NettoSumme_ZK} @@ -8226,7 +8226,7 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPM_CHART_INVOICE_MONITORDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITORDataTable) cln.InitVars @@ -8234,13 +8234,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPM_CHART_INVOICE_MONITORDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnAnzahl_AI = MyBase.Columns("Anzahl_AI") Me.columnNettoSumme_AI = MyBase.Columns("NettoSumme_AI") @@ -8256,7 +8256,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnAnzahl_AI = New Global.System.Data.DataColumn("Anzahl_AI", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnzahl_AI) @@ -8300,25 +8300,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewVWPM_CHART_INVOICE_MONITORRow() As VWPM_CHART_INVOICE_MONITORRow Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPM_CHART_INVOICE_MONITORRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPM_CHART_INVOICE_MONITORRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangedEvent) Is Nothing) Then @@ -8327,7 +8327,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangingEvent) Is Nothing) Then @@ -8336,7 +8336,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletedEvent) Is Nothing) Then @@ -8345,7 +8345,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletingEvent) Is Nothing) Then @@ -8354,13 +8354,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8443,7 +8443,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSEQ As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWPM_CHART_INVOICE_MONITOR_SERIES" @@ -8453,7 +8453,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8471,14 +8471,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn Get Return Me.columnTitle @@ -8486,7 +8486,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAnzahl @@ -8494,7 +8494,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoSummeColumn() As Global.System.Data.DataColumn Get Return Me.columnNettoSumme @@ -8502,7 +8502,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SEQColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQ @@ -8510,7 +8510,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -8519,33 +8519,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow Get Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Get End Property - _ + _ Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler - _ + _ Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler - _ + _ Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler - _ + _ Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal Title As String, ByVal Anzahl As Integer, ByVal NettoSumme As Decimal, ByVal SEQ As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow Dim rowVWPM_CHART_INVOICE_MONITOR_SERIESRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) Dim columnValuesArray() As Object = New Object() {Title, Anzahl, NettoSumme, SEQ} @@ -8555,7 +8555,7 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) cln.InitVars @@ -8563,13 +8563,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnTitle = MyBase.Columns("Title") Me.columnAnzahl = MyBase.Columns("Anzahl") @@ -8578,7 +8578,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTitle) @@ -8596,25 +8596,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewVWPM_CHART_INVOICE_MONITOR_SERIESRow() As VWPM_CHART_INVOICE_MONITOR_SERIESRow Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPM_CHART_INVOICE_MONITOR_SERIESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangedEvent) Is Nothing) Then @@ -8623,7 +8623,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangingEvent) Is Nothing) Then @@ -8632,7 +8632,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletedEvent) Is Nothing) Then @@ -8641,7 +8641,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletingEvent) Is Nothing) Then @@ -8650,13 +8650,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8739,7 +8739,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSkonto As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWPM_CHART_TOP5" @@ -8749,7 +8749,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8767,14 +8767,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property KRED_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKRED_NAME @@ -8782,7 +8782,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ANZ_BELEGColumn() As Global.System.Data.DataColumn Get Return Me.columnANZ_BELEG @@ -8790,7 +8790,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NettoColumn() As Global.System.Data.DataColumn Get Return Me.columnNetto @@ -8798,7 +8798,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SkontoColumn() As Global.System.Data.DataColumn Get Return Me.columnSkonto @@ -8806,7 +8806,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -8815,33 +8815,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_TOP5Row Get Return CType(Me.Rows(index),VWPM_CHART_TOP5Row) End Get End Property - _ + _ Public Event VWPM_CHART_TOP5RowChanging As VWPM_CHART_TOP5RowChangeEventHandler - _ + _ Public Event VWPM_CHART_TOP5RowChanged As VWPM_CHART_TOP5RowChangeEventHandler - _ + _ Public Event VWPM_CHART_TOP5RowDeleting As VWPM_CHART_TOP5RowChangeEventHandler - _ + _ Public Event VWPM_CHART_TOP5RowDeleted As VWPM_CHART_TOP5RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddVWPM_CHART_TOP5Row(ByVal KRED_NAME As String, ByVal ANZ_BELEG As Short, ByVal Netto As Decimal, ByVal Skonto As Decimal) As VWPM_CHART_TOP5Row Dim rowVWPM_CHART_TOP5Row As VWPM_CHART_TOP5Row = CType(Me.NewRow,VWPM_CHART_TOP5Row) Dim columnValuesArray() As Object = New Object() {KRED_NAME, ANZ_BELEG, Netto, Skonto} @@ -8851,7 +8851,7 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPM_CHART_TOP5DataTable = CType(MyBase.Clone,VWPM_CHART_TOP5DataTable) cln.InitVars @@ -8859,13 +8859,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPM_CHART_TOP5DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnKRED_NAME = MyBase.Columns("KRED_NAME") Me.columnANZ_BELEG = MyBase.Columns("ANZ_BELEG") @@ -8874,7 +8874,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnKRED_NAME = New Global.System.Data.DataColumn("KRED_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKRED_NAME) @@ -8890,25 +8890,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewVWPM_CHART_TOP5Row() As VWPM_CHART_TOP5Row Return CType(Me.NewRow,VWPM_CHART_TOP5Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPM_CHART_TOP5Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPM_CHART_TOP5Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPM_CHART_TOP5RowChangedEvent) Is Nothing) Then @@ -8917,7 +8917,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPM_CHART_TOP5RowChangingEvent) Is Nothing) Then @@ -8926,7 +8926,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPM_CHART_TOP5RowDeletedEvent) Is Nothing) Then @@ -8935,7 +8935,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPM_CHART_TOP5RowDeletingEvent) Is Nothing) Then @@ -8944,13 +8944,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -9076,8 +9076,10 @@ Partial Public Class DD_DMSLiteDataSet Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn + Private columnSHOW_DOCUMENT As Global.System.Data.DataColumn + _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE" @@ -9087,7 +9089,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9105,14 +9107,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -9120,7 +9122,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -9128,7 +9130,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE @@ -9136,7 +9138,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn Get Return Me.columnPRIORITY @@ -9144,7 +9146,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION @@ -9152,7 +9154,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -9160,7 +9162,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH @@ -9168,7 +9170,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn Get Return Me.columnNO_OF_DOCUMENTS @@ -9176,7 +9178,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -9184,7 +9186,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -9192,7 +9194,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -9200,7 +9202,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -9208,7 +9210,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn Get Return Me.columnFINAL_PROFILE @@ -9216,7 +9218,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnFINAL_TEXT @@ -9224,7 +9226,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property MOVE2FOLDERColumn() As Global.System.Data.DataColumn Get Return Me.columnMOVE2FOLDER @@ -9232,7 +9234,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE @@ -9240,7 +9242,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_OBJECTTYPE @@ -9248,7 +9250,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SORT_BY_LATESTColumn() As Global.System.Data.DataColumn Get Return Me.columnSORT_BY_LATEST @@ -9256,7 +9258,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnPM_VEKTOR_INDEX @@ -9264,7 +9266,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_INDEX @@ -9272,7 +9274,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_VIEW @@ -9280,7 +9282,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn Get Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES @@ -9288,7 +9290,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnANNOTATE_WORK_HISTORY_ENTRY @@ -9296,7 +9298,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnWORK_HISTORY_ENTRY @@ -9304,7 +9306,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DISPLAY_MODEColumn() As Global.System.Data.DataColumn Get Return Me.columnDISPLAY_MODE @@ -9312,7 +9314,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_BTN_FINISH @@ -9320,7 +9322,15 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Public ReadOnly Property SHOW_DOCUMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHOW_DOCUMENT + End Get + End Property + + _ Public ReadOnly Property Count() As Integer Get @@ -9329,33 +9339,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILERow Get Return CType(Me.Rows(index),TBPM_PROFILERow) End Get End Property - _ + _ Public Event TBPM_PROFILERowChanging As TBPM_PROFILERowChangeEventHandler - _ + _ Public Event TBPM_PROFILERowChanged As TBPM_PROFILERowChangeEventHandler - _ + _ Public Event TBPM_PROFILERowDeleting As TBPM_PROFILERowChangeEventHandler - _ + _ Public Event TBPM_PROFILERowDeleted As TBPM_PROFILERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_PROFILERow( _ ByVal NAME As String, _ ByVal TITLE As String, _ @@ -9381,16 +9391,23 @@ Partial Public Class DD_DMSLiteDataSet ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ ByVal WORK_HISTORY_ENTRY As String, _ ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String) As TBPM_PROFILERow + ByVal SQL_BTN_FINISH As String, _ + ByVal SHOW_DOCUMENT As Boolean) As TBPM_PROFILERow Dim rowTBPM_PROFILERow As TBPM_PROFILERow = CType(Me.NewRow,TBPM_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH} + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH, SHOW_DOCUMENT} rowTBPM_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPM_PROFILERow) Return rowTBPM_PROFILERow End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILERow) + End Function + + _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILEDataTable = CType(MyBase.Clone,TBPM_PROFILEDataTable) cln.InitVars @@ -9398,13 +9415,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -9432,10 +9449,11 @@ Partial Public Class DD_DMSLiteDataSet Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY") Me.columnDISPLAY_MODE = MyBase.Columns("DISPLAY_MODE") Me.columnSQL_BTN_FINISH = MyBase.Columns("SQL_BTN_FINISH") + Me.columnSHOW_DOCUMENT = MyBase.Columns("SHOW_DOCUMENT") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -9489,7 +9507,9 @@ Partial Public Class DD_DMSLiteDataSet MyBase.Columns.Add(Me.columnDISPLAY_MODE) Me.columnSQL_BTN_FINISH = New Global.System.Data.DataColumn("SQL_BTN_FINISH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_BTN_FINISH) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnGUID}, false)) + Me.columnSHOW_DOCUMENT = New Global.System.Data.DataColumn("SHOW_DOCUMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHOW_DOCUMENT) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true @@ -9508,7 +9528,9 @@ Partial Public Class DD_DMSLiteDataSet Me.columnWD_SEARCH.MaxLength = 2147483647 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) @@ -9537,32 +9559,34 @@ Partial Public Class DD_DMSLiteDataSet Me.columnWORK_HISTORY_ENTRY.MaxLength = 500 Me.columnDISPLAY_MODE.AllowDBNull = false Me.columnDISPLAY_MODE.DefaultValue = CType("Overview and Detail",String) - Me.columnDISPLAY_MODE.MaxLength = 20 + Me.columnDISPLAY_MODE.MaxLength = 250 Me.columnSQL_BTN_FINISH.AllowDBNull = false Me.columnSQL_BTN_FINISH.DefaultValue = CType("",String) Me.columnSQL_BTN_FINISH.MaxLength = 2147483647 + Me.columnSHOW_DOCUMENT.AllowDBNull = false + Me.columnSHOW_DOCUMENT.DefaultValue = CType(true,Boolean) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_PROFILERow() As TBPM_PROFILERow Return CType(Me.NewRow,TBPM_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILERowChangedEvent) Is Nothing) Then @@ -9571,7 +9595,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILERowChangingEvent) Is Nothing) Then @@ -9580,7 +9604,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILERowDeletedEvent) Is Nothing) Then @@ -9589,7 +9613,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILERowDeletingEvent) Is Nothing) Then @@ -9598,13 +9622,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -9705,7 +9729,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_CONNECTION" @@ -9715,7 +9739,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9733,14 +9757,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -9748,7 +9772,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -9756,7 +9780,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER @@ -9764,7 +9788,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER @@ -9772,7 +9796,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK @@ -9780,7 +9804,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -9788,7 +9812,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD @@ -9796,7 +9820,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -9804,7 +9828,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -9812,7 +9836,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -9820,7 +9844,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -9828,7 +9852,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -9836,7 +9860,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -9844,7 +9868,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -9853,33 +9877,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CONNECTIONRow Get Return CType(Me.Rows(index),TBWH_CONNECTIONRow) End Get End Property - _ + _ Public Event TBWH_CONNECTIONRowChanging As TBWH_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBWH_CONNECTIONRowChanged As TBWH_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBWH_CONNECTIONRowDeleting As TBWH_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBWH_CONNECTIONRowDeleted As TBWH_CONNECTIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBWH_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWH_CONNECTIONRow Dim rowTBWH_CONNECTIONRow As TBWH_CONNECTIONRow = CType(Me.NewRow,TBWH_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} @@ -9889,13 +9913,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBWH_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_CONNECTIONDataTable = CType(MyBase.Clone,TBWH_CONNECTIONDataTable) cln.InitVars @@ -9903,13 +9927,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_CONNECTIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -9927,7 +9951,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -9977,25 +10001,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBWH_CONNECTIONRow() As TBWH_CONNECTIONRow Return CType(Me.NewRow,TBWH_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_CONNECTIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_CONNECTIONRowChangedEvent) Is Nothing) Then @@ -10004,7 +10028,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_CONNECTIONRowChangingEvent) Is Nothing) Then @@ -10013,7 +10037,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_CONNECTIONRowDeletedEvent) Is Nothing) Then @@ -10022,7 +10046,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_CONNECTIONRowDeletingEvent) Is Nothing) Then @@ -10031,13 +10055,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -10112,14 +10136,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) @@ -10130,7 +10154,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VALUE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) @@ -10141,7 +10165,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) @@ -10152,7 +10176,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) @@ -10163,7 +10187,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -10179,7 +10203,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -10195,7 +10219,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) @@ -10206,7 +10230,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) @@ -10217,7 +10241,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_COMMAND() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) @@ -10228,7 +10252,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DESCRIPTION() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) @@ -10239,7 +10263,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) @@ -10250,7 +10274,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property IF_VEKTOR_BEHAVIOUR() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) @@ -10261,7 +10285,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ALLOW_NEW_VALUES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean) @@ -10272,7 +10296,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PREVENT_DUPLICATES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean) @@ -10283,25 +10307,25 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -10316,14 +10340,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) @@ -10334,7 +10358,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LIZENZEN() As String Get Try @@ -10349,7 +10373,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) @@ -10360,7 +10384,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) @@ -10371,7 +10395,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) @@ -10382,7 +10406,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -10397,7 +10421,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INTERVALL_CKECK_NO_OF_FILES() As Short Get Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) @@ -10408,7 +10432,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -10423,7 +10447,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) @@ -10434,7 +10458,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_FROM() As String Get Try @@ -10449,7 +10473,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_SMTP() As String Get Try @@ -10464,7 +10488,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_USER() As String Get Try @@ -10479,7 +10503,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_PW() As String Get Try @@ -10494,7 +10518,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_REMINDER_HEADER() As String Get Try @@ -10510,7 +10534,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_REMINDER_FOOTER() As String Get Try @@ -10526,7 +10550,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VEKTOR_DELIMITER() As String Get Return CType(Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn),String) @@ -10537,7 +10561,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADMIN_PW() As String Get Try @@ -10552,7 +10576,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADMIN_SECURITY() As Boolean Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) @@ -10563,121 +10587,121 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsLIZENZENNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetLIZENZENNull() Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAIL_FROMNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAIL_FROMNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAIL_SMTPNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAIL_SMTPNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAIL_USERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAIL_USERNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAIL_PWNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAIL_PWNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAIL_REMINDER_HEADERNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAIL_REMINDER_FOOTERNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADMIN_PWNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADMIN_PWNull() Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = Global.System.Convert.DBNull End Sub @@ -10692,14 +10716,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_USER As TBDD_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) @@ -10710,7 +10734,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -10725,7 +10749,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Try @@ -10740,7 +10764,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) @@ -10751,7 +10775,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL() As String Get Try @@ -10766,7 +10790,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) @@ -10777,7 +10801,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -10792,7 +10816,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -10807,7 +10831,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -10822,7 +10846,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -10837,7 +10861,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -10852,97 +10876,97 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub @@ -10957,14 +10981,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_TYPE As TBPM_TYPEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_TYPE = CType(Me.Table,TBPM_TYPEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBPM_TYPE.GUIDColumn),Short) @@ -10975,7 +10999,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn),String) @@ -10986,7 +11010,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHOColumn),String) @@ -10997,7 +11021,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHENColumn),Date) @@ -11008,7 +11032,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -11023,7 +11047,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -11038,25 +11062,25 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -11071,14 +11095,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_ERROR_LOG As TBPM_ERROR_LOGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_ERROR_LOG = CType(Me.Table,TBPM_ERROR_LOGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_ERROR_LOG.GUIDColumn),Integer) @@ -11089,7 +11113,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Return CType(Me(Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn),Integer) @@ -11100,7 +11124,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERROR_MSG() As String Get Return CType(Me(Me.tableTBPM_ERROR_LOG.ERROR_MSGColumn),String) @@ -11111,7 +11135,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHOColumn),String) @@ -11122,7 +11146,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn),Date) @@ -11142,14 +11166,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) @@ -11160,7 +11184,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -11175,7 +11199,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -11190,7 +11214,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SERVER() As String Get Try @@ -11205,7 +11229,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -11220,7 +11244,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -11235,7 +11259,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -11250,7 +11274,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -11265,7 +11289,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) @@ -11276,7 +11300,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) @@ -11287,7 +11311,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -11302,7 +11326,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -11317,7 +11341,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -11332,7 +11356,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SYS_CONNECTION() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) @@ -11343,121 +11367,121 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -11472,14 +11496,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPROFILE_USER As TBPROFILE_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPROFILE_USER = CType(Me.Table,TBPROFILE_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPROFILE_USER.GUIDColumn),Integer) @@ -11490,7 +11514,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -11505,7 +11529,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Try @@ -11520,7 +11544,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableTBPROFILE_USER.USERNAMEColumn),String) @@ -11531,7 +11555,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL() As String Get Try @@ -11546,7 +11570,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -11561,7 +11585,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -11576,61 +11600,61 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBPROFILE_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub @@ -11645,14 +11669,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_FILES = CType(Me.Table,TBPM_PROFILE_FILESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn),Integer) @@ -11663,7 +11687,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FILE_PATH() As String Get Try @@ -11678,7 +11702,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DMS_ERSTELLT_DATE() As Date Get Try @@ -11693,25 +11717,25 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsFILE_PATHNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetFILE_PATHNull() Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsDMS_ERSTELLT_DATENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetDMS_ERSTELLT_DATENull() Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = Global.System.Convert.DBNull End Sub @@ -11726,14 +11750,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) @@ -11744,7 +11768,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) @@ -11755,7 +11779,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CTRL_TYPE() As String Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) @@ -11766,7 +11790,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INDEX_NAME() As String Get Try @@ -11782,7 +11806,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TYP() As String Get Try @@ -11797,7 +11821,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VALIDATION() As Boolean Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) @@ -11808,7 +11832,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHOICE_LIST() As String Get Try @@ -11824,7 +11848,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -11840,7 +11864,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_UEBERPRUEFUNG() As String Get Try @@ -11856,67 +11880,67 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsINDEX_NAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetINDEX_NAMENull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsTYPNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetTYPNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHOICE_LISTNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHOICE_LISTNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_UEBERPRUEFUNGNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then Return New TBPM_CONTROL_TABLERow(-1) {} @@ -11935,14 +11959,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) @@ -11953,7 +11977,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) @@ -11964,7 +11988,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) @@ -11975,7 +11999,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CTRL_TYPE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) @@ -11986,7 +12010,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CTRL_TEXT() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) @@ -11997,7 +12021,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property X_LOC() As Double Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) @@ -12008,7 +12032,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Y_LOC() As Double Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) @@ -12019,7 +12043,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) @@ -12030,7 +12054,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) @@ -12041,7 +12065,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -12056,7 +12080,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -12071,7 +12095,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INDEX_NAME() As String Get Try @@ -12086,7 +12110,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TYP() As String Get Try @@ -12101,7 +12125,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VALIDATION() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) @@ -12112,7 +12136,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHOICE_LIST() As String Get Try @@ -12127,7 +12151,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -12142,7 +12166,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_UEBERPRUEFUNG() As String Get Try @@ -12158,7 +12182,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property HEIGHT() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) @@ -12169,7 +12193,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WIDTH() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) @@ -12180,7 +12204,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FONT_STYLE() As Short Get Try @@ -12195,7 +12219,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FONT_SIZE() As Short Get Try @@ -12210,7 +12234,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FONT_FAMILY() As String Get Try @@ -12225,7 +12249,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FONT_COLOR() As Long Get Try @@ -12240,7 +12264,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property READ_ONLY() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) @@ -12251,7 +12275,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LOAD_IDX_VALUE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) @@ -12262,7 +12286,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DEFAULT_VALUE() As String Get Try @@ -12277,7 +12301,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property MULTISELECT() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) @@ -12288,7 +12312,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VKT_ADD_ITEM() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) @@ -12299,7 +12323,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) @@ -12310,7 +12334,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REGEX_MATCH() As String Get Try @@ -12325,7 +12349,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REGEX_MESSAGE_DE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) @@ -12336,7 +12360,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REGEX_MESSAGE_EN() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) @@ -12347,7 +12371,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property IMAGE_CONTROL() As Byte() Get Try @@ -12362,7 +12386,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL2() As String Get Try @@ -12377,7 +12401,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_ENABLE() As String Get Try @@ -12392,7 +12416,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SET_CONTROL_DATA() As String Get Try @@ -12408,7 +12432,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_ENABLE_ON_LOAD() As String Get Try @@ -12424,7 +12448,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_ENABLE_ON_LOAD_CONID() As Byte Get Try @@ -12440,7 +12464,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONTROL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn),Boolean) @@ -12451,7 +12475,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TABLE_ORDER_COLUMN() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TABLE_ORDER_COLUMNColumn),String) @@ -12462,7 +12486,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SAVE_CHANGE_ON_ENABLED() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SAVE_CHANGE_ON_ENABLEDColumn),Boolean) @@ -12473,7 +12497,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE")),TBPM_PROFILERow) @@ -12484,235 +12508,235 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsINDEX_NAMENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetINDEX_NAMENull() Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsTYPNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetTYPNull() Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHOICE_LISTNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHOICE_LISTNull() Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_UEBERPRUEFUNGNull() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsFONT_STYLENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetFONT_STYLENull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsFONT_SIZENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetFONT_SIZENull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsFONT_FAMILYNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetFONT_FAMILYNull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsFONT_COLORNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetFONT_COLORNull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsDEFAULT_VALUENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetDEFAULT_VALUENull() Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsREGEX_MATCHNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetREGEX_MATCHNull() Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsIMAGE_CONTROLNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetIMAGE_CONTROLNull() Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL2Null() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL2Null() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_ENABLENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_ENABLENull() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSET_CONTROL_DATANull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSET_CONTROL_DATANull() Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_ENABLE_ON_LOADNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_ENABLE_ON_LOADNull() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_ENABLE_ON_LOAD_CONIDNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_ENABLE_ON_LOAD_CONIDNull() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1") Is Nothing) Then Return New TBPM_CONTROL_TABLERow(-1) {} @@ -12731,14 +12755,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_CONTROL_TABLE As TBPM_CONTROL_TABLEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_CONTROL_TABLE = CType(Me.Table,TBPM_CONTROL_TABLEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn),Integer) @@ -12749,7 +12773,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONTROL_ID() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn),Integer) @@ -12760,7 +12784,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SPALTENNAME() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn),String) @@ -12771,7 +12795,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SPALTEN_HEADER() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn),String) @@ -12782,7 +12806,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SPALTENBREITE() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn),Integer) @@ -12793,7 +12817,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VALIDATION() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn),Boolean) @@ -12804,7 +12828,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHOICE_LIST() As String Get Try @@ -12819,7 +12843,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -12834,7 +12858,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_COMMAND() As String Get Try @@ -12849,7 +12873,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property READ_ONLY() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn),Boolean) @@ -12860,7 +12884,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LOAD_IDX_VALUE() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn),Boolean) @@ -12871,7 +12895,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn),String) @@ -12882,7 +12906,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn),Date) @@ -12893,7 +12917,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -12908,7 +12932,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -12923,7 +12947,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REGEX_MATCH() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn),String) @@ -12934,7 +12958,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REGEX_MESSAGE_EN() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn),String) @@ -12945,7 +12969,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REGEX_MESSAGE_DE() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn),String) @@ -12956,7 +12980,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SEQUENCEColumn),Integer) @@ -12967,7 +12991,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DEFAULT_VALUE() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.DEFAULT_VALUEColumn),String) @@ -12978,7 +13002,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADVANCED_LOOKUP() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADVANCED_LOOKUPColumn),Boolean) @@ -12989,7 +13013,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SUMMARY_FUNCTION() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SUMMARY_FUNCTIONColumn),String) @@ -13000,7 +13024,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TYPE_COLUMN() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.TYPE_COLUMNColumn),String) @@ -13011,7 +13035,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LU_CAPTION() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LU_CAPTIONColumn),String) @@ -13022,7 +13046,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_PROFILE_CONTROLSRow) @@ -13033,7 +13057,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBWH_CHECK_PROFILE_CONTROLSRow) @@ -13044,61 +13068,61 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHOICE_LISTNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHOICE_LISTNull() Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_COMMANDNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_COMMANDNull() Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -13113,14 +13137,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) @@ -13131,7 +13155,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Try @@ -13146,7 +13170,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ECM_FK_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) @@ -13157,7 +13181,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property AD_SYNC() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) @@ -13168,7 +13192,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) @@ -13179,7 +13203,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) @@ -13190,7 +13214,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -13205,7 +13229,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -13220,7 +13244,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -13235,7 +13259,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -13250,7 +13274,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -13265,73 +13289,73 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -13346,14 +13370,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) @@ -13364,7 +13388,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Try @@ -13379,7 +13403,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) @@ -13390,7 +13414,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -13405,7 +13429,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -13420,7 +13444,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -13435,7 +13459,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -13450,7 +13474,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -13465,73 +13489,73 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -13546,14 +13570,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SequentialOrder() As Integer Get Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) @@ -13564,7 +13588,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_ID() As Integer Get Try @@ -13580,7 +13604,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_NAME() As String Get Try @@ -13596,7 +13620,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_PRENAME() As String Get Try @@ -13612,7 +13636,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_SURNAME() As String Get Try @@ -13628,7 +13652,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_SHORTNAME() As String Get Try @@ -13644,7 +13668,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_EMAIL() As String Get Try @@ -13660,7 +13684,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_LANGUAGE() As String Get Try @@ -13676,7 +13700,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USER_COMMENT() As String Get Try @@ -13692,97 +13716,97 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_IDNull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_IDNull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_NAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_NAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_PRENAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_PRENAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_SURNAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_SURNAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_SHORTNAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_SHORTNAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_EMAILNull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_EMAILNull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_LANGUAGENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_LANGUAGENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSER_COMMENTNull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSER_COMMENTNull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull End Sub @@ -13797,14 +13821,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_EMAIL_TEMPLATE As TBDD_EMAIL_TEMPLATEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EMAIL_TEMPLATE = CType(Me.Table,TBDD_EMAIL_TEMPLATEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn),Integer) @@ -13815,7 +13839,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn),String) @@ -13826,7 +13850,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_SUBJECT() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn),String) @@ -13837,7 +13861,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_BODY1() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column),String) @@ -13848,7 +13872,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_BODY2() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column),String) @@ -13859,7 +13883,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_BODY3() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column),String) @@ -13870,7 +13894,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn),String) @@ -13881,7 +13905,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -13896,7 +13920,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -13911,7 +13935,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -13926,37 +13950,37 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -13971,14 +13995,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_GUI_LANGUAGE_PHRASE As TBDD_GUI_LANGUAGE_PHRASEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GUI_LANGUAGE_PHRASE = CType(Me.Table,TBDD_GUI_LANGUAGE_PHRASEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.GUIDColumn),Integer) @@ -13989,7 +14013,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property _MODULE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.MODULEColumn),String) @@ -14000,7 +14024,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.TITLEColumn),String) @@ -14011,7 +14035,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.LANGUAGEColumn),String) @@ -14022,7 +14046,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CAPT_TYPE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CAPT_TYPEColumn),String) @@ -14033,7 +14057,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING1() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING1Column),String) @@ -14044,7 +14068,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING2() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING2Column),String) @@ -14055,7 +14079,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING3() As String Get Try @@ -14070,7 +14094,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING4() As String Get Try @@ -14085,7 +14109,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING5() As String Get Try @@ -14100,7 +14124,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING6() As String Get Try @@ -14115,7 +14139,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn),String) @@ -14126,7 +14150,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -14141,7 +14165,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -14156,7 +14180,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -14171,7 +14195,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property OBJ_NAME() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn),String) @@ -14182,7 +14206,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn),Boolean) @@ -14193,85 +14217,85 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING3Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING3Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING4Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING4Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING5Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING5Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING6Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING6Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -14286,14 +14310,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableVWPM_CHART_INVOICE_MONITOR As VWPM_CHART_INVOICE_MONITORDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPM_CHART_INVOICE_MONITOR = CType(Me.Table,VWPM_CHART_INVOICE_MONITORDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Anzahl_AI() As Integer Get Try @@ -14308,7 +14332,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NettoSumme_AI() As String Get Try @@ -14324,7 +14348,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Anzahl_PE() As Integer Get Try @@ -14339,7 +14363,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NettoSumme_PE() As String Get Try @@ -14355,7 +14379,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Anzahl_FF() As Integer Get Try @@ -14370,7 +14394,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NettoSumme_FF() As String Get Try @@ -14386,7 +14410,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Anzahl_FIF() As Integer Get Try @@ -14401,7 +14425,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NettoSumme_FIF() As String Get Try @@ -14417,7 +14441,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Anzahl_ZK() As Integer Get Try @@ -14432,7 +14456,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WFState() As String Get Try @@ -14447,7 +14471,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NettoSumme_ZK() As String Get Try @@ -14463,133 +14487,133 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAnzahl_AINull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_AIColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAnzahl_AINull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_AIColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNettoSumme_AINull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_AIColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNettoSumme_AINull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_AIColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAnzahl_PENull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_PEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAnzahl_PENull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_PEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNettoSumme_PENull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_PEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNettoSumme_PENull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_PEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAnzahl_FFNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FFColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAnzahl_FFNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FFColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNettoSumme_FFNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FFColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNettoSumme_FFNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FFColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAnzahl_FIFNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FIFColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAnzahl_FIFNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FIFColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNettoSumme_FIFNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FIFColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNettoSumme_FIFNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FIFColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAnzahl_ZKNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_ZKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAnzahl_ZKNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_ZKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsWFStateNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.WFStateColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetWFStateNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.WFStateColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNettoSumme_ZKNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_ZKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNettoSumme_ZKNull() Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_ZKColumn) = Global.System.Convert.DBNull End Sub @@ -14604,14 +14628,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableVWPM_CHART_INVOICE_MONITOR_SERIES As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES = CType(Me.Table,VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Title() As String Get Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.TitleColumn),String) @@ -14622,7 +14646,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Anzahl() As Integer Get Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.AnzahlColumn),Integer) @@ -14633,7 +14657,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NettoSumme() As Decimal Get Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.NettoSummeColumn),Decimal) @@ -14644,7 +14668,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SEQ() As Integer Get Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.SEQColumn),Integer) @@ -14664,14 +14688,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableVWPM_CHART_TOP5 As VWPM_CHART_TOP5DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPM_CHART_TOP5 = CType(Me.Table,VWPM_CHART_TOP5DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property KRED_NAME() As String Get Return CType(Me(Me.tableVWPM_CHART_TOP5.KRED_NAMEColumn),String) @@ -14682,7 +14706,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ANZ_BELEG() As Short Get Return CType(Me(Me.tableVWPM_CHART_TOP5.ANZ_BELEGColumn),Short) @@ -14693,7 +14717,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Netto() As Decimal Get Try @@ -14708,7 +14732,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Skonto() As Decimal Get Try @@ -14723,25 +14747,25 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNettoNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_TOP5.NettoColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNettoNull() Me(Me.tableVWPM_CHART_TOP5.NettoColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSkontoNull() As Boolean Return Me.IsNull(Me.tableVWPM_CHART_TOP5.SkontoColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSkontoNull() Me(Me.tableVWPM_CHART_TOP5.SkontoColumn) = Global.System.Convert.DBNull End Sub @@ -14756,14 +14780,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE As TBPM_PROFILEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) @@ -14774,7 +14798,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) @@ -14785,7 +14809,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) @@ -14796,7 +14820,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PRIORITY() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) @@ -14807,7 +14831,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DESCRIPTION() As String Get Try @@ -14822,7 +14846,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) @@ -14833,7 +14857,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WD_SEARCH() As String Get Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) @@ -14844,7 +14868,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NO_OF_DOCUMENTS() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) @@ -14855,14 +14879,10 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value @@ -14870,14 +14890,10 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - 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 + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value @@ -14885,7 +14901,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -14900,7 +14916,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -14915,7 +14931,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FINAL_PROFILE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) @@ -14926,7 +14942,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property FINAL_TEXT() As String Get Try @@ -14941,7 +14957,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property MOVE2FOLDER() As String Get Try @@ -14956,7 +14972,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TYPE() As Short Get Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) @@ -14967,7 +14983,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WD_OBJECTTYPE() As String Get Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) @@ -14978,7 +14994,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SORT_BY_LATEST() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) @@ -14989,7 +15005,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PM_VEKTOR_INDEX() As String Get Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) @@ -15000,7 +15016,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LOG_INDEX() As String Get Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) @@ -15011,7 +15027,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_VIEW() As String Get Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) @@ -15022,7 +15038,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) @@ -15033,7 +15049,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) @@ -15044,7 +15060,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WORK_HISTORY_ENTRY() As String Get Try @@ -15059,7 +15075,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DISPLAY_MODE() As String Get Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) @@ -15070,7 +15086,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_BTN_FINISH() As String Get Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) @@ -15081,103 +15097,90 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ + Public Property SHOW_DOCUMENT() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.SHOW_DOCUMENTColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.SHOW_DOCUMENTColumn) = value + End Set + End Property + + _ Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetDESCRIPTIONNull() Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsFINAL_TEXTNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetFINAL_TEXTNull() Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsMOVE2FOLDERNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetMOVE2FOLDERNull() Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsWORK_HISTORY_ENTRYNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetWORK_HISTORY_ENTRYNull() Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE") Is Nothing) Then Return New TBPM_PROFILE_CONTROLSRow(-1) {} @@ -15196,14 +15199,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) @@ -15214,7 +15217,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -15229,7 +15232,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -15244,7 +15247,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SERVER() As String Get Try @@ -15259,7 +15262,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -15274,7 +15277,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -15289,7 +15292,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -15304,7 +15307,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -15319,7 +15322,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) @@ -15330,7 +15333,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) @@ -15341,7 +15344,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) @@ -15352,7 +15355,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -15367,7 +15370,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -15382,109 +15385,109 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSERVERNull() Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetDATENBANKNull() Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetPASSWORDNull() Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -15493,7 +15496,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent Inherits Global.System.EventArgs @@ -15502,7 +15505,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15510,7 +15513,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow Get Return Me.eventRow @@ -15518,7 +15521,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15529,7 +15532,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_KONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs @@ -15538,7 +15541,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15546,7 +15549,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow Get Return Me.eventRow @@ -15554,7 +15557,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15565,7 +15568,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_USERRowChangeEvent Inherits Global.System.EventArgs @@ -15574,7 +15577,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15582,7 +15585,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBDD_USERRow Get Return Me.eventRow @@ -15590,7 +15593,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15601,7 +15604,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_TYPERowChangeEvent Inherits Global.System.EventArgs @@ -15610,7 +15613,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15618,7 +15621,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_TYPERow Get Return Me.eventRow @@ -15626,7 +15629,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15637,7 +15640,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_ERROR_LOGRowChangeEvent Inherits Global.System.EventArgs @@ -15646,7 +15649,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15654,7 +15657,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_ERROR_LOGRow Get Return Me.eventRow @@ -15662,7 +15665,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15673,7 +15676,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs @@ -15682,7 +15685,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15690,7 +15693,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow @@ -15698,7 +15701,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15709,7 +15712,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPROFILE_USERRowChangeEvent Inherits Global.System.EventArgs @@ -15718,7 +15721,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15726,7 +15729,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPROFILE_USERRow Get Return Me.eventRow @@ -15734,7 +15737,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15745,7 +15748,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_FILESRowChangeEvent Inherits Global.System.EventArgs @@ -15754,7 +15757,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15762,7 +15765,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow Get Return Me.eventRow @@ -15770,7 +15773,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15781,7 +15784,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent Inherits Global.System.EventArgs @@ -15790,7 +15793,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15798,7 +15801,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow Get Return Me.eventRow @@ -15806,7 +15809,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15817,7 +15820,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_CONTROLSRowChangeEvent Inherits Global.System.EventArgs @@ -15826,7 +15829,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15834,7 +15837,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow Get Return Me.eventRow @@ -15842,7 +15845,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15853,7 +15856,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_CONTROL_TABLERowChangeEvent Inherits Global.System.EventArgs @@ -15862,7 +15865,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15870,7 +15873,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow Get Return Me.eventRow @@ -15878,7 +15881,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15889,7 +15892,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -15898,7 +15901,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15906,7 +15909,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPSRow Get Return Me.eventRow @@ -15914,7 +15917,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15925,7 +15928,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPROFILE_GROUPRowChangeEvent Inherits Global.System.EventArgs @@ -15934,7 +15937,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15942,7 +15945,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPROFILE_GROUPRow Get Return Me.eventRow @@ -15950,7 +15953,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15961,7 +15964,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -15970,7 +15973,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -15978,7 +15981,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow Get Return Me.eventRow @@ -15986,7 +15989,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -15997,7 +16000,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_EMAIL_TEMPLATERowChangeEvent Inherits Global.System.EventArgs @@ -16006,7 +16009,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16014,7 +16017,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow Get Return Me.eventRow @@ -16022,7 +16025,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16033,7 +16036,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GUI_LANGUAGE_PHRASERowChangeEvent Inherits Global.System.EventArgs @@ -16042,7 +16045,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16050,7 +16053,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GUI_LANGUAGE_PHRASERow Get Return Me.eventRow @@ -16058,7 +16061,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16069,7 +16072,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class VWPM_CHART_INVOICE_MONITORRowChangeEvent Inherits Global.System.EventArgs @@ -16078,7 +16081,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITORRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16086,7 +16089,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITORRow Get Return Me.eventRow @@ -16094,7 +16097,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16105,7 +16108,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent Inherits Global.System.EventArgs @@ -16114,7 +16117,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16122,7 +16125,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITOR_SERIESRow Get Return Me.eventRow @@ -16130,7 +16133,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16141,7 +16144,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class VWPM_CHART_TOP5RowChangeEvent Inherits Global.System.EventArgs @@ -16150,7 +16153,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As VWPM_CHART_TOP5Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16158,7 +16161,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As VWPM_CHART_TOP5Row Get Return Me.eventRow @@ -16166,7 +16169,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16177,7 +16180,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -16186,7 +16189,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16194,7 +16197,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILERow Get Return Me.eventRow @@ -16202,7 +16205,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16213,7 +16216,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBWH_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs @@ -16222,7 +16225,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -16230,7 +16233,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBWH_CONNECTIONRow Get Return Me.eventRow @@ -16238,7 +16241,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -16272,14 +16275,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -16290,7 +16293,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -16320,7 +16323,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -16348,7 +16351,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -16359,7 +16362,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -16370,7 +16373,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -16417,14 +16420,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -16506,7 +16509,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer @@ -16524,7 +16527,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -16540,7 +16543,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer @@ -16554,7 +16557,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -16566,35 +16569,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer @@ -16617,7 +16620,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer @@ -16640,7 +16643,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal IF_VEKTOR_BEHAVIOUR As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -16688,7 +16691,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -16720,7 +16723,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -16781,14 +16784,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -16799,7 +16802,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -16829,7 +16832,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -16857,7 +16860,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -16868,7 +16871,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -16879,7 +16882,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -16953,14 +16956,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -17026,7 +17029,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer @@ -17039,7 +17042,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable @@ -17050,35 +17053,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_KONFIGURATION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function cmdGetAdminPW() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -17104,7 +17107,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetAdminSecurity() As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -17130,7 +17133,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetDelimiter() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -17156,7 +17159,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetLizenz() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -17182,7 +17185,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdSetAdminPW(ByVal ADMIN_PW As String) As Integer @@ -17209,7 +17212,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateEmail(ByVal GEAENDERTWER As String, ByVal EMAIL_ACTIVE As Boolean, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal EMAIL_REMINDER_HEADER As String, ByVal EMAIL_REMINDER_FOOTER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer @@ -17269,7 +17272,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateLizenz(ByVal GEAENDERTWER As String, ByVal LIZENZEN As String) As Integer @@ -17324,14 +17327,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -17342,7 +17345,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -17372,7 +17375,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -17400,7 +17403,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -17411,7 +17414,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -17422,7 +17425,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -17508,14 +17511,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -17545,7 +17548,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer @@ -17558,7 +17561,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_USERDataTable @@ -17569,7 +17572,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer @@ -17583,7 +17586,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable @@ -17595,35 +17598,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, 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_COMMENT As String, ByVal Original_SHORTNAME As String) As Integer @@ -17710,7 +17713,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As Integer @@ -17765,7 +17768,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -17845,14 +17848,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -17863,7 +17866,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -17893,7 +17896,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -17921,7 +17924,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -17932,7 +17935,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -17943,7 +17946,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -18013,14 +18016,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -18030,7 +18033,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer @@ -18043,7 +18046,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_TYPEDataTable @@ -18054,35 +18057,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_TYPE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -18128,7 +18131,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -18169,7 +18172,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Short) As Integer @@ -18237,7 +18240,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -18268,14 +18271,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -18286,7 +18289,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -18316,7 +18319,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -18344,7 +18347,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -18355,7 +18358,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -18366,7 +18369,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -18415,14 +18418,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -18442,7 +18445,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer @@ -18455,7 +18458,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable @@ -18466,35 +18469,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_ERROR_LOG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -18515,7 +18518,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String) As Integer @@ -18546,7 +18549,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer @@ -18592,7 +18595,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date) As Integer @@ -18600,7 +18603,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete() As Integer @@ -18622,7 +18625,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function DeletePROFIL(ByVal PROF_ID As Integer) As Integer @@ -18668,14 +18671,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -18686,7 +18689,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -18716,7 +18719,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -18744,7 +18747,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -18755,7 +18758,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -18766,7 +18769,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -18836,14 +18839,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -18882,7 +18885,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer @@ -18895,7 +18898,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable @@ -18906,7 +18909,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable, ByVal ID As Short) As Integer @@ -18920,7 +18923,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByID(ByVal ID As Short) As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable @@ -18932,35 +18935,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer @@ -18981,7 +18984,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal SYS_CONNECTION As Boolean) As Integer @@ -19043,7 +19046,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal SYS_CONNECTION As Boolean, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer @@ -19107,7 +19110,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal SYS_CONNECTION As Boolean) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -19198,14 +19201,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -19216,7 +19219,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -19246,7 +19249,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -19274,7 +19277,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -19285,7 +19288,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -19296,7 +19299,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -19313,14 +19316,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -19354,7 +19357,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_USERDataTable, ByVal profil_id As Integer) As Integer @@ -19368,7 +19371,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_USERDataTable @@ -19380,7 +19383,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer) As Integer @@ -19404,7 +19407,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer @@ -19427,7 +19430,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CMDInsert(ByVal PROFIL_ID As Integer, ByVal USER_ID As Integer, ByVal WHO As String) As Integer @@ -19479,14 +19482,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -19497,7 +19500,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -19527,7 +19530,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -19555,7 +19558,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -19566,7 +19569,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -19577,7 +19580,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -19606,14 +19609,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -19654,7 +19657,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable, ByVal Profil_id As Integer) As Integer @@ -19668,7 +19671,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal Profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable @@ -19680,35 +19683,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FILES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function cmdCheckEdit(ByVal AKTUELLE_ID As Integer) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -19735,7 +19738,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdCheckInWork(ByVal AKTUELLE_ID As Integer) As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -19762,7 +19765,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete(ByVal ID As Integer) As Integer @@ -19785,7 +19788,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteProfilData(ByVal PROFIL_ID As Integer) As Integer @@ -19808,7 +19811,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdSetEdit(ByVal GUID As Integer) As Integer @@ -19854,14 +19857,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -19872,7 +19875,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -19902,7 +19905,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -19930,7 +19933,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -19941,7 +19944,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -19952,7 +19955,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -19971,14 +19974,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -19991,7 +19994,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable, ByVal P_ID As Integer) As Integer @@ -20005,7 +20008,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal P_ID As Integer) As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable @@ -20040,14 +20043,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -20058,7 +20061,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -20088,7 +20091,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -20116,7 +20119,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -20127,7 +20130,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -20138,7 +20141,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -20306,14 +20309,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(10) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -20415,7 +20418,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal guid As Integer) As Integer @@ -20429,7 +20432,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal guid As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable @@ -20441,7 +20444,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByProfil(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As Integer @@ -20460,7 +20463,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByProfil(ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable @@ -20477,35 +20480,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_CONTROLS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -20526,7 +20529,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -20704,7 +20707,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -20872,7 +20875,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdControlExists(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -20904,7 +20907,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteProfil(ByVal PROFIL_ID As Integer) As Integer @@ -20927,7 +20930,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetChoiceListName(ByVal GUID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -20954,7 +20957,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdgetConnectionID(ByVal GUID As Integer) As Global.System.Nullable(Of Short) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -20981,7 +20984,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetGUID(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -21013,7 +21016,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetIndexname(ByVal GUID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) @@ -21040,7 +21043,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetSQL(ByVal Guid As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) @@ -21067,7 +21070,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdInsertAnlage(ByVal PROFIL_ID As Integer, ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal CTRL_TEXT As String, ByVal X_LOC As Double, ByVal Y_LOC As Double, ByVal ADDED_WHO As String, ByVal HEIGHT As Short, ByVal Width As Short) As Integer @@ -21114,7 +21117,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateIndexname(ByVal INDEX_NAME As String, ByVal G_WER As String, ByVal Original_GUID As Integer) As Integer @@ -21170,14 +21173,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -21188,7 +21191,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -21218,7 +21221,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -21246,7 +21249,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -21257,7 +21260,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21268,7 +21271,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -21365,14 +21368,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -21447,7 +21450,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal CONTROL_ID As Integer) As Integer @@ -21461,7 +21464,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal CONTROL_ID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable @@ -21473,7 +21476,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillAll(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer @@ -21486,7 +21489,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataAll() As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable @@ -21497,7 +21500,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByGUID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal GUID As Integer) As Integer @@ -21511,7 +21514,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGUID(ByVal GUID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable @@ -21523,35 +21526,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_CONTROL_TABLE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -21572,7 +21575,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal ADDED_WHO As String, ByVal TYPE_COLUMN As String) As Integer @@ -21614,7 +21617,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -21732,7 +21735,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdate( _ ByVal SPALTENNAME As String, _ @@ -21832,7 +21835,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function DeleteColumnsByControlId(ByVal CONTROL_ID As Integer) As Integer @@ -21855,7 +21858,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function getColumnID(ByVal control_id As Integer, ByVal spaltenname As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -21910,14 +21913,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -21928,7 +21931,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -21958,7 +21961,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -21986,7 +21989,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -21997,7 +22000,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22008,7 +22011,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -22029,14 +22032,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -22055,7 +22058,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable, ByVal PROFILE_ID As Integer) As Integer @@ -22069,7 +22072,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_GROUPSDataTable @@ -22104,14 +22107,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -22122,7 +22125,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -22152,7 +22155,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -22180,7 +22183,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -22191,7 +22194,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22202,7 +22205,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -22220,14 +22223,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -22261,7 +22264,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable, ByVal profil_id As Integer) As Integer @@ -22275,7 +22278,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable @@ -22287,7 +22290,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer) As Integer @@ -22311,7 +22314,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer @@ -22334,7 +22337,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer, ByVal WHO As String) As Integer @@ -22386,14 +22389,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -22404,7 +22407,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -22434,7 +22437,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -22462,7 +22465,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -22473,7 +22476,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22484,7 +22487,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -22503,14 +22506,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -22523,7 +22526,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer @@ -22537,7 +22540,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable @@ -22572,14 +22575,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -22590,7 +22593,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -22620,7 +22623,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -22648,7 +22651,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -22659,7 +22662,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22670,7 +22673,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -22727,14 +22730,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -22744,7 +22747,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer @@ -22757,7 +22760,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable @@ -22768,35 +22771,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -22817,7 +22820,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer @@ -22867,7 +22870,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -22942,14 +22945,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -22960,7 +22963,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -22990,7 +22993,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -23018,7 +23021,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -23029,7 +23032,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23040,7 +23043,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -23117,14 +23120,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -23137,7 +23140,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer @@ -23150,7 +23153,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable @@ -23161,35 +23164,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GUI_LANGUAGE_PHRASE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -23210,7 +23213,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer @@ -23281,7 +23284,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -23382,14 +23385,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -23400,7 +23403,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -23430,7 +23433,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -23458,7 +23461,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -23469,7 +23472,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23480,7 +23483,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -23501,14 +23504,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -23519,7 +23522,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable) As Integer @@ -23532,7 +23535,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable @@ -23566,14 +23569,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -23584,7 +23587,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -23614,7 +23617,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -23642,7 +23645,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -23653,7 +23656,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23664,7 +23667,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -23678,14 +23681,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -23696,7 +23699,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) As Integer @@ -23709,7 +23712,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable @@ -23743,14 +23746,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -23761,7 +23764,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -23791,7 +23794,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -23819,7 +23822,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -23830,7 +23833,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23841,7 +23844,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -23855,14 +23858,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -23873,7 +23876,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable) As Integer @@ -23886,7 +23889,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable @@ -23920,14 +23923,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -23938,7 +23941,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -23968,7 +23971,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -23996,7 +23999,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -24007,7 +24010,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -24018,7 +24021,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -24050,6 +24053,7 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY") tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE") tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH") + tableMapping.ColumnMappings.Add("SHOW_DOCUMENT", "SHOW_DOCUMENT") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -24103,151 +24107,110 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_PROFILE] ([NAME], [TITLE], [PRIORITY], [DESCRIPTION], [ACTIVE],"& _ - " [WD_SEARCH], [NO_OF_DOCUMENTS], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHAN"& _ - "GED_WHEN], [FINAL_PROFILE], [FINAL_TEXT], [MOVE2FOLDER], [TYPE], [WD_OBJECTTYPE]"& _ - ", [SORT_BY_LATEST], [PM_VEKTOR_INDEX], [LOG_INDEX], [SQL_VIEW], [ANNOTATE_ALL_WO"& _ - "RK_HISTORY_ENTRIES], [ANNOTATE_WORK_HISTORY_ENTRY], [WORK_HISTORY_ENTRY], [DISPL"& _ - "AY_MODE], [SQL_BTN_FINISH]) VALUES (@NAME, @TITLE, @PRIORITY, @DESCRIPTION, @ACT"& _ - "IVE, @WD_SEARCH, @NO_OF_DOCUMENTS, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANG"& _ - "ED_WHEN, @FINAL_PROFILE, @FINAL_TEXT, @MOVE2FOLDER, @TYPE, @WD_OBJECTTYPE, @SORT"& _ - "_BY_LATEST, @PM_VEKTOR_INDEX, @LOG_INDEX, @SQL_VIEW, @ANNOTATE_ALL_WORK_HISTORY_"& _ - "ENTRIES, @ANNOTATE_WORK_HISTORY_ENTRY, @WORK_HISTORY_ENTRY, @DISPLAY_MODE, @SQL_"& _ - "BTN_FINISH);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH"& _ - ", NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFI"& _ - "LE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDE"& _ - "X, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY"& _ - "_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE"& _ - " (GUID = SCOPE_IDENTITY()) ORDER BY NAME" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _ + "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOT"& _ + "ATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, D"& _ + "ISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_BTN_FINISH, SHOW_DOCUMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@"& _ + "ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@FINAL_PROFILE,@FINAL_TEXT,@MOV"& _ + "E2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@LOG_INDEX,@SQL_V"& _ + "IEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@WORK_HISTOR"& _ + "Y_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH,@SHOW_DOCUMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITL"& _ + "E, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_W"& _ + "HEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD"& _ + "_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_"& _ + "WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_M"& _ + "ODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY()) ORDER BY N"& _ + "AME" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.NVarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_DOCUMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_DOCUMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_PROFILE] SET [NAME] = @NAME, [TITLE] = @TITLE, [PRIORITY] = @PRIORIT"& _ - "Y, [DESCRIPTION] = @DESCRIPTION, [ACTIVE] = @ACTIVE, [WD_SEARCH] = @WD_SEARCH, ["& _ - "NO_OF_DOCUMENTS] = @NO_OF_DOCUMENTS, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @A"& _ - "DDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FINAL_"& _ - "PROFILE] = @FINAL_PROFILE, [FINAL_TEXT] = @FINAL_TEXT, [MOVE2FOLDER] = @MOVE2FOL"& _ - "DER, [TYPE] = @TYPE, [WD_OBJECTTYPE] = @WD_OBJECTTYPE, [SORT_BY_LATEST] = @SORT_"& _ - "BY_LATEST, [PM_VEKTOR_INDEX] = @PM_VEKTOR_INDEX, [LOG_INDEX] = @LOG_INDEX, [SQL_"& _ - "VIEW] = @SQL_VIEW, [ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @ANNOTATE_ALL_WORK_HIST"& _ - "ORY_ENTRIES, [ANNOTATE_WORK_HISTORY_ENTRY] = @ANNOTATE_WORK_HISTORY_ENTRY, [WORK"& _ - "_HISTORY_ENTRY] = @WORK_HISTORY_ENTRY, [DISPLAY_MODE] = @DISPLAY_MODE, [SQL_BTN_"& _ - "FINISH] = @SQL_BTN_FINISH WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origin"& _ - "al_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) A"& _ - "ND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Ori"& _ - "ginal_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @"& _ - "Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WH"& _ - "EN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ - "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ - "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND (["& _ - "FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINA"& _ - "L_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FO"& _ - "LDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) "& _ - "AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AN"& _ - "D ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Origin"& _ - "al_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_W"& _ - "ORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTA"& _ - "TE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WO"& _ - "RK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] "& _ - "= @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE));"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCU"& _ - "MENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TE"& _ - "XT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX"& _ - ", SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK"& _ - "_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = @GU"& _ - "ID) ORDER BY NAME" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _ + "ITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_S"& _ + "EARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO "& _ + "= @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN"& _ + " = @CHANGED_WHEN, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE ="& _ + " @WD_OBJECTTYPE, SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_"& _ + "INDEX, LOG_INDEX = @LOG_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_VIEW = @SQL_VIEW, "& _ + "ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE"& _ + "_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" W"& _ + "ORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, SQL_BTN_F"& _ + "INISH = @SQL_BTN_FINISH, SHOW_DOCUMENT = @SHOW_DOCUMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ + "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SE"& _ + "ARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_P"& _ + "ROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_"& _ + "INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HIS"& _ + "TORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE W"& _ + "HERE (GUID = @GUID) ORDER BY NAME" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FINAL_TEXT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MOVE2FOLDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.NVarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_DOCUMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_DOCUMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -24257,12 +24220,13 @@ Namespace DD_DMSLiteDataSetTableAdapters "L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _ "EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _ "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + " SQL_BTN_FINISH, SHOW_DOCUMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NA"& _ + "ME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer @@ -24275,7 +24239,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_PROFILEDataTable @@ -24286,35 +24250,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ @@ -24448,7 +24412,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -24460,7 +24424,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal WD_SEARCH As String, _ ByVal NO_OF_DOCUMENTS As Integer, _ ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal FINAL_PROFILE As Boolean, _ @@ -24476,7 +24440,8 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ ByVal WORK_HISTORY_ENTRY As String, _ ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String) As Integer + ByVal SQL_BTN_FINISH As String, _ + ByVal SHOW_DOCUMENT As Boolean) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else @@ -24501,15 +24466,11 @@ Namespace DD_DMSLiteDataSetTableAdapters End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else @@ -24570,6 +24531,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(SQL_BTN_FINISH,String) End If + Me.Adapter.InsertCommand.Parameters(25).Value = CType(SHOW_DOCUMENT,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -24586,7 +24548,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -24598,7 +24560,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal WD_SEARCH As String, _ ByVal NO_OF_DOCUMENTS As Integer, _ ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal FINAL_PROFILE As Boolean, _ @@ -24615,29 +24577,8 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal WORK_HISTORY_ENTRY As String, _ ByVal DISPLAY_MODE As String, _ ByVal SQL_BTN_FINISH As String, _ + ByVal SHOW_DOCUMENT As Boolean, _ ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_TITLE As String, _ - ByVal Original_PRIORITY As Integer, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_NO_OF_DOCUMENTS As Integer, _ - ByVal Original_ADDED_WHO As String, _ - 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, _ - ByVal Original_FINAL_TEXT As String, _ - ByVal Original_MOVE2FOLDER As String, _ - ByVal Original_TYPE As Short, _ - ByVal Original_WD_OBJECTTYPE As String, _ - ByVal Original_SORT_BY_LATEST As Boolean, _ - ByVal Original_PM_VEKTOR_INDEX As String, _ - ByVal Original_LOG_INDEX As String, _ - ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal Original_WORK_HISTORY_ENTRY As String, _ - ByVal Original_DISPLAY_MODE As String, _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") @@ -24663,15 +24604,11 @@ Namespace DD_DMSLiteDataSetTableAdapters End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else @@ -24732,98 +24669,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(SQL_BTN_FINISH,String) End If - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_NAME,String) - End If - If (Original_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_PRIORITY,Integer) - If (Original_DESCRIPTION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_DESCRIPTION,String) - End If - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_NO_OF_DOCUMENTS,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_FINAL_PROFILE,Boolean) - If (Original_FINAL_TEXT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_FINAL_TEXT,String) - End If - If (Original_MOVE2FOLDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_MOVE2FOLDER,String) - End If - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_TYPE,Short) - If (Original_WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_WD_OBJECTTYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_SORT_BY_LATEST,Boolean) - If (Original_PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PM_VEKTOR_INDEX") - Else - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_PM_VEKTOR_INDEX,String) - End If - If (Original_LOG_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LOG_INDEX") - Else - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_LOG_INDEX,String) - End If - Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (Original_WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_WORK_HISTORY_ENTRY,String) - End If - If (Original_DISPLAY_MODE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_DISPLAY_MODE") - Else - Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_DISPLAY_MODE,String) - End If - Me.Adapter.UpdateCommand.Parameters(54).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(SHOW_DOCUMENT,Boolean) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -24882,7 +24730,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -24893,7 +24741,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24907,7 +24755,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24921,7 +24769,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24935,7 +24783,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24949,7 +24797,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24963,7 +24811,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24977,7 +24825,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -24991,7 +24839,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -25005,7 +24853,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -25019,7 +24867,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -25033,7 +24881,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -25047,7 +24895,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -25061,7 +24909,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -25072,7 +24920,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -25135,7 +24983,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -25184,7 +25032,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then @@ -25302,7 +25150,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then @@ -25408,7 +25256,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then @@ -25514,7 +25362,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -25540,7 +25388,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSLiteDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -25873,13 +25721,13 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -25897,7 +25745,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -25908,7 +25756,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -25918,7 +25766,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -25930,7 +25778,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -25969,7 +25817,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 8442556..bd12db0 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -1802,7 +1802,7 @@ ORDER BY Netto DESC - + DELETE FROM [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE)) @@ -1840,108 +1840,92 @@ ORDER BY Netto DESC - - INSERT INTO [TBPM_PROFILE] ([NAME], [TITLE], [PRIORITY], [DESCRIPTION], [ACTIVE], [WD_SEARCH], [NO_OF_DOCUMENTS], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [FINAL_PROFILE], [FINAL_TEXT], [MOVE2FOLDER], [TYPE], [WD_OBJECTTYPE], [SORT_BY_LATEST], [PM_VEKTOR_INDEX], [LOG_INDEX], [SQL_VIEW], [ANNOTATE_ALL_WORK_HISTORY_ENTRIES], [ANNOTATE_WORK_HISTORY_ENTRY], [WORK_HISTORY_ENTRY], [DISPLAY_MODE], [SQL_BTN_FINISH]) VALUES (@NAME, @TITLE, @PRIORITY, @DESCRIPTION, @ACTIVE, @WD_SEARCH, @NO_OF_DOCUMENTS, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FINAL_PROFILE, @FINAL_TEXT, @MOVE2FOLDER, @TYPE, @WD_OBJECTTYPE, @SORT_BY_LATEST, @PM_VEKTOR_INDEX, @LOG_INDEX, @SQL_VIEW, @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, @ANNOTATE_WORK_HISTORY_ENTRY, @WORK_HISTORY_ENTRY, @DISPLAY_MODE, @SQL_BTN_FINISH); + + INSERT INTO TBPM_PROFILE + (NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, + WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, + SQL_BTN_FINISH, SHOW_DOCUMENT) +VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@LOG_INDEX,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH,@SHOW_DOCUMENT); SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY()) ORDER BY NAME - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + - + SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, - SQL_BTN_FINISH + SQL_BTN_FINISH, SHOW_DOCUMENT FROM TBPM_PROFILE ORDER BY NAME - - UPDATE [TBPM_PROFILE] SET [NAME] = @NAME, [TITLE] = @TITLE, [PRIORITY] = @PRIORITY, [DESCRIPTION] = @DESCRIPTION, [ACTIVE] = @ACTIVE, [WD_SEARCH] = @WD_SEARCH, [NO_OF_DOCUMENTS] = @NO_OF_DOCUMENTS, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FINAL_PROFILE] = @FINAL_PROFILE, [FINAL_TEXT] = @FINAL_TEXT, [MOVE2FOLDER] = @MOVE2FOLDER, [TYPE] = @TYPE, [WD_OBJECTTYPE] = @WD_OBJECTTYPE, [SORT_BY_LATEST] = @SORT_BY_LATEST, [PM_VEKTOR_INDEX] = @PM_VEKTOR_INDEX, [LOG_INDEX] = @LOG_INDEX, [SQL_VIEW] = @SQL_VIEW, [ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, [ANNOTATE_WORK_HISTORY_ENTRY] = @ANNOTATE_WORK_HISTORY_ENTRY, [WORK_HISTORY_ENTRY] = @WORK_HISTORY_ENTRY, [DISPLAY_MODE] = @DISPLAY_MODE, [SQL_BTN_FINISH] = @SQL_BTN_FINISH WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE)); + + UPDATE TBPM_PROFILE +SET NAME = @NAME, TITLE = @TITLE, PRIORITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_SEARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, + ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, + MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX, + SQL_VIEW = @SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, + WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, SQL_BTN_FINISH = @SQL_BTN_FINISH, SHOW_DOCUMENT = @SHOW_DOCUMENT +WHERE (GUID = @Original_GUID); SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = @GUID) ORDER BY NAME - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1974,6 +1958,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME + @@ -1982,223 +1967,223 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - + - + - + - + - - + + - - - - + + + + - + - - + + - - + + - + - - + + - + - + - - + + - - - - + + + + - + - + - + - + - + - + - + - + - + - - + + - + - + - + - + - - + + - - + + - + @@ -2208,173 +2193,173 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - - + + - + - - + + - + - + - - - + + + - + - + - + - - + + - + - + - + - + - + - + - - + + - - + + - - + + - + - - + + - + - + - + - + - + @@ -2384,136 +2369,136 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - - + + - + - + - - + + - + - + - + - + - + - + - - + + - - + + - + - + - - + + - + - + - + - - + + - - + + @@ -2523,254 +2508,254 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - - - + + + - + - + - - - + + + - - + + - - + + - + - - + + - - + + - - - - - + + + + + - - - - - - - - + + + + + + + + - + - + - - + + - + - + - + - - - + + + - + - + - - - + + + - + - - - + + + - - + + - - - + + + - - + + - - + + - + - + - - + + - - - + + + - + @@ -2780,133 +2765,133 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - - + + - - - - - + + + + + - + - - + + - + - + - - + + - - + + - + - - + + - + - + - - - + + + - + - + - + - + - + - + @@ -2916,209 +2901,209 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - - + + - + - + - + - + - + - - + + - + - + - - + + - + - + - + - + - + - + - + - + - + - + - - + + - - + + - + - + - - + + - - + + - - + + - - + + - - + + - + @@ -3128,157 +3113,158 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - + - - - + + + - + - + - - - + + + - + - - + + - + - - + + - - + + - - + + - - + + - - - + + + - + - - + + - - + + - + - + - - - + + + - + - + - + + @@ -3348,16 +3334,16 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + - - - + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 9d32e01..e1cdeb0 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/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. --> - + @@ -25,7 +25,7 @@ - + @@ -61,7 +61,7 @@ 961 - 237 + 235 961 diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index 07c07e7..48ad03d 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -33,6 +33,7 @@ Module ModuleRuntimeVariables Public Property CURRENT_ProfilGUID As Integer Public Property CURRENT_ProfilName As String Public Property CURRENT_PROFILE_LOG_INDEX As String + Public Property PROFILE_SHOW_DOCUMENT As Boolean = True Public Property CURRENT_DOC_GUID As Int64 Public Property CURRENT_DOC_ID As Int64 @@ -170,4 +171,6 @@ Module ModuleRuntimeVariables Public WMDriveLetter As String = "W" Public WMSUFFIX As String = "\\windream\objects" Public WM_AHWF_docPath As String + + Public LIC_MODULES As String = "NONE" End Module diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 73aee0b..37f03ea 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 92c3637..7a7bccf 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -156,6 +156,8 @@ Partial Class frmAdministration Me.pnlEdit = New System.Windows.Forms.Panel() Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl() Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.lblDescription = New System.Windows.Forms.Label() + Me.btnofbAHW = New System.Windows.Forms.Button() Me.lblPriority = New System.Windows.Forms.Label() Me.lblSearch = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() @@ -247,9 +249,8 @@ Partial Class frmAdministration Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.btnofbAHW = New System.Windows.Forms.Button() - Me.lblDescription = New System.Windows.Forms.Label() Me.FolderBrowserDialog2 = New System.Windows.Forms.FolderBrowserDialog() + Me.SHOW_DOCUMENTCheckBox = New System.Windows.Forms.CheckBox() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() ADDED_WHOLabel = New System.Windows.Forms.Label() @@ -1270,6 +1271,8 @@ Partial Class frmAdministration ' 'pnlEdit ' + resources.ApplyResources(Me.pnlEdit, "pnlEdit") + Me.pnlEdit.Controls.Add(Me.SHOW_DOCUMENTCheckBox) Me.pnlEdit.Controls.Add(Me.PROFILGUIDTextBox) Me.pnlEdit.Controls.Add(Me.tabctrl_Profilkonfig) Me.pnlEdit.Controls.Add(GUIDLabel) @@ -1279,7 +1282,6 @@ Partial Class frmAdministration Me.pnlEdit.Controls.Add(NAMELabel) Me.pnlEdit.Controls.Add(Me.TITLETextBox) Me.pnlEdit.Controls.Add(Me.NAMETextBox) - resources.ApplyResources(Me.pnlEdit, "pnlEdit") Me.pnlEdit.Name = "pnlEdit" ' 'tabctrl_Profilkonfig @@ -1323,6 +1325,17 @@ Partial Class frmAdministration Me.TabPage5.Name = "TabPage5" Me.TabPage5.UseVisualStyleBackColor = True ' + 'lblDescription + ' + resources.ApplyResources(Me.lblDescription, "lblDescription") + Me.lblDescription.Name = "lblDescription" + ' + 'btnofbAHW + ' + resources.ApplyResources(Me.btnofbAHW, "btnofbAHW") + Me.btnofbAHW.Name = "btnofbAHW" + Me.btnofbAHW.UseVisualStyleBackColor = True + ' 'lblPriority ' resources.ApplyResources(Me.lblPriority, "lblPriority") @@ -1348,7 +1361,7 @@ Partial Class frmAdministration Me.DISPLAY_MODEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "DISPLAY_MODE", True)) resources.ApplyResources(Me.DISPLAY_MODEComboBox, "DISPLAY_MODEComboBox") Me.DISPLAY_MODEComboBox.FormattingEnabled = True - Me.DISPLAY_MODEComboBox.Items.AddRange(New Object() {resources.GetString("DISPLAY_MODEComboBox.Items"), resources.GetString("DISPLAY_MODEComboBox.Items1"), resources.GetString("DISPLAY_MODEComboBox.Items2"), resources.GetString("DISPLAY_MODEComboBox.Items3")}) + Me.DISPLAY_MODEComboBox.Items.AddRange(New Object() {resources.GetString("DISPLAY_MODEComboBox.Items"), resources.GetString("DISPLAY_MODEComboBox.Items1"), resources.GetString("DISPLAY_MODEComboBox.Items2"), resources.GetString("DISPLAY_MODEComboBox.Items3"), resources.GetString("DISPLAY_MODEComboBox.Items4")}) Me.DISPLAY_MODEComboBox.Name = "DISPLAY_MODEComboBox" ' 'cmbLOGIndex @@ -1915,16 +1928,12 @@ Partial Class frmAdministration Me.RibbonPage2.Name = "RibbonPage2" resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") ' - 'btnofbAHW + 'SHOW_DOCUMENTCheckBox ' - resources.ApplyResources(Me.btnofbAHW, "btnofbAHW") - Me.btnofbAHW.Name = "btnofbAHW" - Me.btnofbAHW.UseVisualStyleBackColor = True - ' - 'lblDescription - ' - resources.ApplyResources(Me.lblDescription, "lblDescription") - Me.lblDescription.Name = "lblDescription" + Me.SHOW_DOCUMENTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "SHOW_DOCUMENT", True)) + resources.ApplyResources(Me.SHOW_DOCUMENTCheckBox, "SHOW_DOCUMENTCheckBox") + Me.SHOW_DOCUMENTCheckBox.Name = "SHOW_DOCUMENTCheckBox" + Me.SHOW_DOCUMENTCheckBox.UseVisualStyleBackColor = True ' 'frmAdministration ' @@ -2237,4 +2246,5 @@ Partial Class frmAdministration Friend WithEvents btnofbAHW As Button Friend WithEvents lblDescription As Label Friend WithEvents FolderBrowserDialog2 As FolderBrowserDialog + Friend WithEvents SHOW_DOCUMENTCheckBox As CheckBox End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index c1f2a52..9b64584 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -147,7 +147,7 @@ pnlEdit - 2 + 3 @@ -264,6 +264,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -414,6 +432,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -483,69 +519,6 @@ 0 - - 206, 17 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel2 - - - 0 - Fill @@ -609,6 +582,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -711,6 +705,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -780,72 +795,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - - - Label22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel3 - - - 0 - - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - - - Label23 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel4 - - - 0 - Fill @@ -951,102 +900,36 @@ 0, 0 - - RibbonControl1 - - - DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 2 - - - 407, 377 + + Aktualisieren - - 92 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + - - pgFinalIndexes + + Formular Designer - - DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerControl1.Panel2 - - - 0 - - - Panel2 - - - SplitContainerControl1.Panel2 - - - DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerControl1 - - - 1 - - - 923, 377 - - - 94 - - - SplitContainerControl1 - - - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel5 - - - 0 - - - 819, 134 - - - Aktualisieren - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 - LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs - NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 - LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt - NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz - LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj - bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= - - - - Formular Designer - - - Profil kopieren + + Profil kopieren @@ -1775,9 +1658,24 @@ 0, 0 + + Bearbeitungs-Modus + + + Profil-Verwaltung + + + Finale Indexe + + + Dashboard + Start + + Grundeinstellungen + Grundeinstellungen @@ -1814,20 +1712,56 @@ 2 - - Bearbeitungs-Modus + + 407, 377 - - Profil-Verwaltung + + 92 - - Finale Indexe + + pgFinalIndexes - - Dashboard + + DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Grundeinstellungen + + SplitContainerControl1.Panel2 + + + 0 + + + Panel2 + + + SplitContainerControl1.Panel2 + + + DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerControl1 + + + 1 + + + 923, 377 + + + 94 + + + SplitContainerControl1 + + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel5 + + + 0 False @@ -1857,7 +1791,7 @@ pnlEdit - 6 + 7 False @@ -2019,7 +1953,7 @@ pnlEdit - 5 + 6 False @@ -2313,7 +2247,7 @@ pnlEdit - 7 + 8 47, 13 @@ -2334,7 +2268,7 @@ pnlEdit - 0 + 1 192, 13 @@ -2355,7 +2289,7 @@ pnlEdit - 8 + 9 Tahoma, 9.75pt @@ -2427,7 +2361,7 @@ pnlEdit - 3 + 4 Tahoma, 9.75pt @@ -2540,6 +2474,33 @@ 1498, 17 + + True + + + 798, 13 + + + 155, 24 + + + 28 + + + Dokumente anzeigen + + + SHOW_DOCUMENTCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlEdit + + + 0 + Top, Bottom, Left, Right @@ -2742,7 +2703,10 @@ Detail - AdHoc BlindFile + AdHoc BlindFile Overview + + + AdHoc BlindFile Detail 202, 42 @@ -2846,278 +2810,272 @@ True - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageAfterIndex + + Top, Bottom, Left, Right - - 0 + + 3, 23 - - 4, 25 + + 923, 377 - - 3, 3, 3, 3 + + 94 - - 946, 426 + + Panel5 - - 1 + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Aktionen nach erfolgreicher Indexierung: + + TabPage11 - - TabPageAfterIndex + + 0 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Fill - - tabctrl_Profilkonfig + + Segoe UI, 9.75pt, style=Italic - - 1 + + 3, 3 - - 3, 70 + + 926, 385 - - 954, 455 + + 75 - - 6 + + Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. - - tabctrl_Profilkonfig + + Label6 - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - pnlEdit + + TabPage11 - + 1 - - Tahoma, 9.75pt + + Tahoma, 9pt - - 718, 40 + + 4, 25 - - 238, 24 - - - 3 - - - Neueste Dokumente zuerst anzeigen + + 3, 3, 3, 3 - - SORT_BY_LATESTCheckBox + + 932, 391 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - pnlEdit + + Finale Indexe - - 4 + + TabPage11 - - Fill + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 3, 3 + + TabControl2 - - 962, 528 + + 0 - - 28 + + True - - pnlEdit + + Segoe UI, 9pt - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 9, 21 - - TabPage1 + + 862, 23 - + 0 - - 4, 25 + + MOVE2FOLDERTextBox - - 3, 3, 3, 3 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 968, 534 + + GroupBox3 - + 0 - - Profil-Verwaltung - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 + + Segoe UI, 9.75pt, style=Bold - - 0 + + NoControl - - TabControlProfilZuordnung + + 877, 21 - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 29, 23 - - TabPage2 + + 72 - - 0 + + ... - - 4, 25 + + btnmovetoFolderDialog - - 3, 3, 3, 3 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 968, 534 + + GroupBox3 - + 1 - - Profil-Zuordnung + + Tahoma, 9.75pt - - TabPage2 + + 9, 6 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 941, 57 - - TabControl1 + + 74 - - 1 + + Wählen Sie hier einen Ordner, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: - - GroupBox2 + + GroupBox3 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage3 + + TabPage12 - + 0 - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 + + Tahoma, 9.75pt - - 1 + + 9, 144 - - 4, 25 + + 260, 24 - - 3, 3, 3, 3 + + 11 - - 968, 534 + + ANNOTATE WORK HISTORY ENTRY - - 2 + + ANNOTATE_WORK_HISTORY_ENTRYCheckBox - - Dashboard + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage3 + + TabPage12 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - TabControl1 + + Tahoma, 9.75pt - - 2 + + 9, 114 - - Fill + + 292, 24 - - 276, 0 + + 9 - - 976, 563 + + ANNOTATE ALL WORK_HISTORY_ENTRIES - - 3 + + ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox - - TabControl1 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage12 - - pnlMain + + 2 - - 0 + + 9, 85 - - TabPage11 + + 875, 23 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - TabControl2 + + WORK_HISTORY_ENTRYTextBox - - 0 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage12 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4 - - TabControl2 + + 4, 25 + + + 3, 3, 3, 3 + + + 932, 394 + + + 1 + + + Nachbearbeitungsfunktionen + + + TabPage12 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl2 1 @@ -3149,968 +3107,239 @@ 0 - - Panel5 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 0 - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 1 - - - Tahoma, 9pt - - + 4, 25 - + 3, 3, 3, 3 - - 932, 391 + + 946, 426 - - 0 + + 1 - - Finale Indexe + + Aktionen nach erfolgreicher Indexierung: - - TabPage11 + + TabPageAfterIndex - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl2 - - - 0 - - - Top, Bottom, Left, Right - - - 3, 23 - - - 923, 377 - - - 94 - - - Panel5 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 0 - - - Fill - - - Segoe UI, 9.75pt, style=Italic + + tabctrl_Profilkonfig - - 3, 3 + + 1 - - 926, 385 + + 3, 70 - - 75 + + 954, 455 - - Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. + + 6 - - Label6 + + tabctrl_Profilkonfig - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage11 + + pnlEdit - - 1 + + 2 - - True + + Tahoma, 9.75pt - - GroupBox3 + + 718, 40 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 238, 24 - - TabPage12 + + 3 - - 0 + + Neueste Dokumente zuerst anzeigen - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox + + SORT_BY_LATESTCheckBox - + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage12 + + pnlEdit - - 1 + + 5 - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox + + Fill - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 3 - - TabPage12 + + 962, 528 - - 2 + + 28 - - WORK_HISTORY_ENTRYTextBox + + pnlEdit - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage12 + + TabPage1 - - 4 + + 0 - + 4, 25 - + 3, 3, 3, 3 - - 932, 394 + + 968, 534 - - 1 + + 0 - - Nachbearbeitungsfunktionen + + Profil-Verwaltung - - TabPage12 + + TabPage1 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl2 + + TabControl1 - - 1 + + 0 - - MOVE2FOLDERTextBox + + 4, 25 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 3, 3, 3 - - GroupBox3 + + 954, 499 - + 0 - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Benutzer - - GroupBox3 - - - 1 - - - Tahoma, 9.75pt - - - 9, 6 - - - 941, 57 - - - 74 - - - Wählen Sie hier einen Ordner, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 0 - - - Segoe UI, 9pt - - - 9, 21 - - - 862, 23 - - - 0 - - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Segoe UI, 9.75pt, style=Bold - - - NoControl - - - 877, 21 - - - 29, 23 - - - 72 - - - ... - - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Tahoma, 9.75pt - - - 9, 144 - - - 260, 24 - - - 11 - - - ANNOTATE WORK HISTORY ENTRY - - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 1 - - - Tahoma, 9.75pt - - - 9, 114 - - - 292, 24 - - - 9 - - - ANNOTATE ALL WORK_HISTORY_ENTRIES - - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 2 - - - 9, 85 - - - 875, 23 - - - 1 - - - WORK_HISTORY_ENTRYTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 4 - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 0 - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 1 - - - Fill - - - 3, 3 - - - 962, 528 - - - 1 - - - TabControlProfilZuordnung - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 954, 499 - - - 0 - - - Benutzer - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 954, 499 - - - 1 - - - Gruppen - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 1 - - - Top, Bottom, Left, Right - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - Button4 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 2 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 3 - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 4 - - - Series4Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 5 - - - Series3Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 6 - - - Series2Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 7 - - - Series1Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 8 - - - Series4Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 9 - - - Series4SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 10 - - - Series4Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 11 - - - Series4Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 12 - - - Series4Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 13 - - - Series4GUID - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 14 - - - Series3Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 15 - - - Series3SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 16 - - - Series3Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 17 - - - Series3Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 18 - - - Series3Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 19 - - - Series3GUID - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 20 - - - Series2Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 21 - - - Series2SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 22 - - - Series2Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 23 - - - Series2Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 24 - - - Series2Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 25 - - - Series2GUID - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 26 - - - Series1Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 27 - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 28 - - - Series1SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 29 - - - Series1Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 30 - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 31 - - - Series1Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 32 - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 + + TabPage7 - - 33 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Series1Argument + + TabControlProfilZuordnung - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - GroupBox2 + + 4, 25 - - 34 + + 3, 3, 3, 3 - - Label10 + + 954, 499 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - GroupBox2 + + Gruppen - - 35 + + TabPage8 - - Series1GUID + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabControlProfilZuordnung - - GroupBox2 + + 1 - - 36 + + Fill - - Label8 + + 3, 3 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 962, 528 - - GroupBox2 + + 1 - - 37 + + TabControlProfilZuordnung - - Label7 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage2 - - GroupBox2 + + 0 - - 38 + + 4, 25 - - 6, 89 + + 3, 3, 3, 3 - - 1, 0 + + 968, 534 - + 1 - - Chart 1-4 + + Profil-Zuordnung - - GroupBox2 + + TabPage2 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage3 + + TabControl1 - - 0 + + 1 + + + Top, Bottom, Left, Right True @@ -5102,65 +4331,29 @@ 38 - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 89 - - GroupBox1 + + 1, 0 - + 1 - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - 6, 6 - - - 984, 77 - - - 0 - - - Verteilung und Top Kreditoren + + Chart 1-4 - - GroupBox1 + + GroupBox2 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage3 - - 1 + + 0 True @@ -5251,6 +4444,81 @@ Top Kreditoren: 2 + + 6, 6 + + + 984, 77 + + + 0 + + + Verteilung und Top Kreditoren + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 1 + + + 4, 25 + + + 3, 3, 3, 3 + + + 968, 534 + + + 2 + + + Dashboard + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + Fill + + + 276, 0 + + + 976, 563 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + Left diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index a99ec59..af40d9e 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -1536,7 +1536,7 @@ Public Class frmAdministration Private Sub DISPLAY_MODEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DISPLAY_MODEComboBox.SelectedIndexChanged If DISPLAY_MODEComboBox.SelectedIndex <> -1 Then - If DISPLAY_MODEComboBox.Text = "AdHoc BlindFile" Then + If DISPLAY_MODEComboBox.Text.StartsWith("AdHoc BlindFile") Then lblSearch.Text = "Select BlindDocument:" btnWMopenSuche.Visible = False lblDescription.Text = "Targetpath WM:" diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 19ef0a2..8ebac86 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -287,7 +287,11 @@ Public Class frmFormDesigner SetMovementHandlers(dgv) Case "TABLE" - Dim oDTColumnsPerDevExGrid As DataTable = DatabaseFallback.GetDatatableECM($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]") ', "FDesignLaodControls") + + Dim oSQL = $"SELECT IIF(LANG.CAPTION IS NULL,T.SPALTEN_HEADER,LANG.CAPTION) SPALTEN_HEADER_LANG, T.* FROM TBPM_CONTROL_TABLE T + INNER JOIN TBPM_PROFILE_CONTROLS T1 ON T.CONTROL_ID = T1.GUID LEFT JOIN (SELECT * FROM TBPM_CONTOL_TABLE_LANG WHERE LANG_CODE = '{USER_LANGUAGE}') LANG ON T.GUID = LANG.COL_ID + WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T.CONTROL_ID = {guid} ORDER BY T.SEQUENCE" + Dim oDTColumnsPerDevExGrid As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "FDesignLaodControls") Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True) @@ -315,7 +319,7 @@ Public Class frmFormDesigner Next Catch ex As Exception _LOGGER.Error(ex) - MsgBox("Fehler bei LoadControls " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") + MsgBox("Unexpected error in LoadControls " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try End Sub diff --git a/app/DD_PM_WINDREAM/frmLicense.Designer.vb b/app/DD_PM_WINDREAM/frmLicense.Designer.vb index 73b8b8e..f3b02ba 100644 --- a/app/DD_PM_WINDREAM/frmLicense.Designer.vb +++ b/app/DD_PM_WINDREAM/frmLicense.Designer.vb @@ -29,20 +29,22 @@ Partial Class frmLicense Me.lblPW = New System.Windows.Forms.Label() Me.grbBoxlicense = New System.Windows.Forms.GroupBox() Me.Label3 = New System.Windows.Forms.Label() - Me.txtProfile = New System.Windows.Forms.TextBox() + Me.txtProfileCount = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.dtp_Gültigkeit = New System.Windows.Forms.DateTimePicker() Me.txtlicensekey = New System.Windows.Forms.TextBox() Me.lblReadKey = New System.Windows.Forms.Label() Me.btnnewLicenses = New System.Windows.Forms.Button() - Me.txtNewlizences = New System.Windows.Forms.TextBox() + Me.txtlicenseCount = New System.Windows.Forms.TextBox() Me.lblnewlicenses = New System.Windows.Forms.Label() Me.lblAktuelleLizenzen = New System.Windows.Forms.Label() Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtModules = New System.Windows.Forms.TextBox() Me.grbBoxlicense.SuspendLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -67,15 +69,17 @@ Partial Class frmLicense ' 'grbBoxlicense ' + Me.grbBoxlicense.Controls.Add(Me.txtModules) + Me.grbBoxlicense.Controls.Add(Me.Label4) Me.grbBoxlicense.Controls.Add(Me.Label3) - Me.grbBoxlicense.Controls.Add(Me.txtProfile) + Me.grbBoxlicense.Controls.Add(Me.txtProfileCount) Me.grbBoxlicense.Controls.Add(Me.Label2) Me.grbBoxlicense.Controls.Add(Me.Label1) Me.grbBoxlicense.Controls.Add(Me.dtp_Gültigkeit) Me.grbBoxlicense.Controls.Add(Me.txtlicensekey) Me.grbBoxlicense.Controls.Add(Me.lblReadKey) Me.grbBoxlicense.Controls.Add(Me.btnnewLicenses) - Me.grbBoxlicense.Controls.Add(Me.txtNewlizences) + Me.grbBoxlicense.Controls.Add(Me.txtlicenseCount) Me.grbBoxlicense.Controls.Add(Me.lblnewlicenses) Me.grbBoxlicense.Controls.Add(Me.lblAktuelleLizenzen) resources.ApplyResources(Me.grbBoxlicense, "grbBoxlicense") @@ -87,10 +91,10 @@ Partial Class frmLicense resources.ApplyResources(Me.Label3, "Label3") Me.Label3.Name = "Label3" ' - 'txtProfile + 'txtProfileCount ' - resources.ApplyResources(Me.txtProfile, "txtProfile") - Me.txtProfile.Name = "txtProfile" + resources.ApplyResources(Me.txtProfileCount, "txtProfileCount") + Me.txtProfileCount.Name = "txtProfileCount" ' 'Label2 ' @@ -126,10 +130,10 @@ Partial Class frmLicense Me.btnnewLicenses.Name = "btnnewLicenses" Me.btnnewLicenses.UseVisualStyleBackColor = True ' - 'txtNewlizences + 'txtlicenseCount ' - resources.ApplyResources(Me.txtNewlizences, "txtNewlizences") - Me.txtNewlizences.Name = "txtNewlizences" + resources.ApplyResources(Me.txtlicenseCount, "txtlicenseCount") + Me.txtlicenseCount.Name = "txtlicenseCount" ' 'lblnewlicenses ' @@ -160,6 +164,8 @@ Partial Class frmLicense Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing @@ -171,6 +177,18 @@ Partial Class frmLicense Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' + 'Label4 + ' + resources.ApplyResources(Me.Label4, "Label4") + Me.Label4.Name = "Label4" + ' + 'txtModules + ' + Me.txtModules.AcceptsReturn = True + Me.txtModules.BackColor = System.Drawing.SystemColors.InactiveCaption + resources.ApplyResources(Me.txtModules, "txtModules") + Me.txtModules.Name = "txtModules" + ' 'frmLicense ' resources.ApplyResources(Me, "$this") @@ -196,7 +214,7 @@ Partial Class frmLicense Friend WithEvents txtlicensekey As System.Windows.Forms.TextBox Friend WithEvents lblReadKey As System.Windows.Forms.Label Friend WithEvents btnnewLicenses As System.Windows.Forms.Button - Friend WithEvents txtNewlizences As System.Windows.Forms.TextBox + Friend WithEvents txtlicenseCount As System.Windows.Forms.TextBox Friend WithEvents lblnewlicenses As System.Windows.Forms.Label Friend WithEvents lblAktuelleLizenzen As System.Windows.Forms.Label Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet @@ -206,6 +224,8 @@ Partial Class frmLicense Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents dtp_Gültigkeit As System.Windows.Forms.DateTimePicker Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents txtProfile As System.Windows.Forms.TextBox + Friend WithEvents txtProfileCount As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtModules As TextBox + Friend WithEvents Label4 As Label End Class diff --git a/app/DD_PM_WINDREAM/frmLicense.resx b/app/DD_PM_WINDREAM/frmLicense.resx index 3eddb7a..2118ab1 100644 --- a/app/DD_PM_WINDREAM/frmLicense.resx +++ b/app/DD_PM_WINDREAM/frmLicense.resx @@ -178,7 +178,7 @@ 8, 10 - 32, 16 + 31, 16 27 @@ -198,6 +198,195 @@ 2 + + txtModules + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 0 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 1 + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 2 + + + txtProfileCount + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 3 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 4 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 5 + + + dtp_Gültigkeit + + + System.Windows.Forms.DateTimePicker, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 6 + + + txtlicensekey + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 7 + + + lblReadKey + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 8 + + + btnnewLicenses + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 9 + + + txtlicenseCount + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 10 + + + lblnewlicenses + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 11 + + + lblAktuelleLizenzen + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 12 + + + 11, 42 + + + 3, 4, 3, 4 + + + 3, 4, 3, 4 + + + 567, 326 + + + 26 + + + Lizenzanzahl ändern (nur Administrator): + + + False + + + grbBoxlicense + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + True @@ -226,34 +415,34 @@ grbBoxlicense - 0 + 2 - + 356, 62 - + 3, 4, 3, 4 - + 49, 23 - + 11 - + 5 - - txtProfile + + txtProfileCount - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + grbBoxlicense - - 1 + + 3 True @@ -262,7 +451,7 @@ 259, 65 - 91, 16 + 90, 16 10 @@ -280,7 +469,7 @@ grbBoxlicense - 2 + 4 True @@ -289,7 +478,7 @@ 7, 94 - 65, 16 + 64, 16 9 @@ -310,7 +499,7 @@ grbBoxlicense - 3 + 5 144, 89 @@ -331,10 +520,10 @@ grbBoxlicense - 4 + 6 - 10, 146 + 13, 222 3, 4, 3, 4 @@ -358,16 +547,16 @@ grbBoxlicense - 5 + 7 True - 7, 126 + 10, 202 - 105, 16 + 104, 16 6 @@ -385,7 +574,7 @@ grbBoxlicense - 6 + 8 MiddleLeft @@ -418,34 +607,34 @@ grbBoxlicense - 7 + 9 - + 144, 62 - + 3, 4, 3, 4 - + 49, 23 - + 4 - + 1 - - txtNewlizences + + txtlicenseCount - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + grbBoxlicense - - 8 + + 10 True @@ -454,7 +643,7 @@ 7, 65 - 131, 16 + 130, 16 3 @@ -472,7 +661,7 @@ grbBoxlicense - 9 + 11 True @@ -484,7 +673,7 @@ 7, 38 - 65, 16 + 64, 16 2 @@ -502,40 +691,7 @@ grbBoxlicense - 10 - - - 11, 42 - - - 3, 4, 3, 4 - - - 3, 4, 3, 4 - - - 567, 222 - - - 26 - - - Lizenzanzahl ändern (nur Administrator): - - - False - - - grbBoxlicense - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 3 + 12 17, 17 @@ -549,6 +705,57 @@ 699, 17 + + True + + + 7, 125 + + + 91, 16 + + + 13 + + + Zusatzmodule: + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 1 + + + 144, 125 + + + True + + + 261, 64 + + + 15 + + + txtModules + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbBoxlicense + + + 0 + True @@ -556,7 +763,7 @@ 7, 16 - 590, 276 + 590, 405 Tahoma, 9.75pt @@ -564,6 +771,9 @@ 3, 4, 3, 4 + + CenterScreen + Lizenzmanager diff --git a/app/DD_PM_WINDREAM/frmLicense.vb b/app/DD_PM_WINDREAM/frmLicense.vb index edb49fb..112950c 100644 --- a/app/DD_PM_WINDREAM/frmLicense.vb +++ b/app/DD_PM_WINDREAM/frmLicense.vb @@ -21,10 +21,14 @@ Public Class frmLicense Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click Try - If Me.txtNewlizences.Text <> "" And txtProfile.Text <> "" Then + If Me.txtlicenseCount.Text <> "" And txtProfileCount.Text <> "" Then Dim dt As Date = CDate(dtp_Gültigkeit.Value) Dim oDateddMMyyyy = dt.ToString("dd.MM.yyyy", CultureInfo.InvariantCulture) - Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlizences.Text & "#" & oDateddMMyyyy & "#" & txtProfile.Text, "#DigitalData35452!#") + Dim oLicString = txtlicenseCount.Text & "#" & oDateddMMyyyy & "#" & txtProfileCount.Text + If txtModules.Text <> String.Empty Then + oLicString = oLicString & "#" & txtModules.Text + End If + Dim result As String = Me._lizenzManager.EncodeLicenseKey(oLicString, "#DigitalData35452!#") txtlicensekey.Text = result Me.TBPM_KONFIGURATIONTableAdapter.CmdUpdateLizenz(USER_USERNAME, CStr(result)) Refresh_Licence(True) @@ -68,8 +72,17 @@ Public Class frmLicense End Try - txtProfile.Text = split(2) + txtProfileCount.Text = split(2) LICENSE_PROFILES = split(2) + Try + Dim oMod = split(3) + If Not IsNothing(split(3)) Then + txtModules.Text = split(3) + End If + Catch ex As Exception + + End Try + Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl If Neu = True Then If CInt(lizenzzahl) > 0 Then diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 40f1bc9..6e73294 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -92,6 +92,9 @@ Partial Class frmMain Me.cmbGridFontSize = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() Me.bsiRowCount = New DevExpress.XtraBars.BarStaticItem() + Me.BbtnitmAHWF1 = New DevExpress.XtraBars.BarButtonItem() + Me.BbtnitmAHWF2 = New DevExpress.XtraBars.BarButtonItem() + Me.BbtnitmAHWF3 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -99,6 +102,7 @@ Partial Class frmMain Me.RibbonPageGroupBasicConf = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupAHW = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageTabelle = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -181,10 +185,8 @@ Partial Class frmMain Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components) Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonPageGroupAHW = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.BbtnitmAHWF1 = New DevExpress.XtraBars.BarButtonItem() - Me.BbtnitmAHWF2 = New DevExpress.XtraBars.BarButtonItem() - Me.BbtnitmAHWF3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() + Me.BbtnitmAHWF4 = New DevExpress.XtraBars.BarButtonItem() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() @@ -379,9 +381,9 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.bsiRowCount, Me.BbtnitmAHWF1, Me.BbtnitmAHWF2, Me.BbtnitmAHWF3}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.bsiRowCount, Me.BbtnitmAHWF1, Me.BbtnitmAHWF2, Me.BbtnitmAHWF3, Me.BbtnitmAHWF4}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 50 + Me.RibbonControl1.MaxItemId = 51 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemTrackBar1, Me.cmbGridFontSize}) @@ -735,6 +737,45 @@ Partial Class frmMain Me.bsiRowCount.Id = 43 Me.bsiRowCount.Name = "bsiRowCount" ' + 'BbtnitmAHWF1 + ' + resources.ApplyResources(Me.BbtnitmAHWF1, "BbtnitmAHWF1") + Me.BbtnitmAHWF1.Id = 47 + Me.BbtnitmAHWF1.ImageOptions.Image = CType(resources.GetObject("BbtnitmAHWF1.ImageOptions.Image"), System.Drawing.Image) + Me.BbtnitmAHWF1.ImageOptions.LargeImage = CType(resources.GetObject("BbtnitmAHWF1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbtnitmAHWF1.ItemAppearance.Normal.Font = CType(resources.GetObject("BbtnitmAHWF1.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.BbtnitmAHWF1.ItemAppearance.Normal.Options.UseFont = True + Me.BbtnitmAHWF1.Name = "BbtnitmAHWF1" + Me.BbtnitmAHWF1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + Me.BbtnitmAHWF1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'BbtnitmAHWF2 + ' + resources.ApplyResources(Me.BbtnitmAHWF2, "BbtnitmAHWF2") + Me.BbtnitmAHWF2.Id = 48 + Me.BbtnitmAHWF2.ImageOptions.Image = CType(resources.GetObject("BbtnitmAHWF2.ImageOptions.Image"), System.Drawing.Image) + Me.BbtnitmAHWF2.ImageOptions.LargeImage = CType(resources.GetObject("BbtnitmAHWF2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbtnitmAHWF2.ItemAppearance.Normal.Font = CType(resources.GetObject("BbtnitmAHWF2.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.BbtnitmAHWF2.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Blue + Me.BbtnitmAHWF2.ItemAppearance.Normal.Options.UseFont = True + Me.BbtnitmAHWF2.ItemAppearance.Normal.Options.UseForeColor = True + Me.BbtnitmAHWF2.Name = "BbtnitmAHWF2" + Me.BbtnitmAHWF2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + Me.BbtnitmAHWF2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'BbtnitmAHWF3 + ' + resources.ApplyResources(Me.BbtnitmAHWF3, "BbtnitmAHWF3") + Me.BbtnitmAHWF3.Id = 49 + Me.BbtnitmAHWF3.ImageOptions.Image = CType(resources.GetObject("BbtnitmAHWF3.ImageOptions.Image"), System.Drawing.Image) + Me.BbtnitmAHWF3.ImageOptions.LargeImage = CType(resources.GetObject("BbtnitmAHWF3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbtnitmAHWF3.ItemAppearance.Normal.Font = CType(resources.GetObject("BbtnitmAHWF3.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.BbtnitmAHWF3.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.BbtnitmAHWF3.ItemAppearance.Normal.Options.UseFont = True + Me.BbtnitmAHWF3.ItemAppearance.Normal.Options.UseForeColor = True + Me.BbtnitmAHWF3.Name = "BbtnitmAHWF3" + Me.BbtnitmAHWF3.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' 'RibbonPageStart ' Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4, Me.RibbonPageGroupAHW}) @@ -791,6 +832,17 @@ Partial Class frmMain resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4") Me.RibbonPageGroup4.Visible = False ' + 'RibbonPageGroupAHW + ' + Me.RibbonPageGroupAHW.AllowTextClipping = False + Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF1) + Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF2) + Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF3) + Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF4) + Me.RibbonPageGroupAHW.Name = "RibbonPageGroupAHW" + resources.ApplyResources(Me.RibbonPageGroupAHW, "RibbonPageGroupAHW") + Me.RibbonPageGroupAHW.Visible = False + ' 'RibbonPageTabelle ' Me.RibbonPageTabelle.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6, Me.RibbonPageGroup5}) @@ -1468,50 +1520,28 @@ Partial Class frmMain Me.BarButtonItem5.Name = "BarButtonItem5" Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' - 'RibbonPageGroupAHW - ' - Me.RibbonPageGroupAHW.AllowTextClipping = False - Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF1) - Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF2) - Me.RibbonPageGroupAHW.ItemLinks.Add(Me.BbtnitmAHWF3) - Me.RibbonPageGroupAHW.Name = "RibbonPageGroupAHW" - resources.ApplyResources(Me.RibbonPageGroupAHW, "RibbonPageGroupAHW") - Me.RibbonPageGroupAHW.Visible = False - ' - 'BbtnitmAHWF1 - ' - resources.ApplyResources(Me.BbtnitmAHWF1, "BbtnitmAHWF1") - Me.BbtnitmAHWF1.Id = 47 - Me.BbtnitmAHWF1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image) - Me.BbtnitmAHWF1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BbtnitmAHWF1.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem9.ItemAppearance.Normal.Font"), System.Drawing.Font) - Me.BbtnitmAHWF1.ItemAppearance.Normal.Options.UseFont = True - Me.BbtnitmAHWF1.Name = "BbtnitmAHWF1" - Me.BbtnitmAHWF1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large - ' - 'BbtnitmAHWF2 - ' - resources.ApplyResources(Me.BbtnitmAHWF2, "BbtnitmAHWF2") - Me.BbtnitmAHWF2.Id = 48 - Me.BbtnitmAHWF2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image1"), System.Drawing.Image) - Me.BbtnitmAHWF2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage1"), System.Drawing.Image) - Me.BbtnitmAHWF2.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem9.ItemAppearance.Normal.Font1"), System.Drawing.Font) - Me.BbtnitmAHWF2.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Blue - Me.BbtnitmAHWF2.ItemAppearance.Normal.Options.UseFont = True - Me.BbtnitmAHWF2.ItemAppearance.Normal.Options.UseForeColor = True - Me.BbtnitmAHWF2.Name = "BbtnitmAHWF2" - ' - 'BbtnitmAHWF3 - ' - resources.ApplyResources(Me.BbtnitmAHWF3, "BbtnitmAHWF3") - Me.BbtnitmAHWF3.Id = 49 - Me.BbtnitmAHWF3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image2"), System.Drawing.Image) - Me.BbtnitmAHWF3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage2"), System.Drawing.Image) - Me.BbtnitmAHWF3.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem9.ItemAppearance.Normal.Font2"), System.Drawing.Font) - Me.BbtnitmAHWF3.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.BbtnitmAHWF3.ItemAppearance.Normal.Options.UseFont = True - Me.BbtnitmAHWF3.ItemAppearance.Normal.Options.UseForeColor = True - Me.BbtnitmAHWF3.Name = "BbtnitmAHWF3" + 'BarButtonItem9 + ' + resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9") + Me.BarButtonItem9.Id = 49 + Me.BarButtonItem9.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem9.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem9.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem9.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.BarButtonItem9.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.BarButtonItem9.ItemAppearance.Normal.Options.UseFont = True + Me.BarButtonItem9.ItemAppearance.Normal.Options.UseForeColor = True + Me.BarButtonItem9.Name = "BarButtonItem9" + Me.BarButtonItem9.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'BbtnitmAHWF4 + ' + resources.ApplyResources(Me.BbtnitmAHWF4, "BbtnitmAHWF4") + Me.BbtnitmAHWF4.Id = 50 + Me.BbtnitmAHWF4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem10.ImageOptions.Image"), System.Drawing.Image) + Me.BbtnitmAHWF4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbtnitmAHWF4.Name = "BbtnitmAHWF4" + Me.BbtnitmAHWF4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + Me.BbtnitmAHWF4.Visibility = DevExpress.XtraBars.BarItemVisibility.Never ' 'frmMain ' @@ -1713,4 +1743,6 @@ Partial Class frmMain Friend WithEvents RibbonPageGroupAHW As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BbtnitmAHWF2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BbtnitmAHWF3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BbtnitmAHWF4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index eda05cf..f6f59b3 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAZgBCQGYAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAagBCQGoAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -208,7 +208,7 @@ Gesamtübersicht Workflows - 1214, 347 + 1248, 347 @@ -453,7 +453,7 @@ 0, 158 - 1447, 347 + 1481, 347 4 @@ -1624,41 +1624,41 @@ BarButtonItem9 - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBzaG9wO2Nh - cnQ7YnV5O3N0dWZmO2dvb2RzO2Z1bGw7kuUJygAAAPhJREFUOE+l0aFOw0Acx/GugicYDo1bhgFVQzI7 - wSTJ5DweSULCA2D2CjUTPAFLJpC8AAg0QSEI2fH9Xe4uf3pdm4H49Hq/+/+v17Zwzv1La1hV1RVeNbat - W61haHYaTRbVYU3qrDkUZyfgXk4Qm73ORjvHAZZQ4zX8proMMArjr6PbOYb4xDeOkDaYQ0W36DrBDVS3 - gm8WXU6xxRfGCsW8lujp79AG5yHz4s09tPiGCUqzwRk20PoT9KrZBvpAD1DRLi84RmoWOymxwBrxuB94 - xh0OYeu9LNhXM7jAI6Y9WdIM9JF0dDV0ZUkzuIQaZj1Zkv7337jiBysWl4xXz/GOAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 + Z29vZHM7ZnVsbDuS5QnKAAAA+ElEQVQ4T6XRoU7DQBzH8a6CJxgOjVuGAVVDMjvBJMnkPB5JQsIDYPYK + NRM8AUsmkLwACDRBIQjZ8f1d7i5/el2bgfj0er/7/6/XtnDO/UtrWFXVFV41tq1brWFodhpNFtVhTeqs + ORRnJ+BeThCbvc5GO8cBllDjNfymugwwCuOvo9s5hvjEN46QNphDRbfoOsENVLeCbxZdTrHFF8YKxbyW + 6Onv0AbnIfPizT20+IYJSrPBGTbQ+hP0qtkG+kAPUNEuLzhGahY7KbHAGvG4H3jGHQ5h670s2FczuMAj + pj1Z0gz0kXR0NXRlSTO4hBpmPVmS/vffuOIHKxaXjFfP8Y4AAAAASUVORK5CYII= - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBzaG9wO2Nh - cnQ7YnV5O3N0dWZmO2dvb2RzO2Z1bGw7kuUJygAAAjNJREFUWEfF1T1oFGEQgOEYJURBEIkBAyJIWlu1 - uC4KNgmIldorpEgjEcEmaGcnCLYWKUQEUSwlBNHKUgKKoFaCWAmJiqLrO8fMMjs7d593xV3gSS6z83fZ - L3sTVVWNVRocpTQ4St1vnU4nFZNLsh6OfL3ED1T4iZW+hXFASdZDXcIfyGDvbd/COKAk64Ej2EYc/g3L - /QpbA0qyHrgLG/oRJzGJ7vV+ha0BJUmPPfgCW2ABjZxehV2h+RzWsKXk9VzIic7Chr/RWEOvwrqpay4D - rZlZCznRfVjuDY019Cqsm7rm8q79cLEVcrxpyEGz3HnEnIFuwaALnIflvdZYS1ZYC80HvQWPYHlXNdZi - hftxDRfsgvIH7x029ad/XR9IWN0ByJNOhv+FPAt835otcBu27Wm5oNJ3rbK41V3WmHihsZQtcBNWsCEX - VHrfVRa3OvnrWPyKxlK2wGF8hxWdgsSHWeAo7Ln/CzOoB0b+8NyDNXuisWFuwXUXe6axnvwCx/AbUigH - 5wTSp5/K4rvxHrbARTQGRn4BsQ4rlkaH4K+X3ILVf8VeZHm1uMBx+M/tD1jEPvg8bxZn8BhWJ1aR5TfE - BcQd+EbDeIUpxN4t2QJS+ABZ4//xHAcR+6ayBcw5PMVnyKHMhokdfMJDLGEXsn6p7gLjlAYF26X/aoPm - lKRBoc3inzt++hVzStKgoJG8o9g8fv4Xc0rSoJBGoXGrufwerrdyStKgoNHYb8F4D+FoVBP/AFUrX/E8 - p6dMAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 + Z29vZHM7ZnVsbDuS5QnKAAACM0lEQVRYR8XVPWgUYRCA4RglREEQiQEDIkhaW7W4Lgo2CYiV2iukSCMR + wSZoZycIthYpRARRLCUE0cpSAoqgVoJYCYmKous7x8wyOzt3n3fFXeBJLrPzd9kvexNVVY1VGhylNDhK + 3W+dTicVk0uyHo58vcQPVPiJlb6FcUBJ1kNdwh/IYO9t38I4oCTrgSPYRhz+Dcv9ClsDSrIeuAsb+hEn + MYnu9X6FrQElSY89+AJbYAGNnF6FXaH5HNawpeT1XMiJzsKGv9FYQ6/CuqlrLgOtmVkLOdF9WO4NjTX0 + Kqybuubyrv1wsRVyvGnIQbPcecScgW7BoAuch+W91lhLVlgLzQe9BY9geVc11mKF+3ENF+yC8gfvHTb1 + p39dH0hY3QHIk06G/4U8C3zfmi1wG7btabmg0netsrjVXdaYeKGxlC1wE1awIRdUet9VFrc6+etY/IrG + UrbAYXyHFZ2CxIdZ4Cjsuf8LM6gHRv7w3IM1e6KxYW7BdRd7prGe/ALH8BtSKAfnBNKnn8riu/EetsBF + NAZGfgGxDiuWRofgr5fcgtV/xV5kebW4wHH4z+0PWMQ++DxvFmfwGFYnVpHlN8QFxB34RsN4hSnE3i3Z + AlL4AFnj//EcBxH7prIFzDk8xWfIocyGiR18wkMsYReyfqnuAuOUBgXbpf9qg+aUpEGhzeKfO376FXNK + 0qCgkbyj2Dx+/hdzStKgkEahcau5/B6ut3JK0qCg0dhvwXgP4WhUE/8AVStf8Tynp0wAAAAASUVORK5C + YII= - + Tahoma, 8.25pt, style=Bold BarButtonItem9 - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 @@ -1669,7 +1669,7 @@ pj1Z0gz0kXR0NXRlSTO4hBpmPVmS/vffuOIHKxaXjFfP8Y4AAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 @@ -1686,13 +1686,47 @@ YII= - + Tahoma, 8.25pt, style=Bold BarButtonItem9 - + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 + Z29vZHM7ZnVsbDuS5QnKAAAA+ElEQVQ4T6XRoU7DQBzH8a6CJxgOjVuGAVVDMjvBJMnkPB5JQsIDYPYK + NRM8AUsmkLwACDRBIQjZ8f1d7i5/el2bgfj0er/7/6/XtnDO/UtrWFXVFV41tq1brWFodhpNFtVhTeqs + ORRnJ+BeThCbvc5GO8cBllDjNfymugwwCuOvo9s5hvjEN46QNphDRbfoOsENVLeCbxZdTrHFF8YKxbyW + 6Onv0AbnIfPizT20+IYJSrPBGTbQ+hP0qtkG+kAPUNEuLzhGahY7KbHAGvG4H3jGHQ5h670s2FczuMAj + pj1Z0gz0kXR0NXRlSTO4hBpmPVmS/vffuOIHKxaXjFfP8Y4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 + Z29vZHM7ZnVsbDuS5QnKAAACM0lEQVRYR8XVPWgUYRCA4RglREEQiQEDIkhaW7W4Lgo2CYiV2iukSCMR + wSZoZycIthYpRARRLCUE0cpSAoqgVoJYCYmKous7x8wyOzt3n3fFXeBJLrPzd9kvexNVVY1VGhylNDhK + 3W+dTicVk0uyHo58vcQPVPiJlb6FcUBJ1kNdwh/IYO9t38I4oCTrgSPYRhz+Dcv9ClsDSrIeuAsb+hEn + MYnu9X6FrQElSY89+AJbYAGNnF6FXaH5HNawpeT1XMiJzsKGv9FYQ6/CuqlrLgOtmVkLOdF9WO4NjTX0 + Kqybuubyrv1wsRVyvGnIQbPcecScgW7BoAuch+W91lhLVlgLzQe9BY9geVc11mKF+3ENF+yC8gfvHTb1 + p39dH0hY3QHIk06G/4U8C3zfmi1wG7btabmg0netsrjVXdaYeKGxlC1wE1awIRdUet9VFrc6+etY/IrG + UrbAYXyHFZ2CxIdZ4Cjsuf8LM6gHRv7w3IM1e6KxYW7BdRd7prGe/ALH8BtSKAfnBNKnn8riu/EetsBF + NAZGfgGxDiuWRofgr5fcgtV/xV5kebW4wHH4z+0PWMQ++DxvFmfwGFYnVpHlN8QFxB34RsN4hSnE3i3Z + AlL4AFnj//EcBxH7prIFzDk8xWfIocyGiR18wkMsYReyfqnuAuOUBgXbpf9qg+aUpEGhzeKfO376FXNK + 0qCgkbyj2Dx+/hdzStKgkEahcau5/B6ut3JK0qCg0dhvwXgP4WhUE/8AVStf8Tynp0wAAAAASUVORK5C + YII= + + + + Tahoma, 8.25pt, style=Bold + + + BarButtonItem10 + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBzaG9wO2Nh @@ -1703,7 +1737,7 @@ xh0OYeu9LNhXM7jAI6Y9WdIM9JF0dDV0ZUkzuIQaZj1Zkv7337jiBysWl4xXz/GOAAAAAElFTkSuQmCC - + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBzaG9wO2Nh @@ -1720,9 +1754,6 @@ p6dMAAAAAElFTkSuQmCC - - Tahoma, 8.25pt, style=Bold - 0, 0 @@ -1763,13 +1794,13 @@ Aktionen - 1447, 158 + 1481, 158 0, 505 - 1447, 22 + 1481, 22 RibbonStatusBar1 @@ -1811,7 +1842,7 @@ 0, 527 - 1447, 0 + 1481, 0 barDockControlBottom @@ -1850,7 +1881,7 @@ Right - 1447, 0 + 1481, 0 0, 527 @@ -1871,13 +1902,13 @@ True - 63 + 25 9, 19 - 1447, 527 + 1481, 527 Tahoma, 12pt @@ -2429,6 +2460,24 @@ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BbtnitmAHWF1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BbtnitmAHWF2 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BbtnitmAHWF3 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPageStart @@ -2471,6 +2520,12 @@ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPageGroupAHW + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPageTabelle @@ -2933,28 +2988,16 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - RibbonPageGroupAHW - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BbtnitmAHWF1 + + BarButtonItem9 - + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BbtnitmAHWF2 + + BbtnitmAHWF4 - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BbtnitmAHWF3 - - + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -3298,7 +3341,7 @@ Graphisches Dokument - 1447, 0 + 1481, 0 barDockControlTop @@ -3367,4 +3410,38 @@ IDwvZz4NCjwvc3ZnPgs= + + BarButtonItem9 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 + Z29vZHM7ZnVsbDuS5QnKAAAA+ElEQVQ4T6XRoU7DQBzH8a6CJxgOjVuGAVVDMjvBJMnkPB5JQsIDYPYK + NRM8AUsmkLwACDRBIQjZ8f1d7i5/el2bgfj0er/7/6/XtnDO/UtrWFXVFV41tq1brWFodhpNFtVhTeqs + ORRnJ+BeThCbvc5GO8cBllDjNfymugwwCuOvo9s5hvjEN46QNphDRbfoOsENVLeCbxZdTrHFF8YKxbyW + 6Onv0AbnIfPizT20+IYJSrPBGTbQ+hP0qtkG+kAPUNEuLzhGahY7KbHAGvG4H3jGHQ5h670s2FczuMAj + pj1Z0gz0kXR0NXRlSTO4hBpmPVmS/vffuOIHKxaXjFfP8Y4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAHNob3A7Y2FydDtidXk7c3R1ZmY7 + Z29vZHM7ZnVsbDuS5QnKAAACM0lEQVRYR8XVPWgUYRCA4RglREEQiQEDIkhaW7W4Lgo2CYiV2iukSCMR + wSZoZycIthYpRARRLCUE0cpSAoqgVoJYCYmKous7x8wyOzt3n3fFXeBJLrPzd9kvexNVVY1VGhylNDhK + 3W+dTicVk0uyHo58vcQPVPiJlb6FcUBJ1kNdwh/IYO9t38I4oCTrgSPYRhz+Dcv9ClsDSrIeuAsb+hEn + MYnu9X6FrQElSY89+AJbYAGNnF6FXaH5HNawpeT1XMiJzsKGv9FYQ6/CuqlrLgOtmVkLOdF9WO4NjTX0 + Kqybuubyrv1wsRVyvGnIQbPcecScgW7BoAuch+W91lhLVlgLzQe9BY9geVc11mKF+3ENF+yC8gfvHTb1 + p39dH0hY3QHIk06G/4U8C3zfmi1wG7btabmg0netsrjVXdaYeKGxlC1wE1awIRdUet9VFrc6+etY/IrG + UrbAYXyHFZ2CxIdZ4Cjsuf8LM6gHRv7w3IM1e6KxYW7BdRd7prGe/ALH8BtSKAfnBNKnn8riu/EetsBF + NAZGfgGxDiuWRofgr5fcgtV/xV5kebW4wHH4z+0PWMQ++DxvFmfwGFYnVpHlN8QFxB34RsN4hSnE3i3Z + AlL4AFnj//EcBxH7prIFzDk8xWfIocyGiR18wkMsYReyfqnuAuOUBgXbpf9qg+aUpEGhzeKfO376FXNK + 0qCgkbyj2Dx+/hdzStKgkEahcau5/B6ut3JK0qCg0dhvwXgP4WhUE/8AVStf8Tynp0wAAAAASUVORK5C + YII= + + + + Tahoma, 8.25pt, style=Bold + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index f5ae6bf..87ab77b 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -348,7 +348,7 @@ Public Class frmMain LoadNavBar() AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked If Not IsNothing(CURR_DT_VWPM_PROFILE_AH_WORKFLOW) Then - If CURR_DT_VWPM_PROFILE_AH_WORKFLOW.Rows.Count > 0 Then + If CURR_DT_VWPM_PROFILE_AH_WORKFLOW.Rows.Count > 0 And LIC_MODULES.Contains("MOD_AdhocWorkflow_BlindFile") Then RibbonPageGroupAHW.Visible = True Dim OCounter As Integer = 1 For Each oRow As DataRow In CURR_DT_VWPM_PROFILE_AH_WORKFLOW.Rows @@ -370,8 +370,11 @@ Public Class frmMain End Select OCounter += 1 Next + Else + LOGGER.Info($"NO ADHOC-WFs Blindfiles ({CURR_DT_VWPM_PROFILE_AH_WORKFLOW.Rows.Count}) or License AHWF_NoBlindFile not integrated...") End If Else + LOGGER.Debug("NO ADHOC-WFs Blindfiles (Nothing)...") End If Try If SHOW_CHARTS = True Then @@ -1420,6 +1423,7 @@ Public Class frmMain If CURRENT_DT_PROFILE.Rows.Count = 1 Then CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") CURRENT_WMObjecttype = CURRENT_DT_PROFILES.Rows(0).Item("WD_OBJECTTYPE") + PROFILE_SHOW_DOCUMENT = CURRENT_DT_PROFILES.Rows(0).Item("SHOW_DOCUMENT") Else MsgBox("Could not get a Profile - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) Exit Sub @@ -2320,7 +2324,9 @@ Public Class frmMain If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20) If SQL_PROFILES_USER <> "" Then + oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID) + LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..") Else oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) @@ -2329,9 +2335,12 @@ Public Class frmMain CURR_DT_VWPM_PROFILE_ACTIVE = DatabaseFallback.GetDatatableECM(oSQL) CURR_DT_VWPM_PROFILE_AH_WORKFLOW = CURR_DT_VWPM_PROFILE_ACTIVE.Copy CURR_DT_VWPM_PROFILE_AH_WORKFLOW.Clear() - Dim AHWFRows As DataRow() = CURR_DT_VWPM_PROFILE_ACTIVE.Select("DISPLAY_MODE = 'AdHoc BlindFile' OR DISPLAY_MODE = 'AdHoc'", "PRIORITY") + Dim AHWFRows As DataRow() = CURR_DT_VWPM_PROFILE_ACTIVE.Select("DISPLAY_MODE like 'AdHoc BlindFile%'", "PRIORITY") If AHWFRows.Length > 0 Then + LOGGER.Info($"...NUMBER OF ADHOC-WORKFLOW PROFILES ({AHWFRows.Length})") CURR_DT_VWPM_PROFILE_AH_WORKFLOW = AHWFRows.CopyToDataTable() + Else + LOGGER.Info($"...NO ADHOC-WORKFLOW PROFILES!") End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30) @@ -3006,6 +3015,7 @@ where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NU CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) If CURRENT_DT_PROFILE.Rows.Count = 1 Then CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") + PROFILE_SHOW_DOCUMENT = CURRENT_DT_PROFILE.Rows(0).Item("SHOW_DOCUMENT") Else Exit Sub End If @@ -3114,65 +3124,79 @@ where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NU RowCount() End Sub - Private Sub BbtnitmAHWF1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmAHWF1.ItemClick - AdHocWorkflow_BlindFile(BbtnitmAHWF1.Tag) + Private Sub BbtnitmAHWF1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmAHWF1.ItemClick, BbtnitmAHWF2.ItemClick, BbtnitmAHWF3.ItemClick, BbtnitmAHWF4.ItemClick + Dim obutton As DevExpress.XtraBars.BarButtonItem = TryCast(e.Item, DevExpress.XtraBars.BarButtonItem) + AdHocWorkflow_BlindFile(obutton.Tag) End Sub Private Sub AdHocWorkflow_BlindFile(pProfileID As Int16) Try If Not Application.OpenForms().OfType(Of frmValidator).Any Then Dim oExpression = $"GUID = {pProfileID}" + LOGGER.Debug($"Starting AHWFNoFile for ProfileID: {pProfileID}...") CURRENT_DT_PROFILE = Nothing CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) - CURRENT_ProfilGUID = pProfileID - Dim sGUID As String - sGUID = System.Guid.NewGuid.ToString() - Dim oTargetPath = CURRENT_DT_PROFILES.Rows(0).Item("DESCRIPTION") - Dim oSourcePath = CURRENT_DT_PROFILES.Rows(0).Item("WD_SEARCH") - If oTargetPath = String.Empty Or oSourcePath = String.Empty Then - Exit Sub - End If - oTargetPath = $"{oTargetPath}\{Now.Year}\{Now.Month}\{Now.Day}" - oTargetPath = oTargetPath & "\" & sGUID & ".pdf" - - Dim oResult = WINDREAM_MOD.NewFileStream(oSourcePath, oTargetPath) - If oResult = True Then - WM_AHWF_docPath = oTargetPath - Dim oDocID = WINDREAM_MOD.NewDocumentID - CURRENT_CLICKED_PROFILE_ID = pProfileID - CURRENT_CLICKED_PROFILE_TITLE = CURRENT_DT_PROFILES.Rows(0).Item("TITLE") - CURRENT_WMObjecttype = CURRENT_DT_PROFILES.Rows(0).Item("WD_OBJECTTYPE") - CURRENT_DOC_ID = oDocID - CURRENT_DOC_GUID = 99123456789 - ActiveWorkflowType = ConstAHWorkflow_BlindFile - CURRENT_JUMP_DOC_GUID = CURRENT_DOC_GUID - DT_FILTERED_PROFILE_SEARCHES_DOC = Nothing - DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Copy - DT_FILTERED_PROFILE_SEARCHES_DOC.Clear() - oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}" - BASEDATA_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(DT_FILTERED_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges) - - BASEDATA_DT_PROFILE_SEARCHES_SQL = Nothing - BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Copy - BASEDATA_DT_PROFILE_SEARCHES_SQL.Clear() - BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges) + If CURRENT_DT_PROFILE.Rows.Count = 1 Then + CURRENT_ProfilGUID = pProfileID + Dim sGUID As String + sGUID = System.Guid.NewGuid.ToString() + Dim oTargetPath = CURRENT_DT_PROFILE.Rows(0).Item("DESCRIPTION") + Dim oSourcePath = CURRENT_DT_PROFILE.Rows(0).Item("WD_SEARCH") + Dim oWMObjecttype = CURRENT_DT_PROFILE.Rows(0).Item("WD_OBJECTTYPE") + LOGGER.Debug($"oTargetPath: {oTargetPath}") + LOGGER.Debug($"oSourcePath: {oSourcePath}") + If oTargetPath = String.Empty Or oSourcePath = String.Empty Then + Exit Sub + End If + oTargetPath = $"{oTargetPath}\{Now.Year}\{Now.Month}\{Now.Day}" + oTargetPath = oTargetPath & "\" & sGUID & ".pdf" + + LOGGER.Debug($"oTargetPath with NowParams: {oTargetPath}") + + Dim oResult = WINDREAM_MOD.NewFileStream(oSourcePath, oTargetPath, oWMObjecttype) + If oResult = True Then + WM_AHWF_docPath = oTargetPath + Dim oDocID = WINDREAM_MOD.NewDocumentID + CURRENT_CLICKED_PROFILE_ID = pProfileID + PROFILE_SHOW_DOCUMENT = CURRENT_DT_PROFILE.Rows(0).Item("SHOW_DOCUMENT") + CURRENT_CLICKED_PROFILE_TITLE = CURRENT_DT_PROFILE.Rows(0).Item("TITLE") + + CURRENT_WMObjecttype = CURRENT_DT_PROFILE.Rows(0).Item("WD_OBJECTTYPE") + CURRENT_DOC_ID = oDocID + CURRENT_DOC_GUID = 99123456789 + ActiveWorkflowType = ConstAHWorkflow_BlindFile + CURRENT_JUMP_DOC_GUID = CURRENT_DOC_GUID + DT_FILTERED_PROFILE_SEARCHES_DOC = Nothing + DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Copy + DT_FILTERED_PROFILE_SEARCHES_DOC.Clear() + oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}" + BASEDATA_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(DT_FILTERED_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges) + + BASEDATA_DT_PROFILE_SEARCHES_SQL = Nothing + BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Copy + BASEDATA_DT_PROFILE_SEARCHES_SQL.Clear() + BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges) - Try - Dim oEnvironment = GetEnvironment() + Try + Dim oEnvironment = GetEnvironment() - _FormValidator = New frmValidator(oEnvironment) - AddHandler _FormValidator.FormClosed, AddressOf ValidatorClosed - _FormValidator.Show() - Catch ex As Exception - LOGGER.Warn($"Error opening Form frmValidator [{ex.Message}]") - LOGGER.Warn($"ex.InnerException.Message [{ex.InnerException.Message}]") - LOGGER.Warn($"ex.InnerException.Source [{ex.InnerException.Source}]") - LOGGER.Error(ex.InnerException) - MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) - End Try + _FormValidator = New frmValidator(oEnvironment) + AddHandler _FormValidator.FormClosed, AddressOf ValidatorClosed + _FormValidator.Show() + Catch ex As Exception + LOGGER.Warn($"Error opening Form frmValidator [{ex.Message}]") + LOGGER.Warn($"ex.InnerException.Message [{ex.InnerException.Message}]") + LOGGER.Warn($"ex.InnerException.Source [{ex.InnerException.Source}]") + LOGGER.Error(ex.InnerException) + MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) + End Try + End If + Else + LOGGER.Info("Attention: CURRENT_DT_PROFILE.Rows.Count <> 1") End If + Else FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, omsgTitleWarning) Exit Sub @@ -3182,4 +3206,6 @@ where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NU LOGGER.Error(ex) End Try End Sub + + End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 2bddbe4..63a6fa6 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -100,6 +100,7 @@ Partial Class frmValidator Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem() Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem() Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -464,9 +465,9 @@ Partial Class frmValidator 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 32 + Me.RibbonControl1.MaxItemId = 33 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageConversations}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) @@ -722,6 +723,12 @@ Partial Class frmValidator Me.Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Options.UseForeColor = True Me.Attmnt_bbtnitm_LoadonClick.Name = "Attmnt_bbtnitm_LoadonClick" ' + 'BarButtonItem6 + ' + resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6") + Me.BarButtonItem6.Id = 32 + Me.BarButtonItem6.Name = "BarButtonItem6" + ' 'RibbonPageConversations ' Me.RibbonPageConversations.Name = "RibbonPageConversations" @@ -770,6 +777,7 @@ Partial Class frmValidator Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroup3.Name = "RibbonPageGroup3" resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") ' @@ -938,4 +946,5 @@ Partial Class frmValidator Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog Friend WithEvents ToggleSwitchItemLoadonClick As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents Attmnt_bbtnitm_LoadonClick As DevExpress.XtraBars.BarCheckItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 3ffef4a..6e2d358 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -131,31 +131,6 @@ 0, 0 - - Top, Left, Right - - - Segoe UI Symbol, 12pt, style=Bold - - - 3, 4 - - - No - - - 433, 29 - - - - 1 - - - Label1 - - - MiddleLeft - TITLELabel1 @@ -168,30 +143,6 @@ 0 - - Bottom, Left, Right - - - Tahoma, 9.75pt - - - MiddleLeft - - - 7, 446 - - - 3, 4, 3, 4 - - - 445, 50 - - - 11 - - - Validierung speichern - Nächstes Dokument - btnSave @@ -204,21 +155,6 @@ 1 - - Top, Left, Right - - - 5, 33 - - - 447, 48 - - - 1 - - - Label3 - DESCRIPTIONLabel @@ -231,24 +167,6 @@ 2 - - Top, Bottom, Left, Right - - - True - - - 8, 85 - - - 3, 4, 3, 4 - - - 444, 353 - - - 18 - PanelValidatorControl @@ -273,6 +191,7 @@ 455, 503 + 24 @@ -441,6 +360,135 @@ 0 + + Top, Left, Right + + + Segoe UI Symbol, 12pt, style=Bold + + + 3, 4 + + + No + + + 433, 29 + + + 1 + + + Label1 + + + MiddleLeft + + + TITLELabel1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + Bottom, Left, Right + + + Tahoma, 9.75pt + + + MiddleLeft + + + 7, 446 + + + 3, 4, 3, 4 + + + 445, 50 + + + 11 + + + Validierung speichern - Nächstes Dokument + + + btnSave + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + Top, Left, Right + + + 5, 33 + + + 447, 48 + + + 1 + + + Label3 + + + DESCRIPTIONLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 2 + + + Top, Bottom, Left, Right + + + True + + + 8, 85 + + + 3, 4, 3, 4 + + + 444, 353 + + + 18 + + + PanelValidatorControl + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 3 + 17, 17 @@ -1026,46 +1074,15 @@ Tahoma, 8.25pt, style=Bold + + BarButtonItem6 + 0, 0 - - Aktionen - - - Beendete Konversationen - - - Funktionen - Konversationen - - Datei - - - Aktionen - - - Anhänge zu Beleg - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF - l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw - DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ - k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 - XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR - Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng - kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg - gg== - - - - Information - Start @@ -1696,6 +1713,12 @@ DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem6 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPageConversations @@ -1993,6 +2016,39 @@ Zoom + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu + NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN + QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs + b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT + eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp + b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg + Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k + ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E + cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO + AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL + + 10 % @@ -2035,39 +2091,6 @@ sichtbare einpassen - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu - NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN - QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs - b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT - eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp - b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg - Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k - ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E - cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO - AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - - BarButtonItem1 @@ -2080,6 +2103,40 @@ 1029, 17 + + Funktionen + + + Aktionen + + + Beendete Konversationen + + + Datei + + + Aktionen + + + Anhänge zu Beleg + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF + l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw + DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ + k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 + XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR + Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng + kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg + gg== + + + + Information + RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 540fd1d..566e261 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -835,7 +835,6 @@ Public Class frmValidator Try PanelValidatorControl.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" - 'DT_CONTROLS = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_CONTROLS_LANGUAGE", $"LANGUAGE = '{USER_LANGUAGE}' AND PROFIL_ID = {CURRENT_ProfilGUID}", "Y_LOC, X_LOC") DT_CONTROLS = DatabaseFallback.GetDatatable("TBPM_PROFILE_CONTROLS_LANGUAGE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { .FilterExpression = $"LANGUAGE = '{USER_LANGUAGE}' AND PROFIL_ID = {CURRENT_ProfilGUID}", .SortByColumn = "Y_LOC, X_LOC" @@ -946,12 +945,11 @@ Public Class frmValidator Catch ex As Exception oCommandSQL_UBPF = "" End Try - 'TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) LOGGER.Debug("ConID <> String.Empty") If oCONID > 0 And oCommandSQL_UBPF <> String.Empty Then LOGGER.Debug("ConID > 0 And commandsql <> String.Empty") Try - oSQL = PreventNulletc(oControlRow.Item("SQL_UEBERPRUEFUNG"), "String") 'TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) + oSQL = PreventNulletc(oControlRow.Item("SQL_UEBERPRUEFUNG"), "String") If clsPatterns.HasOnlySimplePatterns(oSQL) Then LOGGER.Debug("SQL HasOnlySimplePatterns!") @@ -1240,7 +1238,6 @@ Public Class frmValidator Dim CONTROL_ID = DirectCast(oTextBox.Tag, ClassControlCreator.ControlMetadata).Guid 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, oTextBox.Name) Dim DTCONTROLS_UEBP As DataTable - 'DTCONTROLS_UEBP = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_PROFILE_CONTROLS_SQL_UEP", $"PROFIL_ID = {CURRENT_ProfilGUID} AND SQL_UEBERPRUEFUNG LIKE '%{oTextBox.Name}%'") DTCONTROLS_UEBP = DatabaseFallback.GetDatatable("TBPM_PROFILE_CONTROLS_SQL_UEP", New GetDatatableOptions(oSql, DatabaseType.ECM) With { .FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID} AND SQL_UEBERPRUEFUNG LIKE '%{oTextBox.Name}%'" }) @@ -2508,9 +2505,7 @@ Public Class frmValidator Private Function CreateWMObject() As String LOGGER.Debug($"in GetWMDocFileString...'") - If WMSUFFIX.EndsWith("\") = False Then - WMSUFFIX = WMSUFFIX & "\" - End If + Dim oWMOwnPath As String If WM_AHWF_docPath <> String.Empty Then oWMOwnPath = WM_AHWF_docPath @@ -2764,9 +2759,7 @@ Public Class frmValidator ' DocumentViewerValidator.LoadFile(WMDocPathWindows) Try - If DocumentViewerValidator.Visible = False Then - DocumentViewerValidator.Visible = True - End If + Dim oDocument As DocumentResultList.Document = Nothing ' Load DocumentInfo oDocument = Documentloader.Load(CURRENT_DOC_ID, WMDocPathWindows) @@ -2778,13 +2771,16 @@ Public Class frmValidator LOGGER.Error(ex) Exit Sub End Try - If ActiveWorkflowType = ConstAHWorkflow_BlindFile Then + If ActiveWorkflowType = ConstAHWorkflow_BlindFile Or PROFILE_SHOW_DOCUMENT = False Then SplitContainer1.Panel2Collapsed = True DocumentViewerValidator.Visible = False RibbonPageFile.Visible = False Exit Sub + Else + DocumentViewerValidator.Visible = True End If + ' Load Document in Document Viewer Dim oFileName = $"{CURRENT_DOC_ID}.{Current_Document.Extension}" DocumentViewerValidator.LoadFile(oFileName, New MemoryStream(Current_Document.Contents)) @@ -4040,7 +4036,6 @@ Public Class frmValidator Try Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND ACTIVE = 1 ORDER BY SEQUENCE" Dim oDTFinalIndexing As DataTable - 'oDTFinalIndexing = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE") oDTFinalIndexing = DatabaseFallback.GetDatatable("TBPM_PROFILE_FINAL_INDEXING", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { .FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}", .SortByColumn = "PROFIL_ID,TAB_INDEX" @@ -6030,4 +6025,15 @@ Public Class frmValidator CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = Attmnt_bbtnitm_LoadonClick.Checked CONFIG.Save() End Sub + Private Function TakeScreenShot(ByVal Control As Control) As Bitmap + Dim tmpImg As New Bitmap(Control.Width, Control.Height) + Using g As Graphics = Graphics.FromImage(tmpImg) + g.CopyFromScreen(PanelValidatorControl.PointToScreen(New Point(0, 0)), New Point(0, 0), New Size(PanelValidatorControl.Width, PanelValidatorControl.Height)) + End Using + Return tmpImg + End Function + + Private Sub BarButtonItem6_ItemClick_2(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem6.ItemClick + TakeScreenShot(PanelValidatorControl).Save("D:\Screenshot.png", System.Drawing.Imaging.ImageFormat.Png) + End Sub End Class \ No newline at end of file diff --git a/app/SetupVS19/Product.wxs b/app/SetupVS19/Product.wxs index 8e0c3ee..2aede53 100644 --- a/app/SetupVS19/Product.wxs +++ b/app/SetupVS19/Product.wxs @@ -1,5 +1,5 @@ - + @@ -125,6 +125,7 @@ +