diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 79a0daa5..0a87b209 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -190,6 +190,10 @@ {3DCD6D1A-C830-4241-B7E4-27430E7EA483} LookupControl + + {6ea0c51f-c2b1-4462-8198-3de0b32b74f8} + Base + {44982f9b-6116-44e2-85d0-f39650b1ef99} Config diff --git a/GUIs.Common/DocumentResultList/Document.vb b/GUIs.Common/DocumentResultList/Document.vb index a721d4f1..aacc6dfa 100644 --- a/GUIs.Common/DocumentResultList/Document.vb +++ b/GUIs.Common/DocumentResultList/Document.vb @@ -9,6 +9,10 @@ Namespace DocumentResultList ''' Public Property Id As Long + ''' + ''' The access right given to the current user for this file + ''' + ''' Public Property AccessRight As AccessRight ''' @@ -16,6 +20,7 @@ Namespace DocumentResultList ''' and showing it in the DocumentViewer. It is saved without the dot-separator. ''' Public Property Extension As String + ''' ''' Binary contents of the file. ''' @@ -26,6 +31,7 @@ Namespace DocumentResultList Public Property FullPath As String = Nothing Public Property TempPath As String = Nothing Public Property FileHash As String = Nothing + Public Property DocumentType As String = Nothing Public Sub New(pPrimaryKey As Long) Id = pPrimaryKey diff --git a/GUIs.Common/DocumentResultList/Loader.vb b/GUIs.Common/DocumentResultList/Loader.vb index 3182fff8..52185407 100644 --- a/GUIs.Common/DocumentResultList/Loader.vb +++ b/GUIs.Common/DocumentResultList/Loader.vb @@ -3,6 +3,7 @@ Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.EDMI.API.Client Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base.IDB Imports DigitalData.Modules.ZooFlow.Constants Imports DigitalData.Modules.ZooFlow.State @@ -41,24 +42,29 @@ Namespace DocumentResultList Private Function Load_FromWindream(pObjectId As Long, pFullPath As String) As Document Dim oFileInfo As New FileInfo(pFullPath) Dim oResultDocumentInfo = New Document(pObjectId) With { - .Contents = Load_FromDisk(pFullPath), - .AccessRight = Rights.AccessRight.FULL, - .FullPath = pFullPath, - .Extension = oFileInfo.Extension.Substring(1) - } + .Contents = Load_FromDisk(pFullPath), + .AccessRight = Rights.AccessRight.FULL, + .FullPath = pFullPath, + .Extension = oFileInfo.Extension.Substring(1) + } Return oResultDocumentInfo End Function Private Function Load_FromIDB(pObjectId As Long) As Document Try - Dim oDocumentInfo As Client.DocumentInfo = Client.GetDocumentInfo(User.UserId, pObjectId) + Dim oDocumentInfo As DocumentInfo = Client.GetDocumentInfo(User.UserId, pObjectId) Dim oFileInfo As New FileInfo(oDocumentInfo.FullPath) + + ' Load Doctype Attribute + Dim oDoctype As VariableValue = Client.GetVariableValue(pObjectId, Attributes.ATTRIBUTE_DOCTYPE) + Dim oResultDocumentInfo As New Document(pObjectId) With { .Contents = Load_FromDisk(oDocumentInfo.FullPath), .AccessRight = oDocumentInfo.AccessRight, .FullPath = oDocumentInfo.FullPath, - .Extension = oFileInfo.Extension.Substring(1) + .Extension = oFileInfo.Extension.Substring(1), + .DocumentType = oDoctype.Value } Return oResultDocumentInfo @@ -75,12 +81,16 @@ Namespace DocumentResultList Return Nothing End If + ' Load Doctype Attribute + Dim oDoctype As VariableValue = Client.GetVariableValue(pObjectId, Attributes.ATTRIBUTE_DOCTYPE) + Dim oResultDocumentInfo As New Document(pObjectId) With { .Contents = oFileObject._FileContents, .Extension = oFileObject._FileExtension, .AccessRight = Rights.AccessRight.FULL, .FileHash = oFileObject._FileHash, - .FullPath = Nothing + .FullPath = Nothing, + .DocumentType = oDoctype.Value } Return oResultDocumentInfo diff --git a/GUIs.Common/frmDocumentResultList.Designer.vb b/GUIs.Common/frmDocumentResultList.Designer.vb index 45208a5e..a06317c2 100644 --- a/GUIs.Common/frmDocumentResultList.Designer.vb +++ b/GUIs.Common/frmDocumentResultList.Designer.vb @@ -209,7 +209,7 @@ Partial Class frmDocumentResultList ' resources.ApplyResources(Me.BarButtonResetLayout, "BarButtonResetLayout") Me.BarButtonResetLayout.Id = 10 - Me.BarButtonResetLayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonResetLayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonResetLayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonResetLayout.Name = "BarButtonResetLayout" Me.BarButtonResetLayout.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing ' diff --git a/GUIs.Common/frmDocumentResultList.resx b/GUIs.Common/frmDocumentResultList.resx index 27b6fc8a..ece90751 100644 --- a/GUIs.Common/frmDocumentResultList.resx +++ b/GUIs.Common/frmDocumentResultList.resx @@ -255,7 +255,7 @@ Layout zurücksetzen - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -452,10 +452,10 @@ 1189, 132 - 0, 649 + 0, 647 - 1189, 22 + 1189, 24 RibbonStatusBar @@ -482,7 +482,7 @@ 2 - 382, 513 + 382, 511 0 @@ -584,7 +584,7 @@ GridBand3 - 370, 280 + 370, 278 0 @@ -617,7 +617,7 @@ 1 - 370, 513 + 370, 511 0 @@ -653,7 +653,7 @@ 1 - 762, 513 + 762, 511 2 @@ -701,7 +701,7 @@ 0, 0 - 413, 513 + 413, 511 0 @@ -710,7 +710,7 @@ DocumentViewer1 - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.4.0, Culture=neutral, PublicKeyToken=null + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.5.0, Culture=neutral, PublicKeyToken=null SplitContainerControl3.Panel2 @@ -734,7 +734,7 @@ 1 - 1189, 517 + 1189, 515 5 diff --git a/GUIs.Common/frmDocumentResultList.vb b/GUIs.Common/frmDocumentResultList.vb index 6f1c5de7..910cea49 100644 --- a/GUIs.Common/frmDocumentResultList.vb +++ b/GUIs.Common/frmDocumentResultList.vb @@ -54,7 +54,7 @@ Public Class frmDocumentResultList Private ReadOnly Params As DocumentResultList.Params Private WithEvents Watcher As DocumentResultList.Watcher - Private _Documentloader As DocumentResultList.Loader + Private Documentloader As DocumentResultList.Loader ' Runtime variables Private _IsLoading As Boolean = True @@ -122,9 +122,10 @@ Public Class frmDocumentResultList OperationMode = GetOperationMode() If OperationMode = OperationMode.WithAppServer Or OperationMode = OperationMode.ZooFlow Then InitAppServer() + End If - _Documentloader = New DocumentResultList.Loader(LogConfig, OperationMode, _IDBClient, Environment.User) + Documentloader = New DocumentResultList.Loader(LogConfig, OperationMode, _IDBClient, Environment.User) If Params.WindowTitle <> "" Then Text = $"{Text} - {Params.WindowTitle}" @@ -204,7 +205,7 @@ Public Class frmDocumentResultList DocumentViewer1.CloseDocument() - oDocumentInfo = _Documentloader.Load(oObjectId, oFullPath) + oDocumentInfo = Documentloader.Load(oObjectId, oFullPath) ' Check DocumentInfo If IsNothing(oDocumentInfo) Then @@ -237,6 +238,15 @@ Public Class frmDocumentResultList Public Async Sub Watcher_FileChanged(sender As Object, e As DocumentResultList.Watcher.FileChangedArgs) Handles Watcher.FileChanged Try + + Dim oDoctype = Nothing + + If e.File.Document.DocumentType IsNot Nothing Then + oDoctype = _IDBClient.ClientConfig.DocumentTypes. + Where(Function(doctype) doctype.Name = e.File.Document.DocumentType). + FirstOrDefault() + End If + Dim oFileInfo = New FileInfo(e.File.FilePath) Dim oMessage = $"Die Datei '{oFileInfo.Name}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen? 'Nein' überschreibt die ursprüngliche Datei." Dim oResult As DialogResult = MsgBox(oMessage, MsgBoxStyle.YesNoCancel Or MsgBoxStyle.Question, "Datei verändert") @@ -248,7 +258,7 @@ Public Class frmDocumentResultList ' - Cancel: Abort update Select Case oResult Case DialogResult.Cancel - MsgBox("Abbruch!") + ' MsgBox("Abbruch!") Case Else Dim oCreateNewFileVersion = IIf(oResult = DialogResult.Yes, True, False) @@ -482,30 +492,30 @@ Public Class frmDocumentResultList End Try End Sub - Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell - Try - If e.RowHandle < 0 Then - Exit Sub - End If + 'Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell + ' Try + ' If e.RowHandle < 0 Then + ' Exit Sub + ' End If - e.DefaultDraw() + ' e.DefaultDraw() - Dim oView As GridView = TryCast(sender, GridView) - Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo) - Dim oRow As DataRow = oView.GetDataRow(e.RowHandle) - Dim oValue = oRow.Item(COLUMN_FILENAME) + ' Dim oView As GridView = TryCast(sender, GridView) + ' Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo) + ' Dim oRow As DataRow = oView.GetDataRow(e.RowHandle) + ' Dim oValue = oRow.Item(COLUMN_FILENAME) - If e.Column.FieldName = COLUMN_ICON Then - Dim oIcon = Helpers.GetIconByExtension(oValue) - Dim offsetX = 0 - Dim offsetY = 0 + ' If e.Column.FieldName = COLUMN_ICON Then + ' Dim oIcon = Helpers.GetIconByExtension(oValue) + ' Dim offsetX = 0 + ' Dim offsetY = 0 - e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18) - End If - Catch ex As Exception - Logger.Error(ex) - End Try - End Sub + ' e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18) + ' End If + ' Catch ex As Exception + ' Logger.Error(ex) + ' End Try + 'End Sub Private Sub BarButtonItemExportGrid1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportGrid1.ItemClick Dim oActiveGrid = GetActiveGridControl() @@ -862,6 +872,10 @@ Public Class frmDocumentResultList End Try End Sub + Private Sub RibbonControl_Click(sender As Object, e As EventArgs) Handles RibbonControl.Click + + End Sub + diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb index b6bef685..f605bfee 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb @@ -66,11 +66,7 @@ Public Class frmAdmin_ClipboardWatcher Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load InitializeBaseForm(My.LogConfig) - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSDD_Stammdaten.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. - Try - - TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey) diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb index 42de044e..0d566d89 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb @@ -680,78 +680,77 @@ Partial Public Class DBCW_Stammdaten Me.columnGUID.Unique = true Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 - Me.columnCOMMENT.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 - Me.columnREGEX_EXPRESSION.AllowDBNull = false + Me.columnREGEX_EXPRESSION.AllowDBNull = False Me.columnREGEX_EXPRESSION.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnACTIVE.AllowDBNull = false - Me.columnPROFILE_TYPE.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = False + Me.columnPROFILE_TYPE.AllowDBNull = False End Sub - - _ + + Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow - Return CType(Me.NewRow,TBCW_PROFILESRow) + Return CType(Me.NewRow, TBCW_PROFILESRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROFILESRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROFILESRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) 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() @@ -780,35 +779,35 @@ Partial Public Class DBCW_Stammdaten 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -816,51 +815,51 @@ Partial Public Class DBCW_Stammdaten Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBCW_PROF_DOC_SEARCHDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnPROFILE_ID As Global.System.Data.DataColumn - + Private columnCONN_ID As Global.System.Data.DataColumn - + Private columnSQL_COMMAND As Global.System.Data.DataColumn - + Private columnTAB_INDEX As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnTAB_TITLE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_DOC_SEARCH" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -876,149 +875,149 @@ Partial Public Class DBCW_Stammdaten 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 + 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_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property - - _ + + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONN_ID End Get End Property - - _ + + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property - - _ + + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_INDEX End Get End Property - - _ + + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - _ + + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_TITLE End Get End Property - - _ + + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - _ + + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - _ + + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOUNT_COMMAND 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 TBCW_PROF_DOC_SEARCHRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow Get - Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) + Return CType(Me.Rows(index), TBCW_PROF_DOC_SEARCHRow) End Get End Property - - _ + + Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ + + Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ + + Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ + + Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler - - _ + + Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow - Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow, TBCW_PROF_DOC_SEARCHRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) @@ -1027,29 +1026,29 @@ Partial Public Class DBCW_Stammdaten Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) Return rowTBCW_PROF_DOC_SEARCHRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBCW_PROF_DOC_SEARCHRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) - cln.InitVars + Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone, TBCW_PROF_DOC_SEARCHDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_DOC_SEARCHDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") @@ -1064,9 +1063,9 @@ Partial Public Class DBCW_Stammdaten Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1092,89 +1091,89 @@ Partial Public Class DBCW_Stammdaten MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOUNT_COMMAND) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnCONN_ID.AllowDBNull = false - Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnCONN_ID.AllowDBNull = False + Me.columnSQL_COMMAND.AllowDBNull = False Me.columnSQL_COMMAND.MaxLength = 2147483647 - Me.columnTAB_INDEX.AllowDBNull = false - Me.columnACTIVE.AllowDBNull = false - Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_INDEX.AllowDBNull = False + Me.columnACTIVE.AllowDBNull = False + Me.columnTAB_TITLE.AllowDBNull = False Me.columnTAB_TITLE.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.AllowDBNull = False Me.columnCOUNT_COMMAND.MaxLength = 2147483647 End Sub - - _ + + Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow - Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + Return CType(Me.NewRow, TBCW_PROF_DOC_SEARCHRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_DOC_SEARCHRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_DOC_SEARCHRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) 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() @@ -1203,35 +1202,35 @@ Partial Public Class DBCW_Stammdaten 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1239,51 +1238,51 @@ Partial Public Class DBCW_Stammdaten Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBCW_PROF_DATA_SEARCHDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnPROFILE_ID As Global.System.Data.DataColumn - + Private columnCONN_ID As Global.System.Data.DataColumn - + Private columnSQL_COMMAND As Global.System.Data.DataColumn - + Private columnTAB_INDEX As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnTAB_TITLE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_DATA_SEARCH" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1299,149 +1298,149 @@ Partial Public Class DBCW_Stammdaten 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 + 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_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property - - _ + + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONN_ID End Get End Property - - _ + + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property - - _ + + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_INDEX End Get End Property - - _ + + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - _ + + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_TITLE End Get End Property - - _ + + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - _ + + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - _ + + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOUNT_COMMAND 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 TBCW_PROF_DATA_SEARCHRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow Get - Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) + Return CType(Me.Rows(index), TBCW_PROF_DATA_SEARCHRow) End Get End Property - - _ + + Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ + + Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ + + Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ + + Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler - - _ + + Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow - Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow, TBCW_PROF_DATA_SEARCHRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) @@ -1450,29 +1449,29 @@ Partial Public Class DBCW_Stammdaten Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) Return rowTBCW_PROF_DATA_SEARCHRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBCW_PROF_DATA_SEARCHRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) - cln.InitVars + Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone, TBCW_PROF_DATA_SEARCHDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_DATA_SEARCHDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") @@ -1487,9 +1486,9 @@ Partial Public Class DBCW_Stammdaten Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1515,89 +1514,89 @@ Partial Public Class DBCW_Stammdaten MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOUNT_COMMAND) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnCONN_ID.AllowDBNull = false - Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnCONN_ID.AllowDBNull = False + Me.columnSQL_COMMAND.AllowDBNull = False Me.columnSQL_COMMAND.MaxLength = 2147483647 - Me.columnTAB_INDEX.AllowDBNull = false - Me.columnACTIVE.AllowDBNull = false - Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_INDEX.AllowDBNull = False + Me.columnACTIVE.AllowDBNull = False + Me.columnTAB_TITLE.AllowDBNull = False Me.columnTAB_TITLE.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.AllowDBNull = False Me.columnCOUNT_COMMAND.MaxLength = 2147483647 End Sub - - _ + + Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow - Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + Return CType(Me.NewRow, TBCW_PROF_DATA_SEARCHRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_DATA_SEARCHRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_DATA_SEARCHRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then - RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) 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() @@ -1626,35 +1625,35 @@ Partial Public Class DBCW_Stammdaten 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1662,31 +1661,31 @@ Partial Public Class DBCW_Stammdaten Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBLOCAL_SEARCH_POSITIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_SEARCH_POSITIONRow) - + Private columnID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBLOCAL_SEARCH_POSITION" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1702,167 +1701,167 @@ Partial Public Class DBCW_Stammdaten 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME 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 TBLOCAL_SEARCH_POSITIONRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_SEARCH_POSITIONRow Get - Return CType(Me.Rows(index),TBLOCAL_SEARCH_POSITIONRow) + Return CType(Me.Rows(index), TBLOCAL_SEARCH_POSITIONRow) End Get End Property - - _ + + Public Event TBLOCAL_SEARCH_POSITIONRowChanging As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler - - _ + + Public Event TBLOCAL_SEARCH_POSITIONRowChanged As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler - - _ + + Public Event TBLOCAL_SEARCH_POSITIONRowDeleting As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler - - _ + + Public Event TBLOCAL_SEARCH_POSITIONRowDeleted As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler - - _ + + Public Overloads Sub AddTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBLOCAL_SEARCH_POSITIONRow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_SEARCH_POSITIONRow - Dim rowTBLOCAL_SEARCH_POSITIONRow As TBLOCAL_SEARCH_POSITIONRow = CType(Me.NewRow,TBLOCAL_SEARCH_POSITIONRow) + Dim rowTBLOCAL_SEARCH_POSITIONRow As TBLOCAL_SEARCH_POSITIONRow = CType(Me.NewRow, TBLOCAL_SEARCH_POSITIONRow) Dim columnValuesArray() As Object = New Object() {ID, NAME} rowTBLOCAL_SEARCH_POSITIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBLOCAL_SEARCH_POSITIONRow) Return rowTBLOCAL_SEARCH_POSITIONRow End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBLOCAL_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBLOCAL_SEARCH_POSITIONDataTable) - cln.InitVars + Dim cln As TBLOCAL_SEARCH_POSITIONDataTable = CType(MyBase.Clone, TBLOCAL_SEARCH_POSITIONDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_SEARCH_POSITIONDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub - - _ + + Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) End Sub - - _ + + Public Function NewTBLOCAL_SEARCH_POSITIONRow() As TBLOCAL_SEARCH_POSITIONRow - Return CType(Me.NewRow,TBLOCAL_SEARCH_POSITIONRow) + Return CType(Me.NewRow, TBLOCAL_SEARCH_POSITIONRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_SEARCH_POSITIONRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_SEARCH_POSITIONRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanged(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanged(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanging(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanging(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleted(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleted(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleting(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleting(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) 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() @@ -1891,35 +1890,35 @@ Partial Public Class DBCW_Stammdaten 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1927,31 +1926,31 @@ Partial Public Class DBCW_Stammdaten Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBLOCAL_PROFILE_TYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_PROFILE_TYPERow) - + Private columnID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBLOCAL_PROFILE_TYPE" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1967,167 +1966,167 @@ Partial Public Class DBCW_Stammdaten 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 + Me.InitVars() End Sub - - _ + + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property - - _ + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME 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 TBLOCAL_PROFILE_TYPERow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_PROFILE_TYPERow Get - Return CType(Me.Rows(index),TBLOCAL_PROFILE_TYPERow) + Return CType(Me.Rows(index), TBLOCAL_PROFILE_TYPERow) End Get End Property - - _ + + Public Event TBLOCAL_PROFILE_TYPERowChanging As TBLOCAL_PROFILE_TYPERowChangeEventHandler - - _ + + Public Event TBLOCAL_PROFILE_TYPERowChanged As TBLOCAL_PROFILE_TYPERowChangeEventHandler - - _ + + Public Event TBLOCAL_PROFILE_TYPERowDeleting As TBLOCAL_PROFILE_TYPERowChangeEventHandler - - _ + + Public Event TBLOCAL_PROFILE_TYPERowDeleted As TBLOCAL_PROFILE_TYPERowChangeEventHandler - - _ + + Public Overloads Sub AddTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBLOCAL_PROFILE_TYPERow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_PROFILE_TYPERow - Dim rowTBLOCAL_PROFILE_TYPERow As TBLOCAL_PROFILE_TYPERow = CType(Me.NewRow,TBLOCAL_PROFILE_TYPERow) + Dim rowTBLOCAL_PROFILE_TYPERow As TBLOCAL_PROFILE_TYPERow = CType(Me.NewRow, TBLOCAL_PROFILE_TYPERow) Dim columnValuesArray() As Object = New Object() {ID, NAME} rowTBLOCAL_PROFILE_TYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBLOCAL_PROFILE_TYPERow) Return rowTBLOCAL_PROFILE_TYPERow End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBLOCAL_PROFILE_TYPEDataTable = CType(MyBase.Clone,TBLOCAL_PROFILE_TYPEDataTable) - cln.InitVars + Dim cln As TBLOCAL_PROFILE_TYPEDataTable = CType(MyBase.Clone, TBLOCAL_PROFILE_TYPEDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_PROFILE_TYPEDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub - - _ + + Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) End Sub - - _ + + Public Function NewTBLOCAL_PROFILE_TYPERow() As TBLOCAL_PROFILE_TYPERow - Return CType(Me.NewRow,TBLOCAL_PROFILE_TYPERow) + Return CType(Me.NewRow, TBLOCAL_PROFILE_TYPERow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_PROFILE_TYPERow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_PROFILE_TYPERow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowChangedEvent) Is Nothing) Then - RaiseEvent TBLOCAL_PROFILE_TYPERowChanged(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + RaiseEvent TBLOCAL_PROFILE_TYPERowChanged(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowChangingEvent) Is Nothing) Then - RaiseEvent TBLOCAL_PROFILE_TYPERowChanging(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + RaiseEvent TBLOCAL_PROFILE_TYPERowChanging(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletedEvent) Is Nothing) Then - RaiseEvent TBLOCAL_PROFILE_TYPERowDeleted(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + RaiseEvent TBLOCAL_PROFILE_TYPERowDeleted(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletingEvent) Is Nothing) Then - RaiseEvent TBLOCAL_PROFILE_TYPERowDeleting(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + RaiseEvent TBLOCAL_PROFILE_TYPERowDeleting(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) 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() @@ -2156,35 +2155,35 @@ Partial Public Class DBCW_Stammdaten 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 + 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) + 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) _ + + 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 + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2192,976 +2191,992 @@ Partial Public Class DBCW_Stammdaten Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROFILESRow Inherits Global.System.Data.DataRow - + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) + Me.tableTBCW_PROFILES = CType(Me.Table, TBCW_PROFILESDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn), Integer) End Get Set - Me(Me.tableTBCW_PROFILES.GUIDColumn) = value + Me(Me.tableTBCW_PROFILES.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn), String) End Get Set - Me(Me.tableTBCW_PROFILES.NAMEColumn) = value + Me(Me.tableTBCW_PROFILES.NAMEColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Value End Set End Property - - _ + + Public Property REGEX_EXPRESSION() As String Get - Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String) + Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn), String) End Get Set - Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value + Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value + Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property PROFILE_TYPE() As Short Get - Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) + Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn), Short) End Get Set - Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value + Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = Value End Set End Property - - _ + + + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) + End Function + + + Public Sub SetCOMMENTNull() + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHOColumn) End Function - - _ + + Public Sub SetADDED_WHONull() Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function GetTBCW_PROF_DOC_SEARCHRows() As TBCW_PROF_DOC_SEARCHRow() If (Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Is Nothing) Then Return New TBCW_PROF_DOC_SEARCHRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROF_DOC_SEARCHRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")), TBCW_PROF_DOC_SEARCHRow()) End If End Function - - _ + + Public Function GetTBCW_PROF_DATA_SEARCHRows() As TBCW_PROF_DATA_SEARCHRow() If (Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Is Nothing) Then Return New TBCW_PROF_DATA_SEARCHRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROF_DATA_SEARCHRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")), TBCW_PROF_DATA_SEARCHRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROF_DOC_SEARCHRow Inherits Global.System.Data.DataRow - + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable) + Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table, TBCW_PROF_DOC_SEARCHDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn), Integer) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = Value End Set End Property - - _ + + Public Property PROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn), Integer) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = Value End Set End Property - - _ + + Public Property CONN_ID() As Byte Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn), Byte) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = Value End Set End Property - - _ + + Public Property SQL_COMMAND() As String Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn), String) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = Value End Set End Property - - _ + + Public Property TAB_INDEX() As Byte Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn), Byte) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property TAB_TITLE() As String Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn), String) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property COUNT_COMMAND() As String Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn), String) End Get Set - Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value + Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Value End Set End Property - - _ + + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")), TBCW_PROFILESRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) End Set End Property - - _ + + Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) End Function - - _ + + Public Sub SetADDED_WHONull() Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROF_DATA_SEARCHRow Inherits Global.System.Data.DataRow - + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable) + Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table, TBCW_PROF_DATA_SEARCHDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn), Integer) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = Value End Set End Property - - _ + + Public Property PROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn), Integer) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = Value End Set End Property - - _ + + Public Property CONN_ID() As Byte Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn), Byte) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = Value End Set End Property - - _ + + Public Property SQL_COMMAND() As String Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn), String) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = Value End Set End Property - - _ + + Public Property TAB_INDEX() As Byte Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn), Byte) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property TAB_TITLE() As String Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn), String) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) End Try End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property COUNT_COMMAND() As String Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String) + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn), String) End Get Set - Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value + Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = Value End Set End Property - - _ + + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")), TBCW_PROFILESRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) End Set End Property - - _ + + Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) End Function - - _ + + Public Sub SetADDED_WHONull() Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBLOCAL_SEARCH_POSITIONRow Inherits Global.System.Data.DataRow - + Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBLOCAL_SEARCH_POSITION = CType(Me.Table,TBLOCAL_SEARCH_POSITIONDataTable) + Me.tableTBLOCAL_SEARCH_POSITION = CType(Me.Table, TBLOCAL_SEARCH_POSITIONDataTable) End Sub - - _ + + Public Property ID() As String Get - Try - Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn),String) + Try + Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = value + Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = value + Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = Value End Set End Property - - _ + + Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) End Function - - _ + + Public Sub SetIDNull() Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBLOCAL_PROFILE_TYPERow Inherits Global.System.Data.DataRow - + Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBLOCAL_PROFILE_TYPE = CType(Me.Table,TBLOCAL_PROFILE_TYPEDataTable) + Me.tableTBLOCAL_PROFILE_TYPE = CType(Me.Table, TBLOCAL_PROFILE_TYPEDataTable) End Sub - - _ + + Public Property ID() As String Get - Try - Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn),String) + Try + Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = value + Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = value + Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = Value End Set End Property - - _ + + Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) End Function - - _ + + Public Sub SetIDNull() Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) End Function - - _ + + Public Sub SetNAMENull() Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - _ + Public Class TBCW_PROFILESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBCW_PROFILESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBCW_PROFILESRow 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 TBCW_PROF_DOC_SEARCHRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBCW_PROF_DOC_SEARCHRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBCW_PROF_DOC_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBCW_PROF_DOC_SEARCHRow 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 TBCW_PROF_DATA_SEARCHRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBCW_PROF_DATA_SEARCHRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBCW_PROF_DATA_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBCW_PROF_DATA_SEARCHRow 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 TBLOCAL_SEARCH_POSITIONRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBLOCAL_SEARCH_POSITIONRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBLOCAL_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBLOCAL_SEARCH_POSITIONRow 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 TBLOCAL_PROFILE_TYPERowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBLOCAL_PROFILE_TYPERow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBLOCAL_PROFILE_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBLOCAL_PROFILE_TYPERow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -3171,129 +3186,129 @@ Partial Public Class DBCW_Stammdaten End Class Namespace DBCW_StammdatenTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBCW_PROFILESTableAdapter 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 + 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 + 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 + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + 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 + 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 + 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) _ + 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) _ + 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) _ + 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 + 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 + 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() @@ -3312,356 +3327,358 @@ Namespace DBCW_StammdatenTableAdapters 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 [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = "& _ - "@Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] ="& _ - " @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ("& _ - "[ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]"& _ - " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = "& _ - "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@"& _ - "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin"& _ - "al_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Origi"& _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = " & + "@Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] =" & + " @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND (" & + "[ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]" & + " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = " & + "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@" & + "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin" & + "al_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Origi" & "nal_PROFILE_TYPE))" 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, 0, 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("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, 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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, 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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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 [dbo].[TBCW_PROFILES] ([NAME], [COMMENT], [REGEX_EXPRESSION], [ADDED_"& _ - "WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VAL"& _ - "UES (@NAME, @COMMENT, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, "& _ - "@CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, REGEX_EXPRE"& _ - "SSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FR"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBCW_PROFILES] ([NAME], [COMMENT], [REGEX_EXPRESSION], [ADDED_" & + "WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VAL" & + "UES (@NAME, @COMMENT, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, " & + "@CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, REGEX_EXPRE" & + "SSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FR" & "OM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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 [dbo].[TBCW_PROFILES] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [REGEX_EXP"& _ - "RESSION] = @REGEX_EXPRESSION, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WH"& _ - "EN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ACTIVE] = @AC"& _ - "TIVE, [PROFILE_TYPE] = @PROFILE_TYPE WHERE (([GUID] = @Original_GUID) AND ([NAME"& _ - "] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMEN"& _ - "T] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) A"& _ - "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ - "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _ - "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND"& _ - " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or"& _ - "iginal_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @O"& _ - "riginal_PROFILE_TYPE));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBCW_PROFILES] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [REGEX_EXP" & + "RESSION] = @REGEX_EXPRESSION, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WH" & + "EN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ACTIVE] = @AC" & + "TIVE, [PROFILE_TYPE] = @PROFILE_TYPE WHERE (([GUID] = @Original_GUID) AND ([NAME" & + "] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMEN" & + "T] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) A" & + "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W" & + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH" & + "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND" & + " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or" & + "iginal_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @O" & + "riginal_PROFILE_TYPE));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO" & + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES" & " WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString 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 GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & " CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM dbo.TBCW_PROFILES WHERE GUID = @GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable, ByVal GUID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID, Integer) + 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 GetData(ByVal GUID As Integer) As DBCW_Stammdaten.TBCW_PROFILESDataTable + + + Public Overridable Overloads Function GetData(ByVal GUID As Integer) As DBCW_Stammdaten.TBCW_PROFILESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID, Integer) Dim dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable = New DBCW_Stammdaten.TBCW_PROFILESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads 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 + + + Public Overridable Overloads 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_NAME As String, ByVal Original_COMMENT As String, ByVal Original_REGEX_EXPRESSION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_PROFILE_TYPE As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_REGEX_EXPRESSION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_PROFILE_TYPE As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) If (Original_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME, String) End If If (Original_COMMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_COMMENT") + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT, String) End If If (Original_REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_REGEX_EXPRESSION") Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_REGEX_EXPRESSION,String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_REGEX_EXPRESSION, String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + 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_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ACTIVE,Boolean) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_PROFILE_TYPE,Short) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ACTIVE, Boolean) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_PROFILE_TYPE, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As Integer + + + Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) End If If (COMMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMENT") + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) End If If (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX_EXPRESSION, String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ACTIVE,Boolean) - Me.Adapter.InsertCommand.Parameters(8).Value = CType(PROFILE_TYPE,Short) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ACTIVE, Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(PROFILE_TYPE, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal COMMENT As String, _ - ByVal REGEX_EXPRESSION As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal ACTIVE As Boolean, _ - ByVal PROFILE_TYPE As Short, _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_REGEX_EXPRESSION As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_PROFILE_TYPE As Short, _ + + + Public Overridable Overloads Function Update( + ByVal NAME As String, + ByVal COMMENT As String, + ByVal REGEX_EXPRESSION As String, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal ACTIVE As Boolean, + ByVal PROFILE_TYPE As Short, + ByVal Original_GUID As Integer, + ByVal Original_NAME As String, + ByVal Original_COMMENT As String, + ByVal Original_REGEX_EXPRESSION As String, + ByVal Original_ADDED_WHO As String, + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_CHANGED_WHO As String, + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_ACTIVE As Boolean, + ByVal Original_PROFILE_TYPE As Short, ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) End If If (COMMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMENT") + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) End If If (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION, String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PROFILE_TYPE,Short) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ACTIVE, Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PROFILE_TYPE, Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer) If (Original_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_NAME,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_NAME, String) End If If (Original_COMMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_COMMENT") + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_COMMENT,String) diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xsd b/GUIs.ZooFlow/DBCW_Stammdaten.xsd index e6193f64..78e58ec9 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.xsd +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xsd @@ -2,22 +2,23 @@ - + - + + - + DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE)) - - + + @@ -37,7 +38,7 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) - + @@ -62,7 +63,7 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = @GUID) - + @@ -72,8 +73,8 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO - - + + @@ -328,7 +329,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + diff --git a/GUIs.ZooFlow/frmFlowForm.resx b/GUIs.ZooFlow/frmFlowForm.resx index 7329206b..3ffb638a 100644 --- a/GUIs.ZooFlow/frmFlowForm.resx +++ b/GUIs.ZooFlow/frmFlowForm.resx @@ -1972,9 +1972,9 @@ 1079, 17 - 17, 56 + 1228, 17 - 222, 56 + 17, 56 \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 6da0d0a5..03dcb591 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -35,11 +35,11 @@ Public Class frmFlowForm Private ClassWindow As Window Private ProfileFilter As ProfileFilter Private ProfileLoader As ClassProfileLoader - Private Animator As New Animator() With { - .PopupColor = Color.FromArgb(255, 214, 49), - .PopupOpacity = 0.8, - .PopupSize = New Size(100, 30) - } + 'Private Animator As New Animator() With { + ' .PopupColor = Color.FromArgb(255, 214, 49), + ' .PopupOpacity = 0.8, + ' .PopupSize = New Size(100, 30) + '} ' Runtime Flags Private ApplicationLoading As Boolean = True @@ -823,7 +823,7 @@ Public Class frmFlowForm Select Case HotKeyID Case HOTKEY_TRIGGER_WATCHER - Animator.Highlight(Cursor.Position) + 'Animator.Highlight(Cursor.Position) If oState.CurrentClipboardContents = String.Empty Then Logger.Info("Current Clipboard Contents is empty. Exiting.") diff --git a/Modules.EDMIAPI/Client.vb b/Modules.EDMIAPI/Client.vb index 86c2c344..8b51a64b 100644 --- a/Modules.EDMIAPI/Client.vb +++ b/Modules.EDMIAPI/Client.vb @@ -20,7 +20,7 @@ Public Class Client ' Runtime Variables Private ReadOnly ServerAddress As String Private ReadOnly ServerPort As Integer - Private ClientConfig As ConfigClientConfiguration + Private _ClientConfig As GlobalStateClientConfiguration ' Channel Private ReadOnly ChannelFactory As ChannelFactory(Of IEDMIServiceChannel) @@ -32,6 +32,17 @@ Public Class Client ' Public Variables Public CachedTables As New List(Of String) + Public ReadOnly Property ClientConfig As GlobalStateClientConfiguration + Get + If _ClientConfig Is Nothing Then + Throw New ApplicationException("ClientConfig is empty! Please connect to the service before accessing this property") + End If + + Return _ClientConfig + End Get + End Property + + ''' ''' Parse a IPAddress:Port String into its parts @@ -127,7 +138,7 @@ Public Class Client Dim oResponse = Channel.GetClientConfig() If oResponse.OK Then - ClientConfig = oResponse.ClientConfig + _ClientConfig = oResponse.ClientConfig Else Logger.Warn("Client Configuration could not be loaded: [{0}]", oResponse.ErrorMessage) End If @@ -141,6 +152,7 @@ Public Class Client End Try End Function + ''' ''' Aborts the channel and creates a new connection ''' @@ -156,14 +168,6 @@ Public Class Client End Try End Sub - Public Function TryGetClientConfig() As ConfigClientConfiguration - If ClientConfig Is Nothing Then - Throw New ApplicationException("ClientConfig is empty! Please connect to the service before calling this function") - End If - - Return ClientConfig - End Function - Private Async Function UpdateTimer_Elapsed(sender As Object, e As Timers.ElapsedEventArgs) As Task Handles UpdateTimer.Elapsed Try Dim oTables As String() = Await Channel.GetCachedTablesAsync() @@ -234,7 +238,7 @@ Public Class Client End Try End Function - Public Async Function GetFileObjectAsync(pObjectId As Long, pLoadFileContents As Boolean) As Task(Of FileObject) + Public Async Function ZooFlow_GetFileObjectAsync(pObjectId As Long, pLoadFileContents As Boolean) As Task(Of FileObject) Try Dim oGetFileObject As New Modules.Zooflow.GetFileObject(LogConfig, Me) Dim oFileObject = Await oGetFileObject.RunAsync(pObjectId, pLoadFileContents) diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.Base.GetClientConfig.xsd b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.Base.GetClientConfig.xsd index 9f121f27..c3b34d10 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.Base.GetClientConfig.xsd +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.Base.GetClientConfig.xsd @@ -6,7 +6,7 @@ - + diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService1.xsd b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService1.xsd index 95430386..f6058ff7 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService1.xsd +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService1.xsd @@ -1,9 +1,23 @@  - + + - + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb index 6544a971..4533aa09 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb @@ -145,7 +145,9 @@ Namespace EDMIServiceReference System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(System.Exception)), _ - System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ConfigClientConfiguration)), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateClientConfiguration)), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateDoctype())), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateDoctype)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(String())), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseFault)), _ @@ -245,7 +247,9 @@ Namespace EDMIServiceReference System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(System.Exception)), _ - System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ConfigClientConfiguration)), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateClientConfiguration)), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateDoctype())), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateDoctype)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(String())), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseFault)), _ @@ -410,7 +414,9 @@ Namespace EDMIServiceReference System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(System.Exception)), _ - System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ConfigClientConfiguration)), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateClientConfiguration)), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateDoctype())), _ + System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GlobalStateDoctype)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(String())), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault)), _ System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseFault)), _ @@ -538,10 +544,10 @@ Namespace EDMIServiceReference Inherits EDMIServiceReference.BaseResponse _ - Private ClientConfigField As EDMIServiceReference.ConfigClientConfiguration + Private ClientConfigField As EDMIServiceReference.GlobalStateClientConfiguration _ - Public Property ClientConfig() As EDMIServiceReference.ConfigClientConfiguration + Public Property ClientConfig() As EDMIServiceReference.GlobalStateClientConfiguration Get Return Me.ClientConfigField End Get @@ -556,15 +562,18 @@ Namespace EDMIServiceReference _ - Partial Public Class ConfigClientConfiguration + Partial Public Class GlobalStateClientConfiguration Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + _ + Private DocumentTypesField() As EDMIServiceReference.GlobalStateDoctype + _ Private ForceDirectDatabaseAccessField As Boolean @@ -578,6 +587,19 @@ Namespace EDMIServiceReference End Set End Property + _ + Public Property DocumentTypes() As EDMIServiceReference.GlobalStateDoctype() + Get + Return Me.DocumentTypesField + End Get + Set + If (Object.ReferenceEquals(Me.DocumentTypesField, value) <> true) Then + Me.DocumentTypesField = value + Me.RaisePropertyChanged("DocumentTypes") + End If + End Set + End Property + _ Public Property ForceDirectDatabaseAccess() As Boolean Get @@ -601,6 +623,69 @@ Namespace EDMIServiceReference End Sub End Class + _ + Partial Public Class GlobalStateDoctype + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private FileChangedActionField As String + + _ + Private NameField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property FileChangedAction() As String + Get + Return Me.FileChangedActionField + End Get + Set + If (Object.ReferenceEquals(Me.FileChangedActionField, value) <> true) Then + Me.FileChangedActionField = value + Me.RaisePropertyChanged("FileChangedAction") + End If + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me.NameField + End Get + Set + If (Object.ReferenceEquals(Me.NameField, value) <> true) Then + Me.NameField = value + Me.RaisePropertyChanged("Name") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + diff --git a/Service.EDMIService/GlobalState.vb b/Service.EDMIService/GlobalState.vb index 51baa413..be2b2404 100644 --- a/Service.EDMIService/GlobalState.vb +++ b/Service.EDMIService/GlobalState.vb @@ -1,4 +1,5 @@ Imports System.Data.SqlClient +Imports System.Runtime.Serialization Imports DigitalData.Modules.Database Imports DigitalData.Modules.Language Imports DigitalData.Modules.Logging @@ -11,7 +12,9 @@ Public Class GlobalState Public Property ObjectStores As New List(Of ObjectStore) Public Property Connections As New List(Of DatabaseConnection) - Public Property ClientConfig As New Config.ClientConfiguration + Public Property Doctypes As New List(Of Doctype) + + Public Property ClientConfig As New ClientConfiguration Public Property TableStore As New DataSet @@ -62,18 +65,45 @@ Public Class GlobalState Return MSSQLServer.DecryptConnectionString(oBuilder.ToString) End Function + Public Sub LoadDoctypes() + _Logger.Info("Loading Doctypes") + + Try + Dim oSQL As String = "SELECT * FROM VWIDB_DOCTYPE_HANDLING" + Dim oTable As DataTable = _MSSQL_IDB.GetDatatable(oSQL) + + _Logger.Info("Found [{0}] Document Types", oTable.Rows.Count) + + Dim oDocTypes As New List(Of Doctype) + + For Each oRow As DataRow In oTable.Rows + Dim oDoctype As New Doctype With { + .Name = oRow.Item("DOCTYPE"), + .FileChangedAction = oRow.Item("CHANGED_HANDLING") + } + + _Logger.Info("New Doctype [{0}]", oDoctype.Name) + oDocTypes.Add(oDoctype) + Next + + Doctypes = oDocTypes + Catch ex As Exception + _Logger.Error(ex) + End Try + End Sub + Public Sub LoadObjectStores() _Logger.Info("Loading Object Stores") Try Dim oSQL As String = "SELECT * FROM VWIDB_OBJECTSTORE" - Dim oDatatable As DataTable = _MSSQL_IDB.GetDatatable(oSQL) + Dim oTable As DataTable = _MSSQL_IDB.GetDatatable(oSQL) - ObjectStores.Clear() + _Logger.Info("Found [{0}] Object Stores", oTable.Rows.Count) - _Logger.Info("Found [{0}] Object Stores", oDatatable.Rows.Count) + Dim oObjectStores As New List(Of ObjectStore) - For Each oRow As DataRow In oDatatable.Rows + For Each oRow As DataRow In oTable.Rows Dim oStore As New ObjectStore() With { .Id = oRow.Item("OST_ID"), .IsArchive = oRow.Item("OS_IS_ARCHIVE"), @@ -81,8 +111,10 @@ Public Class GlobalState .Title = oRow.Item("OS_TITLE") } _Logger.Info("New Object Store [{0}]", oStore.Title) - ObjectStores.Add(oStore) + oObjectStores.Add(oStore) Next + + ObjectStores = oObjectStores Catch ex As Exception _Logger.Error(ex) End Try @@ -92,13 +124,13 @@ Public Class GlobalState _Logger.Info("Loading Database Connections") Try Dim oSQL As String = "SELECT * FROM TBDD_CONNECTION" - Dim oDatatable As DataTable = _MSSQL_ECM.GetDatatable(oSQL) + Dim oTable As DataTable = _MSSQL_ECM.GetDatatable(oSQL) - Connections.Clear() + _Logger.Info("Found [{0}] Connections", oTable.Rows.Count) - _Logger.Info("Found [{0}] Connections", oDatatable.Rows.Count) + Dim oConnections As New List(Of DatabaseConnection) - For Each oRow As DataRow In oDatatable.Rows + For Each oRow As DataRow In oTable.Rows Dim oConnection As New DatabaseConnection() With { .Id = oRow.ItemEx(Of Integer)("GUID"), .Active = oRow.ItemEx(Of Boolean)("AKTIV"), @@ -110,21 +142,30 @@ Public Class GlobalState .Username = oRow.ItemEx(Of String)("USERNAME") } _Logger.Info("New Connection [{0}]", oConnection.Title) - Connections.Add(oConnection) + oConnections.Add(oConnection) Next + + Connections = oConnections Catch ex As Exception _Logger.Error(ex) End Try End Sub - Class ObjectStore + Public Sub LoadClientConfig(pConfig As Config) + _Logger.Info("Loading Client Config") + _Logger.Debug("ForceDirectDatabaseAccess: {0}", pConfig.ClientConfig.ForceDirectDatabaseAccess) + ClientConfig.ForceDirectDatabaseAccess = pConfig.ClientConfig.ForceDirectDatabaseAccess + ClientConfig.DocumentTypes = Doctypes + End Sub + + Public Class ObjectStore Public Id As Long Public Title As String Public IsArchive As Boolean Public Path As String End Class - Class DatabaseConnection + Public Class DatabaseConnection Public Id As Long Public Title As String Public Provider As String @@ -134,4 +175,19 @@ Public Class GlobalState Public Password As String Public Active As Boolean End Class + + + Public Class ClientConfiguration + Public Property ForceDirectDatabaseAccess As Boolean = False + Public Property DocumentTypes As New List(Of Doctype) + End Class + + + Public Class Doctype + + Public Property Name As String + + Public Property FileChangedAction As String + End Class + End Class diff --git a/Service.EDMIService/Methods/Base/GetClientConfig/GetClientConfigResponse.vb b/Service.EDMIService/Methods/Base/GetClientConfig/GetClientConfigResponse.vb index 6ad1ad2b..f7284484 100644 --- a/Service.EDMIService/Methods/Base/GetClientConfig/GetClientConfigResponse.vb +++ b/Service.EDMIService/Methods/Base/GetClientConfig/GetClientConfigResponse.vb @@ -4,13 +4,14 @@ Namespace Methods.Base.GetClientConfig + Public Class GetClientConfigResponse Inherits Messages.BaseResponse - Public Property ClientConfig As Config.ClientConfiguration + Public Property ClientConfig As GlobalState.ClientConfiguration - Public Sub New(pConfig As Config.ClientConfiguration) + Public Sub New(pConfig As GlobalState.ClientConfiguration) MyBase.New() ClientConfig = pConfig End Sub diff --git a/Service.EDMIService/WindowsService.vb b/Service.EDMIService/WindowsService.vb index b87b31d0..3f5ba419 100644 --- a/Service.EDMIService/WindowsService.vb +++ b/Service.EDMIService/WindowsService.vb @@ -34,7 +34,7 @@ Public Class WindowsService Run(New WindowsService()) End Sub - Protected Overrides Sub OnStart(ByVal args As String()) + Protected Overrides Sub OnStart(args As String()) Try ' Init Dim oServicePath As String = AppDomain.CurrentDomain.BaseDirectory @@ -65,11 +65,11 @@ Public Class WindowsService LogConfig.Debug = ConfigManager.Config.Debug LogConfigScheduler.Debug = ConfigManager.Config.Debug - Logger.Debug("Connecting to Databases") - + Logger.Info("Connecting to Databases..") Firebird = StartFirebird() MSSQL_ECM = GetMSSQL_ECM(LogConfig) MSSQL_IDB = GetMSSQL_IDB(LogConfig) + Logger.Info("Connection to Databases established!") Logger.Debug("Initializing EDMI Functions") Archive = New EDMI.File.Archive(LogConfig) @@ -79,18 +79,16 @@ Public Class WindowsService Dim oMSSQLServer = GetMSSQL_ECM(LogConfigScheduler) Scheduler = New Scheduler(LogConfigScheduler, oMSSQLServer, GlobalState.TableStore) - Logger.Debug("Loading Global Data") + Logger.Info("Loading Global Data") GlobalState.LoadObjectStores() GlobalState.LoadConnections() + GlobalState.LoadDoctypes() + GlobalState.LoadClientConfig(Config) - Logger.Debug("Loading Client Config") - Logger.Debug("ForceDirectDatabaseAccess: {0}", Config.ClientConfig.ForceDirectDatabaseAccess) - GlobalState.ClientConfig = Config.ClientConfig - - Logger.Debug("Starting Scheduler") + Logger.Info("Starting Scheduler") Scheduler.Start() - Logger.Debug("Preparing WCF ServiceHost") + Logger.Info("Preparing WCF ServiceHost") EDMIService.MSSQL_ECM = MSSQL_ECM EDMIService.MSSQL_IDB = MSSQL_IDB EDMIService.Firebird = Firebird @@ -101,7 +99,7 @@ Public Class WindowsService EDMIService.GlobalState = GlobalState EDMIService.Scheduler = Scheduler - Logger.Debug("Starting WCF ServiceHost") + Logger.Info("Starting WCF ServiceHost") Dim oBaseAddresses() As Uri = {New Uri(SERVICE_BASE_ADDRESS)} ServiceHost = New ServiceHost(Of EDMIService)(oBaseAddresses) @@ -116,10 +114,11 @@ Public Class WindowsService Logger.Debug("Contract: {0}", oEndpoint.Contract.Name) Next + Logger.Debug("Starting WFC ServiceHost..") ServiceHost.Open() + Logger.Debug("WCF ServiceHost started!") - Logger.Info("WCF ServiceHost started") - Logger.Info("Service {0} successfully started", SERVICE_DISPLAY_NAME) + Logger.Info("Service {0} successfully started!", SERVICE_DISPLAY_NAME) Catch ex As Exception Logger.Warn("Unexpected Error while starting the service: {0}", ex.Message) Logger.Error(ex)