prepare release and fix marvman's bugs

This commit is contained in:
Developer02 Digital Data
2019-10-15 16:16:50 +02:00
parent 341c719777
commit 80029dcb99
13 changed files with 653 additions and 123 deletions

View File

@@ -11,4 +11,8 @@
Public Const PROFILE_TYPE_DATA_DOCS As Integer = 0
Public Const PROFILE_TYPE_DOCS_ONLY As Integer = 1
Public Const PROFILE_TYPE_DATA_ONLY As Integer = 2
Public Const SEARCH_POSITION_PRIMARY As Integer = 0
Public Const SEARCH_POSITION_SECONDARY As Integer = 1
Public Const SEARCH_POSITION_TERTIARY As Integer = 2
End Class

View File

@@ -187,8 +187,8 @@ Public Class ClassInit
' pageAdmin.Visible = True
End If
WD_UNICODE = Database.NewExecuteScalar("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
GDPICTURE_LICENSE = Database.NewExecuteScalar("SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION WHERE GUID = 1")
WD_UNICODE = Database.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
GDPICTURE_LICENSE = Database.GetScalarValue("SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION WHERE GUID = 1")
Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then

View File

@@ -4,7 +4,7 @@ Public Class ClassLicense
Private Shared Sub Get_License(CLIENT_ID As Integer)
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
lic_string = Database.NewExecuteScalar(sql)
lic_string = Database.GetScalarValue(sql)
End Sub
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
Try

View File

@@ -53,6 +53,8 @@ Partial Public Class MyDataset
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation
Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation
@@ -132,6 +134,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
End If
If (Not (ds.Tables("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@@ -289,6 +294,16 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_SEARCH_POSITION() As TBWH_SEARCH_POSITIONDataTable
Get
Return Me.tableTBWH_SEARCH_POSITION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
@@ -398,6 +413,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
End If
If (Not (ds.Tables("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@@ -514,6 +532,12 @@ Partial Public Class MyDataset
Me.tableTBWH_PROFILE_TYPE.InitVars
End If
End If
Me.tableTBWH_SEARCH_POSITION = CType(MyBase.Tables("TBWH_SEARCH_POSITION"),TBWH_SEARCH_POSITIONDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_SEARCH_POSITION) Is Nothing) Then
Me.tableTBWH_SEARCH_POSITION.InitVars
End If
End If
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")
Me.relationFK_WINDOW_ID = Me.Relations("FK_WINDOW_ID")
@@ -556,6 +580,8 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBWH_GROUP)
Me.tableTBWH_PROFILE_TYPE = New TBWH_PROFILE_TYPEDataTable()
MyBase.Tables.Add(Me.tableTBWH_PROFILE_TYPE)
Me.tableTBWH_SEARCH_POSITION = New TBWH_SEARCH_POSITIONDataTable()
MyBase.Tables.Add(Me.tableTBWH_SEARCH_POSITION)
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF)
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false)
@@ -650,6 +676,12 @@ Partial Public Class MyDataset
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBWH_SEARCH_POSITION() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@@ -750,6 +782,9 @@ Partial Public Class MyDataset
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBWH_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SEARCH_POSITIONRowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
@@ -5817,6 +5852,271 @@ Partial Public Class MyDataset
End Function
End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBWH_SEARCH_POSITIONDataTable
Inherits Global.System.Data.TypedTableBase(Of TBWH_SEARCH_POSITIONRow)
Private columnPOSITION_INDEX As Global.System.Data.DataColumn
Private columnPOSITION_NAME As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_SEARCH_POSITION"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property POSITION_INDEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPOSITION_INDEX
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property POSITION_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPOSITION_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SEARCH_POSITIONRow
Get
Return CType(Me.Rows(index),TBWH_SEARCH_POSITIONRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowChanging As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowChanged As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowDeleting As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowDeleted As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBWH_SEARCH_POSITIONRow(ByVal POSITION_INDEX As String, ByVal POSITION_NAME As String) As TBWH_SEARCH_POSITIONRow
Dim rowTBWH_SEARCH_POSITIONRow As TBWH_SEARCH_POSITIONRow = CType(Me.NewRow,TBWH_SEARCH_POSITIONRow)
Dim columnValuesArray() As Object = New Object() {POSITION_INDEX, POSITION_NAME}
rowTBWH_SEARCH_POSITIONRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBWH_SEARCH_POSITIONRow)
Return rowTBWH_SEARCH_POSITIONRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBWH_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBWH_SEARCH_POSITIONDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_SEARCH_POSITIONDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars()
Me.columnPOSITION_INDEX = MyBase.Columns("POSITION_INDEX")
Me.columnPOSITION_NAME = MyBase.Columns("POSITION_NAME")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
Me.columnPOSITION_INDEX = New Global.System.Data.DataColumn("POSITION_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPOSITION_INDEX)
Me.columnPOSITION_NAME = New Global.System.Data.DataColumn("POSITION_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPOSITION_NAME)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBWH_SEARCH_POSITIONRow() As TBWH_SEARCH_POSITIONRow
Return CType(Me.NewRow,TBWH_SEARCH_POSITIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_SEARCH_POSITIONRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_SEARCH_POSITIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowChanged(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowChanging(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowDeleted(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowDeleting(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As MyDataset = New MyDataset()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBWH_SEARCH_POSITIONDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
@@ -8013,6 +8313,76 @@ Partial Public Class MyDataset
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_SEARCH_POSITIONRow
Inherits Global.System.Data.DataRow
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_SEARCH_POSITION = CType(Me.Table,TBWH_SEARCH_POSITIONDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property POSITION_INDEX() As String
Get
Try
Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_INDEX in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property POSITION_NAME() As String
Get
Try
Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_NAME in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPOSITION_INDEXNull() As Boolean
Return Me.IsNull(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPOSITION_INDEXNull()
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPOSITION_NAMENull() As Boolean
Return Me.IsNull(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPOSITION_NAMENull()
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Row event argument class
'''</summary>
@@ -8516,6 +8886,42 @@ Partial Public Class MyDataset
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBWH_SEARCH_POSITIONRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_SEARCH_POSITIONRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBWH_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBWH_SEARCH_POSITIONRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace MyDatasetTableAdapters

View File

@@ -826,7 +826,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
<xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBCW_PROFILES" msprop:Generator_TableClassName="TBCW_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILES" msprop:Generator_RowChangedName="TBCW_PROFILESRowChanged" msprop:Generator_TablePropName="TBCW_PROFILES" msprop:Generator_RowDeletingName="TBCW_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILESRowDeleted" msprop:Generator_RowClassName="TBCW_PROFILESRow" msprop:Generator_UserTableName="TBCW_PROFILES" msprop:Generator_RowEvArgName="TBCW_PROFILESRowChangeEvent">
<xs:element name="TBCW_PROFILES" msprop:Generator_TableClassName="TBCW_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILES" msprop:Generator_TablePropName="TBCW_PROFILES" msprop:Generator_RowDeletingName="TBCW_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILESRowDeleted" msprop:Generator_UserTableName="TBCW_PROFILES" msprop:Generator_RowChangedName="TBCW_PROFILESRowChanged" msprop:Generator_RowEvArgName="TBCW_PROFILESRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROFILESRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -872,7 +872,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_USER_PROFILE" msprop:Generator_TableClassName="TBCW_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_USER_PROFILE" msprop:Generator_RowChangedName="TBCW_USER_PROFILERowChanged" msprop:Generator_TablePropName="TBCW_USER_PROFILE" msprop:Generator_RowDeletingName="TBCW_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_USER_PROFILERowDeleted" msprop:Generator_RowClassName="TBCW_USER_PROFILERow" msprop:Generator_UserTableName="TBCW_USER_PROFILE" msprop:Generator_RowEvArgName="TBCW_USER_PROFILERowChangeEvent">
<xs:element name="TBCW_USER_PROFILE" msprop:Generator_TableClassName="TBCW_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_USER_PROFILE" msprop:Generator_TablePropName="TBCW_USER_PROFILE" msprop:Generator_RowDeletingName="TBCW_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_USER_PROFILERowDeleted" msprop:Generator_UserTableName="TBCW_USER_PROFILE" msprop:Generator_RowChangedName="TBCW_USER_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCW_USER_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCW_USER_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -889,7 +889,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWUSER_PROFILERow">
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_RowClassName="VWUSER_PROFILERow" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -918,7 +918,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_RowClassName="TBWH_UserRow" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent">
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent" msprop:Generator_RowClassName="TBWH_UserRow">
<xs:complexType>
<xs:sequence>
<xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
@@ -929,7 +929,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCW_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILE_PROCESS" msprop:Generator_TablePropName="TBCW_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCW_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILE_PROCESSRowDeleted" msprop:Generator_UserTableName="TBCW_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCW_PROFILE_PROCESSRowChanged" msprop:Generator_RowEvArgName="TBCW_PROFILE_PROCESSRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROFILE_PROCESSRow">
<xs:element name="TBCW_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCW_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCW_PROFILE_PROCESSRowChanged" msprop:Generator_TablePropName="TBCW_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCW_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILE_PROCESSRowDeleted" msprop:Generator_RowClassName="TBCW_PROFILE_PROCESSRow" msprop:Generator_UserTableName="TBCW_PROFILE_PROCESS" msprop:Generator_RowEvArgName="TBCW_PROFILE_PROCESSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -952,7 +952,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_DATA_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DATA_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DATA_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DATA_SEARCHRowChanged" msprop:Generator_TablePropName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DATA_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DATA_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DATA_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DATA_SEARCHRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_DATA_SEARCHRow" msprop:Generator_UserTableName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowEvArgName="TBCW_PROF_DATA_SEARCHRowChangeEvent">
<xs:element name="TBCW_PROF_DATA_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DATA_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DATA_SEARCH" msprop:Generator_TablePropName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DATA_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DATA_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DATA_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DATA_SEARCHRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DATA_SEARCHRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_DATA_SEARCHRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_DATA_SEARCHRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1000,7 +1000,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_DOC_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DOC_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DOC_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DOC_SEARCHRowChanged" msprop:Generator_TablePropName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DOC_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DOC_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DOC_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DOC_SEARCHRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_DOC_SEARCHRow" msprop:Generator_UserTableName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowEvArgName="TBCW_PROF_DOC_SEARCHRowChangeEvent">
<xs:element name="TBCW_PROF_DOC_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DOC_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DOC_SEARCH" msprop:Generator_TablePropName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DOC_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DOC_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DOC_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DOC_SEARCHRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DOC_SEARCHRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_DOC_SEARCHRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_DOC_SEARCHRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1048,7 +1048,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_GROUP_PROFILE" msprop:Generator_TableClassName="TBCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_GROUP_PROFILE" msprop:Generator_RowChangedName="TBCW_GROUP_PROFILERowChanged" msprop:Generator_TablePropName="TBCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="TBCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_GROUP_PROFILERowDeleted" msprop:Generator_RowClassName="TBCW_GROUP_PROFILERow" msprop:Generator_UserTableName="TBCW_GROUP_PROFILE" msprop:Generator_RowEvArgName="TBCW_GROUP_PROFILERowChangeEvent">
<xs:element name="TBCW_GROUP_PROFILE" msprop:Generator_TableClassName="TBCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_GROUP_PROFILE" msprop:Generator_TablePropName="TBCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="TBCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_GROUP_PROFILERowDeleted" msprop:Generator_UserTableName="TBCW_GROUP_PROFILE" msprop:Generator_RowChangedName="TBCW_GROUP_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCW_GROUP_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCW_GROUP_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1065,7 +1065,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_GROUP" msprop:Generator_TableClassName="TBWH_GROUPDataTable" msprop:Generator_TableVarName="tableTBWH_GROUP" msprop:Generator_RowChangedName="TBWH_GROUPRowChanged" msprop:Generator_TablePropName="TBWH_GROUP" msprop:Generator_RowDeletingName="TBWH_GROUPRowDeleting" msprop:Generator_RowChangingName="TBWH_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBWH_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_GROUPRowDeleted" msprop:Generator_RowClassName="TBWH_GROUPRow" msprop:Generator_UserTableName="TBWH_GROUP" msprop:Generator_RowEvArgName="TBWH_GROUPRowChangeEvent">
<xs:element name="TBWH_GROUP" msprop:Generator_TableClassName="TBWH_GROUPDataTable" msprop:Generator_TableVarName="tableTBWH_GROUP" msprop:Generator_TablePropName="TBWH_GROUP" msprop:Generator_RowDeletingName="TBWH_GROUPRowDeleting" msprop:Generator_RowChangingName="TBWH_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBWH_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_GROUPRowDeleted" msprop:Generator_UserTableName="TBWH_GROUP" msprop:Generator_RowChangedName="TBWH_GROUPRowChanged" msprop:Generator_RowEvArgName="TBWH_GROUPRowChangeEvent" msprop:Generator_RowClassName="TBWH_GROUPRow">
<xs:complexType>
<xs:sequence>
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:string" minOccurs="0" />
@@ -1073,7 +1073,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWCW_GROUP_PROFILE" msprop:Generator_TableClassName="VWCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableVWCW_GROUP_PROFILE" msprop:Generator_RowChangedName="VWCW_GROUP_PROFILERowChanged" msprop:Generator_TablePropName="VWCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="VWCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="VWCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWCW_GROUP_PROFILERowDeleted" msprop:Generator_RowClassName="VWCW_GROUP_PROFILERow" msprop:Generator_UserTableName="VWCW_GROUP_PROFILE" msprop:Generator_RowEvArgName="VWCW_GROUP_PROFILERowChangeEvent">
<xs:element name="VWCW_GROUP_PROFILE" msprop:Generator_TableClassName="VWCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableVWCW_GROUP_PROFILE" msprop:Generator_TablePropName="VWCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="VWCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="VWCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWCW_GROUP_PROFILERowDeleted" msprop:Generator_UserTableName="VWCW_GROUP_PROFILE" msprop:Generator_RowChangedName="VWCW_GROUP_PROFILERowChanged" msprop:Generator_RowEvArgName="VWCW_GROUP_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWCW_GROUP_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1087,7 +1087,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_PROFILE_TYPE" msprop:Generator_TableClassName="TBWH_PROFILE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_PROFILE_TYPE" msprop:Generator_TablePropName="TBWH_PROFILE_TYPE" msprop:Generator_RowDeletingName="TBWH_PROFILE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_PROFILE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_PROFILE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_PROFILE_TYPERowDeleted" msprop:Generator_UserTableName="TBWH_PROFILE_TYPE" msprop:Generator_RowChangedName="TBWH_PROFILE_TYPERowChanged" msprop:Generator_RowEvArgName="TBWH_PROFILE_TYPERowChangeEvent" msprop:Generator_RowClassName="TBWH_PROFILE_TYPERow">
<xs:element name="TBWH_PROFILE_TYPE" msprop:Generator_TableClassName="TBWH_PROFILE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_PROFILE_TYPE" msprop:Generator_RowChangedName="TBWH_PROFILE_TYPERowChanged" msprop:Generator_TablePropName="TBWH_PROFILE_TYPE" msprop:Generator_RowDeletingName="TBWH_PROFILE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_PROFILE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_PROFILE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_PROFILE_TYPERowDeleted" msprop:Generator_RowClassName="TBWH_PROFILE_TYPERow" msprop:Generator_UserTableName="TBWH_PROFILE_TYPE" msprop:Generator_RowEvArgName="TBWH_PROFILE_TYPERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_UserColumnName="TYPE_ID" type="xs:short" default="0" />
@@ -1095,7 +1095,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_REL_WINDOW" msprop:Generator_TableClassName="TBCW_PROF_REL_WINDOWDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_WINDOW" msprop:Generator_TablePropName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowDeletingName="TBCW_PROF_REL_WINDOWRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_WINDOWRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_WINDOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_WINDOWRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowChangedName="TBCW_PROF_REL_WINDOWRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_REL_WINDOWRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_REL_WINDOWRow">
<xs:element name="TBCW_PROF_REL_WINDOW" msprop:Generator_TableClassName="TBCW_PROF_REL_WINDOWDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_WINDOW" msprop:Generator_RowChangedName="TBCW_PROF_REL_WINDOWRowChanged" msprop:Generator_TablePropName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowDeletingName="TBCW_PROF_REL_WINDOWRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_WINDOWRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_WINDOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_WINDOWRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_REL_WINDOWRow" msprop:Generator_UserTableName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowEvArgName="TBCW_PROF_REL_WINDOWRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1134,7 +1134,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -1207,7 +1207,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_REL_CONTROL" msprop:Generator_TableClassName="TBCW_PROF_REL_CONTROLDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_CONTROL" msprop:Generator_RowChangedName="TBCW_PROF_REL_CONTROLRowChanged" msprop:Generator_TablePropName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowDeletingName="TBCW_PROF_REL_CONTROLRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_CONTROLRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_CONTROLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_CONTROLRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_REL_CONTROLRow" msprop:Generator_UserTableName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowEvArgName="TBCW_PROF_REL_CONTROLRowChangeEvent">
<xs:element name="TBCW_PROF_REL_CONTROL" msprop:Generator_TableClassName="TBCW_PROF_REL_CONTROLDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_CONTROL" msprop:Generator_TablePropName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowDeletingName="TBCW_PROF_REL_CONTROLRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_CONTROLRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_CONTROLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_CONTROLRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowChangedName="TBCW_PROF_REL_CONTROLRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_REL_CONTROLRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_REL_CONTROLRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1262,6 +1262,14 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_SEARCH_POSITION" msprop:Generator_TableClassName="TBWH_SEARCH_POSITIONDataTable" msprop:Generator_TableVarName="tableTBWH_SEARCH_POSITION" msprop:Generator_TablePropName="TBWH_SEARCH_POSITION" msprop:Generator_RowDeletingName="TBWH_SEARCH_POSITIONRowDeleting" msprop:Generator_RowChangingName="TBWH_SEARCH_POSITIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_SEARCH_POSITIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_SEARCH_POSITIONRowDeleted" msprop:Generator_UserTableName="TBWH_SEARCH_POSITION" msprop:Generator_RowChangedName="TBWH_SEARCH_POSITIONRowChanged" msprop:Generator_RowEvArgName="TBWH_SEARCH_POSITIONRowChangeEvent" msprop:Generator_RowClassName="TBWH_SEARCH_POSITIONRow">
<xs:complexType>
<xs:sequence>
<xs:element name="POSITION_INDEX" msprop:Generator_ColumnVarNameInTable="columnPOSITION_INDEX" msprop:Generator_ColumnPropNameInRow="POSITION_INDEX" msprop:Generator_ColumnPropNameInTable="POSITION_INDEXColumn" msprop:Generator_UserColumnName="POSITION_INDEX" type="xs:string" minOccurs="0" />
<xs:element name="POSITION_NAME" msprop:Generator_ColumnVarNameInTable="columnPOSITION_NAME" msprop:Generator_ColumnPropNameInRow="POSITION_NAME" msprop:Generator_ColumnPropNameInTable="POSITION_NAMEColumn" msprop:Generator_UserColumnName="POSITION_NAME" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -1311,10 +1319,10 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_WINDOW_ID" msdata:parent="TBCW_PROF_REL_WINDOW" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="WINDOW_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_WINDOW_ID" msprop:Generator_ParentPropName="TBCW_PROF_REL_WINDOWRow" msprop:Generator_RelationVarName="relationFK_WINDOW_ID" msprop:Generator_UserParentTable="TBCW_PROF_REL_WINDOW" />
<msdata:Relationship name="FK_PROCESS_ID" msdata:parent="TBCW_PROFILE_PROCESS" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROCESS_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_PROCESS_ID" msprop:Generator_ParentPropName="TBCW_PROFILE_PROCESSRow" msprop:Generator_RelationVarName="relationFK_PROCESS_ID" msprop:Generator_UserParentTable="TBCW_PROFILE_PROCESS" />
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_WINDOW_ID" msdata:parent="TBCW_PROF_REL_WINDOW" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="WINDOW_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_WINDOW_ID" msprop:Generator_RelationVarName="relationFK_WINDOW_ID" msprop:Generator_UserParentTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ParentPropName="TBCW_PROF_REL_WINDOWRow" />
<msdata:Relationship name="FK_PROCESS_ID" msdata:parent="TBCW_PROFILE_PROCESS" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROCESS_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_PROCESS_ID" msprop:Generator_RelationVarName="relationFK_PROCESS_ID" msprop:Generator_UserParentTable="TBCW_PROFILE_PROCESS" msprop:Generator_ParentPropName="TBCW_PROFILE_PROCESSRow" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

View File

@@ -4,25 +4,26 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="301" ViewPortY="-45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="18" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="7" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="17" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="15" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="14" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="12" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="5" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="9" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="4" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="6" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="1" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_User" ZOrder="16" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="10" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="8" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="19" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="8" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="18" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="16" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="15" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="13" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="6" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="10" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="5" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="7" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_User" ZOrder="17" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="11" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="9" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_SEARCH_POSITION" ZOrder="1" X="990" Y="605" Height="67" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="13" LineWidth="11">
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="14" LineWidth="11">
<RoutePoints>
<Point>
<X>254</X>
@@ -34,7 +35,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="11" LineWidth="11">
<Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="12" LineWidth="11">
<RoutePoints>
<Point>
<X>254</X>
@@ -46,7 +47,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="3" LineWidth="11">
<Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="4" LineWidth="11">
<RoutePoints>
<Point>
<X>310</X>
@@ -58,7 +59,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_PROCESS_ID" ZOrder="2" LineWidth="11">
<Connector ID="DesignRelation:FK_PROCESS_ID" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>165</X>

View File

@@ -4,6 +4,7 @@ Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Controls.RegexEditor
Imports DigitalData.Modules.Windows.Window
Public Class ctrlApplicationAssignment
Public AppSelectionString As String
@@ -164,6 +165,8 @@ Public Class ctrlApplicationAssignment
TBCW_PROF_REL_WINDOWTableAdapter.Update(MyDataset.TBCW_PROF_REL_WINDOW)
Return True
End If
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
@@ -219,9 +222,50 @@ Public Class ctrlApplicationAssignment
End Function
Public Function Control_EditAssignment() As Boolean
Dim oForm As New frmControlCapture(EditMode:=True)
Dim oHandles As List(Of Integer) = GridView_Control.
GetSelectedRows().
ToList()
If oHandles.Count <> 1 Then
Return False
End If
Dim oHandle As Integer = oHandles.FirstOrDefault()
Dim oRow = GridView_Control.GetDataRow(oHandle)
Dim oControlName As String = oRow.Item("CONTROL_NAME")
Dim oTopLeft As New RectangleInfo() With {
.Top = oRow.Item("TOPLEFT_TOP"),
.Left = oRow.Item("TOPLEFT_LEFT"),
.Right = oRow.Item("TOPLEFT_RIGHT"),
.Bottom = oRow.Item("TOPLEFT_BOTTOM")
}
Dim oTopRight As New RectangleInfo() With {
.Top = oRow.Item("TOPRIGHT_TOP"),
.Left = oRow.Item("TOPRIGHT_LEFT"),
.Right = oRow.Item("TOPRIGHT_RIGHT"),
.Bottom = oRow.Item("TOPRIGHT_BOTTOM")
}
Dim oBottomLeft As New RectangleInfo() With {
.Top = oRow.Item("BOTTOMLEFT_TOP"),
.Left = oRow.Item("BOTTOMLEFT_LEFT"),
.Right = oRow.Item("BOTTOMLEFT_RIGHT"),
.Bottom = oRow.Item("BOTTOMLEFT_BOTTOM")
}
Dim oBottomRight As New RectangleInfo() With {
.Top = oRow.Item("BOTTOMRIGHT_TOP"),
.Left = oRow.Item("BOTTOMRIGHT_LEFT"),
.Right = oRow.Item("BOTTOMRIGHT_RIGHT"),
.Bottom = oRow.Item("BOTTOMRIGHT_BOTTOM")
}
Dim oBounds As String = frmControlCapture.GetBoundsString(oTopLeft, oTopRight, oBottomLeft, oBottomRight)
Dim oForm As New frmControlCapture(EditMode:=True, ControlBounds:=oBounds, ControlName:=oControlName)
Dim oResult = oForm.ShowDialog()
Dim oControlId As Integer() = GridView_Control.GetSelectedRows()
If oResult = DialogResult.OK Then
Try
@@ -296,6 +340,9 @@ Public Class ctrlApplicationAssignment
End Function
Private Sub GridViewProcessProfile_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProcessProfile.FocusedRowChanged
MyDataset.TBCW_PROF_REL_CONTROL.Clear()
MyDataset.TBCW_PROF_REL_WINDOW.Clear()
If e.FocusedRowHandle < 0 Then
Exit Sub
End If
@@ -306,8 +353,6 @@ Public Class ctrlApplicationAssignment
AppSelectionString = $"Selected Profile: {oPRocessGUID}-{oProcessName}"
CURRENT_PROCESSID = oPRocessGUID
CURRENT_PROCESSNAME = oProcessName
MyDataset.TBCW_PROF_REL_CONTROL.Clear()
MyDataset.TBCW_PROF_REL_WINDOW.Clear()
If Window_Load() = False Then
MsgBox($"Error while loading windows for process {oProcessName}", vbCritical, "")

View File

@@ -78,6 +78,7 @@ Partial Class frmAdministration
Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
Me.labelSelection = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonGroup_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroup_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -120,7 +121,8 @@ Partial Class frmAdministration
Me.MemoEdit5 = New DevExpress.XtraEditors.MemoEdit()
Me.MemoEdit6 = New DevExpress.XtraEditors.MemoEdit()
Me.txtDOC_GUID = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit19 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TextEdit19 = New DevExpress.XtraEditors.LookUpEdit()
Me.TBWHSEARCHPOSITIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -149,7 +151,7 @@ Partial Class frmAdministration
Me.MemoEdit3 = New DevExpress.XtraEditors.MemoEdit()
Me.MemoEdit4 = New DevExpress.XtraEditors.MemoEdit()
Me.txtDATAGUID = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit10 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TextEdit10 = New DevExpress.XtraEditors.LookUpEdit()
Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -211,7 +213,6 @@ Partial Class frmAdministration
Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -265,6 +266,7 @@ Partial Class frmAdministration
CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit19.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWHSEARCHPOSITIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -537,6 +539,7 @@ Partial Class frmAdministration
Me.RibbonControl2.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl2.Size = New System.Drawing.Size(1365, 146)
Me.RibbonControl2.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl2.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden
'
'ApplicationMenu1
'
@@ -764,6 +767,14 @@ Partial Class frmAdministration
Me.labelSelection.Id = 12
Me.labelSelection.Name = "labelSelection"
'
'BarButtonItem27
'
Me.BarButtonItem27.Caption = "Zuordnung bearbeiten"
Me.BarButtonItem27.Id = 13
Me.BarButtonItem27.ImageOptions.Image = CType(resources.GetObject("BarButtonItem27.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem27.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem27.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem27.Name = "BarButtonItem27"
'
'RibbonPage2
'
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_Profile, Me.RibbonGroup_DocSearch, Me.RibbonGroup_DataSearch, Me.RibbonGroup_Process, Me.RibbonGroup_Window, Me.RibbonGroup_Control, Me.RibbonGroup_User, Me.RibbonGroup_Group})
@@ -1208,11 +1219,22 @@ Partial Class frmAdministration
Me.TextEdit19.Name = "TextEdit19"
Me.TextEdit19.Properties.AutoHeight = False
Me.TextEdit19.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.TextEdit19.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"})
Me.TextEdit19.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("POSITION_NAME", "Position", 93, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])})
Me.TextEdit19.Properties.DataSource = Me.TBWHSEARCHPOSITIONBindingSource
Me.TextEdit19.Properties.DisplayMember = "POSITION_NAME"
Me.TextEdit19.Properties.NullText = ""
Me.TextEdit19.Properties.PopupSizeable = False
Me.TextEdit19.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard
Me.TextEdit19.Properties.ValueMember = "POSITION_INDEX"
Me.TextEdit19.Size = New System.Drawing.Size(200, 20)
Me.TextEdit19.StyleController = Me.LayoutControlDocs
Me.TextEdit19.TabIndex = 10
'
'TBWHSEARCHPOSITIONBindingSource
'
Me.TBWHSEARCHPOSITIONBindingSource.DataMember = "TBWH_SEARCH_POSITION"
Me.TBWHSEARCHPOSITIONBindingSource.DataSource = Me.MyDataset
'
'LayoutControlGroup2
'
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -1534,7 +1556,13 @@ Partial Class frmAdministration
Me.TextEdit10.Name = "TextEdit10"
Me.TextEdit10.Properties.AutoHeight = False
Me.TextEdit10.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.TextEdit10.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"})
Me.TextEdit10.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("POSITION_NAME", "Position", 93, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])})
Me.TextEdit10.Properties.DataSource = Me.TBWHSEARCHPOSITIONBindingSource
Me.TextEdit10.Properties.DisplayMember = "POSITION_NAME"
Me.TextEdit10.Properties.NullText = ""
Me.TextEdit10.Properties.PopupSizeable = False
Me.TextEdit10.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard
Me.TextEdit10.Properties.ValueMember = "POSITION_INDEX"
Me.TextEdit10.Size = New System.Drawing.Size(200, 20)
Me.TextEdit10.StyleController = Me.LayoutControlData
Me.TextEdit10.TabIndex = 10
@@ -2137,14 +2165,6 @@ Partial Class frmAdministration
Me.SimpleSeparator1.Name = "SimpleSeparator1"
Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2)
'
'BarButtonItem27
'
Me.BarButtonItem27.Caption = "Zuordnung bearbeiten"
Me.BarButtonItem27.Id = 13
Me.BarButtonItem27.ImageOptions.Image = CType(resources.GetObject("BarButtonItem27.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem27.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem27.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem27.Name = "BarButtonItem27"
'
'frmAdministration
'
Me.Appearance.Options.UseFont = True
@@ -2214,6 +2234,7 @@ Partial Class frmAdministration
CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit19.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWHSEARCHPOSITIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2470,8 +2491,6 @@ Partial Class frmAdministration
Friend WithEvents LayoutControlItem34 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents EmptySpaceItem3 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents TextEdit19 As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents TextEdit10 As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonGroup_Control As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
@@ -2479,4 +2498,7 @@ Partial Class frmAdministration
Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents labelSelection As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents TextEdit19 As DevExpress.XtraEditors.LookUpEdit
Friend WithEvents TBWHSEARCHPOSITIONBindingSource As BindingSource
Friend WithEvents TextEdit10 As DevExpress.XtraEditors.LookUpEdit
End Class

View File

@@ -750,24 +750,23 @@
</data>
<data name="BarButtonItem27.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAIHRFWHRUaXRsZQBFZGl0O0Jh
cnM7UmliYm9uO1N0YW5kYXJkOzATw9sAAACMSURBVDhPrZJLDoAgDAW5E+fwUoY15+Euxq17ty6srbFY
GsJPXzLBpLxBDQYAPhEfnHNQ4HxWK8tEIiiF5t77VUu6BJhDS7oEEkyfQOYXATIuoAwLlm2HaQ6M7RJw
WUqaBepkwjYLMmWm/gmlMlL/ibQ59/o4MrimAg2FS0ISr3Ei0KDghgVcptJLMBcAmyZSCH4lCAAAAABJ
RU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAgdEVYdFRpdGxlAEVkaXQ7QmFycztSaWJib247U3Rh
bmRhcmQ7MBPD2wAAAIxJREFUOE+tkksOgCAMBbkT5/BShjXn4S7GrXu3LqytsVgawk9fMsGkvEENBgA+
ER+cc1DgfFYry0QiKIXm3vtVS7oEmENLugQSTJ9A5hcBMi6gDAuWbYdpDoztEnBZSpoF6mTCNgsyZab+
CaUyUv+JtDn3+jgyuKYCDYVLQhKvcSLQoOCGBVym0kswFwCbJlIIfiUIAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem27.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAIHRFWHRUaXRsZQBFZGl0O0Jh
cnM7UmliYm9uO1N0YW5kYXJkOzATw9sAAAEmSURBVFhH7ZJBDoIwEEW5E7cw8VKGLUfgHt7FsDJh71YX
9X9kkraM0DZt2TDJCzAw859IY4w5FLVZE7VZE7VZE7VJuq4zkTzBBXB2hZZB1CbBEA7hxef7vv8Mw3DB
pb/LubZRmyRFYBxHVaKaAEuTqCrA8iWqC7AWiTclDhFgiQTurT5MQW2SFIENJjyi5qhNwsFctexSc9Qm
OQVOgZwCrOvt3gIe5XzOWQULOQUe00uCbVrcKi9ghdtvYAZVVkD55Y4EqpzAn9dORKLcX7ARLpT7CEPD
CR7PKxATTjCSTyAlnDihNjECseEEYzNOqA0F9mClhBPJcUJTwDIJ8YOlvwonMu8sSwHL7LCgcCLzzrIU
sMwP3Q0nMu8sSwHLbIGgcPKbN80XNOGDvft2XdIAAAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAgdEVYdFRpdGxlAEVkaXQ7QmFycztSaWJib247U3Rh
bmRhcmQ7MBPD2wAAASZJREFUWEftkkEOgjAQRbkTtzDxUoYtR+Ae3sWwMmHvVhf1f2SStozQNm3ZMMkL
MDDzn0hjjDkUtVkTtVkTtVkTtUm6rjORPMEFcHaFlkHUJsEQDuHF5/u+/wzDcMGlv8u5tlGbJEVgHEdV
opoAS5OoKsDyJaoLsBaJNyUOEWCJBO6tPkxBbZIUgQ0mPKLmqE3CwVy17FJz1CY5BU6BnAKs6+3eAh7l
fM5ZBQs5BR7TS4JtWtwqL2CF229gBlVWQPnljgSqnMCf105EotxfsBEulPsIQ8MJHs8rEBNOMJJPICWc
OKE2MQKx4QRjM06oDQX2YKWEE8lxQlPAMgnxg6W/Cicy7yxLAcvssKBwIvPOshSwzA/dDScy7yxLActs
gaBw8ps3zRc04YO9+3Zd0gAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -786,6 +785,9 @@
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="TBWHSEARCHPOSITIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 134</value>
</metadata>
<data name="TabPageDocuments.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m

View File

@@ -11,12 +11,17 @@ Public Class frmAdministration
Public Overrides Function ToString() As String
Return Name
Return Name
End Function
End Class
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0
Load_Profiles()
Load_ProfileTypes()
Load_SearchPositions()
Load_Connections()
End Sub
@@ -34,6 +39,22 @@ Public Class frmAdministration
End Try
End Sub
Sub Load_SearchPositions()
Dim oTypeNames As New Dictionary(Of Integer, String) From {
{ClassConstants.SEARCH_POSITION_PRIMARY, "Haupttabelle"},
{ClassConstants.SEARCH_POSITION_SECONDARY, "Erste Detailtablle"},
{ClassConstants.SEARCH_POSITION_TERTIARY, "Zweite Detailtablle"}
}
MyDataset.TBWH_SEARCH_POSITION.Rows.Clear()
For Each oTypeName As KeyValuePair(Of Integer, String) In oTypeNames
Dim oRow = MyDataset.TBWH_SEARCH_POSITION.NewTBWH_SEARCH_POSITIONRow()
oRow.POSITION_INDEX = oTypeName.Key
oRow.POSITION_NAME = oTypeName.Value
MyDataset.TBWH_SEARCH_POSITION.Rows.Add(oRow)
Next
End Sub
Sub Load_ProfileTypes()
Dim oTypeNames As New Dictionary(Of Integer, String) From {
{ClassConstants.PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten"},
@@ -267,6 +288,7 @@ Public Class frmAdministration
End Sub
Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
@@ -697,4 +719,8 @@ Public Class frmAdministration
MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
End If
End Sub
Private Sub GridViewProfiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfiles.FocusedRowChanged
End Sub
End Class

View File

@@ -31,11 +31,11 @@ Partial Class frmControlCapture
Me.rbControlName = New System.Windows.Forms.RadioButton()
Me.rbControlPosition = New System.Windows.Forms.RadioButton()
Me.gbControlName = New System.Windows.Forms.GroupBox()
Me.gbControlPosition = New System.Windows.Forms.GroupBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.txtControlName = New System.Windows.Forms.TextBox()
Me.gbControlPosition = New System.Windows.Forms.GroupBox()
Me.txtControlBounds = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.gbControlName.SuspendLayout()
Me.gbControlPosition.SuspendLayout()
Me.SuspendLayout()
@@ -109,7 +109,7 @@ Partial Class frmControlCapture
Me.gbControlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlName.Controls.Add(Me.Label2)
Me.gbControlName.Controls.Add(Me.TextBox1)
Me.gbControlName.Controls.Add(Me.txtControlName)
Me.gbControlName.Location = New System.Drawing.Point(140, 12)
Me.gbControlName.Name = "gbControlName"
Me.gbControlName.Size = New System.Drawing.Size(255, 100)
@@ -117,34 +117,6 @@ Partial Class frmControlCapture
Me.gbControlName.TabStop = False
Me.gbControlName.Text = "Control Name"
'
'gbControlPosition
'
Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlPosition.Controls.Add(Me.TextBox2)
Me.gbControlPosition.Controls.Add(Me.Label1)
Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
Me.gbControlPosition.Name = "gbControlPosition"
Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
Me.gbControlPosition.TabIndex = 15
Me.gbControlPosition.TabStop = False
Me.gbControlPosition.Text = "Control Position"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(6, 20)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(243, 21)
Me.TextBox1.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(6, 100)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(243, 34)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(6, 49)
@@ -153,13 +125,41 @@ Partial Class frmControlCapture
Me.Label2.TabIndex = 0
Me.Label2.Text = "Markieren Sie Text in einem Feld und Kopieren Sie Text"
'
'TextBox2
'txtControlName
'
Me.TextBox2.Location = New System.Drawing.Point(9, 20)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(240, 77)
Me.TextBox2.TabIndex = 1
Me.txtControlName.Location = New System.Drawing.Point(6, 20)
Me.txtControlName.Name = "txtControlName"
Me.txtControlName.Size = New System.Drawing.Size(243, 21)
Me.txtControlName.TabIndex = 0
'
'gbControlPosition
'
Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlPosition.Controls.Add(Me.txtControlBounds)
Me.gbControlPosition.Controls.Add(Me.Label1)
Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
Me.gbControlPosition.Name = "gbControlPosition"
Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
Me.gbControlPosition.TabIndex = 15
Me.gbControlPosition.TabStop = False
Me.gbControlPosition.Text = "Control Position"
'
'txtControlBounds
'
Me.txtControlBounds.Location = New System.Drawing.Point(9, 20)
Me.txtControlBounds.Multiline = True
Me.txtControlBounds.Name = "txtControlBounds"
Me.txtControlBounds.Size = New System.Drawing.Size(240, 77)
Me.txtControlBounds.TabIndex = 1
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(6, 100)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(243, 34)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
'
'frmControlCapture
'
@@ -176,6 +176,7 @@ Partial Class frmControlCapture
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmControlCapture"
Me.ShowIcon = False
Me.Text = "Feld Auswertung"
Me.TopMost = True
Me.gbControlName.ResumeLayout(False)
@@ -193,9 +194,9 @@ Partial Class frmControlCapture
Friend WithEvents rbControlName As RadioButton
Friend WithEvents rbControlPosition As RadioButton
Friend WithEvents gbControlName As GroupBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents txtControlName As TextBox
Friend WithEvents gbControlPosition As GroupBox
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents TextBox2 As TextBox
Friend WithEvents txtControlBounds As TextBox
End Class

View File

@@ -8,18 +8,22 @@ Public Class frmControlCapture
Public Property BottomRight As RectangleInfo
Public Property ControlName As String
Public Property ControlBounds As String
Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
Private Window As Window
Private EditMode As Boolean = False
Public Sub New(EditMode As Boolean)
Public Sub New(EditMode As Boolean, Optional ControlBounds As String = "", Optional ControlName As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
EditMode = EditMode
Me.EditMode = EditMode
Me.ControlName = ControlName
Me.ControlBounds = ControlBounds
End Sub
Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -27,6 +31,16 @@ Public Class frmControlCapture
rbControlName.Checked = True
If ControlName <> String.Empty Then
rbControlName.Checked = True
txtControlName.Text = ControlName
End If
If ControlBounds <> String.Empty Then
rbControlPosition.Checked = True
txtControlBounds.Text = ControlBounds
End If
AddHandler Watcher.Changed, AddressOf Watcher_Changed
End Sub
@@ -36,7 +50,7 @@ Public Class frmControlCapture
Dim oControl As WindowInfo = Window.GetFocusedControl(Handle)
If oControl IsNot Nothing Then
TextBox1.Text = oControl.ControlName
txtControlName.Text = oControl.ControlName
ControlName = oControl.ControlName
End If
@@ -67,11 +81,11 @@ Public Class frmControlCapture
End If
End Select
TextBox2.Text = GetBoundsString()
txtControlBounds.Text = GetBoundsString(TopLeft, TopRight, BottomLeft, BottomRight)
Next
End Sub
Private Function GetBoundsString()
Public Shared Function GetBoundsString(TopLeft As RectangleInfo, TopRight As RectangleInfo, BottomLeft As RectangleInfo, BottomRight As RectangleInfo)
Dim oResult As String = String.Empty
If TopLeft IsNot Nothing Then
@@ -90,6 +104,7 @@ Public Class frmControlCapture
Return oResult
End Function
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlName.CheckedChanged
gbControlName.Enabled = rbControlName.Checked
gbControlPosition.Enabled = Not rbControlName.Checked
@@ -101,14 +116,14 @@ Public Class frmControlCapture
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = String.Empty And TextBox2.Text = String.Empty Then
If txtControlName.Text = String.Empty And txtControlBounds.Text = String.Empty Then
MsgBox("Kein Control gefunden!")
DialogResult = DialogResult.Cancel
End If
If rbControlPosition.Checked Then
ControlName = String.Empty
Else
ElseIf rbControlName.Checked Then
TopLeft = New RectangleInfo()
TopRight = New RectangleInfo()
BottomLeft = New RectangleInfo()

View File

@@ -201,7 +201,7 @@ Public Class frmStart
End If
oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultData += Database.NewExecuteScalar(oCountCommand)
oResultData += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
oInvalidDataSQL = True
@@ -218,7 +218,7 @@ Public Class frmStart
End If
oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultDocs += Database.NewExecuteScalar(oCountCommand)
oResultDocs += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
oInvalidDocumentSQL = True