From 59b08fa9cd8894587aa0ecccf5a1e80c3d9c63a2 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 29 Jul 2020 14:31:04 +0200 Subject: [PATCH] MS VERsioning MoveRename OFF, new DS --- ToolCollection/ClassNIDatenbankzugriff.vb | 20 +- ToolCollection/ClassNIWindream.vb | 22 +- ToolCollection/ClassStopwatch.vb | 9 +- ToolCollection/DS_More.Designer.vb | 1060 +++--- ToolCollection/DS_More.xsd | 22 +- ToolCollection/ModuleCURRENT.vb | 3 + ToolCollection/My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 35 +- ToolCollection/My Project/Settings.settings | 15 +- ToolCollection/MyDataset.Designer.vb | 3187 ++++------------- ToolCollection/MyDataset.vb | 2 - ToolCollection/MyDataset.xsc | 31 +- ToolCollection/MyDataset.xsd | 271 +- ToolCollection/MyDataset.xss | 11 +- ToolCollection/ToolCollection.vbproj | 3 - ToolCollection/app.config | 4 +- ToolCollection/clsNI_WorkFile.vb | 4 +- ToolCollection/frmDIHauptseite.Designer.vb | 38 +- ToolCollection/frmDIHauptseite.resx | 15 +- ToolCollection/frmDIHauptseite.vb | 15 +- ToolCollection/frmDIProfilEigenschaften.vb | 2 +- ToolCollection/frmDIRegex.Designer.vb | 1 - ToolCollection/frmDIRegex.vb | 2 +- ToolCollection/frmLizenzmanager.vb | 2 +- ToolCollection/frmMORE_Verwaltung.Designer.vb | 2 +- ToolCollection/frmNIHauptseite.Designer.vb | 1 - ToolCollection/frmNIHauptseite.vb | 174 +- ToolCollection/frmNIMoveRename.Designer.vb | 77 +- ToolCollection/frmStart.vb | 2 +- 29 files changed, 1460 insertions(+), 3572 deletions(-) delete mode 100644 ToolCollection/MyDataset.vb diff --git a/ToolCollection/ClassNIDatenbankzugriff.vb b/ToolCollection/ClassNIDatenbankzugriff.vb index a48d99a..c1cc8cf 100644 --- a/ToolCollection/ClassNIDatenbankzugriff.vb +++ b/ToolCollection/ClassNIDatenbankzugriff.vb @@ -165,8 +165,8 @@ Public Class ClassNIDatenbankzugriff Dim Row1 As DataRow Row1 = myDS.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - Row1.Item("Indexname") = Indexname - Row1.Item("Wert") = CStr(Row.Item(0)) + Row1.Item("IndexName") = Indexname + Row1.Item("Value") = CStr(Row.Item(0)) myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(Row1) ' ds.Tables("TBVEKTOR_ARRAYDataTable").Rows.Add(Temptable.Rows(0)) Index = Index + 1 @@ -619,15 +619,15 @@ Public Class ClassNIDatenbankzugriff If QuellVektor = True Then newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - newRow.Item("Indexname") = Indexname - newRow.Item("Wert") = CStr(sqlresult) + newRow.Item("IndexName") = Indexname + newRow.Item("Value") = CStr(sqlresult) _Logger.Debug("Value: " & CStr(sqlresult)) myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow) Else newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - newRow.Item("Indexname") = Indexname - newRow.Item("Wert") = sqlresult.ToString + newRow.Item("IndexName") = Indexname + newRow.Item("Value") = sqlresult.ToString myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow) End If If sqlresult Is Nothing Then @@ -647,8 +647,8 @@ Public Class ClassNIDatenbankzugriff Dim newRow As DataRow newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - newRow.Item("Indexname") = Indexname - newRow.Item("Wert") = CStr(Row.Item(0)) + newRow.Item("IndexName") = Indexname + newRow.Item("Value") = CStr(Row.Item(0)) _Logger.Debug("Value: " & CStr(Row.Item(0))) myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow) ' ds.Tables("TBVEKTOR_ARRAYDataTable").Rows.Add(Temptable.Rows(0)) @@ -721,8 +721,8 @@ Public Class ClassNIDatenbankzugriff Dim newRow As DataRow newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - newRow.Item("Indexname") = Indexname - newRow.Item("Wert") = CStr(result) + newRow.Item("IndexName") = Indexname + newRow.Item("Value") = CStr(result) _Logger.Debug("Value: " & CStr(result)) myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow) Return result diff --git a/ToolCollection/ClassNIWindream.vb b/ToolCollection/ClassNIWindream.vb index e768da9..6063b61 100644 --- a/ToolCollection/ClassNIWindream.vb +++ b/ToolCollection/ClassNIWindream.vb @@ -496,19 +496,19 @@ Public Class ClassNIWindream Dim DS As DataSet - Dim DT As DataTable + Dim DT_VEKTOR As DataTable Dim DR As DataRow Dim BS As New System.Windows.Forms.BindingSource ' --- DataSet zuweisen DS = myDS ' --- Zugriff auf Tabelle - DT = DS.Tables("TBVEKTOR_ARRAY") + DT_VEKTOR = DS.Tables("TBVEKTOR_ARRAY") ' --- den Filter auf den Indexnamen setzen BS.DataSource = DS BS.DataMember = "TBVEKTOR_ARRAY" - BS.Filter = "Indexname = '" & aName.ToString & "'" + BS.Filter = "IndexName = '" & aName.ToString & "'" 'For Each row As DataRow In DT.Rows - 'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert"))) + 'MsgBox(aName & vbNewLine & row.Item("IndexName") & vbNewLine & CStr(row.Item("Value"))) 'Next Dim Anzahl As Integer = BS.Count _Logger.Debug("Anzahl Vektorwerte: " & Anzahl.ToString) @@ -573,7 +573,7 @@ Public Class ClassNIWindream 'Else _Logger.Debug($"Vektortype is {vType}: Indexing with [{VektorArray.Length} values]!") - oDocument.SetVariableValue(aName, myArray) + oDocument.SetVariableValue(aName, myArray) 'End If _Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich") @@ -597,17 +597,17 @@ Public Class ClassNIWindream ReDim myArray(Anzahl - 1) Dim i1 As Integer = 0 'Die Datatable durchlaufen und Werte für den Index in Array schreiben - For Each DR In DT.Rows + For Each DR In DT_VEKTOR.Rows - If DR.Item("Indexname") = aName.ToString Then + If DR.Item("IndexName") = aName.ToString Then If vType = 4098 Then - myArray(i1) = CInt(DR.Item("Wert")) + myArray(i1) = CInt(DR.Item("Value")) ElseIf vType = 4101 Then - myArray(i1) = CDate(DR.Item("Wert")) + myArray(i1) = CDate(DR.Item("Value")) Else - myArray(i1) = CStr(DR.Item("Wert")) + myArray(i1) = CStr(DR.Item("Value")) End If - _Logger.Debug("Value (" & i1 & "): '" & DR.Item("Wert").ToString & "'") + _Logger.Debug("Value (" & i1 & "): '" & DR.Item("Value").ToString & "'") i1 = i1 + 1 End If Next diff --git a/ToolCollection/ClassStopwatch.vb b/ToolCollection/ClassStopwatch.vb index 0652f4c..1309023 100644 --- a/ToolCollection/ClassStopwatch.vb +++ b/ToolCollection/ClassStopwatch.vb @@ -11,19 +11,16 @@ Try stopwatch.Stop() Dim ts As TimeSpan = stopwatch.Elapsed - If ts.Minutes = 0 And ts.Seconds = 0 Then - Return "" - End If - Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00} minutes", ts.Minutes, ts.Seconds, ts.Milliseconds / 10) + Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10) If ts.Minutes > 0 Then timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10) ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10) ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then - timespan_ = String.Format("{0:00}.{1:00} seconds/milliseconds", ts.Seconds, ts.Milliseconds / 10) + timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10) End If - If timespan_ <> "00:00.00" And timespan_ <> "00.00" And timespan_ <> "00.01" Then + If timespan_ <> "00:00.00" Then Dim message = String.Format("{0} || {1}", label, timespan_) Return message Else diff --git a/ToolCollection/DS_More.Designer.vb b/ToolCollection/DS_More.Designer.vb index ecbba8d..6a2280a 100644 --- a/ToolCollection/DS_More.Designer.vb +++ b/ToolCollection/DS_More.Designer.vb @@ -48,7 +48,7 @@ Partial Public Class DS_More Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -60,7 +60,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -113,7 +113,7 @@ Partial Public Class DS_More End Sub _ Public ReadOnly Property TBMO_RE_KUNDEN() As TBMO_RE_KUNDENDataTable @@ -123,7 +123,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property TBMO_RE_DOKART_KUNDE() As TBMO_RE_DOKART_KUNDEDataTable @@ -133,7 +133,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property WHMO_RE_DOKART() As WHMO_RE_DOKARTDataTable @@ -143,7 +143,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property WHMO_RE_KUNDEN() As WHMO_RE_KUNDENDataTable @@ -153,7 +153,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property VWMO_RE_DOKUMENTARTZUORDNUNG() As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable @@ -163,7 +163,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property TBMO_RE_DOKART() As TBMO_RE_DOKARTDataTable @@ -173,7 +173,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property TBMO_RE_HISTORY() As TBMO_RE_HISTORYDataTable @@ -183,7 +183,7 @@ Partial Public Class DS_More End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -196,7 +196,7 @@ Partial Public Class DS_More End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -205,7 +205,7 @@ Partial Public Class DS_More End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -214,7 +214,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -222,7 +222,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DS_More = CType(MyBase.Clone,DS_More) cln.InitVars @@ -231,19 +231,19 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -285,7 +285,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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)) @@ -294,13 +294,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBMO_RE_KUNDEN = CType(MyBase.Tables("TBMO_RE_KUNDEN"),TBMO_RE_KUNDENDataTable) If (initTable = true) Then @@ -350,7 +350,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "DS_More" Me.Prefix = "" @@ -380,49 +380,49 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBMO_RE_KUNDEN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBMO_RE_DOKART_KUNDE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeWHMO_RE_DOKART() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeWHMO_RE_KUNDEN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeVWMO_RE_DOKUMENTARTZUORDNUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBMO_RE_DOKART() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBMO_RE_HISTORY() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -430,7 +430,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DS_More = New DS_More() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -479,25 +479,25 @@ Partial Public Class DS_More Return type End Function - _ + _ Public Delegate Sub TBMO_RE_KUNDENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_KUNDENRowChangeEvent) - _ + _ Public Delegate Sub TBMO_RE_DOKART_KUNDERowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_DOKART_KUNDERowChangeEvent) - _ + _ Public Delegate Sub WHMO_RE_DOKARTRowChangeEventHandler(ByVal sender As Object, ByVal e As WHMO_RE_DOKARTRowChangeEvent) - _ + _ Public Delegate Sub WHMO_RE_KUNDENRowChangeEventHandler(ByVal sender As Object, ByVal e As WHMO_RE_KUNDENRowChangeEvent) - _ + _ Public Delegate Sub VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent) - _ + _ Public Delegate Sub TBMO_RE_DOKARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_DOKARTRowChangeEvent) - _ + _ Public Delegate Sub TBMO_RE_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_HISTORYRowChangeEvent) ''' @@ -525,7 +525,7 @@ Partial Public Class DS_More Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBMO_RE_KUNDEN" @@ -535,7 +535,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -553,14 +553,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -568,7 +568,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDEN_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDEN_NAME @@ -576,7 +576,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDE_KURZColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDE_KURZ @@ -584,7 +584,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -592,7 +592,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -600,7 +600,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -608,7 +608,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -616,7 +616,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -624,7 +624,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -633,33 +633,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_KUNDENRow Get Return CType(Me.Rows(index),TBMO_RE_KUNDENRow) End Get End Property - _ + _ Public Event TBMO_RE_KUNDENRowChanging As TBMO_RE_KUNDENRowChangeEventHandler - _ + _ Public Event TBMO_RE_KUNDENRowChanged As TBMO_RE_KUNDENRowChangeEventHandler - _ + _ Public Event TBMO_RE_KUNDENRowDeleting As TBMO_RE_KUNDENRowChangeEventHandler - _ + _ Public Event TBMO_RE_KUNDENRowDeleted As TBMO_RE_KUNDENRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBMO_RE_KUNDENRow(ByVal row As TBMO_RE_KUNDENRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBMO_RE_KUNDENRow(ByVal KUNDEN_NAME As String, ByVal KUNDE_KURZ As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBMO_RE_KUNDENRow Dim rowTBMO_RE_KUNDENRow As TBMO_RE_KUNDENRow = CType(Me.NewRow,TBMO_RE_KUNDENRow) Dim columnValuesArray() As Object = New Object() {Nothing, KUNDEN_NAME, KUNDE_KURZ, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN} @@ -669,13 +669,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBMO_RE_KUNDENRow Return CType(Me.Rows.Find(New Object() {GUID}),TBMO_RE_KUNDENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBMO_RE_KUNDENDataTable = CType(MyBase.Clone,TBMO_RE_KUNDENDataTable) cln.InitVars @@ -683,13 +683,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMO_RE_KUNDENDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnKUNDEN_NAME = MyBase.Columns("KUNDEN_NAME") @@ -702,7 +702,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -736,25 +736,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBMO_RE_KUNDENRow() As TBMO_RE_KUNDENRow Return CType(Me.NewRow,TBMO_RE_KUNDENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMO_RE_KUNDENRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMO_RE_KUNDENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMO_RE_KUNDENRowChangedEvent) Is Nothing) Then @@ -763,7 +763,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMO_RE_KUNDENRowChangingEvent) Is Nothing) Then @@ -772,7 +772,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMO_RE_KUNDENRowDeletedEvent) Is Nothing) Then @@ -781,7 +781,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMO_RE_KUNDENRowDeletingEvent) Is Nothing) Then @@ -790,13 +790,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBMO_RE_KUNDENRow(ByVal row As TBMO_RE_KUNDENRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -887,7 +887,7 @@ Partial Public Class DS_More Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBMO_RE_DOKART_KUNDE" @@ -897,7 +897,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -915,14 +915,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -930,7 +930,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDEN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDEN_ID @@ -938,7 +938,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DA_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDA_ID @@ -946,7 +946,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ZIELORDNERColumn() As Global.System.Data.DataColumn Get Return Me.columnZIELORDNER @@ -954,7 +954,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -962,7 +962,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -970,7 +970,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -978,7 +978,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -986,7 +986,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -995,33 +995,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_DOKART_KUNDERow Get Return CType(Me.Rows(index),TBMO_RE_DOKART_KUNDERow) End Get End Property - _ + _ Public Event TBMO_RE_DOKART_KUNDERowChanging As TBMO_RE_DOKART_KUNDERowChangeEventHandler - _ + _ Public Event TBMO_RE_DOKART_KUNDERowChanged As TBMO_RE_DOKART_KUNDERowChangeEventHandler - _ + _ Public Event TBMO_RE_DOKART_KUNDERowDeleting As TBMO_RE_DOKART_KUNDERowChangeEventHandler - _ + _ Public Event TBMO_RE_DOKART_KUNDERowDeleted As TBMO_RE_DOKART_KUNDERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBMO_RE_DOKART_KUNDERow(ByVal row As TBMO_RE_DOKART_KUNDERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBMO_RE_DOKART_KUNDERow(ByVal parentTBMO_RE_KUNDENRowByFK_TBMO_RE_DOKART_KUNDE_KDID As TBMO_RE_KUNDENRow, ByVal parentTBMO_RE_DOKARTRowByFK_TBMO_RE_DOKART_KUNDE_DAID As TBMO_RE_DOKARTRow, ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBMO_RE_DOKART_KUNDERow Dim rowTBMO_RE_DOKART_KUNDERow As TBMO_RE_DOKART_KUNDERow = CType(Me.NewRow,TBMO_RE_DOKART_KUNDERow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ZIELORDNER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN} @@ -1037,13 +1037,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByKUNDEN_IDDA_ID(ByVal KUNDEN_ID As Integer, ByVal DA_ID As Integer) As TBMO_RE_DOKART_KUNDERow Return CType(Me.Rows.Find(New Object() {KUNDEN_ID, DA_ID}),TBMO_RE_DOKART_KUNDERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBMO_RE_DOKART_KUNDEDataTable = CType(MyBase.Clone,TBMO_RE_DOKART_KUNDEDataTable) cln.InitVars @@ -1051,13 +1051,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMO_RE_DOKART_KUNDEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnKUNDEN_ID = MyBase.Columns("KUNDEN_ID") @@ -1070,7 +1070,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -1103,25 +1103,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBMO_RE_DOKART_KUNDERow() As TBMO_RE_DOKART_KUNDERow Return CType(Me.NewRow,TBMO_RE_DOKART_KUNDERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMO_RE_DOKART_KUNDERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMO_RE_DOKART_KUNDERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMO_RE_DOKART_KUNDERowChangedEvent) Is Nothing) Then @@ -1130,7 +1130,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMO_RE_DOKART_KUNDERowChangingEvent) Is Nothing) Then @@ -1139,7 +1139,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMO_RE_DOKART_KUNDERowDeletedEvent) Is Nothing) Then @@ -1148,7 +1148,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMO_RE_DOKART_KUNDERowDeletingEvent) Is Nothing) Then @@ -1157,13 +1157,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBMO_RE_DOKART_KUNDERow(ByVal row As TBMO_RE_DOKART_KUNDERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -1242,7 +1242,7 @@ Partial Public Class DS_More Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "WHMO_RE_DOKART" @@ -1252,7 +1252,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1270,14 +1270,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1285,7 +1285,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -1293,7 +1293,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -1302,33 +1302,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As WHMO_RE_DOKARTRow Get Return CType(Me.Rows(index),WHMO_RE_DOKARTRow) End Get End Property - _ + _ Public Event WHMO_RE_DOKARTRowChanging As WHMO_RE_DOKARTRowChangeEventHandler - _ + _ Public Event WHMO_RE_DOKARTRowChanged As WHMO_RE_DOKARTRowChangeEventHandler - _ + _ Public Event WHMO_RE_DOKARTRowDeleting As WHMO_RE_DOKARTRowChangeEventHandler - _ + _ Public Event WHMO_RE_DOKARTRowDeleted As WHMO_RE_DOKARTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddWHMO_RE_DOKARTRow(ByVal row As WHMO_RE_DOKARTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddWHMO_RE_DOKARTRow(ByVal BEZEICHNUNG As String) As WHMO_RE_DOKARTRow Dim rowWHMO_RE_DOKARTRow As WHMO_RE_DOKARTRow = CType(Me.NewRow,WHMO_RE_DOKARTRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -1338,13 +1338,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As WHMO_RE_DOKARTRow Return CType(Me.Rows.Find(New Object() {GUID}),WHMO_RE_DOKARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As WHMO_RE_DOKARTDataTable = CType(MyBase.Clone,WHMO_RE_DOKARTDataTable) cln.InitVars @@ -1352,20 +1352,20 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New WHMO_RE_DOKARTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -1383,25 +1383,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewWHMO_RE_DOKARTRow() As WHMO_RE_DOKARTRow Return CType(Me.NewRow,WHMO_RE_DOKARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New WHMO_RE_DOKARTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(WHMO_RE_DOKARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.WHMO_RE_DOKARTRowChangedEvent) Is Nothing) Then @@ -1410,7 +1410,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.WHMO_RE_DOKARTRowChangingEvent) Is Nothing) Then @@ -1419,7 +1419,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.WHMO_RE_DOKARTRowDeletedEvent) Is Nothing) Then @@ -1428,7 +1428,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.WHMO_RE_DOKARTRowDeletingEvent) Is Nothing) Then @@ -1437,13 +1437,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveWHMO_RE_DOKARTRow(ByVal row As WHMO_RE_DOKARTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -1524,7 +1524,7 @@ Partial Public Class DS_More Private columnKUNDE_KURZ As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "WHMO_RE_KUNDEN" @@ -1534,7 +1534,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1552,14 +1552,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1567,7 +1567,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDEN_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDEN_NAME @@ -1575,7 +1575,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDE_KURZColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDE_KURZ @@ -1583,7 +1583,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -1592,33 +1592,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As WHMO_RE_KUNDENRow Get Return CType(Me.Rows(index),WHMO_RE_KUNDENRow) End Get End Property - _ + _ Public Event WHMO_RE_KUNDENRowChanging As WHMO_RE_KUNDENRowChangeEventHandler - _ + _ Public Event WHMO_RE_KUNDENRowChanged As WHMO_RE_KUNDENRowChangeEventHandler - _ + _ Public Event WHMO_RE_KUNDENRowDeleting As WHMO_RE_KUNDENRowChangeEventHandler - _ + _ Public Event WHMO_RE_KUNDENRowDeleted As WHMO_RE_KUNDENRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddWHMO_RE_KUNDENRow(ByVal row As WHMO_RE_KUNDENRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddWHMO_RE_KUNDENRow(ByVal KUNDEN_NAME As String, ByVal KUNDE_KURZ As String) As WHMO_RE_KUNDENRow Dim rowWHMO_RE_KUNDENRow As WHMO_RE_KUNDENRow = CType(Me.NewRow,WHMO_RE_KUNDENRow) Dim columnValuesArray() As Object = New Object() {Nothing, KUNDEN_NAME, KUNDE_KURZ} @@ -1628,13 +1628,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As WHMO_RE_KUNDENRow Return CType(Me.Rows.Find(New Object() {GUID}),WHMO_RE_KUNDENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As WHMO_RE_KUNDENDataTable = CType(MyBase.Clone,WHMO_RE_KUNDENDataTable) cln.InitVars @@ -1642,13 +1642,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New WHMO_RE_KUNDENDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnKUNDEN_NAME = MyBase.Columns("KUNDEN_NAME") @@ -1656,7 +1656,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -1677,25 +1677,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewWHMO_RE_KUNDENRow() As WHMO_RE_KUNDENRow Return CType(Me.NewRow,WHMO_RE_KUNDENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New WHMO_RE_KUNDENRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(WHMO_RE_KUNDENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.WHMO_RE_KUNDENRowChangedEvent) Is Nothing) Then @@ -1704,7 +1704,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.WHMO_RE_KUNDENRowChangingEvent) Is Nothing) Then @@ -1713,7 +1713,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.WHMO_RE_KUNDENRowDeletedEvent) Is Nothing) Then @@ -1722,7 +1722,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.WHMO_RE_KUNDENRowDeletingEvent) Is Nothing) Then @@ -1731,13 +1731,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveWHMO_RE_KUNDENRow(ByVal row As WHMO_RE_KUNDENRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -1838,7 +1838,7 @@ Partial Public Class DS_More Private columnUO_IDX5 As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWMO_RE_DOKUMENTARTZUORDNUNG" @@ -1848,7 +1848,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1866,14 +1866,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1881,7 +1881,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DOKUMENTART_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART_ID @@ -1889,7 +1889,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART @@ -1897,7 +1897,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDEN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDEN_ID @@ -1905,7 +1905,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDEN_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDEN_NAME @@ -1913,7 +1913,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DOKUMENTARTORDNERColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTARTORDNER @@ -1921,7 +1921,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRAEFIXColumn() As Global.System.Data.DataColumn Get Return Me.columnPRAEFIX @@ -1929,7 +1929,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -1937,7 +1937,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property UO_IDX1Column() As Global.System.Data.DataColumn Get Return Me.columnUO_IDX1 @@ -1945,7 +1945,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property UO_IDX2Column() As Global.System.Data.DataColumn Get Return Me.columnUO_IDX2 @@ -1953,7 +1953,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property UO_IDX3Column() As Global.System.Data.DataColumn Get Return Me.columnUO_IDX3 @@ -1961,7 +1961,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property UO_IDX4Column() As Global.System.Data.DataColumn Get Return Me.columnUO_IDX4 @@ -1969,7 +1969,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property UO_IDX5Column() As Global.System.Data.DataColumn Get Return Me.columnUO_IDX5 @@ -1977,7 +1977,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -1986,33 +1986,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWMO_RE_DOKUMENTARTZUORDNUNGRow Get Return CType(Me.Rows(index),VWMO_RE_DOKUMENTARTZUORDNUNGRow) End Get End Property - _ + _ Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowChanging As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler - _ + _ Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowChanged As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler - _ + _ Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleting As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler - _ + _ Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleted As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddVWMO_RE_DOKUMENTARTZUORDNUNGRow(ByVal row As VWMO_RE_DOKUMENTARTZUORDNUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddVWMO_RE_DOKUMENTARTZUORDNUNGRow(ByVal GUID As Integer, ByVal DOKUMENTART_ID As Integer, ByVal DOKUMENTART As String, ByVal KUNDEN_ID As Integer, ByVal KUNDEN_NAME As String, ByVal DOKUMENTARTORDNER As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal UO_IDX1 As String, ByVal UO_IDX2 As String, ByVal UO_IDX3 As String, ByVal UO_IDX4 As String, ByVal UO_IDX5 As String) As VWMO_RE_DOKUMENTARTZUORDNUNGRow Dim rowVWMO_RE_DOKUMENTARTZUORDNUNGRow As VWMO_RE_DOKUMENTARTZUORDNUNGRow = CType(Me.NewRow,VWMO_RE_DOKUMENTARTZUORDNUNGRow) Dim columnValuesArray() As Object = New Object() {GUID, DOKUMENTART_ID, DOKUMENTART, KUNDEN_ID, KUNDEN_NAME, DOKUMENTARTORDNER, PRAEFIX, INDEXNAME, UO_IDX1, UO_IDX2, UO_IDX3, UO_IDX4, UO_IDX5} @@ -2022,7 +2022,7 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable = CType(MyBase.Clone,VWMO_RE_DOKUMENTARTZUORDNUNGDataTable) cln.InitVars @@ -2030,13 +2030,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWMO_RE_DOKUMENTARTZUORDNUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOKUMENTART_ID = MyBase.Columns("DOKUMENTART_ID") @@ -2054,7 +2054,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -2106,25 +2106,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewVWMO_RE_DOKUMENTARTZUORDNUNGRow() As VWMO_RE_DOKUMENTARTZUORDNUNGRow Return CType(Me.NewRow,VWMO_RE_DOKUMENTARTZUORDNUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWMO_RE_DOKUMENTARTZUORDNUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWMO_RE_DOKUMENTARTZUORDNUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowChangedEvent) Is Nothing) Then @@ -2133,7 +2133,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowChangingEvent) Is Nothing) Then @@ -2142,7 +2142,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowDeletedEvent) Is Nothing) Then @@ -2151,7 +2151,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowDeletingEvent) Is Nothing) Then @@ -2160,13 +2160,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveVWMO_RE_DOKUMENTARTZUORDNUNGRow(ByVal row As VWMO_RE_DOKUMENTARTZUORDNUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -2259,7 +2259,7 @@ Partial Public Class DS_More Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBMO_RE_DOKART" @@ -2269,7 +2269,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2287,14 +2287,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2302,7 +2302,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -2310,7 +2310,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRAEFIXColumn() As Global.System.Data.DataColumn Get Return Me.columnPRAEFIX @@ -2318,7 +2318,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -2326,7 +2326,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -2334,7 +2334,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -2342,7 +2342,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -2350,7 +2350,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -2358,7 +2358,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -2366,7 +2366,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -2375,33 +2375,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_DOKARTRow Get Return CType(Me.Rows(index),TBMO_RE_DOKARTRow) End Get End Property - _ + _ Public Event TBMO_RE_DOKARTRowChanging As TBMO_RE_DOKARTRowChangeEventHandler - _ + _ Public Event TBMO_RE_DOKARTRowChanged As TBMO_RE_DOKARTRowChangeEventHandler - _ + _ Public Event TBMO_RE_DOKARTRowDeleting As TBMO_RE_DOKARTRowChangeEventHandler - _ + _ Public Event TBMO_RE_DOKARTRowDeleted As TBMO_RE_DOKARTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBMO_RE_DOKARTRow(ByVal row As TBMO_RE_DOKARTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBMO_RE_DOKARTRow(ByVal BEZEICHNUNG As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal AKTIV As Boolean, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBMO_RE_DOKARTRow Dim rowTBMO_RE_DOKARTRow As TBMO_RE_DOKARTRow = CType(Me.NewRow,TBMO_RE_DOKARTRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, PRAEFIX, INDEXNAME, AKTIV, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN} @@ -2411,13 +2411,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBMO_RE_DOKARTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBMO_RE_DOKARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBMO_RE_DOKARTDataTable = CType(MyBase.Clone,TBMO_RE_DOKARTDataTable) cln.InitVars @@ -2425,13 +2425,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMO_RE_DOKARTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -2445,7 +2445,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -2483,25 +2483,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBMO_RE_DOKARTRow() As TBMO_RE_DOKARTRow Return CType(Me.NewRow,TBMO_RE_DOKARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMO_RE_DOKARTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMO_RE_DOKARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMO_RE_DOKARTRowChangedEvent) Is Nothing) Then @@ -2510,7 +2510,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMO_RE_DOKARTRowChangingEvent) Is Nothing) Then @@ -2519,7 +2519,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMO_RE_DOKARTRowDeletedEvent) Is Nothing) Then @@ -2528,7 +2528,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMO_RE_DOKARTRowDeletingEvent) Is Nothing) Then @@ -2537,13 +2537,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBMO_RE_DOKARTRow(ByVal row As TBMO_RE_DOKARTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -2634,7 +2634,7 @@ Partial Public Class DS_More Private columnERSTELLTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBMO_RE_HISTORY" @@ -2644,7 +2644,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2662,14 +2662,14 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2677,7 +2677,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FILE_ORIGINALColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_ORIGINAL @@ -2685,7 +2685,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FILE_NEWColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_NEW @@ -2693,7 +2693,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KUNDE_KURZColumn() As Global.System.Data.DataColumn Get Return Me.columnKUNDE_KURZ @@ -2701,7 +2701,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEX1Column() As Global.System.Data.DataColumn Get Return Me.columnINDEX1 @@ -2709,7 +2709,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEX2Column() As Global.System.Data.DataColumn Get Return Me.columnINDEX2 @@ -2717,7 +2717,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -2725,7 +2725,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -2733,7 +2733,7 @@ Partial Public Class DS_More End Property _ Public ReadOnly Property Count() As Integer Get @@ -2742,33 +2742,33 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_HISTORYRow Get Return CType(Me.Rows(index),TBMO_RE_HISTORYRow) End Get End Property - _ + _ Public Event TBMO_RE_HISTORYRowChanging As TBMO_RE_HISTORYRowChangeEventHandler - _ + _ Public Event TBMO_RE_HISTORYRowChanged As TBMO_RE_HISTORYRowChangeEventHandler - _ + _ Public Event TBMO_RE_HISTORYRowDeleting As TBMO_RE_HISTORYRowChangeEventHandler - _ + _ Public Event TBMO_RE_HISTORYRowDeleted As TBMO_RE_HISTORYRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBMO_RE_HISTORYRow(ByVal row As TBMO_RE_HISTORYRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBMO_RE_HISTORYRow(ByVal FILE_ORIGINAL As String, ByVal FILE_NEW As String, ByVal KUNDE_KURZ As String, ByVal INDEX1 As String, ByVal INDEX2 As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date) As TBMO_RE_HISTORYRow Dim rowTBMO_RE_HISTORYRow As TBMO_RE_HISTORYRow = CType(Me.NewRow,TBMO_RE_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, ERSTELLTWANN} @@ -2778,13 +2778,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBMO_RE_HISTORYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBMO_RE_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBMO_RE_HISTORYDataTable = CType(MyBase.Clone,TBMO_RE_HISTORYDataTable) cln.InitVars @@ -2792,13 +2792,13 @@ Partial Public Class DS_More End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMO_RE_HISTORYDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILE_ORIGINAL = MyBase.Columns("FILE_ORIGINAL") @@ -2811,7 +2811,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) @@ -2849,25 +2849,25 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBMO_RE_HISTORYRow() As TBMO_RE_HISTORYRow Return CType(Me.NewRow,TBMO_RE_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMO_RE_HISTORYRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMO_RE_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMO_RE_HISTORYRowChangedEvent) Is Nothing) Then @@ -2876,7 +2876,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMO_RE_HISTORYRowChangingEvent) Is Nothing) Then @@ -2885,7 +2885,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMO_RE_HISTORYRowDeletedEvent) Is Nothing) Then @@ -2894,7 +2894,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMO_RE_HISTORYRowDeletingEvent) Is Nothing) Then @@ -2903,13 +2903,13 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBMO_RE_HISTORYRow(ByVal row As TBMO_RE_HISTORYRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -2984,14 +2984,14 @@ Partial Public Class DS_More Private tableTBMO_RE_KUNDEN As TBMO_RE_KUNDENDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBMO_RE_KUNDEN = CType(Me.Table,TBMO_RE_KUNDENDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBMO_RE_KUNDEN.GUIDColumn),Integer) @@ -3002,7 +3002,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDEN_NAME() As String Get Return CType(Me(Me.tableTBMO_RE_KUNDEN.KUNDEN_NAMEColumn),String) @@ -3013,7 +3013,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDE_KURZ() As String Get Try @@ -3028,7 +3028,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBMO_RE_KUNDEN.AKTIVColumn),Boolean) @@ -3039,7 +3039,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWERColumn),String) @@ -3050,7 +3050,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -3065,7 +3065,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -3080,7 +3080,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -3095,55 +3095,55 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsKUNDE_KURZNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.KUNDE_KURZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetKUNDE_KURZNull() Me(Me.tableTBMO_RE_KUNDEN.KUNDE_KURZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBMO_RE_DOKART_KUNDERows() As TBMO_RE_DOKART_KUNDERow() If (Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_KDID") Is Nothing) Then Return New TBMO_RE_DOKART_KUNDERow(-1) {} @@ -3162,14 +3162,14 @@ Partial Public Class DS_More Private tableTBMO_RE_DOKART_KUNDE As TBMO_RE_DOKART_KUNDEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBMO_RE_DOKART_KUNDE = CType(Me.Table,TBMO_RE_DOKART_KUNDEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.GUIDColumn),Integer) @@ -3180,7 +3180,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDEN_ID() As Integer Get Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.KUNDEN_IDColumn),Integer) @@ -3191,7 +3191,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DA_ID() As Integer Get Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.DA_IDColumn),Integer) @@ -3202,7 +3202,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ZIELORDNER() As String Get Try @@ -3217,7 +3217,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWERColumn),String) @@ -3228,7 +3228,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -3243,7 +3243,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -3258,7 +3258,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -3273,7 +3273,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBMO_RE_KUNDENRow() As TBMO_RE_KUNDENRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_KDID")),TBMO_RE_KUNDENRow) @@ -3284,7 +3284,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WHMO_RE_KUNDENRow() As WHMO_RE_KUNDENRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_KDID1")),WHMO_RE_KUNDENRow) @@ -3295,7 +3295,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBMO_RE_DOKARTRow() As TBMO_RE_DOKARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_DAID")),TBMO_RE_DOKARTRow) @@ -3306,49 +3306,49 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsZIELORDNERNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.ZIELORDNERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetZIELORDNERNull() Me(Me.tableTBMO_RE_DOKART_KUNDE.ZIELORDNERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -3363,14 +3363,14 @@ Partial Public Class DS_More Private tableWHMO_RE_DOKART As WHMO_RE_DOKARTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableWHMO_RE_DOKART = CType(Me.Table,WHMO_RE_DOKARTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableWHMO_RE_DOKART.GUIDColumn),Integer) @@ -3381,7 +3381,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableWHMO_RE_DOKART.BEZEICHNUNGColumn),String) @@ -3401,14 +3401,14 @@ Partial Public Class DS_More Private tableWHMO_RE_KUNDEN As WHMO_RE_KUNDENDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableWHMO_RE_KUNDEN = CType(Me.Table,WHMO_RE_KUNDENDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableWHMO_RE_KUNDEN.GUIDColumn),Integer) @@ -3419,7 +3419,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDEN_NAME() As String Get Return CType(Me(Me.tableWHMO_RE_KUNDEN.KUNDEN_NAMEColumn),String) @@ -3430,7 +3430,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDE_KURZ() As String Get Try @@ -3445,19 +3445,19 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsKUNDE_KURZNull() As Boolean Return Me.IsNull(Me.tableWHMO_RE_KUNDEN.KUNDE_KURZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetKUNDE_KURZNull() Me(Me.tableWHMO_RE_KUNDEN.KUNDE_KURZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBMO_RE_DOKART_KUNDERows() As TBMO_RE_DOKART_KUNDERow() If (Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_KDID1") Is Nothing) Then Return New TBMO_RE_DOKART_KUNDERow(-1) {} @@ -3476,14 +3476,14 @@ Partial Public Class DS_More Private tableVWMO_RE_DOKUMENTARTZUORDNUNG As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG = CType(Me.Table,VWMO_RE_DOKUMENTARTZUORDNUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.GUIDColumn),Integer) @@ -3494,7 +3494,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DOKUMENTART_ID() As Integer Get Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTART_IDColumn),Integer) @@ -3505,7 +3505,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DOKUMENTART() As String Get Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTColumn),String) @@ -3516,7 +3516,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDEN_ID() As Integer Get Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.KUNDEN_IDColumn),Integer) @@ -3527,7 +3527,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDEN_NAME() As String Get Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.KUNDEN_NAMEColumn),String) @@ -3538,7 +3538,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DOKUMENTARTORDNER() As String Get Try @@ -3554,7 +3554,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRAEFIX() As String Get Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.PRAEFIXColumn),String) @@ -3565,7 +3565,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEXNAME() As String Get Try @@ -3581,7 +3581,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UO_IDX1() As String Get Try @@ -3596,7 +3596,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UO_IDX2() As String Get Try @@ -3611,7 +3611,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UO_IDX3() As String Get Try @@ -3626,7 +3626,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UO_IDX4() As String Get Try @@ -3641,7 +3641,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UO_IDX5() As String Get Try @@ -3656,85 +3656,85 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDOKUMENTARTORDNERNull() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTORDNERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDOKUMENTARTORDNERNull() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTORDNERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsINDEXNAMENull() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.INDEXNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetINDEXNAMENull() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.INDEXNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUO_IDX1Null() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUO_IDX1Null() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUO_IDX2Null() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUO_IDX2Null() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUO_IDX3Null() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUO_IDX3Null() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUO_IDX4Null() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUO_IDX4Null() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUO_IDX5Null() As Boolean Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX5Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUO_IDX5Null() Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX5Column) = Global.System.Convert.DBNull End Sub @@ -3749,14 +3749,14 @@ Partial Public Class DS_More Private tableTBMO_RE_DOKART As TBMO_RE_DOKARTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBMO_RE_DOKART = CType(Me.Table,TBMO_RE_DOKARTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBMO_RE_DOKART.GUIDColumn),Integer) @@ -3767,7 +3767,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBMO_RE_DOKART.BEZEICHNUNGColumn),String) @@ -3778,7 +3778,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRAEFIX() As String Get Return CType(Me(Me.tableTBMO_RE_DOKART.PRAEFIXColumn),String) @@ -3789,7 +3789,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEXNAME() As String Get Try @@ -3804,7 +3804,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBMO_RE_DOKART.AKTIVColumn),Boolean) @@ -3815,7 +3815,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBMO_RE_DOKART.ERFASSTWERColumn),String) @@ -3826,7 +3826,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -3841,7 +3841,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -3856,7 +3856,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -3871,55 +3871,55 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsINDEXNAMENull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART.INDEXNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetINDEXNAMENull() Me(Me.tableTBMO_RE_DOKART.INDEXNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBMO_RE_DOKART.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBMO_RE_DOKART.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_DOKART.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBMO_RE_DOKART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBMO_RE_DOKART_KUNDERows() As TBMO_RE_DOKART_KUNDERow() If (Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_DAID") Is Nothing) Then Return New TBMO_RE_DOKART_KUNDERow(-1) {} @@ -3938,14 +3938,14 @@ Partial Public Class DS_More Private tableTBMO_RE_HISTORY As TBMO_RE_HISTORYDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBMO_RE_HISTORY = CType(Me.Table,TBMO_RE_HISTORYDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBMO_RE_HISTORY.GUIDColumn),Integer) @@ -3956,7 +3956,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FILE_ORIGINAL() As String Get Return CType(Me(Me.tableTBMO_RE_HISTORY.FILE_ORIGINALColumn),String) @@ -3967,7 +3967,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FILE_NEW() As String Get Return CType(Me(Me.tableTBMO_RE_HISTORY.FILE_NEWColumn),String) @@ -3978,7 +3978,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KUNDE_KURZ() As String Get Try @@ -3993,7 +3993,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEX1() As String Get Try @@ -4008,7 +4008,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEX2() As String Get Try @@ -4023,7 +4023,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBMO_RE_HISTORY.ERSTELLTWERColumn),String) @@ -4034,7 +4034,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Return CType(Me(Me.tableTBMO_RE_HISTORY.ERSTELLTWANNColumn),Date) @@ -4045,37 +4045,37 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsKUNDE_KURZNull() As Boolean Return Me.IsNull(Me.tableTBMO_RE_HISTORY.KUNDE_KURZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetKUNDE_KURZNull() Me(Me.tableTBMO_RE_HISTORY.KUNDE_KURZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsINDEX1Null() As Boolean Return Me.IsNull(Me.tableTBMO_RE_HISTORY.INDEX1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetINDEX1Null() Me(Me.tableTBMO_RE_HISTORY.INDEX1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsINDEX2Null() As Boolean Return Me.IsNull(Me.tableTBMO_RE_HISTORY.INDEX2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetINDEX2Null() Me(Me.tableTBMO_RE_HISTORY.INDEX2Column) = Global.System.Convert.DBNull End Sub @@ -4084,7 +4084,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class TBMO_RE_KUNDENRowChangeEvent Inherits Global.System.EventArgs @@ -4093,7 +4093,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBMO_RE_KUNDENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4101,7 +4101,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBMO_RE_KUNDENRow Get Return Me.eventRow @@ -4109,7 +4109,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4120,7 +4120,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class TBMO_RE_DOKART_KUNDERowChangeEvent Inherits Global.System.EventArgs @@ -4129,7 +4129,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBMO_RE_DOKART_KUNDERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4137,7 +4137,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBMO_RE_DOKART_KUNDERow Get Return Me.eventRow @@ -4145,7 +4145,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4156,7 +4156,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class WHMO_RE_DOKARTRowChangeEvent Inherits Global.System.EventArgs @@ -4165,7 +4165,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As WHMO_RE_DOKARTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4173,7 +4173,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As WHMO_RE_DOKARTRow Get Return Me.eventRow @@ -4181,7 +4181,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4192,7 +4192,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class WHMO_RE_KUNDENRowChangeEvent Inherits Global.System.EventArgs @@ -4201,7 +4201,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As WHMO_RE_KUNDENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4209,7 +4209,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As WHMO_RE_KUNDENRow Get Return Me.eventRow @@ -4217,7 +4217,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4228,7 +4228,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent Inherits Global.System.EventArgs @@ -4237,7 +4237,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As VWMO_RE_DOKUMENTARTZUORDNUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4245,7 +4245,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As VWMO_RE_DOKUMENTARTZUORDNUNGRow Get Return Me.eventRow @@ -4253,7 +4253,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4264,7 +4264,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class TBMO_RE_DOKARTRowChangeEvent Inherits Global.System.EventArgs @@ -4273,7 +4273,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBMO_RE_DOKARTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4281,7 +4281,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBMO_RE_DOKARTRow Get Return Me.eventRow @@ -4289,7 +4289,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4300,7 +4300,7 @@ Partial Public Class DS_More ''' '''Row event argument class ''' - _ + _ Public Class TBMO_RE_HISTORYRowChangeEvent Inherits Global.System.EventArgs @@ -4309,7 +4309,7 @@ Partial Public Class DS_More Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBMO_RE_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4317,7 +4317,7 @@ Partial Public Class DS_More End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBMO_RE_HISTORYRow Get Return Me.eventRow @@ -4325,7 +4325,7 @@ Partial Public Class DS_More End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4359,14 +4359,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -4377,7 +4377,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -4407,7 +4407,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -4435,7 +4435,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -4446,7 +4446,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -4457,7 +4457,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -4521,14 +4521,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -4539,7 +4539,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.TBMO_RE_KUNDENDataTable) As Integer @@ -4552,7 +4552,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.TBMO_RE_KUNDENDataTable @@ -4563,35 +4563,35 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_KUNDENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer Return Me.Adapter.Update(dataSet, "TBMO_RE_KUNDEN") 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_KUNDEN_NAME As String, ByVal Original_KUNDE_KURZ As String, ByVal Original_AKTIV As Boolean, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -4649,7 +4649,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal KUNDEN_NAME As String, ByVal KUNDE_KURZ As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer @@ -4685,7 +4685,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal KUNDEN_NAME As String, ByVal KUNDE_KURZ As String, ByVal AKTIV As Boolean, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -4746,14 +4746,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -4764,7 +4764,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -4794,7 +4794,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -4822,7 +4822,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -4833,7 +4833,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -4844,7 +4844,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -4934,14 +4934,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -4952,7 +4952,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.TBMO_RE_DOKART_KUNDEDataTable) As Integer @@ -4965,7 +4965,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.TBMO_RE_DOKART_KUNDEDataTable @@ -4976,35 +4976,35 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_DOKART_KUNDEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer Return Me.Adapter.Update(dataSet, "TBMO_RE_DOKART_KUNDE") 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_KUNDEN_ID As Integer, ByVal Original_DA_ID As Integer, ByVal Original_ZIELORDNER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -5058,7 +5058,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal KUNDEN_ID As Integer, ByVal DA_ID As Integer, ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal UO_IDX1 As String, ByVal UO_IDX2 As String, ByVal UO_IDX3 As String, ByVal UO_IDX4 As String, ByVal UO_IDX5 As String) As Integer @@ -5115,7 +5115,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal KUNDEN_ID As Integer, ByVal DA_ID As Integer, ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KUNDEN_ID As Integer, ByVal Original_DA_ID As Integer, ByVal Original_ZIELORDNER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -5196,7 +5196,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KUNDEN_ID As Integer, ByVal Original_DA_ID As Integer, ByVal Original_ZIELORDNER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -5227,14 +5227,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5245,7 +5245,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5275,7 +5275,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5303,7 +5303,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5314,7 +5314,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5325,7 +5325,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -5337,14 +5337,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -5355,7 +5355,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.WHMO_RE_DOKARTDataTable) As Integer @@ -5368,7 +5368,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.WHMO_RE_DOKARTDataTable @@ -5402,14 +5402,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5420,7 +5420,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5450,7 +5450,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5478,7 +5478,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5489,7 +5489,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5500,7 +5500,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -5513,14 +5513,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -5531,7 +5531,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.WHMO_RE_KUNDENDataTable) As Integer @@ -5544,7 +5544,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.WHMO_RE_KUNDENDataTable @@ -5578,14 +5578,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5596,7 +5596,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5626,7 +5626,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5654,7 +5654,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5665,7 +5665,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5676,7 +5676,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -5699,14 +5699,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -5732,7 +5732,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable) As Integer @@ -5745,7 +5745,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable @@ -5756,7 +5756,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function FillByDokartKD(ByVal dataTable As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable, ByVal DOKART As String, ByVal KUNDEN_NAME As String) As Integer @@ -5779,7 +5779,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetDataByDAKD(ByVal DOKART As String, ByVal KUNDEN_NAME As String) As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable @@ -5800,7 +5800,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteEntry(ByVal GUID As Integer) As Integer @@ -5846,14 +5846,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5864,7 +5864,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5894,7 +5894,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5922,7 +5922,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5933,7 +5933,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5944,7 +5944,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -6014,14 +6014,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -6031,7 +6031,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.TBMO_RE_DOKARTDataTable) As Integer @@ -6044,7 +6044,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.TBMO_RE_DOKARTDataTable @@ -6055,35 +6055,35 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_DOKARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer Return Me.Adapter.Update(dataSet, "TBMO_RE_DOKART") 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_BEZEICHNUNG As String, ByVal Original_PRAEFIX As String, ByVal Original_INDEXNAME As String, ByVal Original_AKTIV As Boolean, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -6146,7 +6146,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal AKTIV As Boolean, ByVal ERFASSTWER As String) As Integer @@ -6187,7 +6187,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal AKTIV As Boolean, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -6253,14 +6253,14 @@ Namespace DS_MoreTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -6271,7 +6271,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -6301,7 +6301,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -6329,7 +6329,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -6340,7 +6340,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -6351,7 +6351,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -6437,14 +6437,14 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -6455,7 +6455,7 @@ Namespace DS_MoreTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_More.TBMO_RE_HISTORYDataTable) As Integer @@ -6468,7 +6468,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_More.TBMO_RE_HISTORYDataTable @@ -6479,35 +6479,35 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_HISTORYDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer Return Me.Adapter.Update(dataSet, "TBMO_RE_HISTORY") 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_FILE_ORIGINAL As String, ByVal Original_FILE_NEW As String, ByVal Original_KUNDE_KURZ As String, ByVal Original_INDEX1 As String, ByVal Original_INDEX2 As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Date) As Integer @@ -6565,7 +6565,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal FILE_ORIGINAL As String, ByVal FILE_NEW As String, ByVal KUNDE_KURZ As String, ByVal INDEX1 As String, ByVal INDEX2 As String, ByVal ERSTELLTWER As String) As Integer @@ -6615,7 +6615,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -6721,7 +6721,7 @@ Namespace DS_MoreTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal FILE_ORIGINAL As String, ByVal FILE_NEW As String, ByVal KUNDE_KURZ As String, ByVal INDEX1 As String, ByVal INDEX2 As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_FILE_ORIGINAL As String, ByVal Original_FILE_NEW As String, ByVal Original_KUNDE_KURZ As String, ByVal Original_INDEX1 As String, ByVal Original_INDEX2 As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Date) As Integer @@ -6755,7 +6755,7 @@ Namespace DS_MoreTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -6766,7 +6766,7 @@ Namespace DS_MoreTableAdapters End Property _ @@ -6780,7 +6780,7 @@ Namespace DS_MoreTableAdapters End Property _ @@ -6794,7 +6794,7 @@ Namespace DS_MoreTableAdapters End Property _ @@ -6808,7 +6808,7 @@ Namespace DS_MoreTableAdapters End Property _ @@ -6822,7 +6822,7 @@ Namespace DS_MoreTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -6833,7 +6833,7 @@ Namespace DS_MoreTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -6864,7 +6864,7 @@ Namespace DS_MoreTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -6889,7 +6889,7 @@ Namespace DS_MoreTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As DS_More, 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._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then @@ -6935,7 +6935,7 @@ Namespace DS_MoreTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As DS_More, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then @@ -6977,7 +6977,7 @@ Namespace DS_MoreTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DS_More, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then @@ -7019,7 +7019,7 @@ Namespace DS_MoreTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -7045,7 +7045,7 @@ Namespace DS_MoreTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As DS_More) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -7234,13 +7234,13 @@ Namespace DS_MoreTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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 @@ -7258,7 +7258,7 @@ Namespace DS_MoreTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -7269,7 +7269,7 @@ Namespace DS_MoreTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -7279,7 +7279,7 @@ Namespace DS_MoreTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -7291,7 +7291,7 @@ Namespace DS_MoreTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -7330,7 +7330,7 @@ Namespace DS_MoreTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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/ToolCollection/DS_More.xsd b/ToolCollection/DS_More.xsd index 5004509..00a0acd 100644 --- a/ToolCollection/DS_More.xsd +++ b/ToolCollection/DS_More.xsd @@ -4,7 +4,7 @@ - + @@ -425,7 +425,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -463,7 +463,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -495,7 +495,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -509,7 +509,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -530,7 +530,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -609,7 +609,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -654,7 +654,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - + @@ -734,9 +734,9 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E - - - + + + \ No newline at end of file diff --git a/ToolCollection/ModuleCURRENT.vb b/ToolCollection/ModuleCURRENT.vb index 5073926..1d7d229 100644 --- a/ToolCollection/ModuleCURRENT.vb +++ b/ToolCollection/ModuleCURRENT.vb @@ -26,4 +26,7 @@ Module ModuleCURRENT Public Property CURR_LogConfig As LogConfig Public Property CURR_Logger As DigitalData.Modules.Logging.Logger + Public Stopwatch1 As String + Public Stopwatch2 As String + Public CURRENT_UNTERV As List(Of String) End Module diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 439f696..149f4f5 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/My Project/Settings.Designer.vb b/ToolCollection/My Project/Settings.Designer.vb index f699d4f..00c46b0 100644 --- a/ToolCollection/My Project/Settings.Designer.vb +++ b/ToolCollection/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -891,17 +891,6 @@ Namespace My End Get End Property - _ - Public ReadOnly Property DDECMConString() As String - Get - Return CType(Me("DDECMConString"),String) - End Get - End Property - |]")> _ @@ -911,17 +900,6 @@ Namespace My End Get End Property - _ - Public ReadOnly Property DD_ECM_TESTConnectionString() As String - Get - Return CType(Me("DD_ECM_TESTConnectionString"),String) - End Get - End Property - _ @@ -933,6 +911,17 @@ Namespace My Me("myDateiname") = value End Set End Property + + _ + Public ReadOnly Property DDECMConString() As String + Get + Return CType(Me("DDECMConString"),String) + End Get + End Property End Class End Namespace diff --git a/ToolCollection/My Project/Settings.settings b/ToolCollection/My Project/Settings.settings index 1133a42..576d451 100644 --- a/ToolCollection/My Project/Settings.settings +++ b/ToolCollection/My Project/Settings.settings @@ -218,17 +218,13 @@ False - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> -</SerializableConnectionString> - Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd - [\\\/:\*\?""'<>|] - + + myInvalidDateiname.pdf + + <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> @@ -236,8 +232,5 @@ </SerializableConnectionString> Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd - - myInvalidDateiname.pdf - \ No newline at end of file diff --git a/ToolCollection/MyDataset.Designer.vb b/ToolCollection/MyDataset.Designer.vb index fc141c7..08e10a8 100644 --- a/ToolCollection/MyDataset.Designer.vb +++ b/ToolCollection/MyDataset.Designer.vb @@ -25,22 +25,16 @@ Option Explicit On Partial Public Class MyDataset Inherits Global.System.Data.DataSet - Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable - Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable Private tableTBTC_DI_REGEX_MATCH As TBTC_DI_REGEX_MATCHDataTable Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable - Private tableTBErgebnis As TBErgebnisDataTable - - Private tableTBUV As TBUVDataTable - Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -52,7 +46,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -66,9 +60,6 @@ Partial Public Class MyDataset If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - If (Not (ds.Tables("TBDD_REPORTING_IMPORT")) Is Nothing) Then - MyBase.Tables.Add(New TBDD_REPORTING_IMPORTDataTable(ds.Tables("TBDD_REPORTING_IMPORT"))) - End If If (Not (ds.Tables("TBTC_MOVE_RENAME")) Is Nothing) Then MyBase.Tables.Add(New TBTC_MOVE_RENAMEDataTable(ds.Tables("TBTC_MOVE_RENAME"))) End If @@ -78,12 +69,6 @@ Partial Public Class MyDataset If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY"))) End If - If (Not (ds.Tables("TBErgebnis")) Is Nothing) Then - MyBase.Tables.Add(New TBErgebnisDataTable(ds.Tables("TBErgebnis"))) - End If - If (Not (ds.Tables("TBUV")) Is Nothing) Then - MyBase.Tables.Add(New TBUVDataTable(ds.Tables("TBUV"))) - End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -102,17 +87,7 @@ Partial Public Class MyDataset End Sub _ - Public ReadOnly Property TBDD_REPORTING_IMPORT() As TBDD_REPORTING_IMPORTDataTable - Get - Return Me.tableTBDD_REPORTING_IMPORT - End Get - End Property - - _ Public ReadOnly Property TBTC_MOVE_RENAME() As TBTC_MOVE_RENAMEDataTable @@ -122,7 +97,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBTC_DI_REGEX_MATCH() As TBTC_DI_REGEX_MATCHDataTable @@ -132,7 +107,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBVEKTOR_ARRAY() As TBVEKTOR_ARRAYDataTable @@ -142,27 +117,7 @@ Partial Public Class MyDataset End Property _ - Public ReadOnly Property TBErgebnis() As TBErgebnisDataTable - Get - Return Me.tableTBErgebnis - End Get - End Property - - _ - Public ReadOnly Property TBUV() As TBUVDataTable - Get - Return Me.tableTBUV - End Get - End Property - - _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -175,7 +130,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -184,7 +139,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -193,7 +148,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -201,7 +156,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -210,27 +165,24 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) - If (Not (ds.Tables("TBDD_REPORTING_IMPORT")) Is Nothing) Then - MyBase.Tables.Add(New TBDD_REPORTING_IMPORTDataTable(ds.Tables("TBDD_REPORTING_IMPORT"))) - End If If (Not (ds.Tables("TBTC_MOVE_RENAME")) Is Nothing) Then MyBase.Tables.Add(New TBTC_MOVE_RENAMEDataTable(ds.Tables("TBTC_MOVE_RENAME"))) End If @@ -240,12 +192,6 @@ Partial Public Class MyDataset If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY"))) End If - If (Not (ds.Tables("TBErgebnis")) Is Nothing) Then - MyBase.Tables.Add(New TBErgebnisDataTable(ds.Tables("TBErgebnis"))) - End If - If (Not (ds.Tables("TBUV")) Is Nothing) Then - MyBase.Tables.Add(New TBUVDataTable(ds.Tables("TBUV"))) - End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -261,7 +207,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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)) @@ -270,20 +216,14 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBDD_REPORTING_IMPORT = CType(MyBase.Tables("TBDD_REPORTING_IMPORT"),TBDD_REPORTING_IMPORTDataTable) - If (initTable = true) Then - If (Not (Me.tableTBDD_REPORTING_IMPORT) Is Nothing) Then - Me.tableTBDD_REPORTING_IMPORT.InitVars - End If - End If Me.tableTBTC_MOVE_RENAME = CType(MyBase.Tables("TBTC_MOVE_RENAME"),TBTC_MOVE_RENAMEDataTable) If (initTable = true) Then If (Not (Me.tableTBTC_MOVE_RENAME) Is Nothing) Then @@ -302,80 +242,44 @@ Partial Public Class MyDataset Me.tableTBVEKTOR_ARRAY.InitVars End If End If - Me.tableTBErgebnis = CType(MyBase.Tables("TBErgebnis"),TBErgebnisDataTable) - If (initTable = true) Then - If (Not (Me.tableTBErgebnis) Is Nothing) Then - Me.tableTBErgebnis.InitVars - End If - End If - Me.tableTBUV = CType(MyBase.Tables("TBUV"),TBUVDataTable) - If (initTable = true) Then - If (Not (Me.tableTBUV) Is Nothing) Then - Me.tableTBUV.InitVars - End If - End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" Me.Namespace = "http://tempuri.org/MyDataset.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - Me.tableTBDD_REPORTING_IMPORT = New TBDD_REPORTING_IMPORTDataTable() - MyBase.Tables.Add(Me.tableTBDD_REPORTING_IMPORT) Me.tableTBTC_MOVE_RENAME = New TBTC_MOVE_RENAMEDataTable() MyBase.Tables.Add(Me.tableTBTC_MOVE_RENAME) Me.tableTBTC_DI_REGEX_MATCH = New TBTC_DI_REGEX_MATCHDataTable() MyBase.Tables.Add(Me.tableTBTC_DI_REGEX_MATCH) Me.tableTBVEKTOR_ARRAY = New TBVEKTOR_ARRAYDataTable() MyBase.Tables.Add(Me.tableTBVEKTOR_ARRAY) - Me.tableTBErgebnis = New TBErgebnisDataTable() - MyBase.Tables.Add(Me.tableTBErgebnis) - Me.tableTBUV = New TBUVDataTable() - MyBase.Tables.Add(Me.tableTBUV) End Sub _ - Private Function ShouldSerializeTBDD_REPORTING_IMPORT() As Boolean - Return false - End Function - - _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBTC_MOVE_RENAME() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBTC_DI_REGEX_MATCH() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBVEKTOR_ARRAY() As Boolean Return false End Function _ - Private Function ShouldSerializeTBErgebnis() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBUV() As Boolean - Return false - End Function - - _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -383,7 +287,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -432,58 +336,55 @@ Partial Public Class MyDataset Return type End Function - _ - Public Delegate Sub TBDD_REPORTING_IMPORTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_REPORTING_IMPORTRowChangeEvent) - - _ + _ Public Delegate Sub TBTC_MOVE_RENAMERowChangeEventHandler(ByVal sender As Object, ByVal e As TBTC_MOVE_RENAMERowChangeEvent) - _ + _ Public Delegate Sub TBTC_DI_REGEX_MATCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTC_DI_REGEX_MATCHRowChangeEvent) - _ + _ Public Delegate Sub TBVEKTOR_ARRAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_ARRAYRowChangeEvent) - _ - Public Delegate Sub TBErgebnisRowChangeEventHandler(ByVal sender As Object, ByVal e As TBErgebnisRowChangeEvent) - - _ - Public Delegate Sub TBUVRowChangeEventHandler(ByVal sender As Object, ByVal e As TBUVRowChangeEvent) - ''' '''Represents the strongly named DataTable class. ''' _ - Partial Public Class TBDD_REPORTING_IMPORTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_REPORTING_IMPORTRow) - - Private columnIMPORT_ID As Global.System.Data.DataColumn + Partial Public Class TBTC_MOVE_RENAMEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTC_MOVE_RENAMERow) - Private columnFILE_NAME As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_NAME As Global.System.Data.DataColumn - Private columnVOLUME As Global.System.Data.DataColumn + Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn + + Private columnNAMECONVENTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnCREATED_WHO As Global.System.Data.DataColumn + + Private columnCREATED_WHEN As Global.System.Data.DataColumn - Private columnPAGE_COUNT As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnEXTENSION As Global.System.Data.DataColumn + Private columnVERSION_OFF As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_REPORTING_IMPORT" + Me.TableName = "TBTC_MOVE_RENAME" Me.BeginInit Me.InitClass Me.EndInit End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -501,70 +402,94 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 _ - Public ReadOnly Property IMPORT_IDColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnIMPORT_ID + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property FILE_NAMEColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnFILE_NAME + Return Me.columnPROFILE_NAME End Get End Property _ - Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROFILE_NAME + Return Me.columnFOLDER_FOR_INDEX + End Get + End Property + + _ + Public ReadOnly Property NAMECONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMECONVENTION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property CREATED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCREATED_WHO End Get End Property _ - Public ReadOnly Property VOLUMEColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnVOLUME + Return Me.columnCREATED_WHEN End Get End Property _ - Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnPAGE_COUNT + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property EXTENSIONColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property VERSION_OFFColumn() As Global.System.Data.DataColumn Get - Return Me.columnEXTENSION + Return Me.columnVERSION_OFF End Get End Property _ Public ReadOnly Property Count() As Integer Get @@ -573,166 +498,181 @@ Partial Public Class MyDataset End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_REPORTING_IMPORTRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTC_MOVE_RENAMERow Get - Return CType(Me.Rows(index),TBDD_REPORTING_IMPORTRow) + Return CType(Me.Rows(index),TBTC_MOVE_RENAMERow) End Get End Property - _ - Public Event TBDD_REPORTING_IMPORTRowChanging As TBDD_REPORTING_IMPORTRowChangeEventHandler + _ + Public Event TBTC_MOVE_RENAMERowChanging As TBTC_MOVE_RENAMERowChangeEventHandler - _ - Public Event TBDD_REPORTING_IMPORTRowChanged As TBDD_REPORTING_IMPORTRowChangeEventHandler + _ + Public Event TBTC_MOVE_RENAMERowChanged As TBTC_MOVE_RENAMERowChangeEventHandler - _ - Public Event TBDD_REPORTING_IMPORTRowDeleting As TBDD_REPORTING_IMPORTRowChangeEventHandler + _ + Public Event TBTC_MOVE_RENAMERowDeleting As TBTC_MOVE_RENAMERowChangeEventHandler - _ - Public Event TBDD_REPORTING_IMPORTRowDeleted As TBDD_REPORTING_IMPORTRowChangeEventHandler + _ + Public Event TBTC_MOVE_RENAMERowDeleted As TBTC_MOVE_RENAMERowChangeEventHandler _ - Public Overloads Sub AddTBDD_REPORTING_IMPORTRow(ByVal row As TBDD_REPORTING_IMPORTRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Sub AddTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_REPORTING_IMPORTRow(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Decimal, ByVal PAGE_COUNT As Integer, ByVal ADDED_WHEN As Date, ByVal EXTENSION As String) As TBDD_REPORTING_IMPORTRow - Dim rowTBDD_REPORTING_IMPORTRow As TBDD_REPORTING_IMPORTRow = CType(Me.NewRow,TBDD_REPORTING_IMPORTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, ADDED_WHEN, EXTENSION} - rowTBDD_REPORTING_IMPORTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_REPORTING_IMPORTRow) - Return rowTBDD_REPORTING_IMPORTRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Function AddTBTC_MOVE_RENAMERow(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String, ByVal CREATED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VERSION_OFF As Boolean) As TBTC_MOVE_RENAMERow + Dim rowTBTC_MOVE_RENAMERow As TBTC_MOVE_RENAMERow = CType(Me.NewRow,TBTC_MOVE_RENAMERow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN, VERSION_OFF} + rowTBTC_MOVE_RENAMERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTC_MOVE_RENAMERow) + Return rowTBTC_MOVE_RENAMERow End Function _ - Public Function FindByIMPORT_ID(ByVal IMPORT_ID As Integer) As TBDD_REPORTING_IMPORTRow - Return CType(Me.Rows.Find(New Object() {IMPORT_ID}),TBDD_REPORTING_IMPORTRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function FindByGUID(ByVal GUID As Integer) As TBTC_MOVE_RENAMERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBTC_MOVE_RENAMERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_REPORTING_IMPORTDataTable = CType(MyBase.Clone,TBDD_REPORTING_IMPORTDataTable) + Dim cln As TBTC_MOVE_RENAMEDataTable = CType(MyBase.Clone,TBTC_MOVE_RENAMEDataTable) cln.InitVars Return cln End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_REPORTING_IMPORTDataTable() + Return New TBTC_MOVE_RENAMEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() - Me.columnIMPORT_ID = MyBase.Columns("IMPORT_ID") - Me.columnFILE_NAME = MyBase.Columns("FILE_NAME") + Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME") - Me.columnVOLUME = MyBase.Columns("VOLUME") - Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnEXTENSION = MyBase.Columns("EXTENSION") + Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") + Me.columnNAMECONVENTION = MyBase.Columns("NAMECONVENTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCREATED_WHO = MyBase.Columns("CREATED_WHO") + Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnVERSION_OFF = MyBase.Columns("VERSION_OFF") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() - Me.columnIMPORT_ID = New Global.System.Data.DataColumn("IMPORT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnIMPORT_ID) - Me.columnFILE_NAME = New Global.System.Data.DataColumn("FILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILE_NAME) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) Me.columnPROFILE_NAME = New Global.System.Data.DataColumn("PROFILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_NAME) - Me.columnVOLUME = New Global.System.Data.DataColumn("VOLUME", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVOLUME) - Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPAGE_COUNT) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnEXTENSION = New Global.System.Data.DataColumn("EXTENSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEXTENSION) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIMPORT_ID}, true)) - Me.columnIMPORT_ID.AutoIncrement = true - Me.columnIMPORT_ID.AutoIncrementSeed = -1 - Me.columnIMPORT_ID.AutoIncrementStep = -1 - Me.columnIMPORT_ID.AllowDBNull = false - Me.columnIMPORT_ID.ReadOnly = true - Me.columnIMPORT_ID.Unique = true - Me.columnFILE_NAME.MaxLength = 250 + Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) + Me.columnNAMECONVENTION = New Global.System.Data.DataColumn("NAMECONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMECONVENTION) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnCREATED_WHO = New Global.System.Data.DataColumn("CREATED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCREATED_WHO) + Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCREATED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnVERSION_OFF = New Global.System.Data.DataColumn("VERSION_OFF", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_OFF) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true Me.columnPROFILE_NAME.AllowDBNull = false - Me.columnPROFILE_NAME.MaxLength = 250 - Me.columnADDED_WHEN.AllowDBNull = false - Me.columnEXTENSION.MaxLength = 10 + Me.columnPROFILE_NAME.MaxLength = 100 + Me.columnFOLDER_FOR_INDEX.AllowDBNull = false + Me.columnFOLDER_FOR_INDEX.MaxLength = 500 + Me.columnNAMECONVENTION.AllowDBNull = false + Me.columnNAMECONVENTION.MaxLength = 500 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnCREATED_WHO.AllowDBNull = false + Me.columnCREATED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnVERSION_OFF.AllowDBNull = false + Me.columnVERSION_OFF.DefaultValue = CType(false,Boolean) End Sub _ - Public Function NewTBDD_REPORTING_IMPORTRow() As TBDD_REPORTING_IMPORTRow - Return CType(Me.NewRow,TBDD_REPORTING_IMPORTRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function NewTBTC_MOVE_RENAMERow() As TBTC_MOVE_RENAMERow + Return CType(Me.NewRow,TBTC_MOVE_RENAMERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_REPORTING_IMPORTRow(builder) + Return New TBTC_MOVE_RENAMERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_REPORTING_IMPORTRow) + Return GetType(TBTC_MOVE_RENAMERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_REPORTING_IMPORTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_REPORTING_IMPORTRowChanged(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowChangedEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowChanged(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_REPORTING_IMPORTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_REPORTING_IMPORTRowChanging(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowChangingEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowChanging(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_REPORTING_IMPORTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_REPORTING_IMPORTRowDeleted(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowDeletedEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowDeleted(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_REPORTING_IMPORTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_REPORTING_IMPORTRowDeleting(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowDeletingEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowDeleting(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_REPORTING_IMPORTRow(ByVal row As TBDD_REPORTING_IMPORTRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub RemoveTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -754,7 +694,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_REPORTING_IMPORTDataTable" + attribute2.FixedValue = "TBTC_MOVE_RENAMEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -803,18 +743,14 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBTC_MOVE_RENAMEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBTC_MOVE_RENAMERow) + Partial Public Class TBTC_DI_REGEX_MATCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTC_DI_REGEX_MATCHRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_NAME As Global.System.Data.DataColumn - Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn - - Private columnNAMECONVENTION As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn + Private columnREGEX As Global.System.Data.DataColumn Private columnCREATED_WHO As Global.System.Data.DataColumn @@ -825,17 +761,17 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBTC_MOVE_RENAME" + Me.TableName = "TBTC_DI_REGEX_MATCH" Me.BeginInit Me.InitClass Me.EndInit End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -853,14 +789,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -868,7 +804,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_NAME @@ -876,31 +812,15 @@ Partial Public Class MyDataset End Property _ - Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFOLDER_FOR_INDEX - End Get - End Property - - _ - Public ReadOnly Property NAMECONVENTIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAMECONVENTION - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnREGEX End Get End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CREATED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCREATED_WHO @@ -908,7 +828,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCREATED_WHEN @@ -916,7 +836,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -924,7 +844,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -932,7 +852,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -941,69 +861,67 @@ Partial Public Class MyDataset End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBTC_MOVE_RENAMERow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTC_DI_REGEX_MATCHRow Get - Return CType(Me.Rows(index),TBTC_MOVE_RENAMERow) + Return CType(Me.Rows(index),TBTC_DI_REGEX_MATCHRow) End Get End Property - _ - Public Event TBTC_MOVE_RENAMERowChanging As TBTC_MOVE_RENAMERowChangeEventHandler + _ + Public Event TBTC_DI_REGEX_MATCHRowChanging As TBTC_DI_REGEX_MATCHRowChangeEventHandler - _ - Public Event TBTC_MOVE_RENAMERowChanged As TBTC_MOVE_RENAMERowChangeEventHandler + _ + Public Event TBTC_DI_REGEX_MATCHRowChanged As TBTC_DI_REGEX_MATCHRowChangeEventHandler - _ - Public Event TBTC_MOVE_RENAMERowDeleting As TBTC_MOVE_RENAMERowChangeEventHandler + _ + Public Event TBTC_DI_REGEX_MATCHRowDeleting As TBTC_DI_REGEX_MATCHRowChangeEventHandler - _ - Public Event TBTC_MOVE_RENAMERowDeleted As TBTC_MOVE_RENAMERowChangeEventHandler + _ + Public Event TBTC_DI_REGEX_MATCHRowDeleted As TBTC_DI_REGEX_MATCHRowChangeEventHandler _ - Public Overloads Sub AddTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Sub AddTBTC_DI_REGEX_MATCHRow(ByVal row As TBTC_DI_REGEX_MATCHRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBTC_MOVE_RENAMERow(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String, ByVal CREATED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBTC_MOVE_RENAMERow - Dim rowTBTC_MOVE_RENAMERow As TBTC_MOVE_RENAMERow = CType(Me.NewRow,TBTC_MOVE_RENAMERow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBTC_MOVE_RENAMERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBTC_MOVE_RENAMERow) - Return rowTBTC_MOVE_RENAMERow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Function AddTBTC_DI_REGEX_MATCHRow(ByVal PROFILE_NAME As String, ByVal REGEX As String, ByVal CREATED_WHO As String, ByVal CREATED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBTC_DI_REGEX_MATCHRow + Dim rowTBTC_DI_REGEX_MATCHRow As TBTC_DI_REGEX_MATCHRow = CType(Me.NewRow,TBTC_DI_REGEX_MATCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBTC_DI_REGEX_MATCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTC_DI_REGEX_MATCHRow) + Return rowTBTC_DI_REGEX_MATCHRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBTC_MOVE_RENAMERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBTC_MOVE_RENAMERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function FindByGUID(ByVal GUID As Integer) As TBTC_DI_REGEX_MATCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBTC_DI_REGEX_MATCHRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTC_MOVE_RENAMEDataTable = CType(MyBase.Clone,TBTC_MOVE_RENAMEDataTable) + Dim cln As TBTC_DI_REGEX_MATCHDataTable = CType(MyBase.Clone,TBTC_DI_REGEX_MATCHDataTable) cln.InitVars Return cln End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBTC_MOVE_RENAMEDataTable() + Return New TBTC_DI_REGEX_MATCHDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME") - Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") - Me.columnNAMECONVENTION = MyBase.Columns("NAMECONVENTION") - Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnREGEX = MyBase.Columns("REGEX") Me.columnCREATED_WHO = MyBase.Columns("CREATED_WHO") Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -1011,18 +929,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) Me.columnPROFILE_NAME = New Global.System.Data.DataColumn("PROFILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_NAME) - Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) - Me.columnNAMECONVENTION = New Global.System.Data.DataColumn("NAMECONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAMECONVENTION) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) + Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX) Me.columnCREATED_WHO = New Global.System.Data.DataColumn("CREATED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCREATED_WHO) Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) @@ -1033,84 +947,80 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = 1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnPROFILE_NAME.AllowDBNull = false - Me.columnPROFILE_NAME.MaxLength = 100 - Me.columnFOLDER_FOR_INDEX.AllowDBNull = false - Me.columnFOLDER_FOR_INDEX.MaxLength = 500 - Me.columnNAMECONVENTION.AllowDBNull = false - Me.columnNAMECONVENTION.MaxLength = 500 - Me.columnACTIVE.AllowDBNull = false - Me.columnACTIVE.DefaultValue = CType(true,Boolean) - Me.columnCREATED_WHO.MaxLength = 50 + Me.columnPROFILE_NAME.MaxLength = 250 + Me.columnREGEX.AllowDBNull = false + Me.columnREGEX.MaxLength = 1000 + Me.columnCREATED_WHO.AllowDBNull = false + Me.columnCREATED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBTC_MOVE_RENAMERow() As TBTC_MOVE_RENAMERow - Return CType(Me.NewRow,TBTC_MOVE_RENAMERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function NewTBTC_DI_REGEX_MATCHRow() As TBTC_DI_REGEX_MATCHRow + Return CType(Me.NewRow,TBTC_DI_REGEX_MATCHRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBTC_MOVE_RENAMERow(builder) + Return New TBTC_DI_REGEX_MATCHRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBTC_MOVE_RENAMERow) + Return GetType(TBTC_DI_REGEX_MATCHRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBTC_MOVE_RENAMERowChangedEvent) Is Nothing) Then - RaiseEvent TBTC_MOVE_RENAMERowChanged(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) + If (Not (Me.TBTC_DI_REGEX_MATCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBTC_DI_REGEX_MATCHRowChanged(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBTC_MOVE_RENAMERowChangingEvent) Is Nothing) Then - RaiseEvent TBTC_MOVE_RENAMERowChanging(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) + If (Not (Me.TBTC_DI_REGEX_MATCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBTC_DI_REGEX_MATCHRowChanging(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBTC_MOVE_RENAMERowDeletedEvent) Is Nothing) Then - RaiseEvent TBTC_MOVE_RENAMERowDeleted(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) + If (Not (Me.TBTC_DI_REGEX_MATCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTC_DI_REGEX_MATCHRowDeleted(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBTC_MOVE_RENAMERowDeletingEvent) Is Nothing) Then - RaiseEvent TBTC_MOVE_RENAMERowDeleting(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) + If (Not (Me.TBTC_DI_REGEX_MATCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTC_DI_REGEX_MATCHRowDeleting(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) End If End Sub _ - Public Sub RemoveTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub RemoveTBTC_DI_REGEX_MATCHRow(ByVal row As TBTC_DI_REGEX_MATCHRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -1132,7 +1042,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBTC_MOVE_RENAMEDataTable" + attribute2.FixedValue = "TBTC_DI_REGEX_MATCHDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1181,35 +1091,25 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBTC_DI_REGEX_MATCHDataTable - Inherits Global.System.Data.TypedTableBase(Of TBTC_DI_REGEX_MATCHRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_NAME As Global.System.Data.DataColumn - - Private columnREGEX As Global.System.Data.DataColumn - - Private columnCREATED_WHO As Global.System.Data.DataColumn - - Private columnCREATED_WHEN As Global.System.Data.DataColumn + Partial Public Class TBVEKTOR_ARRAYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBVEKTOR_ARRAYRow) - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnIndexName As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnValue As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBTC_DI_REGEX_MATCH" + Me.TableName = "TBVEKTOR_ARRAY" Me.BeginInit Me.InitClass Me.EndInit End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1227,70 +1127,30 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_NAME - End Get - End Property - - _ - Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX - End Get - End Property - - _ - Public ReadOnly Property CREATED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCREATED_WHO - End Get - End Property - - _ - Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCREATED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property IndexNameColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnIndexName End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnValue End Get End Property _ Public ReadOnly Property Count() As Integer Get @@ -1299,168 +1159,135 @@ Partial Public Class MyDataset End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBTC_DI_REGEX_MATCHRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_ARRAYRow Get - Return CType(Me.Rows(index),TBTC_DI_REGEX_MATCHRow) + Return CType(Me.Rows(index),TBVEKTOR_ARRAYRow) End Get End Property - _ - Public Event TBTC_DI_REGEX_MATCHRowChanging As TBTC_DI_REGEX_MATCHRowChangeEventHandler + _ + Public Event TBVEKTOR_ARRAYRowChanging As TBVEKTOR_ARRAYRowChangeEventHandler - _ - Public Event TBTC_DI_REGEX_MATCHRowChanged As TBTC_DI_REGEX_MATCHRowChangeEventHandler + _ + Public Event TBVEKTOR_ARRAYRowChanged As TBVEKTOR_ARRAYRowChangeEventHandler - _ - Public Event TBTC_DI_REGEX_MATCHRowDeleting As TBTC_DI_REGEX_MATCHRowChangeEventHandler + _ + Public Event TBVEKTOR_ARRAYRowDeleting As TBVEKTOR_ARRAYRowChangeEventHandler - _ - Public Event TBTC_DI_REGEX_MATCHRowDeleted As TBTC_DI_REGEX_MATCHRowChangeEventHandler + _ + Public Event TBVEKTOR_ARRAYRowDeleted As TBVEKTOR_ARRAYRowChangeEventHandler _ - Public Overloads Sub AddTBTC_DI_REGEX_MATCHRow(ByVal row As TBTC_DI_REGEX_MATCHRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Sub AddTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBTC_DI_REGEX_MATCHRow(ByVal PROFILE_NAME As String, ByVal REGEX As String, ByVal CREATED_WHO As String, ByVal CREATED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBTC_DI_REGEX_MATCHRow - Dim rowTBTC_DI_REGEX_MATCHRow As TBTC_DI_REGEX_MATCHRow = CType(Me.NewRow,TBTC_DI_REGEX_MATCHRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBTC_DI_REGEX_MATCHRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBTC_DI_REGEX_MATCHRow) - Return rowTBTC_DI_REGEX_MATCHRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBTC_DI_REGEX_MATCHRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBTC_DI_REGEX_MATCHRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Function AddTBVEKTOR_ARRAYRow(ByVal IndexName As String, ByVal Value As String) As TBVEKTOR_ARRAYRow + Dim rowTBVEKTOR_ARRAYRow As TBVEKTOR_ARRAYRow = CType(Me.NewRow,TBVEKTOR_ARRAYRow) + Dim columnValuesArray() As Object = New Object() {IndexName, Value} + rowTBVEKTOR_ARRAYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBVEKTOR_ARRAYRow) + Return rowTBVEKTOR_ARRAYRow End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTC_DI_REGEX_MATCHDataTable = CType(MyBase.Clone,TBTC_DI_REGEX_MATCHDataTable) + Dim cln As TBVEKTOR_ARRAYDataTable = CType(MyBase.Clone,TBVEKTOR_ARRAYDataTable) cln.InitVars Return cln End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBTC_DI_REGEX_MATCHDataTable() + Return New TBVEKTOR_ARRAYDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME") - Me.columnREGEX = MyBase.Columns("REGEX") - Me.columnCREATED_WHO = MyBase.Columns("CREATED_WHO") - Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIndexName = MyBase.Columns("IndexName") + Me.columnValue = MyBase.Columns("Value") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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) - Me.columnPROFILE_NAME = New Global.System.Data.DataColumn("PROFILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_NAME) - Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX) - Me.columnCREATED_WHO = New Global.System.Data.DataColumn("CREATED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCREATED_WHO) - Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCREATED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = 1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_NAME.AllowDBNull = false - Me.columnPROFILE_NAME.MaxLength = 250 - Me.columnREGEX.AllowDBNull = false - Me.columnREGEX.DefaultValue = CType(".+\.[a-zA-Z0-9]{3,4}",String) - Me.columnREGEX.MaxLength = 1000 - Me.columnCREATED_WHO.AllowDBNull = false - Me.columnCREATED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIndexName = New Global.System.Data.DataColumn("IndexName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexName) + Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnValue) + Me.columnIndexName.MaxLength = 100 + Me.columnValue.MaxLength = 999 End Sub _ - Public Function NewTBTC_DI_REGEX_MATCHRow() As TBTC_DI_REGEX_MATCHRow - Return CType(Me.NewRow,TBTC_DI_REGEX_MATCHRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function NewTBVEKTOR_ARRAYRow() As TBVEKTOR_ARRAYRow + Return CType(Me.NewRow,TBVEKTOR_ARRAYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBTC_DI_REGEX_MATCHRow(builder) + Return New TBVEKTOR_ARRAYRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBTC_DI_REGEX_MATCHRow) + Return GetType(TBVEKTOR_ARRAYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBTC_DI_REGEX_MATCHRowChangedEvent) Is Nothing) Then - RaiseEvent TBTC_DI_REGEX_MATCHRowChanged(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowChangedEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowChanged(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBTC_DI_REGEX_MATCHRowChangingEvent) Is Nothing) Then - RaiseEvent TBTC_DI_REGEX_MATCHRowChanging(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowChangingEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowChanging(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBTC_DI_REGEX_MATCHRowDeletedEvent) Is Nothing) Then - RaiseEvent TBTC_DI_REGEX_MATCHRowDeleted(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowDeleted(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBTC_DI_REGEX_MATCHRowDeletingEvent) Is Nothing) Then - RaiseEvent TBTC_DI_REGEX_MATCHRowDeleting(Me, New TBTC_DI_REGEX_MATCHRowChangeEvent(CType(e.Row,TBTC_DI_REGEX_MATCHRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowDeleting(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub _ - Public Sub RemoveTBTC_DI_REGEX_MATCHRow(ByVal row As TBTC_DI_REGEX_MATCHRow) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub RemoveTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -1482,7 +1309,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBTC_DI_REGEX_MATCHDataTable" + attribute2.FixedValue = "TBVEKTOR_ARRAYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1527,1006 +1354,66 @@ Partial Public Class MyDataset End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBVEKTOR_ARRAYDataTable - Inherits Global.System.Data.TypedTableBase(Of TBVEKTOR_ARRAYRow) - - Private columnIndexname As Global.System.Data.DataColumn - - Private columnWert As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBVEKTOR_ARRAY" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Partial Public Class TBTC_MOVE_RENAMERow + Inherits Global.System.Data.DataRow - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub + Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable _ - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTC_MOVE_RENAME = CType(Me.Table,TBTC_MOVE_RENAMEDataTable) End Sub _ - Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property GUID() As Integer Get - Return Me.columnIndexname + Return CType(Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property PROFILE_NAME() As String Get - Return Me.columnWert + Return CType(Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn),String) End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn) = value + End Set End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property FOLDER_FOR_INDEX() As String Get - Return Me.Rows.Count + Return CType(Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn),String) End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn) = value + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_ARRAYRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property NAMECONVENTION() As String Get - Return CType(Me.Rows(index),TBVEKTOR_ARRAYRow) + Return CType(Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn),String) End Get - End Property - - _ - Public Event TBVEKTOR_ARRAYRowChanging As TBVEKTOR_ARRAYRowChangeEventHandler - - _ - Public Event TBVEKTOR_ARRAYRowChanged As TBVEKTOR_ARRAYRowChangeEventHandler - - _ - Public Event TBVEKTOR_ARRAYRowDeleting As TBVEKTOR_ARRAYRowChangeEventHandler - - _ - Public Event TBVEKTOR_ARRAYRowDeleted As TBVEKTOR_ARRAYRowChangeEventHandler - - _ - Public Overloads Sub AddTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBVEKTOR_ARRAYRow(ByVal Indexname As String, ByVal Wert As String) As TBVEKTOR_ARRAYRow - Dim rowTBVEKTOR_ARRAYRow As TBVEKTOR_ARRAYRow = CType(Me.NewRow,TBVEKTOR_ARRAYRow) - Dim columnValuesArray() As Object = New Object() {Indexname, Wert} - rowTBVEKTOR_ARRAYRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBVEKTOR_ARRAYRow) - Return rowTBVEKTOR_ARRAYRow - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBVEKTOR_ARRAYDataTable = CType(MyBase.Clone,TBVEKTOR_ARRAYDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBVEKTOR_ARRAYDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnIndexname = MyBase.Columns("Indexname") - Me.columnWert = MyBase.Columns("Wert") - End Sub - - _ - Private Sub InitClass() - Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnIndexname) - Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWert) - End Sub - - _ - Public Function NewTBVEKTOR_ARRAYRow() As TBVEKTOR_ARRAYRow - Return CType(Me.NewRow,TBVEKTOR_ARRAYRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBVEKTOR_ARRAYRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBVEKTOR_ARRAYRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBVEKTOR_ARRAYRowChangedEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowChanged(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBVEKTOR_ARRAYRowChangingEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowChanging(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBVEKTOR_ARRAYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowDeleted(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBVEKTOR_ARRAYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowDeleting(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) - Me.Rows.Remove(row) - End Sub - - _ - 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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBVEKTOR_ARRAYDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBErgebnisDataTable - Inherits Global.System.Data.TypedTableBase(Of TBErgebnisRow) - - Private columnErgebniswerte As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBErgebnis" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - 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 - - _ - Public ReadOnly Property ErgebniswerteColumn() As Global.System.Data.DataColumn - Get - Return Me.columnErgebniswerte - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBErgebnisRow - Get - Return CType(Me.Rows(index),TBErgebnisRow) - End Get - End Property - - _ - Public Event TBErgebnisRowChanging As TBErgebnisRowChangeEventHandler - - _ - Public Event TBErgebnisRowChanged As TBErgebnisRowChangeEventHandler - - _ - Public Event TBErgebnisRowDeleting As TBErgebnisRowChangeEventHandler - - _ - Public Event TBErgebnisRowDeleted As TBErgebnisRowChangeEventHandler - - _ - Public Overloads Sub AddTBErgebnisRow(ByVal row As TBErgebnisRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBErgebnisRow(ByVal Ergebniswerte As String) As TBErgebnisRow - Dim rowTBErgebnisRow As TBErgebnisRow = CType(Me.NewRow,TBErgebnisRow) - Dim columnValuesArray() As Object = New Object() {Ergebniswerte} - rowTBErgebnisRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBErgebnisRow) - Return rowTBErgebnisRow - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBErgebnisDataTable = CType(MyBase.Clone,TBErgebnisDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBErgebnisDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnErgebniswerte = MyBase.Columns("Ergebniswerte") - End Sub - - _ - Private Sub InitClass() - Me.columnErgebniswerte = New Global.System.Data.DataColumn("Ergebniswerte", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnErgebniswerte) - End Sub - - _ - Public Function NewTBErgebnisRow() As TBErgebnisRow - Return CType(Me.NewRow,TBErgebnisRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBErgebnisRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBErgebnisRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBErgebnisRowChangedEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowChanged(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBErgebnisRowChangingEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowChanging(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBErgebnisRowDeletedEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowDeleted(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBErgebnisRowDeletingEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowDeleting(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBErgebnisRow(ByVal row As TBErgebnisRow) - Me.Rows.Remove(row) - End Sub - - _ - 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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBErgebnisDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBUVDataTable - Inherits Global.System.Data.TypedTableBase(Of TBUVRow) - - Private columnID As Global.System.Data.DataColumn - - Private columnUnterverzeichnis As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBUV" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - 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 - - _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnID - End Get - End Property - - _ - Public ReadOnly Property UnterverzeichnisColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUnterverzeichnis - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBUVRow - Get - Return CType(Me.Rows(index),TBUVRow) - End Get - End Property - - _ - Public Event TBUVRowChanging As TBUVRowChangeEventHandler - - _ - Public Event TBUVRowChanged As TBUVRowChangeEventHandler - - _ - Public Event TBUVRowDeleting As TBUVRowChangeEventHandler - - _ - Public Event TBUVRowDeleted As TBUVRowChangeEventHandler - - _ - Public Overloads Sub AddTBUVRow(ByVal row As TBUVRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBUVRow(ByVal Unterverzeichnis As String) As TBUVRow - Dim rowTBUVRow As TBUVRow = CType(Me.NewRow,TBUVRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Unterverzeichnis} - rowTBUVRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBUVRow) - Return rowTBUVRow - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBUVDataTable = CType(MyBase.Clone,TBUVDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBUVDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnID = MyBase.Columns("ID") - Me.columnUnterverzeichnis = MyBase.Columns("Unterverzeichnis") - End Sub - - _ - Private Sub InitClass() - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnUnterverzeichnis = New Global.System.Data.DataColumn("Unterverzeichnis", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUnterverzeichnis) - Me.columnID.AutoIncrement = true - End Sub - - _ - Public Function NewTBUVRow() As TBUVRow - Return CType(Me.NewRow,TBUVRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBUVRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBUVRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBUVRowChangedEvent) Is Nothing) Then - RaiseEvent TBUVRowChanged(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBUVRowChangingEvent) Is Nothing) Then - RaiseEvent TBUVRowChanging(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBUVRowDeletedEvent) Is Nothing) Then - RaiseEvent TBUVRowDeleted(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBUVRowDeletingEvent) Is Nothing) Then - RaiseEvent TBUVRowDeleting(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBUVRow(ByVal row As TBUVRow) - Me.Rows.Remove(row) - End Sub - - _ - 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() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBUVDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_REPORTING_IMPORTRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_REPORTING_IMPORT = CType(Me.Table,TBDD_REPORTING_IMPORTDataTable) - End Sub - - _ - Public Property IMPORT_ID() As Integer - Get - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn) = value - End Set - End Property - - _ - Public Property FILE_NAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_NAME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = value - End Set - End Property - - _ - Public Property PROFILE_NAME() As String - Get - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn),String) - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn) = value - End Set - End Property - - _ - Public Property VOLUME() As Decimal - Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VOLUME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = value - End Set - End Property - - _ - Public Property PAGE_COUNT() As Integer - Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property EXTENSION() As String - Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EXTENSION in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = value - End Set - End Property - - _ - Public Function IsFILE_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) - End Function - - _ - Public Sub SetFILE_NAMENull() - Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsVOLUMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) - End Function - - _ - Public Sub SetVOLUMENull() - Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPAGE_COUNTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) - End Function - - _ - Public Sub SetPAGE_COUNTNull() - Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEXTENSIONNull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) - End Function - - _ - Public Sub SetEXTENSIONNull() - Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBTC_MOVE_RENAMERow - Inherits Global.System.Data.DataRow - - Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBTC_MOVE_RENAME = CType(Me.Table,TBTC_MOVE_RENAMEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFILE_NAME() As String - Get - Return CType(Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn),String) - End Get - Set - Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn) = value - End Set - End Property - - _ - Public Property FOLDER_FOR_INDEX() As String - Get - Return CType(Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn),String) - End Get - Set - Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn) = value - End Set - End Property - - _ - Public Property NAMECONVENTION() As String - Get - Return CType(Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn),String) - End Get - Set - Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn) = value - End Set + Set + Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn) = value + End Set End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBTC_MOVE_RENAME.ACTIVEColumn),Boolean) @@ -2537,14 +1424,10 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CREATED_WHO() As String Get - Try - Return CType(Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CREATED_WHO in Tabelle TBTC_MOVE_RENAME ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn),String) End Get Set Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) = value @@ -2552,7 +1435,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CREATED_WHEN() As Date Get Try @@ -2567,7 +1450,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -2582,7 +1465,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -2597,49 +1480,48 @@ Partial Public Class MyDataset End Property _ - Public Function IsCREATED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) - End Function - - _ - Public Sub SetCREATED_WHONull() - Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property VERSION_OFF() As Boolean + Get + Return CType(Me(Me.tableTBTC_MOVE_RENAME.VERSION_OFFColumn),Boolean) + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.VERSION_OFFColumn) = value + End Set + End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCREATED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCREATED_WHENNull() Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -2654,14 +1536,14 @@ Partial Public Class MyDataset Private tableTBTC_DI_REGEX_MATCH As TBTC_DI_REGEX_MATCHDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBTC_DI_REGEX_MATCH = CType(Me.Table,TBTC_DI_REGEX_MATCHDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBTC_DI_REGEX_MATCH.GUIDColumn),Integer) @@ -2672,7 +1554,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROFILE_NAME() As String Get Return CType(Me(Me.tableTBTC_DI_REGEX_MATCH.PROFILE_NAMEColumn),String) @@ -2683,7 +1565,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX() As String Get Return CType(Me(Me.tableTBTC_DI_REGEX_MATCH.REGEXColumn),String) @@ -2694,7 +1576,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CREATED_WHO() As String Get Return CType(Me(Me.tableTBTC_DI_REGEX_MATCH.CREATED_WHOColumn),String) @@ -2705,7 +1587,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CREATED_WHEN() As Date Get Try @@ -2720,7 +1602,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -2735,7 +1617,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -2747,909 +1629,225 @@ Partial Public Class MyDataset Set Me(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHENColumn) = value End Set - End Property - - _ - Public Function IsCREATED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBTC_DI_REGEX_MATCH.CREATED_WHENColumn) - End Function - - _ - Public Sub SetCREATED_WHENNull() - Me(Me.tableTBTC_DI_REGEX_MATCH.CREATED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBVEKTOR_ARRAYRow - Inherits Global.System.Data.DataRow - - Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBVEKTOR_ARRAY = CType(Me.Table,TBVEKTOR_ARRAYDataTable) - End Sub - - _ - Public Property Indexname() As String - Get - Try - Return CType(Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = value - End Set - End Property - - _ - Public Property Wert() As String - Get - Try - Return CType(Me(Me.tableTBVEKTOR_ARRAY.WertColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = value - End Set - End Property - - _ - Public Function IsIndexnameNull() As Boolean - Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) - End Function - - _ - Public Sub SetIndexnameNull() - Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsWertNull() As Boolean - Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.WertColumn) - End Function - - _ - Public Sub SetWertNull() - Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBErgebnisRow - Inherits Global.System.Data.DataRow - - Private tableTBErgebnis As TBErgebnisDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBErgebnis = CType(Me.Table,TBErgebnisDataTable) - End Sub - - _ - Public Property Ergebniswerte() As String - Get - Try - Return CType(Me(Me.tableTBErgebnis.ErgebniswerteColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ergebniswerte in Tabelle TBErgebnis ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBErgebnis.ErgebniswerteColumn) = value - End Set - End Property - - _ - Public Function IsErgebniswerteNull() As Boolean - Return Me.IsNull(Me.tableTBErgebnis.ErgebniswerteColumn) - End Function - - _ - Public Sub SetErgebniswerteNull() - Me(Me.tableTBErgebnis.ErgebniswerteColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBUVRow - Inherits Global.System.Data.DataRow - - Private tableTBUV As TBUVDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBUV = CType(Me.Table,TBUVDataTable) - End Sub - - _ - Public Property ID() As Integer - Get - Try - Return CType(Me(Me.tableTBUV.IDColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBUV ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBUV.IDColumn) = value - End Set - End Property - - _ - Public Property Unterverzeichnis() As String - Get - Try - Return CType(Me(Me.tableTBUV.UnterverzeichnisColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unterverzeichnis in Tabelle TBUV ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBUV.UnterverzeichnisColumn) = value - End Set - End Property - - _ - Public Function IsIDNull() As Boolean - Return Me.IsNull(Me.tableTBUV.IDColumn) - End Function - - _ - Public Sub SetIDNull() - Me(Me.tableTBUV.IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUnterverzeichnisNull() As Boolean - Return Me.IsNull(Me.tableTBUV.UnterverzeichnisColumn) - End Function - - _ - Public Sub SetUnterverzeichnisNull() - Me(Me.tableTBUV.UnterverzeichnisColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_REPORTING_IMPORTRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_REPORTING_IMPORTRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_REPORTING_IMPORTRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_REPORTING_IMPORTRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBTC_MOVE_RENAMERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBTC_MOVE_RENAMERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBTC_MOVE_RENAMERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBTC_MOVE_RENAMERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBTC_DI_REGEX_MATCHRowChangeEvent - Inherits Global.System.EventArgs + End Property - Private eventRow As TBTC_DI_REGEX_MATCHRow + _ + Public Function IsCREATED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBTC_DI_REGEX_MATCH.CREATED_WHENColumn) + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Sub SetCREATED_WHENNull() + Me(Me.tableTBTC_DI_REGEX_MATCH.CREATED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Sub New(ByVal row As TBTC_DI_REGEX_MATCHRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBTC_DI_REGEX_MATCHRow - Get - Return Me.eventRow - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBTC_DI_REGEX_MATCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBVEKTOR_ARRAYRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBVEKTOR_ARRAYRow + Partial Public Class TBVEKTOR_ARRAYRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable _ - Public Sub New(ByVal row As TBVEKTOR_ARRAYRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBVEKTOR_ARRAY = CType(Me.Table,TBVEKTOR_ARRAYDataTable) End Sub _ - Public ReadOnly Property Row() As TBVEKTOR_ARRAYRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property IndexName() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBVEKTOR_ARRAY.IndexNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IndexName in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBVEKTOR_ARRAY.IndexNameColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property Value() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBVEKTOR_ARRAY.ValueColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBVEKTOR_ARRAY.ValueColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBErgebnisRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBErgebnisRow - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsIndexNameNull() As Boolean + Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.IndexNameColumn) + End Function _ - Public Sub New(ByVal row As TBErgebnisRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetIndexNameNull() + Me(Me.tableTBVEKTOR_ARRAY.IndexNameColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBErgebnisRow - Get - Return Me.eventRow - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsValueNull() As Boolean + Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.ValueColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetValueNull() + Me(Me.tableTBVEKTOR_ARRAY.ValueColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Row event argument class ''' - _ - Public Class TBUVRowChangeEvent + _ + Public Class TBTC_MOVE_RENAMERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBUVRow + Private eventRow As TBTC_MOVE_RENAMERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBUVRow, ByVal action As Global.System.Data.DataRowAction) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBTC_MOVE_RENAMERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ - Public ReadOnly Property Row() As TBUVRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBTC_MOVE_RENAMERow Get Return Me.eventRow End Get End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class -End Class - -Namespace MyDatasetTableAdapters ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_REPORTING_IMPORTTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - 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() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_REPORTING_IMPORT" - tableMapping.ColumnMappings.Add("IMPORT_ID", "IMPORT_ID") - tableMapping.ColumnMappings.Add("FILE_NAME", "FILE_NAME") - tableMapping.ColumnMappings.Add("PROFILE_NAME", "PROFILE_NAME") - tableMapping.ColumnMappings.Add("VOLUME", "VOLUME") - tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("EXTENSION", "EXTENSION") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_REPORTING_IMPORT] WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AN"& _ - "D ((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_F"& _ - "ILE_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = "& _ - "1 AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COU"& _ - "NT = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ("& _ - "(@IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTE"& _ - "NSION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_REPORTING_IMPORT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILE_NAME, PROFILE_N"& _ - "AME, VOLUME, PAGE_COUNT, EXTENSION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILE_NAME,@PROFILE_NAME,@VO"& _ - "LUME,@PAGE_COUNT,@EXTENSION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUM"& _ - "E, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPORT WHERE (IMPORT_ID"& _ - " = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", 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 [TBDD_REPORTING_IMPORT] SET [FILE_NAME] = @FILE_NAME, [PROFILE_NAME] = @PR"& _ - "OFILE_NAME, [VOLUME] = @VOLUME, [PAGE_COUNT] = @PAGE_COUNT, [EXTENSION] = @EXTEN"& _ - "SION, [ADDED_WHEN] = @ADDED_WHEN WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AND "& _ - "((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_FIL"& _ - "E_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = 1 "& _ - "AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COUNT"& _ - " = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ((@"& _ - "IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTENS"& _ - "ION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, "& _ - "PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPO"& _ - "RT WHERE (IMPORT_ID = @IMPORT_ID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", 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("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", 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("@IMPORT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_REPORTING_IMPORT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_REPORTING_IMPORT" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + '''Row event argument class + ''' + _ + Public Class TBTC_DI_REGEX_MATCHRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_REPORTING_IMPORTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable = New MyDataset.TBDD_REPORTING_IMPORTDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Private eventRow As TBTC_DI_REGEX_MATCHRow - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_REPORTING_IMPORT") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBTC_DI_REGEX_MATCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBTC_DI_REGEX_MATCHRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBVEKTOR_ARRAYRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Overloads Overridable Function Delete(ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IMPORT_ID,Integer) - If (Original_FILE_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FILE_NAME,String) - End If - If (Original_PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PROFILE_NAME,String) - End If - If (Original_VOLUME.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_VOLUME.Value,Decimal) - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - If (Original_PAGE_COUNT.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_PAGE_COUNT.Value,Integer) - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (Original_EXTENSION Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_EXTENSION,String) - End If - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function + Private eventRow As TBVEKTOR_ARRAYRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Insert(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String) As Integer - If (FILE_NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILE_NAME,String) - End If - If (PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROFILE_NAME") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(PROFILE_NAME,String) - End If - If (VOLUME.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal) - Else - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - End If - If (PAGE_COUNT.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) - Else - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (EXTENSION Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EXTENSION,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBVEKTOR_ARRAYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date, ByVal IMPORT_ID As Integer) As Integer - If (FILE_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILE_NAME,String) - End If - If (PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROFILE_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PROFILE_NAME,String) - End If - If (VOLUME.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal) - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - End If - If (PAGE_COUNT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (EXTENSION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EXTENSION,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_IMPORT_ID,Integer) - If (Original_FILE_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FILE_NAME,String) - End If - If (Original_PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_PROFILE_NAME,String) - End If - If (Original_VOLUME.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_VOLUME.Value,Decimal) - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (Original_PAGE_COUNT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_PAGE_COUNT.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - End If - If (Original_EXTENSION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_EXTENSION,String) - End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(IMPORT_ID,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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBVEKTOR_ARRAYRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer - Return Me.Update(FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN, Original_IMPORT_ID, Original_FILE_NAME, Original_PROFILE_NAME, Original_VOLUME, Original_PAGE_COUNT, Original_EXTENSION, Original_ADDED_WHEN, Original_IMPORT_ID) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class +End Class + +Namespace MyDatasetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -3674,14 +1872,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -3692,7 +1890,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -3722,7 +1920,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -3750,7 +1948,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -3761,7 +1959,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -3772,7 +1970,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -3787,72 +1985,69 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("CREATED_WHEN", "CREATED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("VERSION_OFF", "VERSION_OFF") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_NAME = @PNAME)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", 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 TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, FOLDER_FOR_"& _ - "INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@FOLDE"& _ - "R_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, "& _ - "FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = SCOPE_IDENTITY())" + "INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, VERSION_OFF)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL"& _ + "E_NAME,@FOLDER_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO,@VERSION_OFF); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO"& _ + ", CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN, VERSION_OFF FROM TBTC_MOVE_RENAME WHE"& _ + "RE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMECONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMECONVENTION", 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("@CREATED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_OFF", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_OFF", 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 TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_NAME = @PROFILE_NAME, F"& _ "OLDER_FOR_INDEX = @FOLDER_FOR_INDEX, NAMECONVENTION = @NAMECONVENTION, ACTIVE = "& _ - "@ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, C"& _ - "REATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = @GUID"& _ - ")" + "@ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VERSION_OFF = @V"& _ + "ERSION_OFF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, F"& _ + "OLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN, VERSION_OFF FROM TBTC_MOVE_RENAME WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMECONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMECONVENTION", 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, 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("@VERSION_OFF", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_OFF", 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", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREAT"& _ - "ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_MOVE_RENAM"& _ - "E"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME))" + "ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN, VERSION_OFF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ + "TC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_NAME = @PROFILE_NAME)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREAT"& _ - "ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_MOVE_RENAM"& _ - "E"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME)) AND ACTIVE = 1" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable, ByVal PROFILE_NAME As String) As Integer @@ -3870,7 +2065,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PROFILE_NAME As String) As MyDataset.TBTC_MOVE_RENAMEDataTable @@ -3886,73 +2081,43 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function FillByActive(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable, ByVal PROFILE_NAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROFILE_NAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByActive(ByVal PROFILE_NAME As String) As MyDataset.TBTC_MOVE_RENAMEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROFILE_NAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String) - End If - Dim dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable = New MyDataset.TBTC_MOVE_RENAMEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBTC_MOVE_RENAME") 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 - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Public Overloads Overridable Function Delete(ByVal PNAME As String) As Integer + If (PNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PNAME") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(PNAME,String) + End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -3969,10 +2134,10 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String) As Integer + Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String, ByVal VERSION_OFF As Boolean) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else @@ -3990,10 +2155,11 @@ Namespace MyDatasetTableAdapters End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) If (CREATED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("CREATED_WHO") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(CREATED_WHO,String) End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(VERSION_OFF,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 @@ -4010,10 +2176,10 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal VERSION_OFF As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else @@ -4035,8 +2201,9 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(VERSION_OFF,Boolean) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).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 @@ -4076,14 +2243,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -4094,7 +2261,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -4124,7 +2291,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -4152,7 +2319,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -4163,7 +2330,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -4174,7 +2341,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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() @@ -4196,9 +2363,9 @@ Namespace MyDatasetTableAdapters Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBTC_DI_REGEX_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, REGEX, C"& _ - "REATED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@REGEX,@CREATED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ - " PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM "& _ - "TBTC_DI_REGEX_MATCH WHERE (GUID = SCOPE_IDENTITY())" + "REATED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@REGEX,@CREATED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, P"& _ + "ROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ + "TC_DI_REGEX_MATCH WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -4207,8 +2374,8 @@ Namespace MyDatasetTableAdapters Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBTC_DI_REGEX_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_NAME = @PROFILE_NAME"& _ ", REGEX = @REGEX, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUI"& _ - "D); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN FROM TBTC_DI_REGEX_MATCH WHERE (GUID = @GUID)" + "D); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, "& _ + "CHANGED_WHEN FROM TBTC_DI_REGEX_MATCH WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -4218,32 +2385,27 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DD_ECM_TESTConnectionString + Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, "& _ - "CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_DI_REGEX_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (UPPER(PROFILE_N"& _ - "AME) = UPPER(@PROFILE_NAME))" + "CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_DI_REGEX_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_NAME = "& _ + "@PROFILE_NAME)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBTC_DI_REGEX_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_NAME = @PNAME)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PNAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBTC_DI_REGEX_MATCHDataTable, ByVal PROFILE_NAME As String) As Integer @@ -4261,7 +2423,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PROFILE_NAME As String) As MyDataset.TBTC_DI_REGEX_MATCHDataTable @@ -4277,35 +2439,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBTC_DI_REGEX_MATCHDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBTC_DI_REGEX_MATCH") 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 PNAME As String) As Integer @@ -4330,7 +2492,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal REGEX As String, ByVal CREATED_WHO As String) As Integer @@ -4365,7 +2527,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal REGEX As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -4400,33 +2562,6 @@ Namespace MyDatasetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function DeleteQuery(ByVal PNAME As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (PNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PNAME") - Else - command.Parameters(0).Value = CType(PNAME,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function End Class ''' @@ -4442,8 +2577,6 @@ Namespace MyDatasetTableAdapters Private _updateOrder As UpdateOrderOption - Private _tBDD_REPORTING_IMPORTTableAdapter As TBDD_REPORTING_IMPORTTableAdapter - Private _tBTC_MOVE_RENAMETableAdapter As TBTC_MOVE_RENAMETableAdapter Private _tBTC_DI_REGEX_MATCHTableAdapter As TBTC_DI_REGEX_MATCHTableAdapter @@ -4453,7 +2586,7 @@ Namespace MyDatasetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -4464,21 +2597,7 @@ Namespace MyDatasetTableAdapters End Property _ - Public Property TBDD_REPORTING_IMPORTTableAdapter() As TBDD_REPORTING_IMPORTTableAdapter - Get - Return Me._tBDD_REPORTING_IMPORTTableAdapter - End Get - Set - Me._tBDD_REPORTING_IMPORTTableAdapter = value - End Set - End Property - - _ @@ -4492,7 +2611,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -4506,7 +2625,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -4517,17 +2636,13 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBDD_REPORTING_IMPORTTableAdapter.Connection) Is Nothing)) Then - Return Me._tBDD_REPORTING_IMPORTTableAdapter.Connection - End If If ((Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBTC_MOVE_RENAMETableAdapter.Connection) Is Nothing)) Then Return Me._tBTC_MOVE_RENAMETableAdapter.Connection @@ -4544,14 +2659,11 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 - If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then - count = (count + 1) - End If If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then count = (count + 1) End If @@ -4566,18 +2678,9 @@ Namespace MyDatasetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, 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._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_REPORTING_IMPORTTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -4603,17 +2706,9 @@ Namespace MyDatasetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_REPORTING_IMPORTTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -4637,7 +2732,7 @@ Namespace MyDatasetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBTC_DI_REGEX_MATCHTableAdapter) Is Nothing) Then @@ -4656,14 +2751,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_REPORTING_IMPORTTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If Return result End Function @@ -4671,7 +2758,7 @@ Namespace MyDatasetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -4697,7 +2784,7 @@ Namespace MyDatasetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -4705,11 +2792,6 @@ Namespace MyDatasetTableAdapters If (dataSet.HasChanges = false) Then Return 0 End If - If ((Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_REPORTING_IMPORTTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If If ((Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBTC_MOVE_RENAMETableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ @@ -4754,15 +2836,6 @@ Namespace MyDatasetTableAdapters Try '---- Prepare for update ----------- ' - If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBDD_REPORTING_IMPORTTableAdapter, Me._tBDD_REPORTING_IMPORTTableAdapter.Connection) - Me._tBDD_REPORTING_IMPORTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_REPORTING_IMPORTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter) - End If - End If If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBTC_MOVE_RENAMETableAdapter, Me._tBTC_MOVE_RENAMETableAdapter.Connection) Me._tBTC_MOVE_RENAMETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) @@ -4841,10 +2914,6 @@ Namespace MyDatasetTableAdapters If workConnOpened Then workConnection.Close End If - If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then - Me._tBDD_REPORTING_IMPORTTableAdapter.Connection = CType(revertConnections(Me._tBDD_REPORTING_IMPORTTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_REPORTING_IMPORTTableAdapter.Transaction = Nothing - End If If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then Me._tBTC_MOVE_RENAMETableAdapter.Connection = CType(revertConnections(Me._tBTC_MOVE_RENAMETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBTC_MOVE_RENAMETableAdapter.Transaction = Nothing @@ -4868,13 +2937,13 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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 @@ -4892,7 +2961,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -4903,7 +2972,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -4913,7 +2982,7 @@ Namespace MyDatasetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -4925,7 +2994,7 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 @@ -4964,7 +3033,7 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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/ToolCollection/MyDataset.vb b/ToolCollection/MyDataset.vb deleted file mode 100644 index 98e3433..0000000 --- a/ToolCollection/MyDataset.vb +++ /dev/null @@ -1,2 +0,0 @@ -Partial Class MyDataset -End Class diff --git a/ToolCollection/MyDataset.xsc b/ToolCollection/MyDataset.xsc index 16c4b71..05b0199 100644 --- a/ToolCollection/MyDataset.xsc +++ b/ToolCollection/MyDataset.xsc @@ -5,34 +5,5 @@ the code is regenerated. --> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + \ No newline at end of file diff --git a/ToolCollection/MyDataset.xsd b/ToolCollection/MyDataset.xsd index 1fa89f8..e61b9f0 100644 --- a/ToolCollection/MyDataset.xsd +++ b/ToolCollection/MyDataset.xsd @@ -2,143 +2,63 @@ - + - - + - - - - - - DELETE FROM [TBDD_REPORTING_IMPORT] WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AND ((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_FILE_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = 1 AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COUNT = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ((@IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTENSION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN)) - - - - - - - - - - - - - - - - - - INSERT INTO TBDD_REPORTING_IMPORT - (FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION) -VALUES (@FILE_NAME,@PROFILE_NAME,@VOLUME,@PAGE_COUNT,@EXTENSION); -SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPORT WHERE (IMPORT_ID = SCOPE_IDENTITY()) - - - - - - - - - - - - SELECT TBDD_REPORTING_IMPORT.* -FROM TBDD_REPORTING_IMPORT - - - - - - UPDATE [TBDD_REPORTING_IMPORT] SET [FILE_NAME] = @FILE_NAME, [PROFILE_NAME] = @PROFILE_NAME, [VOLUME] = @VOLUME, [PAGE_COUNT] = @PAGE_COUNT, [EXTENSION] = @EXTENSION, [ADDED_WHEN] = @ADDED_WHEN WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AND ((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_FILE_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = 1 AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COUNT = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ((@IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTENSION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN)); -SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPORT WHERE (IMPORT_ID = @IMPORT_ID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBTC_MOVE_RENAME -WHERE (GUID = @Original_GUID) +WHERE (PROFILE_NAME = @PNAME) - + - + INSERT INTO TBTC_MOVE_RENAME - (PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO) -VALUES (@PROFILE_NAME,@FOLDER_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO); -SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = SCOPE_IDENTITY()) + (PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, VERSION_OFF) +VALUES (@PROFILE_NAME,@FOLDER_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO,@VERSION_OFF); +SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN, VERSION_OFF FROM TBTC_MOVE_RENAME WHERE (GUID = SCOPE_IDENTITY()) - - - - - + + + + + + - SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN + SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN, VERSION_OFF FROM TBTC_MOVE_RENAME -WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME)) +WHERE (PROFILE_NAME = @PROFILE_NAME) - + UPDATE TBTC_MOVE_RENAME -SET PROFILE_NAME = @PROFILE_NAME, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, NAMECONVENTION = @NAMECONVENTION, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO +SET PROFILE_NAME = @PROFILE_NAME, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, NAMECONVENTION = @NAMECONVENTION, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, + VERSION_OFF = @VERSION_OFF WHERE (GUID = @Original_GUID); -SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = @GUID) +SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN, VERSION_OFF FROM TBTC_MOVE_RENAME WHERE (GUID = @GUID) + @@ -156,25 +76,13 @@ SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO + - - - - - SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBTC_MOVE_RENAME -WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME)) AND ACTIVE = 1 - - - - - - - + - + DELETE FROM TBTC_DI_REGEX_MATCH @@ -185,15 +93,15 @@ WHERE (PROFILE_NAME = @PNAME) - + INSERT INTO TBTC_DI_REGEX_MATCH (PROFILE_NAME, REGEX, CREATED_WHO) -VALUES (@PROFILE_NAME,@REGEX,@CREATED_WHO); +VALUES (@PROFILE_NAME,@REGEX,@CREATED_WHO); SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_DI_REGEX_MATCH WHERE (GUID = SCOPE_IDENTITY()) - - - + + + @@ -201,24 +109,24 @@ SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGE SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_DI_REGEX_MATCH -WHERE (UPPER(PROFILE_NAME) = UPPER(@PROFILE_NAME)) +WHERE (PROFILE_NAME = @PROFILE_NAME) - + - + UPDATE TBTC_DI_REGEX_MATCH SET PROFILE_NAME = @PROFILE_NAME, REGEX = @REGEX, CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID); +WHERE (GUID = @Original_GUID); SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_DI_REGEX_MATCH WHERE (GUID = @GUID) - - - - - + + + + + @@ -233,19 +141,7 @@ SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGE - - - - - DELETE FROM TBTC_DI_REGEX_MATCH -WHERE (PROFILE_NAME = @PNAME) - - - - - - - + @@ -255,64 +151,10 @@ WHERE (PROFILE_NAME = @PNAME) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -335,7 +177,7 @@ WHERE (PROFILE_NAME = @PNAME) - + @@ -351,13 +193,14 @@ WHERE (PROFILE_NAME = @PNAME) + - + - + @@ -365,7 +208,7 @@ WHERE (PROFILE_NAME = @PNAME) - + @@ -391,13 +234,29 @@ WHERE (PROFILE_NAME = @PNAME) + + + + + + + + + + + + + + + + + + + + - - - - diff --git a/ToolCollection/MyDataset.xss b/ToolCollection/MyDataset.xss index 5224de2..3671861 100644 --- a/ToolCollection/MyDataset.xss +++ b/ToolCollection/MyDataset.xss @@ -4,14 +4,11 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - + + + \ No newline at end of file diff --git a/ToolCollection/ToolCollection.vbproj b/ToolCollection/ToolCollection.vbproj index 060e817..35d75a5 100644 --- a/ToolCollection/ToolCollection.vbproj +++ b/ToolCollection/ToolCollection.vbproj @@ -429,9 +429,6 @@ True MyDataset.xsd - - MyDataset.xsd - ProjectInstaller.vb diff --git a/ToolCollection/app.config b/ToolCollection/app.config index 49c0e7e..36a445a 100644 --- a/ToolCollection/app.config +++ b/ToolCollection/app.config @@ -11,9 +11,7 @@
- - diff --git a/ToolCollection/clsNI_WorkFile.vb b/ToolCollection/clsNI_WorkFile.vb index c24e9c3..58634c7 100644 --- a/ToolCollection/clsNI_WorkFile.vb +++ b/ToolCollection/clsNI_WorkFile.vb @@ -263,8 +263,8 @@ Public Class clsNI_WorkFile Dim RowNew As DataRow RowNew = MyDataset.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - RowNew.Item("Indexname") = Volltext_Indexierung.Index - RowNew.Item("Wert") = Value + RowNew.Item("IndexName") = Volltext_Indexierung.Index + RowNew.Item("Value") = Value MyDataset.Tables("TBVEKTOR_ARRAY").Rows.Add(RowNew) Next diff --git a/ToolCollection/frmDIHauptseite.Designer.vb b/ToolCollection/frmDIHauptseite.Designer.vb index 571217a..2eb5d3c 100644 --- a/ToolCollection/frmDIHauptseite.Designer.vb +++ b/ToolCollection/frmDIHauptseite.Designer.vb @@ -53,7 +53,7 @@ Partial Class frmDIHauptseite Me.lblLog = New System.Windows.Forms.Label() Me.btnQuellordner = New System.Windows.Forms.Button() Me.lblProgress = New System.Windows.Forms.Label() - Me.TBDD_REPORTING_IMPORTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBTC_DI_REGEX_MATCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MyDataset = New ToolCollection.MyDataset() Me.txtQuellordner = New System.Windows.Forms.TextBox() Me.tvLog = New System.Windows.Forms.TreeView() @@ -80,23 +80,18 @@ Partial Class frmDIHauptseite Me.txtAusschluss = New System.Windows.Forms.TextBox() Me.chkbEmail = New System.Windows.Forms.CheckBox() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.TBUVBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_REPORTING_IMPORTTableAdapter = New ToolCollection.MyDatasetTableAdapters.TBDD_REPORTING_IMPORTTableAdapter() Me.TableAdapterManager = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager() - Me.TBTC_DI_REGEX_MATCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBTC_DI_REGEX_MATCHTableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_DI_REGEX_MATCHTableAdapter() Me.contextLog.SuspendLayout() Me.tcMain.SuspendLayout() Me.tpMain.SuspendLayout() Me.GroupBox1.SuspendLayout() CType(Me.numIntervallDurchlauf, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_REPORTING_IMPORTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() Me.tpKonfiguration.SuspendLayout() Me.gbEmail.SuspendLayout() Me.GroupBox3.SuspendLayout() - CType(Me.TBUVBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'timRun_Dateiimport @@ -390,10 +385,10 @@ Partial Class frmDIHauptseite Me.lblProgress.Text = "0 von 100 Dateien importiert" Me.lblProgress.Visible = False ' - 'TBDD_REPORTING_IMPORTBindingSource + 'TBTC_DI_REGEX_MATCHBindingSource ' - Me.TBDD_REPORTING_IMPORTBindingSource.DataMember = "TBDD_REPORTING_IMPORT" - Me.TBDD_REPORTING_IMPORTBindingSource.DataSource = Me.MyDataset + Me.TBTC_DI_REGEX_MATCHBindingSource.DataMember = "TBTC_DI_REGEX_MATCH" + Me.TBTC_DI_REGEX_MATCHBindingSource.DataSource = Me.MyDataset ' 'MyDataset ' @@ -662,28 +657,14 @@ Partial Class frmDIHauptseite Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' - 'TBUVBindingSource - ' - Me.TBUVBindingSource.DataMember = "TBUV" - Me.TBUVBindingSource.DataSource = Me.MyDataset - ' - 'TBDD_REPORTING_IMPORTTableAdapter - ' - Me.TBDD_REPORTING_IMPORTTableAdapter.ClearBeforeFill = True - ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_REPORTING_IMPORTTableAdapter = Me.TBDD_REPORTING_IMPORTTableAdapter + Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBTC_DI_REGEX_MATCHTableAdapter = Nothing Me.TableAdapterManager.TBTC_MOVE_RENAMETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'TBTC_DI_REGEX_MATCHBindingSource - ' - Me.TBTC_DI_REGEX_MATCHBindingSource.DataMember = "TBTC_DI_REGEX_MATCH" - Me.TBTC_DI_REGEX_MATCHBindingSource.DataSource = Me.MyDataset - ' 'TBTC_DI_REGEX_MATCHTableAdapter ' Me.TBTC_DI_REGEX_MATCHTableAdapter.ClearBeforeFill = True @@ -708,15 +689,13 @@ Partial Class frmDIHauptseite Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.numIntervallDurchlauf, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_REPORTING_IMPORTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() Me.tpKonfiguration.ResumeLayout(False) Me.gbEmail.ResumeLayout(False) Me.gbEmail.PerformLayout() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() - CType(Me.TBUVBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -775,9 +754,6 @@ Partial Class frmDIHauptseite Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents txtAusschluss As System.Windows.Forms.TextBox Friend WithEvents MyDataset As ToolCollection.MyDataset - Friend WithEvents TBUVBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_REPORTING_IMPORTBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_REPORTING_IMPORTTableAdapter As ToolCollection.MyDatasetTableAdapters.TBDD_REPORTING_IMPORTTableAdapter Friend WithEvents TableAdapterManager As ToolCollection.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents TBTC_DI_REGEX_MATCHBindingSource As BindingSource Friend WithEvents TBTC_DI_REGEX_MATCHTableAdapter As MyDatasetTableAdapters.TBTC_DI_REGEX_MATCHTableAdapter diff --git a/ToolCollection/frmDIHauptseite.resx b/ToolCollection/frmDIHauptseite.resx index a694f49..b9d3978 100644 --- a/ToolCollection/frmDIHauptseite.resx +++ b/ToolCollection/frmDIHauptseite.resx @@ -130,28 +130,19 @@ 437, 17 - 465, 56 + 989, 17 706, 17 - - 976, 17 - 549, 17 - - 816, 17 - - - 17, 56 - - 292, 56 + 816, 17 - 728, 56 + 17, 56 125 diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index 34748ca..b90b0e7 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -404,13 +404,11 @@ Public Class frmDIHauptseite Sub GetDirectories(ByVal StartPath As String, ByRef DirectoryList As ArrayList) Dim Dirs() As String = Directory.GetDirectories(StartPath) DirectoryList.AddRange(Dirs) - For Each Dir As String In Dirs - Dim newRow As MyDataset.TBUVRow - newRow = MyDataset.TBUV.NewTBUVRow - newRow.Unterverzeichnis = Dir - MyDataset.TBUV.Rows.Add(newRow) + For Each Dir As String In Dirs + CURRENT_UNTERV.Add(Dir) + GetDirectories(Dir, DirectoryList) Next End Sub @@ -435,7 +433,8 @@ Public Class frmDIHauptseite Me.TBTC_DI_REGEX_MATCHTableAdapter.Connection.ConnectionString = My.Settings.DDECMConString Me.TBTC_DI_REGEX_MATCHTableAdapter.Fill(Me.MyDataset.TBTC_DI_REGEX_MATCH, Me.selectedProfile.OriginalProfilname) Catch ex As Exception - ClassLoggerDI.Add("Error while connecting via My.Settings.DDECMConString: " + ex.Message) + ClassLoggerDI.Add($"Error while connecting via My.Settings.DDECMConString [{My.Settings.DDECMConString}]" + ex.Message) + ClassLoggerDI.Add($"ErrorMessage: {ex.Message}") oError = True End Try @@ -460,7 +459,7 @@ Public Class frmDIHauptseite Dim fileAusschliessen As Boolean = False If Me.selectedProfile.Subdirectories = True Then - MyDataset.TBUV.Clear() + CURRENT_UNTERV.Clear() For Each di In Directory.GetDirectories(Path.GetDirectoryName(Me.selectedProfile.OriginalQuellordner & "\"), "*.*") GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", oSubDirectoryList) Next @@ -665,7 +664,7 @@ Public Class frmDIHauptseite If Me.oWMStream_Result = 0 Then Try Dim extension As String = Replace(Path.GetExtension(DI_STREAMRESULTFILE), ".", "").ToUpper - 'TBDD_REPORTING_IMPORTTableAdapter.Insert(DI_STREAMRESULTFILE, manProfile, DI_FILESIZE, DI_PAGECOUNT, extension) + Catch ex As Exception End Try diff --git a/ToolCollection/frmDIProfilEigenschaften.vb b/ToolCollection/frmDIProfilEigenschaften.vb index 5240185..e010475 100644 --- a/ToolCollection/frmDIProfilEigenschaften.vb +++ b/ToolCollection/frmDIProfilEigenschaften.vb @@ -268,7 +268,7 @@ Public Class frmDIProfilEigenschaften Next Catch ex As Exception - If My.Settings.licensekey <> "DD MaxLicense" Then + If My.Settings.licensekey <> "DD MaxLicense" Or My.Settings.licensekey.ToUpper <> "DDALLIN" Then MsgBox("Error Adding Profile due to license issue!", MsgBoxStyle.Critical) End If End Try diff --git a/ToolCollection/frmDIRegex.Designer.vb b/ToolCollection/frmDIRegex.Designer.vb index 1556d30..ac3ec61 100644 --- a/ToolCollection/frmDIRegex.Designer.vb +++ b/ToolCollection/frmDIRegex.Designer.vb @@ -281,7 +281,6 @@ Partial Class frmDIRegex 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_REPORTING_IMPORTTableAdapter = Nothing Me.TableAdapterManager.TBTC_DI_REGEX_MATCHTableAdapter = Me.TBTC_DI_REGEX_MATCHTableAdapter Me.TableAdapterManager.TBTC_MOVE_RENAMETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/ToolCollection/frmDIRegex.vb b/ToolCollection/frmDIRegex.vb index 464f167..9a40acf 100644 --- a/ToolCollection/frmDIRegex.vb +++ b/ToolCollection/frmDIRegex.vb @@ -85,7 +85,7 @@ Public Class frmDIRegex Private Sub tsbtnDelete_Click(sender As Object, e As EventArgs) Handles tsbtnDelete.Click Try - TBTC_DI_REGEX_MATCHTableAdapter.DeleteQuery(PROFILE_NAMETextBox.Text) + TBTC_DI_REGEX_MATCHTableAdapter.Delete(PROFILE_NAMETextBox.Text) LoadData() Catch ex As Exception MsgBox("Unexpected error in deletingRegex: " & ex.Message, MsgBoxStyle.Critical) diff --git a/ToolCollection/frmLizenzmanager.vb b/ToolCollection/frmLizenzmanager.vb index 6a318f1..5b2939a 100644 --- a/ToolCollection/frmLizenzmanager.vb +++ b/ToolCollection/frmLizenzmanager.vb @@ -18,7 +18,7 @@ Public Class frmLizenzmanager Me.lvLicense.Items.Clear() If Not Me.txtKey.Text = "" Then - If Me.txtKey.Text = "DD MaxLicense" Then + If Me.txtKey.Text = "DD MaxLicense" Or Me.txtKey.Text.ToUpper = "DDALLIN" Then Me.txtCompany.Text = "Digital Data" Me.txtmachine.Text = "None" Else diff --git a/ToolCollection/frmMORE_Verwaltung.Designer.vb b/ToolCollection/frmMORE_Verwaltung.Designer.vb index d781b34..4a32376 100644 --- a/ToolCollection/frmMORE_Verwaltung.Designer.vb +++ b/ToolCollection/frmMORE_Verwaltung.Designer.vb @@ -484,7 +484,7 @@ Partial Class frmMORE_Verwaltung 'DataGridViewTextBoxColumn7 ' Me.DataGridViewTextBoxColumn7.DataPropertyName = "INDEXNAME" - Me.DataGridViewTextBoxColumn7.HeaderText = "Indexname" + Me.DataGridViewTextBoxColumn7.HeaderText = "IndexName" Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" Me.DataGridViewTextBoxColumn7.ReadOnly = True ' diff --git a/ToolCollection/frmNIHauptseite.Designer.vb b/ToolCollection/frmNIHauptseite.Designer.vb index 9b4be6c..b40a308 100644 --- a/ToolCollection/frmNIHauptseite.Designer.vb +++ b/ToolCollection/frmNIHauptseite.Designer.vb @@ -644,7 +644,6 @@ Partial Class frmNIHauptseite 'TableAdapterManager1 ' Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager1.TBDD_REPORTING_IMPORTTableAdapter = Nothing Me.TableAdapterManager1.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter Me.TableAdapterManager1.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index d38c188..e492e5f 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -27,11 +27,11 @@ Public Class frmNIHauptseite Private _fulltext As clsNIFulltext Private manuallyRun As Boolean = False - + Private manually_cancel As Boolean = True '#### Variablen für das Profil Private myNIDatatable As DataTable - Private oNiArrayIndexe() As String = Nothing ' zum Speichern der Indexe - Private oNiArrayValues() As String = Nothing ' zum Speichern der Werte + Private myNIArrayIndexe() As String = Nothing ' zum Speichern der Indexe + Private myNIArrayValues() As String = Nothing ' zum Speichern der Werte Public _MRDokumentart, _MRKundenKennzeichen, _MRDeskrIndex As String Public Shared _MRKONVERT_FEHLER As Integer = 0 @@ -250,7 +250,10 @@ Public Class frmNIHauptseite End Sub Private Sub bwDatei_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) If bwDatei.CancellationPending Then - _Logger.Debug("bwDatei.CancellationPending - e.Cancel") + _Logger.Info("bwDatei.CancellationPending - e.Cancel") + e.Cancel = True + ElseIf manually_cancel = True Then + _Logger.Info("bwDatei.manually_cancel - e.Cancel") e.Cancel = True Else IndexiereVerarbeiteDokument(Me.aktivesDokument) @@ -346,9 +349,6 @@ Public Class frmNIHauptseite If Me.aktivesProfil.Verknüpfungen IsNot Nothing Then ' windream-Suche für Profil starten bwsearch.RunWorkerAsync() - 'TimerSearch.Start() - 'Dim windreamSucheErgebnisse As WMObjects = Me._windreamNI.GetSearchDocuments(Me.aktivesProfil.WindreamSuche) - 'TimerSearch.Start() Dim d1 As Date = Now CURRENT_START_DATETIME = Now Dim oldminute As Integer = 0 @@ -424,8 +424,10 @@ Public Class frmNIHauptseite _Logger.Debug("Ni-Art: " & aktivesProfil.Ni_Art.ToLower) ' neue Anzahl von Dateien an ProgressBar2 bwProfil.ReportProgress(windreamSucheErgebnisse.Count) + Dim oWorkCount As Integer = 1 For Each dok As WMObject In windreamSucheErgebnisse - _Logger.Debug($"Working on Doc: [{dok.aName}]") + Dim StopwatchTimer As New ClassStopwatch("Stopwatch FileRun") + _Logger.Info($"Working on Doc: [{dok.aName}] # ({oWorkCount} of {windreamSucheErgebnisse.Count})") ' aktuelles Dokument der Klasse mitteilen Me.aktivesDokument = dok @@ -459,10 +461,21 @@ Public Class frmNIHauptseite End While ' nächste Datei an ProgressBar2 bwProfil.ReportProgress(-1) + oWorkCount += 1 ' Vorgang abbrechen If bwProfil.CancellationPending Then - _Logger.Debug($"bwProfil.CancellationPending...Exit bwProfil_DoWork") + _Logger.Info($"bwProfil.CancellationPending...Exit bwProfil_DoWork") + StopwatchTimer.Done() Exit Sub + ElseIf manually_cancel = True Then + _Logger.Info($"manually_cancel...Exit bwProfil_DoWork") + StopwatchTimer.Done() + Exit Sub + End If + + Dim swMessage = StopwatchTimer.Done() + If swMessage <> "" Then + _Logger.Info(swMessage) End If Next Else @@ -480,7 +493,7 @@ Public Class frmNIHauptseite _Logger.Warn($"windreamSucheErgebnisse is Nothing!! - Please check Search of {profil.Profilname}") End If Else - _Logger.Warn("_Fehler = True - Check the config of Nachindexierung") + _Logger.Warn("_Fehler = True - Check the config of Nachindexierung") bwProfil.ReportProgress(-4) End If @@ -710,12 +723,13 @@ Public Class frmNIHauptseite Dim oResultNachindexierung = Nothing Try If bwDatei.CancellationPending Then - _Logger.Debug("bwDatei.CancellationPending - IndexiereVerarbeiteDokument - Exit Sub") + _Logger.Info("bwDatei.CancellationPending - IndexiereVerarbeiteDokument - Exit Sub") Exit Sub End If Dim moved_Folder As String = "" Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All") - _Logger.Info("IndexiereVerarbeiteDokument '" & Me.aktivesDokument.aName & "'") + Dim swRegIndex As New ClassStopwatch("RegularIndexing") + ' _Logger.Info($"IndexiereVerarbeiteDokument [{Me.aktivesDokument.aName}]...") ' dient zum Überprüfen auf Fehler Dim oUnexpectedError As Boolean = False Dim unvollstaendig As Boolean = False @@ -732,7 +746,6 @@ Public Class frmNIHauptseite Dim _ergebnisSQL As Boolean = False 'Die Tabelle mit den select werten leeren MyDataset.TBVEKTOR_ARRAY.Clear() - 'Als erste überprüfen ob überhaupt ein Deskriptiver Index ausgelesen werden kann Select Case Me.aktivesProfil.Ni_Art.ToLower Case "fulltext" @@ -818,13 +831,14 @@ Public Class frmNIHauptseite End Select myNIDatatable = Nothing + myNIArrayIndexe = Nothing ' zum Speichern der Indexe + myNIArrayValues = Nothing ' zum Speichern der Werte Dim oDt As New DataTable - oDt.Columns.Add("Indexname") + oDt.Columns.Add("IndexName") oDt.Columns.Add("Value") myNIDatatable = oDt - oNiArrayIndexe = Nothing ' zum Speichern der Indexe - oNiArrayValues = Nothing ' zum Speichern der Werte + Dim verknüpfungZähler As Integer = 0 @@ -1180,13 +1194,13 @@ Public Class frmNIHauptseite Try _Logger.Debug("Arraygößen werden angepasst:") ' die Arraygrößen anpassen - ReDim Preserve oNiArrayIndexe(verknüpfungZähler) - ReDim Preserve oNiArrayValues(verknüpfungZähler) + ReDim Preserve myNIArrayIndexe(verknüpfungZähler) + ReDim Preserve myNIArrayValues(verknüpfungZähler) ' den angegebenen Index eintragen - oNiArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index + myNIArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index ' den, übergebenen/gefundenen IndexWert, eintragen - oNiArrayValues(verknüpfungZähler) = Convert.ToString(oResultNachindexierung) + myNIArrayValues(verknüpfungZähler) = Convert.ToString(oResultNachindexierung) Dim oRow As DataRow = myNIDatatable.NewRow oRow(0) = INDEX_SQL_BEFEHL.Index @@ -1205,13 +1219,13 @@ Public Class frmNIHauptseite End If If IndexwertAusWindream.GetType.ToString.Contains("System.Object") Then ' die Arraygrößen anpassen - ReDim Preserve oNiArrayIndexe(verknüpfungZähler) - ReDim Preserve oNiArrayValues(verknüpfungZähler) + ReDim Preserve myNIArrayIndexe(verknüpfungZähler) + ReDim Preserve myNIArrayValues(verknüpfungZähler) ' den angegebenen Index eintragen - oNiArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index + myNIArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index ' den, übergebenen/gefundenen IndexWert, eintragen - oNiArrayValues(verknüpfungZähler) = Convert.ToString("") + myNIArrayValues(verknüpfungZähler) = Convert.ToString("") _Logger.Debug("Nachindexwert ist Object") verknüpfungZähler += 1 @@ -1251,30 +1265,29 @@ Public Class frmNIHauptseite Next ' zur nächsten Verknüpfung gehen End If - ' wenn kein error_in_Indexierung aufgetreten ist If oUnexpectedError = False Then If unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Or Me.aktivesProfil.Ni_Art.ToLower <> "nurordnerrechte" Or Me.aktivesProfil.Ni_Art.ToLower <> "nur-ordner-indizes" Then '############################################################################################### '#### Nachindexierung ########################################################################## Dim sw As New ClassStopwatch("RunIndexing_Case1") - Dim mmdf = myNIDatatable.Rows.Count - - oUnexpectedError = Me._windreamNI.RunIndexing(dokument, oNiArrayIndexe, oNiArrayValues, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) + oUnexpectedError = Me._windreamNI.RunIndexing(dokument, myNIArrayIndexe, myNIArrayValues, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) Dim msg = sw.Done - If msg <> "" Then _Logger.Info($"SWResult: {msg}") + If msg <> "" Then + Stopwatch1 = $"{msg}" + End If '#### Nachindexierung Ende ##################################################################### '############################################################################################### If oUnexpectedError = True Then _Logger.Debug("error_in_Indexierung is True - none of following steps will be run!") End If 'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt - If oNiArrayValues Is Nothing = False And Not oUnexpectedError Then - If Me.aktivesProfil.finalerIndex <> "" And Not oUnexpectedError And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then + If myNIArrayValues Is Nothing = False And Not oUnexpectedError Then + If Me.aktivesProfil.finalerIndex <> "" And Not oUnexpectedError And myNIArrayValues.Length >= 1 And myNIArrayValues(0) <> "" Then Me._windreamNI.SetfinalIndex(dokument, Me.aktivesProfil.finalerIndex, True) End If '###### Spezifisches SQL nach jeder Datei! - If Me.aktivesProfil.SQL_Anweisung IsNot Nothing And Not oUnexpectedError And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then + If Me.aktivesProfil.SQL_Anweisung IsNot Nothing And Not oUnexpectedError And myNIArrayValues.Length >= 1 And myNIArrayValues(0) <> "" Then _Logger.Debug("Me.aktivesProfil.SQL_Anweisung: " & Me.aktivesProfil.SQL_Anweisung) If Me.aktivesProfil.SQL_Anweisung.StartsWith("EXECUTEVB") Then _Logger.Debug("Execute VB-Script after indexing......") @@ -1433,16 +1446,16 @@ Public Class frmNIHauptseite End If End If Else - If IsNothing(oNiArrayValues) Then + If IsNothing(myNIArrayValues) Then _Logger.Debug("NI_Values is nothing!") Else - _Logger.Debug("NI_Values.Length: " & oNiArrayValues.Length) - _Logger.Debug("NI_Values(0): " & oNiArrayValues(0)) + _Logger.Debug("NI_Values.Length: " & myNIArrayValues.Length) + _Logger.Debug("NI_Values(0): " & myNIArrayValues(0)) End If End If Else - If IsNothing(oNiArrayValues) Then + If IsNothing(myNIArrayValues) Then _Logger.Debug("oNiArrayValues is nothing!") Else @@ -1460,7 +1473,7 @@ Public Class frmNIHauptseite End Try If valid = True Then 'nur Zurücksetzten wenn Wert zuweisbar - If (oNiArrayValues.Length = 1 And oNiArrayValues(0) = "") = False Then + If (myNIArrayValues.Length = 1 And myNIArrayValues(0) = "") = False Then _Logger.Debug("Dokument sollte validiert werden - Nun erfolgreich indexiert - also Index '" & aktivesProfil.IndexValidation & "' zurücksetzen!") 'Den Flag Validation wieder auf False setzen File_SetBooleanIndex(False, aktivesDokument, aktivesProfil.IndexValidation) @@ -1472,7 +1485,7 @@ Public Class frmNIHauptseite '###### Nachindexierung über XML - Löschen des Dokumentes ###### If unvollstaendig = False Then '##### Löschen der xml-Indexdatei - If oNiArrayValues.Length = 1 And oNiArrayValues(0) = "" Then + If myNIArrayValues.Length = 1 And myNIArrayValues(0) = "" Then _Logger.Debug("XML-Wert ist Leer und somit nicht auswertbar - Dok für Validierung markieren") 'Den Flag Validation auf True setzen File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -1539,13 +1552,15 @@ Public Class frmNIHauptseite End If '#### Ende Nachindexierung '################################################################################################################################################# - Dim msgindex = swWorkDocument_All.Done - If msgindex <> "" Then _Logger.Info(($"SWResult: {msgindex}")) + Dim swMessage As String + swMessage = swRegIndex.Done + If swMessage <> "" Then + Stopwatch1 += vbNewLine & $"{swMessage}" + End If 'Move and Rename ausführen If LICENSE_MoveRename = True And Not oUnexpectedError And unvollstaendig = False Then - Dim swMoveandrename As New ClassStopwatch("MoveandRename - Complete") - + Dim swMoveandrename As New ClassStopwatch("MoveandRename") oUnexpectedError = FNMoveRename(dokument) 'sd 'Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)") @@ -1570,7 +1585,10 @@ Public Class frmNIHauptseite ' 'End If 'End If Dim msg1 = swMoveandrename.Done - If msg1 <> "" Then _Logger.Info($"SWResult: {msg1}") + If msg1 <> "" Then + Stopwatch1 += vbNewLine & $"{msg1}" + + End If ' MsgBox("Dokument wird in Ordnerbaum verschoben und umbenannt!" & vbNewLine & Me.aktivesProfil.MR_DAIndex & vbNewLine & Me.aktivesProfil.MR_KDIndex & vbNewLine & Me.aktivesProfil.Desk_windreamIndex, MsgBoxStyle.Information, dokument.aPath) Else If LICENSE_MoveRename = True And oUnexpectedError = True Or unvollstaendig = True Then @@ -1606,7 +1624,10 @@ Public Class frmNIHauptseite _Logger.Debug("Move 2 Folder ist aktiviert") Dim err As Boolean = Move2Folder(Me.aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & dokument.aPath) Dim msg = sw.Done - If msg <> "" Then _Logger.Info($"SWResult: {msg}") + If msg <> "" Then + Stopwatch1 += vbNewLine & $"{msg}" + + End If Else If My.Settings.vLogErrorsonly = False Then _Logger.Info("... no Move2Folder as something went wrong!") End If @@ -1638,9 +1659,10 @@ Public Class frmNIHauptseite Dim sw As New ClassStopwatch("AD-Rework") Nachbearbeitung_AD(dokument) Dim msg = sw.Done - If msg <> "" Then _Logger.Info($"SWResult: {msg}") + If msg <> "" Then + Stopwatch1 += vbNewLine & $"{msg}" + End If End If - oUnexpectedError = False Try If aktivesDokument.aLocked Then @@ -1650,10 +1672,14 @@ Public Class frmNIHauptseite Catch ex As Exception _Logger.Warn("Unexpected error in final Unlocking: " & ex.Message) End Try - + swMessage = swWorkDocument_All.Done + If swMessage <> "" Then + Stopwatch1 += vbNewLine & $"{swMessage}" + End If + _Logger.Info("## Result Stopwatch: ##" & vbNewLine & Stopwatch1) Catch ex As Exception _Logger.Error(ex) - _Logger.Warn($"oResultNachindexierung so far: {oResultNachindexierung.tostring}") + _Logger.Warn($"oResultNachindexierung so far: {oResultNachindexierung.ToString}") If My.Settings.vNIMailsenden = True Then email.Send_EMail("Schwerwiegender Fehler bei IndexiereVerarbeiteDokument -
Profil: " & aktivesProfil.Profilname & "
Datei: " & dokument.aName.ToString & "
Fehler: " & ex.Message) End If @@ -1686,7 +1712,7 @@ Public Class frmNIHauptseite oDynamicFolder = oDynamicFolder.Replace(oMatchElement.ToString, oWMIndexValue) _Logger.Debug(" FolderPattern: '" & oDynamicFolder & "'", False) Else - _Logger.Info("Achtung Ausnahme in 'FolderForIndex': der Index ist leer!", True) + _Logger.Warn($"[{myWMDocument.aName}] - Attention in 'FolderForIndex': the Index-Value [{oWMIndexname}] is empty! No Dynamic folder will be used!", True) Return "" End If Case "v" @@ -1765,10 +1791,11 @@ Public Class frmNIHauptseite Dim oActWMPath As String = "\\windream\objects" & myWMDocument.aPath Dim oExtension As String = System.IO.Path.GetExtension(oActWMPath) TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString - Me.TBTC_MOVE_RENAMETableAdapter.FillByActive(Me.MyDataset.TBTC_MOVE_RENAME, aktivesProfil.Profilname) + Me.TBTC_MOVE_RENAMETableAdapter.Fill(Me.MyDataset.TBTC_MOVE_RENAME, aktivesProfil.Profilname) + Dim oVERSIONOFF As Boolean If MyDataset.TBTC_MOVE_RENAME.Rows.Count = 1 Then _Logger.Debug($"Found a Move and Rename Definition: [{MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX")}]") - + oVERSIONOFF = MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("VERSION_OFF") Dim oTargetpath As String 'Regulären Ausdruck zum Auslesen der Indexe definieren Dim oPRegex As String = "\[%{1}[a-zA-Z0-9ß\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" @@ -1925,18 +1952,31 @@ Public Class frmNIHauptseite Dim oPathFile As String = oReturnString.Replace(oExtension, "") Dim oNewPathFilename = oPathFile + oExtension 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") - 'Überprüfen ob File existiert - Dim oNewVersion As Integer = 1 - Do While File.Exists(oNewPathFilename) + If oVERSIONOFF = True Then + + If File.Exists(oNewPathFilename) Then + Try + _Logger.Info("MOVERENAME-VERSIONING is OFF - Deleting existing file...") + File.Delete(oNewPathFilename) + Catch ex As Exception + _Logger.Warn($"Could Not delete file As VERSIONOFF Is True [{ex.Message}]") + End Try + End If + Else + 'Überprüfen ob File existiert + Dim oNewVersion As Integer = 1 + Do While File.Exists(oNewPathFilename) - oNewVersion = oNewVersion + 1 - oNewPathFilename = oPathFile & "~" & oNewVersion & oExtension + oNewVersion = oNewVersion + 1 + oNewPathFilename = oPathFile & "~" & oNewVersion & oExtension - Loop - If oNewPathFilename <> oReturnString Then - oReturnString = oNewPathFilename + Loop + If oNewPathFilename <> oReturnString Then + oReturnString = oNewPathFilename + End If End If + If _windreamNI.NEW_MOVE_FILE(oReturnString, oActWMPath, "MO_RE") = True Then Return False Else @@ -2140,8 +2180,8 @@ Public Class frmNIHauptseite Dim RowNew As DataRow RowNew = MyDataset.Tables("TBVEKTOR_ARRAY").NewRow() 'filling the row with values. Item property is used to set the field value. - RowNew.Item("Indexname") = Fulltext_Indexierung.Index - RowNew.Item("Wert") = Value + RowNew.Item("IndexName") = Fulltext_Indexierung.Index + RowNew.Item("Value") = Value MyDataset.Tables("TBVEKTOR_ARRAY").Rows.Add(RowNew) Next @@ -2190,9 +2230,9 @@ Public Class frmNIHauptseite ' Dim RowNew As DataRow ' RowNew = MyDataset.Tables("TBVEKTOR_ARRAY").NewRow() ' 'filling the row with values. Item property is used to set the field value. - ' RowNew.Item("Indexname") = Fulltext_Indexierung.Index + ' RowNew.Item("IndexName") = Fulltext_Indexierung.Index - ' RowNew.Item("Wert") = element.ToString + ' RowNew.Item("Value") = element.ToString ' MyDataset.Tables("TBVEKTOR_ARRAY").Rows.Add(RowNew) ' 'ArrayCounter hochsetzen @@ -2212,8 +2252,8 @@ Public Class frmNIHauptseite ' Dim RowNew As DataRow ' RowNew = MyDataset.Tables("TBVEKTOR_ARRAY").NewRow() ' 'filling the row with values. Item property is used to set the field value. - ' RowNew.Item("Indexname") = Fulltext_Indexierung.Index - ' RowNew.Item("Wert") = Value + ' RowNew.Item("IndexName") = Fulltext_Indexierung.Index + ' RowNew.Item("Value") = Value ' MyDataset.Tables("TBVEKTOR_ARRAY").Rows.Add(RowNew) 'Next @@ -2502,6 +2542,7 @@ Public Class frmNIHauptseite If Me.numIntervall.Value = 0 Then Me.numIntervall.Value = 5 End If + manually_cancel = False Me.timRun.Interval = Me.numIntervall.Value * 60 * 1000 Me.timRun.Start() 'Variable für den Fall Programmabbruch und Neustart! @@ -2533,7 +2574,6 @@ Public Class frmNIHauptseite End Sub Sub Abbruch_NI(cancel_Reason As String, Abbruch As Boolean, keeprunning As Boolean) Try - _Logger.Info("Nachindexierung wird abgebrochen - Reason: " & cancel_Reason) Try If Me.bwProfil.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then @@ -2562,7 +2602,7 @@ Public Class frmNIHauptseite _Logger.Warn("Fehler beim Abbrechen des Threads bwDatei: " & ex.Message) End Try - + manually_cancel = True _Logger.Info("Threads gestoppt - " & Now) If keeprunning = False Then diff --git a/ToolCollection/frmNIMoveRename.Designer.vb b/ToolCollection/frmNIMoveRename.Designer.vb index 90d8163..6f66661 100644 --- a/ToolCollection/frmNIMoveRename.Designer.vb +++ b/ToolCollection/frmNIMoveRename.Designer.vb @@ -34,6 +34,9 @@ Partial Class frmNIMoveRename Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIMoveRename)) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.tsbtnAdd = New System.Windows.Forms.ToolStripButton() + Me.tsbtnsave = New System.Windows.Forms.ToolStripButton() + Me.tsbtndelete = New System.Windows.Forms.ToolStripButton() Me.MyDataset = New ToolCollection.MyDataset() Me.TBTC_MOVE_RENAMEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBTC_MOVE_RENAMETableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter() @@ -50,10 +53,8 @@ Partial Class frmNIMoveRename Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() - Me.tsbtnAdd = New System.Windows.Forms.ToolStripButton() - Me.tsbtnsave = New System.Windows.Forms.ToolStripButton() - Me.tsbtndelete = New System.Windows.Forms.ToolStripButton() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() + Me.VERSION_OFFCheckBox = New System.Windows.Forms.CheckBox() GUIDLabel = New System.Windows.Forms.Label() PROFILE_NAMELabel = New System.Windows.Forms.Label() FOLDER_FOR_INDEXLabel = New System.Windows.Forms.Label() @@ -141,9 +142,9 @@ Partial Class frmNIMoveRename ' 'StatusStrip1 ' - Me.StatusStrip1.Location = New System.Drawing.Point(0, 233) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 244) Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(800, 22) + Me.StatusStrip1.Size = New System.Drawing.Size(813, 22) Me.StatusStrip1.TabIndex = 0 Me.StatusStrip1.Text = "StatusStrip1" ' @@ -153,10 +154,34 @@ Partial Class frmNIMoveRename Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnAdd, Me.tsbtnsave, Me.tsbtndelete}) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Name = "ToolStrip1" - Me.ToolStrip1.Size = New System.Drawing.Size(800, 25) + Me.ToolStrip1.Size = New System.Drawing.Size(813, 25) Me.ToolStrip1.TabIndex = 1 Me.ToolStrip1.Text = "ToolStrip1" ' + 'tsbtnAdd + ' + Me.tsbtnAdd.Image = Global.ToolCollection.My.Resources.Resources.action_add_16xMD + Me.tsbtnAdd.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnAdd.Name = "tsbtnAdd" + Me.tsbtnAdd.Size = New System.Drawing.Size(163, 22) + Me.tsbtnAdd.Text = "Konfiguration hinzufügen" + ' + 'tsbtnsave + ' + Me.tsbtnsave.Image = Global.ToolCollection.My.Resources.Resources.save + Me.tsbtnsave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnsave.Name = "tsbtnsave" + Me.tsbtnsave.Size = New System.Drawing.Size(79, 22) + Me.tsbtnsave.Text = "Speichern" + ' + 'tsbtndelete + ' + Me.tsbtndelete.Image = Global.ToolCollection.My.Resources.Resources.delete + Me.tsbtndelete.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtndelete.Name = "tsbtndelete" + Me.tsbtndelete.Size = New System.Drawing.Size(71, 22) + Me.tsbtndelete.Text = "Löschen" + ' 'MyDataset ' Me.MyDataset.DataSetName = "MyDataset" @@ -174,7 +199,7 @@ Partial Class frmNIMoveRename 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_REPORTING_IMPORTTableAdapter = Nothing + Me.TableAdapterManager.TBTC_DI_REGEX_MATCHTableAdapter = Nothing Me.TableAdapterManager.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter Me.TableAdapterManager.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' @@ -285,39 +310,26 @@ Partial Class frmNIMoveRename Me.Button3.TabIndex = 24 Me.Button3.UseVisualStyleBackColor = True ' - 'tsbtnAdd - ' - Me.tsbtnAdd.Image = Global.ToolCollection.My.Resources.Resources.action_add_16xMD - Me.tsbtnAdd.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnAdd.Name = "tsbtnAdd" - Me.tsbtnAdd.Size = New System.Drawing.Size(163, 22) - Me.tsbtnAdd.Text = "Konfiguration hinzufügen" - ' - 'tsbtnsave - ' - Me.tsbtnsave.Image = Global.ToolCollection.My.Resources.Resources.save - Me.tsbtnsave.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnsave.Name = "tsbtnsave" - Me.tsbtnsave.Size = New System.Drawing.Size(79, 22) - Me.tsbtnsave.Text = "Speichern" - ' - 'tsbtndelete - ' - Me.tsbtndelete.Image = Global.ToolCollection.My.Resources.Resources.delete - Me.tsbtndelete.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtndelete.Name = "tsbtndelete" - Me.tsbtndelete.Size = New System.Drawing.Size(71, 22) - Me.tsbtndelete.Text = "Löschen" - ' 'FolderBrowserDialog1 ' Me.FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer ' + 'VERSION_OFFCheckBox + ' + Me.VERSION_OFFCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBTC_MOVE_RENAMEBindingSource, "VERSION_OFF", True)) + Me.VERSION_OFFCheckBox.Location = New System.Drawing.Point(597, 33) + Me.VERSION_OFFCheckBox.Name = "VERSION_OFFCheckBox" + Me.VERSION_OFFCheckBox.Size = New System.Drawing.Size(132, 37) + Me.VERSION_OFFCheckBox.TabIndex = 25 + Me.VERSION_OFFCheckBox.Text = "Versionierung inaktiv" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Datei wird ersetzt)" + Me.VERSION_OFFCheckBox.UseVisualStyleBackColor = True + ' 'frmNIMoveRename ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 255) + Me.ClientSize = New System.Drawing.Size(813, 266) + Me.Controls.Add(Me.VERSION_OFFCheckBox) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) @@ -377,4 +389,5 @@ Partial Class frmNIMoveRename Friend WithEvents tsbtndelete As ToolStripButton Friend WithEvents Button3 As Button Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog + Friend WithEvents VERSION_OFFCheckBox As CheckBox End Class diff --git a/ToolCollection/frmStart.vb b/ToolCollection/frmStart.vb index 3abc0da..9882473 100644 --- a/ToolCollection/frmStart.vb +++ b/ToolCollection/frmStart.vb @@ -127,7 +127,7 @@ Public Class frmStart Me._validModules = Nothing If Not My.Settings.licensekey = "" Then - If My.Settings.licensekey = "DD MaxLicense" Then + If My.Settings.licensekey = "DD MaxLicense" Or My.Settings.licensekey.ToUpper = "DDALLIN" Then Me.grbDI.Visible = True Me.GBNachindexierung.Visible = True Me.GroupBoxIntegration.Visible = True