AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2017-02-02 17:13:17 +01:00
parent 6c1d38e67f
commit 20da19c9b0
31 changed files with 6850 additions and 4819 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
app/DD-Record-Organiser/ClassInit.vb
View File

@ -134,9 +134,10 @@ Public Class ClassInit
'Me.Close() 'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
MsgBox(msg, MsgBoxStyle.Exclamation) MsgBox(msg, MsgBoxStyle.Exclamation)
ClassHelper.InsertEssential_Log(0, "USER-ID", String.Format("User '{0}' not listed in Userconfiguration", USER_USERNAME))
Return False Return False
Else Else
Dim Right_RO As Boolean = False
USER_GUID = USER_DT.Rows(0).Item("GUID") USER_GUID = USER_DT.Rows(0).Item("GUID")
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM") USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
USER_WAN = USER_DT.Rows(0).Item("WAN_ENVIRONMENT") 'ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False) USER_WAN = USER_DT.Rows(0).Item("WAN_ENVIRONMENT") 'ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
@ -144,23 +145,17 @@ Public Class ClassInit
clsCURRENT.USER_LANGUAGE = USER_LANGUAGE clsCURRENT.USER_LANGUAGE = USER_LANGUAGE
USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT") USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER") USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER")
'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False) sql = String.Format("SELECT COUNT(T.GUID) FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND T1.NAME = 'Record-Organizer' AND T.USER_ID = {0}", USER_GUID)
DT_CLIENT_USER = ClassDatabase.Return_Datatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, False) Dim USER2MODULE = clsDatabase.Execute_Scalar(sql)
If DT_CLIENT_USER.Rows.Count > 1 Then If Not IsNothing(USER2MODULE) Then
frmClientLogin.ShowDialog() If USER2MODULE = 1 Then
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then Right_RO = True
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
End If
If CLIENT_SELECTED = 99 Then
Dim msg = String.Format("Die Mandantenanmeldung war nicht möglich." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The client-login was not possible." & vbNewLine & "Please contact the admin.")
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) Else
Return False Right_RO = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
End If End If
Dim Right_RO As Boolean = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
If Right_RO = False Then If Right_RO = False Then
ClassLogger.Add(" - User: " & USER_USERNAME & " nicht für Modul freigegben!", False) ClassLogger.Add(" - User: " & USER_USERNAME & " nicht für Modul freigegben!", False)
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
@ -170,20 +165,38 @@ Public Class ClassInit
msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.") msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) MsgBox(msg, MsgBoxStyle.Exclamation)
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", "User not authorized for using Record-Organizer!")
Return False Return False
'Me.Close() 'Me.Close()
Else Else
'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
DT_CLIENT_USER = ClassDatabase.Return_Datatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, False)
If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
End If
If CLIENT_SELECTED = 99 Then
Dim msg = String.Format("Die Mandantenanmeldung war nicht möglich." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The client-login was not possible." & vbNewLine & "Please contact the admin.")
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
End If
'Am System anmelden 'Am System anmelden
ClassLicence.Refresh_Licence(CLIENT_SELECTED) ClassLicence.Refresh_Licence(CLIENT_SELECTED)
'Am System anmelden 'Am System anmelden
sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID) sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID)
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
End If End If
sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT) VALUES ({0},{1},'RECORD_ORGANIZER','{2}')", USER_GUID, CLIENT_SELECTED, My.Application.Info.Version.ToString) sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Record-Organizer','{2}','{3}')", USER_GUID, CLIENT_SELECTED, My.Application.Info.Version.ToString, Environment.MachineName)
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
USER_IS_ADMIN = USER_DT.Rows(0).Item("RECORD_ADMIN") USER_IS_ADMIN = USER_DT.Rows(0).Item("RECORD_ADMIN")
@ -200,9 +213,10 @@ Public Class ClassInit
End If End If
If clsWindream.Create_Session = False Then If clsWindream.Create_Session = False Then
ClassLogger.Add("Could not create the login for windream!") ClassLogger.Add("Could not create the login for windream!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session") ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", "Could not create a windream-session for user!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "ADDI will start anyway but be aware that searching and importing won't be possible!")
End If End If
sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('RECORD_ORGANIZER') AND CLIENT_ID = {0}", CLIENT_SELECTED) sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
Dim anzahl = ClassDatabase.Execute_Scalar(sql, False) Dim anzahl = ClassDatabase.Execute_Scalar(sql, False)
USERS_LOGGED_IN = CInt(anzahl) USERS_LOGGED_IN = CInt(anzahl)
If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False)
@ -219,7 +233,7 @@ Public Class ClassInit
ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False) ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen 'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
ClassLogger.Add(" - logged out the user", False) ClassLogger.Add(" - logged out the user", False)
Return False Return False

18
app/DD-Record-Organiser/ClassLogger.vb
View File

@ -9,7 +9,7 @@ Public Class ClassLogger
' eine Art Konstruktor ' eine Art Konstruktor
Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True) Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
' initialisiert den Speicherort ' initialisiert den Speicherort
ClassLogger.SetSpeicherort(speicherort) ClassLogger.SetSpeicherort()
' wenn ein Prfix gesetzt wurde ' wenn ein Prfix gesetzt wurde
If Not prefix = "" Then If Not prefix = "" Then
' initialisiert das Prefix ' initialisiert das Prefix
@ -38,18 +38,12 @@ Public Class ClassLogger
End Sub End Sub
' legt den Speicherort fest ' legt den Speicherort fest
Public Shared Sub SetSpeicherort(ByVal speicherort As String) Public Shared Sub SetSpeicherort()
Dim f As String = Application.UserAppDataPath() & "\Log" Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\RecordOrganizer\Log"))
If IO.Directory.Exists(f.ToString) = False Then
If speicherort = "" Then IO.Directory.CreateDirectory(f.ToString)
If IO.Directory.Exists(f) = False Then
IO.Directory.CreateDirectory(f)
End If
ClassLogger.DateiSpeicherort = f
Else
ClassLogger.DateiSpeicherort = speicherort
End If End If
ClassLogger.DateiSpeicherort = f.ToString
End Sub End Sub
' legt das Prefix für den Dateinamen fest ' legt das Prefix für den Dateinamen fest

6
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -8,7 +8,7 @@
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<StartupObject>DD_Record_Organiser.My.MyApplication</StartupObject> <StartupObject>DD_Record_Organiser.My.MyApplication</StartupObject>
<RootNamespace>DD_Record_Organiser</RootNamespace> <RootNamespace>DD_Record_Organiser</RootNamespace>
<AssemblyName>DD-Record-Organiser</AssemblyName> <AssemblyName>DD-Record-Organizer</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
@ -36,7 +36,7 @@
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DD-Record-Organiser.xml</DocumentationFile> <DocumentationFile>DD-Record-Organizer.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@ -46,7 +46,7 @@
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<Optimize>true</Optimize> <Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DD-Record-Organiser.xml</DocumentationFile> <DocumentationFile>DD-Record-Organizer.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>

192
app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014 ' Laufzeitversion:4.0.30319.36366
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -16,12 +16,12 @@ Option Explicit On
'''<summary> '''<summary>
'''Represents a strongly typed in-memory cache of data. '''Represents a strongly typed in-memory cache of data.
'''</summary> '''</summary>
<Global.System.Serializable(), _ <Global.System.Serializable(), _
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _ Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _ Global.System.ComponentModel.ToolboxItem(True), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
Global.System.Xml.Serialization.XmlRootAttribute("DD_DMSDataSetCalendar"), _ Global.System.Xml.Serialization.XmlRootAttribute("DD_DMSDataSetCalendar"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
Partial Public Class DD_DMSDataSetCalendar Partial Public Class DD_DMSDataSetCalendar
Inherits Global.System.Data.DataSet Inherits Global.System.Data.DataSet
@ -31,30 +31,30 @@ Partial Public Class DD_DMSDataSetCalendar
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New() Public Sub New()
MyBase.New MyBase.New()
Me.BeginInit Me.BeginInit()
Me.InitClass Me.InitClass()
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit Me.EndInit()
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false) MyBase.New(info, context, False)
If (Me.IsBinarySerialized(info, context) = true) Then If (Me.IsBinarySerialized(info, context) = True) Then
Me.InitVars(false) Me.InitVars(False)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return Return
End If End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
@ -70,8 +70,8 @@ Partial Public Class DD_DMSDataSetCalendar
Me.Locale = ds.Locale Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars Me.InitVars()
Else Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If End If
@ -81,91 +81,91 @@ Partial Public Class DD_DMSDataSetCalendar
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.Browsable(False), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable
Get Get
Return Me.tableTBPMO_APPOINTMENTS Return Me.tableTBPMO_APPOINTMENTS
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.Browsable(False), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_RESOURCES() As TBPMO_RESOURCESDataTable Public ReadOnly Property TBPMO_RESOURCES() As TBPMO_RESOURCESDataTable
Get Get
Return Me.tableTBPMO_RESOURCES Return Me.tableTBPMO_RESOURCES
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _ Global.System.ComponentModel.BrowsableAttribute(True), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get Get
Return Me._schemaSerializationMode Return Me._schemaSerializationMode
End Get End Get
Set Set(value As Global.System.Data.SchemaSerializationMode)
Me._schemaSerializationMode = value Me._schemaSerializationMode = value
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get Get
Return MyBase.Tables Return MyBase.Tables
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get Get
Return MyBase.Relations Return MyBase.Relations
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet() Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit Me.BeginInit()
Me.InitClass Me.InitClass()
Me.EndInit Me.EndInit()
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataSet Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As DD_DMSDataSetCalendar = CType(MyBase.Clone,DD_DMSDataSetCalendar) Dim cln As DD_DMSDataSetCalendar = CType(MyBase.Clone, DD_DMSDataSetCalendar)
cln.InitVars cln.InitVars()
cln.SchemaSerializationMode = Me.SchemaSerializationMode cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln Return cln
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean Protected Overrides Function ShouldSerializeTables() As Boolean
Return false Return False
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false Return False
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset Me.Reset()
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader) ds.ReadXml(reader)
If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then
@ -180,16 +180,16 @@ Partial Public Class DD_DMSDataSetCalendar
Me.Locale = ds.Locale Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars Me.InitVars()
Else Else
Me.ReadXml(reader) Me.ReadXml(reader)
Me.InitVars Me.InitVars()
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@ -197,36 +197,36 @@ Partial Public Class DD_DMSDataSetCalendar
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Overloads Sub InitVars() Friend Overloads Sub InitVars()
Me.InitVars(true) Me.InitVars(True)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean) Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"),TBPMO_APPOINTMENTSDataTable) Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"), TBPMO_APPOINTMENTSDataTable)
If (initTable = true) Then If (initTable = True) Then
If (Not (Me.tableTBPMO_APPOINTMENTS) Is Nothing) Then If (Not (Me.tableTBPMO_APPOINTMENTS) Is Nothing) Then
Me.tableTBPMO_APPOINTMENTS.InitVars Me.tableTBPMO_APPOINTMENTS.InitVars()
End If End If
End If End If
Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"),TBPMO_RESOURCESDataTable) Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"), TBPMO_RESOURCESDataTable)
If (initTable = true) Then If (initTable = True) Then
If (Not (Me.tableTBPMO_RESOURCES) Is Nothing) Then If (Not (Me.tableTBPMO_RESOURCES) Is Nothing) Then
Me.tableTBPMO_RESOURCES.InitVars Me.tableTBPMO_RESOURCES.InitVars()
End If End If
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub InitClass() Private Sub InitClass()
Me.DataSetName = "DD_DMSDataSetCalendar" Me.DataSetName = "DD_DMSDataSetCalendar"
Me.Prefix = "" Me.Prefix = ""
Me.Namespace = "http://tempuri.org/DD_DMSDataSetCalendar.xsd" Me.Namespace = "http://tempuri.org/DD_DMSDataSetCalendar.xsd"
Me.EnforceConstraints = true Me.EnforceConstraints = True
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable() Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable()
MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS) MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS)
@ -234,28 +234,28 @@ Partial Public Class DD_DMSDataSetCalendar
MyBase.Tables.Add(Me.tableTBPMO_RESOURCES) MyBase.Tables.Add(Me.tableTBPMO_RESOURCES)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean
Return false Return False
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Function ShouldSerializeTBPMO_RESOURCES() As Boolean Private Function ShouldSerializeTBPMO_RESOURCES() As Boolean
Return false Return False
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars Me.InitVars()
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As DD_DMSDataSetCalendar = New DD_DMSDataSetCalendar() Dim ds As DD_DMSDataSetCalendar = New DD_DMSDataSetCalendar()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@ -273,14 +273,14 @@ Partial Public Class DD_DMSDataSetCalendar
dsSchema.Write(s1) dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext 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) s2.SetLength(0)
schema.Write(s2) schema.Write(s2)
If (s1.Length = s2.Length) Then If (s1.Length = s2.Length) Then
s1.Position = 0 s1.Position = 0
s2.Position = 0 s2.Position = 0
Do While ((s1.Position <> s1.Length) _ Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte)) AndAlso (s1.ReadByte = s2.ReadByte))
@ -293,10 +293,10 @@ Partial Public Class DD_DMSDataSetCalendar
Loop Loop
Finally Finally
If (Not (s1) Is Nothing) Then If (Not (s1) Is Nothing) Then
s1.Close s1.Close()
End If End If
If (Not (s2) Is Nothing) Then If (Not (s2) Is Nothing) Then
s2.Close s2.Close()
End If End If
End Try End Try
End If End If
@ -304,17 +304,17 @@ Partial Public Class DD_DMSDataSetCalendar
Return type Return type
End Function End Function
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent) Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Delegate Sub TBPMO_RESOURCESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESOURCESRowChangeEvent) Public Delegate Sub TBPMO_RESOURCESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESOURCESRowChangeEvent)
'''<summary> '''<summary>
'''Represents the strongly named DataTable class. '''Represents the strongly named DataTable class.
'''</summary> '''</summary>
<Global.System.Serializable(), _ <Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBPMO_APPOINTMENTSDataTable Partial Public Class TBPMO_APPOINTMENTSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_APPOINTMENTSRow) Inherits Global.System.Data.TypedTableBase(Of TBPMO_APPOINTMENTSRow)

2008
app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

2693
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

6
app/DD-Record-Organiser/DD_ECMAdmin.xsc
View File

@ -62,11 +62,9 @@
<TableUISetting Name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG"> <TableUISetting Name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG">
<ColumnUISettings> <ColumnUISettings>
<ColumnUISetting Name="TYPE_ID"> <ColumnUISetting Name="TYPE_ID">
<ControlSettings> <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting> </ControlSetting></ControlSettings>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
</ColumnUISettings> </ColumnUISettings>
</TableUISetting> </TableUISetting>

46
app/DD-Record-Organiser/DD_ECMAdmin.xsd
View File

@ -609,10 +609,10 @@ SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, A
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.VWDD_LOGIN_USER_HISTORY" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.VWDD_LOGIN_USER_HISTORY" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT <CommandText>SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME
FROM VWDD_LOGIN_USER_HISTORY FROM VWDD_LOGIN_USER_HISTORY
WHERE (MODULE = 'RECORD_ORGANIZER') WHERE (MODULE = 'Record-Organizer')
ORDER BY GUID DESC</CommandText> ORDER BY GUID DESC</CommandText>
<Parameters /> <Parameters />
</DbCommand> </DbCommand>
@ -631,6 +631,7 @@ ORDER BY GUID DESC</CommandText>
<Mapping SourceColumn="LOGIN" DataSetColumn="LOGIN" /> <Mapping SourceColumn="LOGIN" DataSetColumn="LOGIN" />
<Mapping SourceColumn="LOGOUT" DataSetColumn="LOGOUT" /> <Mapping SourceColumn="LOGOUT" DataSetColumn="LOGOUT" />
<Mapping SourceColumn="VERSION_CLIENT" DataSetColumn="VERSION_CLIENT" /> <Mapping SourceColumn="VERSION_CLIENT" DataSetColumn="VERSION_CLIENT" />
<Mapping SourceColumn="MACHINE_NAME" DataSetColumn="MACHINE_NAME" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -666,7 +667,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
<xs:element name="DD_ECMAdmin" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DD_ECMAdmin" msprop:Generator_UserDSName="DD_ECMAdmin"> <xs:element name="DD_ECMAdmin" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DD_ECMAdmin" msprop:Generator_UserDSName="DD_ECMAdmin">
<xs:complexType> <xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow"> <xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -712,7 +713,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow"> <xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -833,7 +834,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent"> <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@ -906,14 +907,14 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent" msprop:Generator_RowClassName="DT_VORSCHAURow"> <xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_RowClassName="DT_VORSCHAURow" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE" type="xs:string" minOccurs="0" /> <xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE" type="xs:string" minOccurs="0" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent"> <xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Record-ID" msprop:Generator_ColumnVarNameInTable="_columnRecord_ID" msprop:Generator_ColumnPropNameInRow="_Record_ID" msprop:Generator_ColumnPropNameInTable="_Record_IDColumn" msprop:Generator_UserColumnName="Record-ID" type="xs:int" /> <xs:element name="Record-ID" msprop:Generator_ColumnVarNameInTable="_columnRecord_ID" msprop:Generator_ColumnPropNameInRow="_Record_ID" msprop:Generator_ColumnPropNameInTable="_Record_IDColumn" msprop:Generator_UserColumnName="Record-ID" type="xs:int" />
@ -942,7 +943,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent" msprop:Generator_RowClassName="TBAD_UsersRow"> <xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_RowClassName="TBAD_UsersRow" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" /> <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@ -954,7 +955,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_RowClassName="TBWH_ENTITIESRow" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent"> <xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent" msprop:Generator_RowClassName="TBWH_ENTITIESRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -975,7 +976,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent"> <xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -989,7 +990,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_RowClassName="TBWH_Users1Row" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent"> <xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users1Row">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" /> <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@ -1001,7 +1002,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users2Row"> <xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_RowClassName="TBWH_Users2Row" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" /> <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@ -1013,7 +1014,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow"> <xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -1128,7 +1129,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="USER_RIGHTS" msprop:Generator_TableClassName="USER_RIGHTSDataTable" msprop:Generator_TableVarName="tableUSER_RIGHTS" msprop:Generator_RowChangedName="USER_RIGHTSRowChanged" msprop:Generator_TablePropName="USER_RIGHTS" msprop:Generator_RowDeletingName="USER_RIGHTSRowDeleting" msprop:Generator_RowChangingName="USER_RIGHTSRowChanging" msprop:Generator_RowEvHandlerName="USER_RIGHTSRowChangeEventHandler" msprop:Generator_RowDeletedName="USER_RIGHTSRowDeleted" msprop:Generator_RowClassName="USER_RIGHTSRow" msprop:Generator_UserTableName="USER_RIGHTS" msprop:Generator_RowEvArgName="USER_RIGHTSRowChangeEvent"> <xs:element name="USER_RIGHTS" msprop:Generator_TableClassName="USER_RIGHTSDataTable" msprop:Generator_TableVarName="tableUSER_RIGHTS" msprop:Generator_TablePropName="USER_RIGHTS" msprop:Generator_RowDeletingName="USER_RIGHTSRowDeleting" msprop:Generator_RowChangingName="USER_RIGHTSRowChanging" msprop:Generator_RowEvHandlerName="USER_RIGHTSRowChangeEventHandler" msprop:Generator_RowDeletedName="USER_RIGHTSRowDeleted" msprop:Generator_UserTableName="USER_RIGHTS" msprop:Generator_RowChangedName="USER_RIGHTSRowChanged" msprop:Generator_RowEvArgName="USER_RIGHTSRowChangeEvent" msprop:Generator_RowClassName="USER_RIGHTSRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -1172,7 +1173,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent"> <xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <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" />
@ -1222,7 +1223,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWDD_LOGIN_USER_HISTORY" msprop:Generator_TableClassName="VWDD_LOGIN_USER_HISTORYDataTable" msprop:Generator_TableVarName="tableVWDD_LOGIN_USER_HISTORY" msprop:Generator_TablePropName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowDeletingName="VWDD_LOGIN_USER_HISTORYRowDeleting" msprop:Generator_RowChangingName="VWDD_LOGIN_USER_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="VWDD_LOGIN_USER_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDD_LOGIN_USER_HISTORYRowDeleted" msprop:Generator_UserTableName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowChangedName="VWDD_LOGIN_USER_HISTORYRowChanged" msprop:Generator_RowEvArgName="VWDD_LOGIN_USER_HISTORYRowChangeEvent" msprop:Generator_RowClassName="VWDD_LOGIN_USER_HISTORYRow"> <xs:element name="VWDD_LOGIN_USER_HISTORY" msprop:Generator_TableClassName="VWDD_LOGIN_USER_HISTORYDataTable" msprop:Generator_TableVarName="tableVWDD_LOGIN_USER_HISTORY" msprop:Generator_RowChangedName="VWDD_LOGIN_USER_HISTORYRowChanged" msprop:Generator_TablePropName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowDeletingName="VWDD_LOGIN_USER_HISTORYRowDeleting" msprop:Generator_RowChangingName="VWDD_LOGIN_USER_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="VWDD_LOGIN_USER_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDD_LOGIN_USER_HISTORYRowDeleted" msprop:Generator_RowClassName="VWDD_LOGIN_USER_HISTORYRow" msprop:Generator_UserTableName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowEvArgName="VWDD_LOGIN_USER_HISTORYRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <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" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1272,10 +1273,17 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="MACHINE_NAME" msprop:Generator_ColumnVarNameInTable="columnMACHINE_NAME" msprop:Generator_ColumnPropNameInRow="MACHINE_NAME" msprop:Generator_ColumnPropNameInTable="MACHINE_NAMEColumn" msprop:Generator_UserColumnName="MACHINE_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent"> <xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Name" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_UserColumnName="Name" minOccurs="0"> <xs:element name="Name" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_UserColumnName="Name" minOccurs="0">
@ -1330,7 +1338,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</xs:element> </xs:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <xs:appinfo>
<msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" /> <msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" />
</xs:appinfo> </xs:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

2
app/DD-Record-Organiser/My Project/Application.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209 ' Laufzeitversion:4.0.30319.36366
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.

222
app/DD-Record-Organiser/My Project/Settings.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209 ' Laufzeitversion:4.0.30319.36366
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -14,26 +14,26 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings" #Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If
End Sub End Sub
#End If #End If
#End Region #End Region
@ -41,7 +41,7 @@ Namespace My
Get Get
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
If Not addedHandler Then If Not addedHandler Then
SyncLock addedHandlerLockObject SyncLock addedHandlerLockObject
If Not addedHandler Then If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
@ -54,204 +54,204 @@ Namespace My
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In" & _
"fo=True;User ID=sa;Password=ddd")> _ "fo=True;User ID=sa;Password=ddd")> _
Public ReadOnly Property DD_DMSConnectionString() As String Public ReadOnly Property DD_DMSConnectionString() As String
Get Get
Return CType(Me("DD_DMSConnectionString"),String) Return CType(Me("DD_DMSConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("*.db"), _ Global.System.Configuration.DefaultSettingValueAttribute("*.db"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_EXCLUDE() As String Public Property WD_ENTITYIMP_EXCLUDE() As String
Get Get
Return CType(Me("WD_ENTITYIMP_EXCLUDE"),String) Return CType(Me("WD_ENTITYIMP_EXCLUDE"), String)
End Get End Get
Set Set(value As String)
Me("WD_ENTITYIMP_EXCLUDE") = value Me("WD_ENTITYIMP_EXCLUDE") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("*.*"), _ Global.System.Configuration.DefaultSettingValueAttribute("*.*"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_FILTER() As String Public Property WD_ENTITYIMP_FILTER() As String
Get Get
Return CType(Me("WD_ENTITYIMP_FILTER"),String) Return CType(Me("WD_ENTITYIMP_FILTER"), String)
End Get End Get
Set Set(value As String)
Me("WD_ENTITYIMP_FILTER") = value Me("WD_ENTITYIMP_FILTER") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_IMPPATH() As String Public Property WD_ENTITYIMP_IMPPATH() As String
Get Get
Return CType(Me("WD_ENTITYIMP_IMPPATH"),String) Return CType(Me("WD_ENTITYIMP_IMPPATH"), String)
End Get End Get
Set Set(value As String)
Me("WD_ENTITYIMP_IMPPATH") = value Me("WD_ENTITYIMP_IMPPATH") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_TARGETPATH() As String Public Property WD_ENTITYIMP_TARGETPATH() As String
Get Get
Return CType(Me("WD_ENTITYIMP_TARGETPATH"),String) Return CType(Me("WD_ENTITYIMP_TARGETPATH"), String)
End Get End Get
Set Set(value As String)
Me("WD_ENTITYIMP_TARGETPATH") = value Me("WD_ENTITYIMP_TARGETPATH") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_SAFETYPATH() As String Public Property WD_ENTITYIMP_SAFETYPATH() As String
Get Get
Return CType(Me("WD_ENTITYIMP_SAFETYPATH"),String) Return CType(Me("WD_ENTITYIMP_SAFETYPATH"), String)
End Get End Get
Set Set(value As String)
Me("WD_ENTITYIMP_SAFETYPATH") = value Me("WD_ENTITYIMP_SAFETYPATH") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_OBJECTTYPE() As String Public Property WD_ENTITYIMP_OBJECTTYPE() As String
Get Get
Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"),String) Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"), String)
End Get End Get
Set Set(value As String)
Me("WD_ENTITYIMP_OBJECTTYPE") = value Me("WD_ENTITYIMP_OBJECTTYPE") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_INDEXDOKART_SAVE() As String Public Property WD_INDEXDOKART_SAVE() As String
Get Get
Return CType(Me("WD_INDEXDOKART_SAVE"),String) Return CType(Me("WD_INDEXDOKART_SAVE"), String)
End Get End Get
Set Set(value As String)
Me("WD_INDEXDOKART_SAVE") = value Me("WD_INDEXDOKART_SAVE") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _ Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property User_Calendar_isChild() As Boolean Public Property User_Calendar_isChild() As Boolean
Get Get
Return CType(Me("User_Calendar_isChild"),Boolean) Return CType(Me("User_Calendar_isChild"), Boolean)
End Get End Get
Set Set(value As Boolean)
Me("User_Calendar_isChild") = value Me("User_Calendar_isChild") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _ Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property User_DesignPanels_areChild() As Boolean Public Property User_DesignPanels_areChild() As Boolean
Get Get
Return CType(Me("User_DesignPanels_areChild"),Boolean) Return CType(Me("User_DesignPanels_areChild"), Boolean)
End Get End Get
Set Set(value As Boolean)
Me("User_DesignPanels_areChild") = value Me("User_DesignPanels_areChild") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("665"), _ Global.System.Configuration.DefaultSettingValueAttribute("665"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Constructor_DetailsSplitter() As Integer Public Property Constructor_DetailsSplitter() As Integer
Get Get
Return CType(Me("Constructor_DetailsSplitter"),Integer) Return CType(Me("Constructor_DetailsSplitter"), Integer)
End Get End Get
Set Set(value As Integer)
Me("Constructor_DetailsSplitter") = value Me("Constructor_DetailsSplitter") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _ Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property User_InBoxScan_NotinFront() As Boolean Public Property User_InBoxScan_NotinFront() As Boolean
Get Get
Return CType(Me("User_InBoxScan_NotinFront"),Boolean) Return CType(Me("User_InBoxScan_NotinFront"), Boolean)
End Get End Get
Set Set(value As Boolean)
Me("User_InBoxScan_NotinFront") = value Me("User_InBoxScan_NotinFront") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property TBPMO_RIGHT_GROUPDataGridView() As String Public Property TBPMO_RIGHT_GROUPDataGridView() As String
Get Get
Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"),String) Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"), String)
End Get End Get
Set Set(value As String)
Me("TBPMO_RIGHT_GROUPDataGridView") = value Me("TBPMO_RIGHT_GROUPDataGridView") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("332"), _ Global.System.Configuration.DefaultSettingValueAttribute("332"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property frmRecordViewSplitter() As Integer Public Property frmRecordViewSplitter() As Integer
Get Get
Return CType(Me("frmRecordViewSplitter"),Integer) Return CType(Me("frmRecordViewSplitter"), Integer)
End Get End Get
Set Set(value As Integer)
Me("frmRecordViewSplitter") = value Me("frmRecordViewSplitter") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _ Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property TBPMO_RIGHT_USERDataGridView() As String Public Property TBPMO_RIGHT_USERDataGridView() As String
Get Get
Return CType(Me("TBPMO_RIGHT_USERDataGridView"),String) Return CType(Me("TBPMO_RIGHT_USERDataGridView"), String)
End Get End Get
Set Set(value As String)
Me("TBPMO_RIGHT_USERDataGridView") = value Me("TBPMO_RIGHT_USERDataGridView") = value
End Set End Set
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("sDigital Data - windream-Benutzer")> _ Global.System.Configuration.DefaultSettingValueAttribute("sDigital Data - windream-Benutzer")> _
Public ReadOnly Property windreamGruppe() As String Public ReadOnly Property windreamGruppe() As String
Get Get
Return CType(Me("windreamGruppe"),String) Return CType(Me("windreamGruppe"), String)
End Get End Get
End Property End Property
End Class End Class
@ -259,12 +259,12 @@ End Namespace
Namespace My Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DD_Record_Organiser.My.MySettings Friend ReadOnly Property Settings() As Global.DD_Record_Organiser.My.MySettings
Get Get
Return Global.DD_Record_Organiser.My.MySettings.Default Return Global.DD_Record_Organiser.My.MySettings.Default

144
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@ -24,9 +24,9 @@ Partial Class frmConstructor_Main
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
@ -416,12 +416,12 @@ Partial Class frmConstructor_Main
Me.GridControlMain.AllowDrop = True Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain") resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode4.LevelTemplate = Me.grvwGrid GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode4.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
GridLevelNode5.LevelTemplate = Me.grvwCarousel GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode5.RelationName = "Level2" GridLevelNode2.RelationName = "Level2"
GridLevelNode6.RelationName = "Level3" GridLevelNode3.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6}) Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles}) Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
@ -1584,70 +1584,70 @@ Partial Class frmConstructor_Main
Me.Controls.Add(Me.NavPane) Me.Controls.Add(Me.NavPane)
Me.Name = "frmConstructor_Main" Me.Name = "frmConstructor_Main"
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(false) Me.SplitContainerMain.ResumeLayout(False)
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTop.ResumeLayout(false) Me.SplitContainerTop.ResumeLayout(False)
Me.cmsTreeView.ResumeLayout(false) Me.cmsTreeView.ResumeLayout(False)
CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuGrid.ResumeLayout(false) Me.ContextMenuGrid.ResumeLayout(False)
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripRecords.ResumeLayout(false) Me.ToolStripRecords.ResumeLayout(False)
Me.ToolStripRecords.PerformLayout Me.ToolStripRecords.PerformLayout()
CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.TCDetails.ResumeLayout(false) Me.TCDetails.ResumeLayout(False)
Me.TabDetails.ResumeLayout(false) Me.TabDetails.ResumeLayout(False)
Me.TabDetails.PerformLayout Me.TabDetails.PerformLayout()
CType(Me.SplitContainerDetails,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDetails.ResumeLayout(false) Me.SplitContainerDetails.ResumeLayout(False)
Me.statStripDoc.ResumeLayout(false) Me.statStripDoc.ResumeLayout(False)
Me.statStripDoc.PerformLayout Me.statStripDoc.PerformLayout()
Me.ToolStripEdit.ResumeLayout(false) Me.ToolStripEdit.ResumeLayout(False)
Me.ToolStripEdit.PerformLayout Me.ToolStripEdit.PerformLayout()
Me.TabPos.ResumeLayout(false) Me.TabPos.ResumeLayout(False)
Me.TabPos.PerformLayout Me.TabPos.PerformLayout()
Me.Panel1.ResumeLayout(false) Me.Panel1.ResumeLayout(False)
CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigatorPOS.ResumeLayout(false) Me.BindingNavigatorPOS.ResumeLayout(False)
Me.BindingNavigatorPOS.PerformLayout Me.BindingNavigatorPOS.PerformLayout()
Me.TabWindream.ResumeLayout(false) Me.TabWindream.ResumeLayout(False)
Me.TabWindream.PerformLayout Me.TabWindream.PerformLayout()
CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsResultFilesBasic.ResumeLayout(false) Me.cmsResultFilesBasic.ResumeLayout(False)
CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(false) Me.ToolStripDokumente.ResumeLayout(False)
Me.ToolStripDokumente.PerformLayout Me.ToolStripDokumente.PerformLayout()
Me.TabFollowUp.ResumeLayout(false) Me.TabFollowUp.ResumeLayout(False)
Me.TabFollowUp.PerformLayout Me.TabFollowUp.PerformLayout()
Me.grpbxFU_Profile.ResumeLayout(false) Me.grpbxFU_Profile.ResumeLayout(False)
Me.grpbxFU_Profile.PerformLayout Me.grpbxFU_Profile.PerformLayout()
Me.GroupBox4.ResumeLayout(false) Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout Me.GroupBox4.PerformLayout()
Me.TabPageVariant.ResumeLayout(false) Me.TabPageVariant.ResumeLayout(False)
Me.TabPageVariant.PerformLayout Me.TabPageVariant.PerformLayout()
CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_RECORD_VARIANTBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TBPMO_RECORD_VARIANTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewVariants,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).EndInit()
Me.tsVariants.ResumeLayout(false) Me.tsVariants.ResumeLayout(False)
Me.tsVariants.PerformLayout Me.tsVariants.PerformLayout()
CType(Me.SplitContainerFORM,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerFORM.ResumeLayout(false) Me.SplitContainerFORM.ResumeLayout(False)
Me.ContextMenuStripResultFiles.ResumeLayout(false) Me.ContextMenuStripResultFiles.ResumeLayout(False)
Me.StatusStrip_Main.ResumeLayout(false) Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout Me.StatusStrip_Main.PerformLayout()
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsrpContainer.ResumeLayout(false) Me.cmsrpContainer.ResumeLayout(False)
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip

1495
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

4
app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb generated
View File

@ -431,9 +431,9 @@ Partial Class frmDD_EMAIL_ACCOUNT
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet
Friend WithEvents TBDD_EMAIL_ACCOUNTBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_EMAIL_ACCOUNTBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_EMAIL_ACCOUNTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter Friend WithEvents TBDD_EMAIL_ACCOUNTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter

4
app/DD-Record-Organiser/frmMain.vb
View File

@ -47,7 +47,7 @@ Public Class frmMain
For Each form In My.Application.OpenForms For Each form In My.Application.OpenForms
If (form.name = frmScanFiles.Name) Then If (form.name = frmScanFiles.Name) Then
'form is loaded so can do work 'form is loaded so can do work
'if you need to check whether it is actually visible 'if you need to check wether it is actually visible
If form.Visible Then If form.Visible Then
open = True open = True
'do work when visible 'do work when visible
@ -174,7 +174,7 @@ Public Class frmMain
sql = sql.Replace("@ANGEMELDETWO", "''") sql = sql.Replace("@ANGEMELDETWO", "''")
sql = sql.Replace("@user", USER_USERNAME) sql = sql.Replace("@user", USER_USERNAME)
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'RECORD_ORGANIZER'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Record-Organizer'"
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain") ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
ToolStripManager.SaveSettings(Me) ToolStripManager.SaveSettings(Me)

2
app/DD-Record-Organiser/frmRecordView.vb
View File

@ -324,7 +324,7 @@ Public Class frmRecordView
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)}) 'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check whether User is listed in User Client Relation!", MsgBoxStyle.Critical) MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check wether User is listed in User Client Relation!", MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub

116
app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb generated
View File

@ -174,21 +174,21 @@ Partial Class frmSAP_FuBa
Label19 = New System.Windows.Forms.Label() Label19 = New System.Windows.Forms.Label()
Label20 = New System.Windows.Forms.Label() Label20 = New System.Windows.Forms.Label()
Label21 = New System.Windows.Forms.Label() Label21 = New System.Windows.Forms.Label()
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_SAP_FUBABindingSource,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TBPMO_SAP_FUBABindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_SAP_FUBABindingNavigator,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TBPMO_SAP_FUBABindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBPMO_SAP_FUBABindingNavigator.SuspendLayout Me.TBPMO_SAP_FUBABindingNavigator.SuspendLayout()
CType(Me.GridControl2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout Me.XtraTabPage1.SuspendLayout()
Me.XtraTabPage2.SuspendLayout Me.XtraTabPage2.SuspendLayout()
Me.SuspendLayout Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
' '
GUIDLabel.AutoSize = true GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(137, 28) GUIDLabel.Location = New System.Drawing.Point(137, 28)
GUIDLabel.Name = "GUIDLabel" GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(36, 13) GUIDLabel.Size = New System.Drawing.Size(36, 13)
@ -197,7 +197,7 @@ Partial Class frmSAP_FuBa
' '
'NAMELabel 'NAMELabel
' '
NAMELabel.AutoSize = true NAMELabel.AutoSize = True
NAMELabel.Location = New System.Drawing.Point(190, 28) NAMELabel.Location = New System.Drawing.Point(190, 28)
NAMELabel.Name = "NAMELabel" NAMELabel.Name = "NAMELabel"
NAMELabel.Size = New System.Drawing.Size(69, 13) NAMELabel.Size = New System.Drawing.Size(69, 13)
@ -206,7 +206,7 @@ Partial Class frmSAP_FuBa
' '
'COMMENTLabel 'COMMENTLabel
' '
COMMENTLabel.AutoSize = true COMMENTLabel.AutoSize = True
COMMENTLabel.Location = New System.Drawing.Point(381, 28) COMMENTLabel.Location = New System.Drawing.Point(381, 28)
COMMENTLabel.Name = "COMMENTLabel" COMMENTLabel.Name = "COMMENTLabel"
COMMENTLabel.Size = New System.Drawing.Size(65, 13) COMMENTLabel.Size = New System.Drawing.Size(65, 13)
@ -215,7 +215,7 @@ Partial Class frmSAP_FuBa
' '
'HostLabel 'HostLabel
' '
HostLabel.AutoSize = true HostLabel.AutoSize = True
HostLabel.Location = New System.Drawing.Point(190, 69) HostLabel.Location = New System.Drawing.Point(190, 69)
HostLabel.Name = "HostLabel" HostLabel.Name = "HostLabel"
HostLabel.Size = New System.Drawing.Size(272, 13) HostLabel.Size = New System.Drawing.Size(272, 13)
@ -224,7 +224,7 @@ Partial Class frmSAP_FuBa
' '
'SystemNumberLabel 'SystemNumberLabel
' '
SystemNumberLabel.AutoSize = true SystemNumberLabel.AutoSize = True
SystemNumberLabel.Location = New System.Drawing.Point(490, 69) SystemNumberLabel.Location = New System.Drawing.Point(490, 69)
SystemNumberLabel.Name = "SystemNumberLabel" SystemNumberLabel.Name = "SystemNumberLabel"
SystemNumberLabel.Size = New System.Drawing.Size(147, 13) SystemNumberLabel.Size = New System.Drawing.Size(147, 13)
@ -233,7 +233,7 @@ Partial Class frmSAP_FuBa
' '
'UserNameLabel 'UserNameLabel
' '
UserNameLabel.AutoSize = true UserNameLabel.AutoSize = True
UserNameLabel.Location = New System.Drawing.Point(190, 110) UserNameLabel.Location = New System.Drawing.Point(190, 110)
UserNameLabel.Name = "UserNameLabel" UserNameLabel.Name = "UserNameLabel"
UserNameLabel.Size = New System.Drawing.Size(63, 13) UserNameLabel.Size = New System.Drawing.Size(63, 13)
@ -242,7 +242,7 @@ Partial Class frmSAP_FuBa
' '
'PasswordLabel 'PasswordLabel
' '
PasswordLabel.AutoSize = true PasswordLabel.AutoSize = True
PasswordLabel.Location = New System.Drawing.Point(381, 110) PasswordLabel.Location = New System.Drawing.Point(381, 110)
PasswordLabel.Name = "PasswordLabel" PasswordLabel.Name = "PasswordLabel"
PasswordLabel.Size = New System.Drawing.Size(57, 13) PasswordLabel.Size = New System.Drawing.Size(57, 13)
@ -251,7 +251,7 @@ Partial Class frmSAP_FuBa
' '
'ClientLabel 'ClientLabel
' '
ClientLabel.AutoSize = true ClientLabel.AutoSize = True
ClientLabel.Location = New System.Drawing.Point(490, 110) ClientLabel.Location = New System.Drawing.Point(490, 110)
ClientLabel.Name = "ClientLabel" ClientLabel.Name = "ClientLabel"
ClientLabel.Size = New System.Drawing.Size(105, 13) ClientLabel.Size = New System.Drawing.Size(105, 13)
@ -260,7 +260,7 @@ Partial Class frmSAP_FuBa
' '
'LanguageLabel 'LanguageLabel
' '
LanguageLabel.AutoSize = true LanguageLabel.AutoSize = True
LanguageLabel.Location = New System.Drawing.Point(675, 110) LanguageLabel.Location = New System.Drawing.Point(675, 110)
LanguageLabel.Name = "LanguageLabel" LanguageLabel.Name = "LanguageLabel"
LanguageLabel.Size = New System.Drawing.Size(58, 13) LanguageLabel.Size = New System.Drawing.Size(58, 13)
@ -269,7 +269,7 @@ Partial Class frmSAP_FuBa
' '
'TempTableNameLabel 'TempTableNameLabel
' '
TempTableNameLabel.AutoSize = true TempTableNameLabel.AutoSize = True
TempTableNameLabel.Location = New System.Drawing.Point(258, 149) TempTableNameLabel.Location = New System.Drawing.Point(258, 149)
TempTableNameLabel.Name = "TempTableNameLabel" TempTableNameLabel.Name = "TempTableNameLabel"
TempTableNameLabel.Size = New System.Drawing.Size(98, 13) TempTableNameLabel.Size = New System.Drawing.Size(98, 13)
@ -278,7 +278,7 @@ Partial Class frmSAP_FuBa
' '
'ADDED_WHOLabel 'ADDED_WHOLabel
' '
ADDED_WHOLabel.AutoSize = true ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Location = New System.Drawing.Point(190, 280) ADDED_WHOLabel.Location = New System.Drawing.Point(190, 280)
ADDED_WHOLabel.Name = "ADDED_WHOLabel" ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13)
@ -287,7 +287,7 @@ Partial Class frmSAP_FuBa
' '
'ADDED_WHENLabel 'ADDED_WHENLabel
' '
ADDED_WHENLabel.AutoSize = true ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Location = New System.Drawing.Point(332, 280) ADDED_WHENLabel.Location = New System.Drawing.Point(332, 280)
ADDED_WHENLabel.Name = "ADDED_WHENLabel" ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13)
@ -296,7 +296,7 @@ Partial Class frmSAP_FuBa
' '
'CHANGED_WHOLabel 'CHANGED_WHOLabel
' '
CHANGED_WHOLabel.AutoSize = true CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(466, 279) CHANGED_WHOLabel.Location = New System.Drawing.Point(466, 279)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13)
@ -305,7 +305,7 @@ Partial Class frmSAP_FuBa
' '
'CHANGED_WHENLabel 'CHANGED_WHENLabel
' '
CHANGED_WHENLabel.AutoSize = true CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Location = New System.Drawing.Point(607, 279) CHANGED_WHENLabel.Location = New System.Drawing.Point(607, 279)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13)
@ -314,7 +314,7 @@ Partial Class frmSAP_FuBa
' '
'WHERE_CLAUSELabel 'WHERE_CLAUSELabel
' '
WHERE_CLAUSELabel.AutoSize = true WHERE_CLAUSELabel.AutoSize = True
WHERE_CLAUSELabel.Location = New System.Drawing.Point(190, 238) WHERE_CLAUSELabel.Location = New System.Drawing.Point(190, 238)
WHERE_CLAUSELabel.Name = "WHERE_CLAUSELabel" WHERE_CLAUSELabel.Name = "WHERE_CLAUSELabel"
WHERE_CLAUSELabel.Size = New System.Drawing.Size(425, 13) WHERE_CLAUSELabel.Size = New System.Drawing.Size(425, 13)
@ -323,7 +323,7 @@ Partial Class frmSAP_FuBa
' '
'Label4 'Label4
' '
Label4.AutoSize = true Label4.AutoSize = True
Label4.Location = New System.Drawing.Point(138, 36) Label4.Location = New System.Drawing.Point(138, 36)
Label4.Name = "Label4" Label4.Name = "Label4"
Label4.Size = New System.Drawing.Size(272, 13) Label4.Size = New System.Drawing.Size(272, 13)
@ -332,7 +332,7 @@ Partial Class frmSAP_FuBa
' '
'Label5 'Label5
' '
Label5.AutoSize = true Label5.AutoSize = True
Label5.Location = New System.Drawing.Point(438, 36) Label5.Location = New System.Drawing.Point(438, 36)
Label5.Name = "Label5" Label5.Name = "Label5"
Label5.Size = New System.Drawing.Size(147, 13) Label5.Size = New System.Drawing.Size(147, 13)
@ -341,7 +341,7 @@ Partial Class frmSAP_FuBa
' '
'Label6 'Label6
' '
Label6.AutoSize = true Label6.AutoSize = True
Label6.Location = New System.Drawing.Point(138, 77) Label6.Location = New System.Drawing.Point(138, 77)
Label6.Name = "Label6" Label6.Name = "Label6"
Label6.Size = New System.Drawing.Size(63, 13) Label6.Size = New System.Drawing.Size(63, 13)
@ -350,7 +350,7 @@ Partial Class frmSAP_FuBa
' '
'Label7 'Label7
' '
Label7.AutoSize = true Label7.AutoSize = True
Label7.Location = New System.Drawing.Point(329, 77) Label7.Location = New System.Drawing.Point(329, 77)
Label7.Name = "Label7" Label7.Name = "Label7"
Label7.Size = New System.Drawing.Size(57, 13) Label7.Size = New System.Drawing.Size(57, 13)
@ -359,7 +359,7 @@ Partial Class frmSAP_FuBa
' '
'Label8 'Label8
' '
Label8.AutoSize = true Label8.AutoSize = True
Label8.Location = New System.Drawing.Point(438, 77) Label8.Location = New System.Drawing.Point(438, 77)
Label8.Name = "Label8" Label8.Name = "Label8"
Label8.Size = New System.Drawing.Size(105, 13) Label8.Size = New System.Drawing.Size(105, 13)
@ -368,7 +368,7 @@ Partial Class frmSAP_FuBa
' '
'Label9 'Label9
' '
Label9.AutoSize = true Label9.AutoSize = True
Label9.Location = New System.Drawing.Point(623, 77) Label9.Location = New System.Drawing.Point(623, 77)
Label9.Name = "Label9" Label9.Name = "Label9"
Label9.Size = New System.Drawing.Size(58, 13) Label9.Size = New System.Drawing.Size(58, 13)
@ -377,7 +377,7 @@ Partial Class frmSAP_FuBa
' '
'Label3 'Label3
' '
Label3.AutoSize = true Label3.AutoSize = True
Label3.Location = New System.Drawing.Point(138, 143) Label3.Location = New System.Drawing.Point(138, 143)
Label3.Name = "Label3" Label3.Name = "Label3"
Label3.Size = New System.Drawing.Size(213, 13) Label3.Size = New System.Drawing.Size(213, 13)
@ -386,7 +386,7 @@ Partial Class frmSAP_FuBa
' '
'Label10 'Label10
' '
Label10.AutoSize = true Label10.AutoSize = True
Label10.Location = New System.Drawing.Point(138, 184) Label10.Location = New System.Drawing.Point(138, 184)
Label10.Name = "Label10" Label10.Name = "Label10"
Label10.Size = New System.Drawing.Size(64, 13) Label10.Size = New System.Drawing.Size(64, 13)
@ -395,7 +395,7 @@ Partial Class frmSAP_FuBa
' '
'Label11 'Label11
' '
Label11.AutoSize = true Label11.AutoSize = True
Label11.Location = New System.Drawing.Point(138, 222) Label11.Location = New System.Drawing.Point(138, 222)
Label11.Name = "Label11" Label11.Name = "Label11"
Label11.Size = New System.Drawing.Size(65, 13) Label11.Size = New System.Drawing.Size(65, 13)
@ -404,7 +404,7 @@ Partial Class frmSAP_FuBa
' '
'Label12 'Label12
' '
Label12.AutoSize = true Label12.AutoSize = True
Label12.Location = New System.Drawing.Point(438, 143) Label12.Location = New System.Drawing.Point(438, 143)
Label12.Name = "Label12" Label12.Name = "Label12"
Label12.Size = New System.Drawing.Size(44, 13) Label12.Size = New System.Drawing.Size(44, 13)
@ -413,7 +413,7 @@ Partial Class frmSAP_FuBa
' '
'Label13 'Label13
' '
Label13.AutoSize = true Label13.AutoSize = True
Label13.Location = New System.Drawing.Point(438, 185) Label13.Location = New System.Drawing.Point(438, 185)
Label13.Name = "Label13" Label13.Name = "Label13"
Label13.Size = New System.Drawing.Size(66, 13) Label13.Size = New System.Drawing.Size(66, 13)
@ -422,7 +422,7 @@ Partial Class frmSAP_FuBa
' '
'Label14 'Label14
' '
Label14.AutoSize = true Label14.AutoSize = True
Label14.Location = New System.Drawing.Point(438, 222) Label14.Location = New System.Drawing.Point(438, 222)
Label14.Name = "Label14" Label14.Name = "Label14"
Label14.Size = New System.Drawing.Size(77, 13) Label14.Size = New System.Drawing.Size(77, 13)
@ -431,7 +431,7 @@ Partial Class frmSAP_FuBa
' '
'Label15 'Label15
' '
Label15.AutoSize = true Label15.AutoSize = True
Label15.Location = New System.Drawing.Point(735, 143) Label15.Location = New System.Drawing.Point(735, 143)
Label15.Name = "Label15" Label15.Name = "Label15"
Label15.Size = New System.Drawing.Size(74, 13) Label15.Size = New System.Drawing.Size(74, 13)
@ -450,11 +450,11 @@ Partial Class frmSAP_FuBa
' '
'TBPMO_SAP_FUBATableAdapter 'TBPMO_SAP_FUBATableAdapter
' '
Me.TBPMO_SAP_FUBATableAdapter.ClearBeforeFill = true Me.TBPMO_SAP_FUBATableAdapter.ClearBeforeFill = True
' '
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = false Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
@ -1345,26 +1345,26 @@ Partial Class frmSAP_FuBa
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(989, 591) Me.ClientSize = New System.Drawing.Size(989, 591)
Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.XtraTabControl1)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSAP_FuBa" Me.Name = "frmSAP_FuBa"
Me.Text = "SAP - Funktionsbausteinverknüpfungen" Me.Text = "SAP - Funktionsbausteinverknüpfungen"
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_SAP_FUBABindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TBPMO_SAP_FUBABindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_SAP_FUBABindingNavigator,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TBPMO_SAP_FUBABindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBPMO_SAP_FUBABindingNavigator.ResumeLayout(false) Me.TBPMO_SAP_FUBABindingNavigator.ResumeLayout(False)
Me.TBPMO_SAP_FUBABindingNavigator.PerformLayout Me.TBPMO_SAP_FUBABindingNavigator.PerformLayout()
CType(Me.GridControl2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(false) Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(false) Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage1.PerformLayout Me.XtraTabPage1.PerformLayout()
Me.XtraTabPage2.ResumeLayout(false) Me.XtraTabPage2.ResumeLayout(False)
Me.XtraTabPage2.PerformLayout Me.XtraTabPage2.PerformLayout()
Me.ResumeLayout(false) Me.ResumeLayout(False)
End Sub End Sub
Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
Friend WithEvents TBPMO_SAP_FUBABindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPMO_SAP_FUBABindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPMO_SAP_FUBATableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter Friend WithEvents TBPMO_SAP_FUBATableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter

65
app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb generated
View File

@ -23,6 +23,8 @@ Partial Class frmStatistiscsADDI
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStatistiscsADDI))
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.SplitContainerTab1 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTab1 = New DevExpress.XtraEditors.SplitContainerControl()
@ -44,6 +46,8 @@ Partial Class frmStatistiscsADDI
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.VWDD_LOGIN_USER_HISTORYTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWDD_LOGIN_USER_HISTORYTableAdapter() Me.VWDD_LOGIN_USER_HISTORYTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWDD_LOGIN_USER_HISTORYTableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
Me.colMACHINE_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colUSER_ID = New DevExpress.XtraGrid.Columns.GridColumn()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout() Me.XtraTabPage1.SuspendLayout()
@ -66,7 +70,7 @@ Partial Class frmStatistiscsADDI
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(1046, 542) Me.XtraTabControl1.Size = New System.Drawing.Size(1344, 728)
Me.XtraTabControl1.TabIndex = 0 Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
' '
@ -74,7 +78,7 @@ Partial Class frmStatistiscsADDI
' '
Me.XtraTabPage1.Controls.Add(Me.SplitContainerTab1) Me.XtraTabPage1.Controls.Add(Me.SplitContainerTab1)
Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1044, 517) Me.XtraTabPage1.Size = New System.Drawing.Size(1342, 703)
Me.XtraTabPage1.Text = "Logins" Me.XtraTabPage1.Text = "Logins"
' '
'SplitContainerTab1 'SplitContainerTab1
@ -87,8 +91,8 @@ Partial Class frmStatistiscsADDI
Me.SplitContainerTab1.Panel1.Text = "Panel1" Me.SplitContainerTab1.Panel1.Text = "Panel1"
Me.SplitContainerTab1.Panel2.Controls.Add(Me.SplitContainerBottom) Me.SplitContainerTab1.Panel2.Controls.Add(Me.SplitContainerBottom)
Me.SplitContainerTab1.Panel2.Text = "Panel2" Me.SplitContainerTab1.Panel2.Text = "Panel2"
Me.SplitContainerTab1.Size = New System.Drawing.Size(1044, 517) Me.SplitContainerTab1.Size = New System.Drawing.Size(1342, 703)
Me.SplitContainerTab1.SplitterPosition = 258 Me.SplitContainerTab1.SplitterPosition = 390
Me.SplitContainerTab1.TabIndex = 4 Me.SplitContainerTab1.TabIndex = 4
Me.SplitContainerTab1.Text = "SplitContainerControl1" Me.SplitContainerTab1.Text = "SplitContainerControl1"
' '
@ -100,8 +104,8 @@ Partial Class frmStatistiscsADDI
Me.SplitContainerTop.Panel1.Controls.Add(Me.GroupBox1) Me.SplitContainerTop.Panel1.Controls.Add(Me.GroupBox1)
Me.SplitContainerTop.Panel1.Text = "Panel1" Me.SplitContainerTop.Panel1.Text = "Panel1"
Me.SplitContainerTop.Panel2.Text = "Panel2" Me.SplitContainerTop.Panel2.Text = "Panel2"
Me.SplitContainerTop.Size = New System.Drawing.Size(1044, 258) Me.SplitContainerTop.Size = New System.Drawing.Size(1342, 390)
Me.SplitContainerTop.SplitterPosition = 622 Me.SplitContainerTop.SplitterPosition = 763
Me.SplitContainerTop.TabIndex = 6 Me.SplitContainerTop.TabIndex = 6
Me.SplitContainerTop.Text = "SplitContainerControl2" Me.SplitContainerTop.Text = "SplitContainerControl2"
' '
@ -112,7 +116,7 @@ Partial Class frmStatistiscsADDI
Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(0, 0) Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(622, 258) Me.GroupBox1.Size = New System.Drawing.Size(763, 390)
Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Detail-Logins (Last 5000):" Me.GroupBox1.Text = "Detail-Logins (Last 5000):"
@ -121,10 +125,12 @@ Partial Class frmStatistiscsADDI
' '
Me.GridControl1.DataSource = Me.VWDD_LOGIN_USER_HISTORYBindingSource Me.GridControl1.DataSource = Me.VWDD_LOGIN_USER_HISTORYBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode1.RelationName = "Level1"
Me.GridControl1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControl1.Location = New System.Drawing.Point(3, 17) Me.GridControl1.Location = New System.Drawing.Point(3, 17)
Me.GridControl1.MainView = Me.GridViewLoginHistory Me.GridControl1.MainView = Me.GridViewLoginHistory
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(616, 238) Me.GridControl1.Size = New System.Drawing.Size(757, 370)
Me.GridControl1.TabIndex = 3 Me.GridControl1.TabIndex = 3
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewLoginHistory}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewLoginHistory})
' '
@ -142,7 +148,7 @@ Partial Class frmStatistiscsADDI
' '
Me.GridViewLoginHistory.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua Me.GridViewLoginHistory.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewLoginHistory.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewLoginHistory.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewLoginHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colCLIENT_NAME, Me.colUSERNAME, Me.colNAME, Me.colPRENAME, Me.colLOGIN, Me.colLOGOUT, Me.colVERSION_CLIENT}) Me.GridViewLoginHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colCLIENT_NAME, Me.colUSERNAME, Me.colNAME, Me.colPRENAME, Me.colLOGIN, Me.colLOGOUT, Me.colVERSION_CLIENT, Me.colMACHINE_NAME, Me.colUSER_ID})
Me.GridViewLoginHistory.GridControl = Me.GridControl1 Me.GridViewLoginHistory.GridControl = Me.GridControl1
Me.GridViewLoginHistory.Name = "GridViewLoginHistory" Me.GridViewLoginHistory.Name = "GridViewLoginHistory"
Me.GridViewLoginHistory.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewLoginHistory.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@ -154,6 +160,7 @@ Partial Class frmStatistiscsADDI
' '
'colGUID 'colGUID
' '
Me.colGUID.Caption = "ID"
Me.colGUID.FieldName = "GUID" Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID" Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True Me.colGUID.Visible = True
@ -162,6 +169,7 @@ Partial Class frmStatistiscsADDI
' '
'colCLIENT_NAME 'colCLIENT_NAME
' '
Me.colCLIENT_NAME.Caption = "Client"
Me.colCLIENT_NAME.FieldName = "CLIENT_NAME" Me.colCLIENT_NAME.FieldName = "CLIENT_NAME"
Me.colCLIENT_NAME.Name = "colCLIENT_NAME" Me.colCLIENT_NAME.Name = "colCLIENT_NAME"
Me.colCLIENT_NAME.Visible = True Me.colCLIENT_NAME.Visible = True
@ -170,6 +178,7 @@ Partial Class frmStatistiscsADDI
' '
'colUSERNAME 'colUSERNAME
' '
Me.colUSERNAME.Caption = "Username"
Me.colUSERNAME.FieldName = "USERNAME" Me.colUSERNAME.FieldName = "USERNAME"
Me.colUSERNAME.Name = "colUSERNAME" Me.colUSERNAME.Name = "colUSERNAME"
Me.colUSERNAME.Visible = True Me.colUSERNAME.Visible = True
@ -178,6 +187,7 @@ Partial Class frmStatistiscsADDI
' '
'colNAME 'colNAME
' '
Me.colNAME.Caption = "Name"
Me.colNAME.FieldName = "NAME" Me.colNAME.FieldName = "NAME"
Me.colNAME.Name = "colNAME" Me.colNAME.Name = "colNAME"
Me.colNAME.Visible = True Me.colNAME.Visible = True
@ -185,6 +195,7 @@ Partial Class frmStatistiscsADDI
' '
'colPRENAME 'colPRENAME
' '
Me.colPRENAME.Caption = "Prename"
Me.colPRENAME.FieldName = "PRENAME" Me.colPRENAME.FieldName = "PRENAME"
Me.colPRENAME.Name = "colPRENAME" Me.colPRENAME.Name = "colPRENAME"
Me.colPRENAME.Visible = True Me.colPRENAME.Visible = True
@ -192,6 +203,9 @@ Partial Class frmStatistiscsADDI
' '
'colLOGIN 'colLOGIN
' '
Me.colLOGIN.Caption = "Login"
Me.colLOGIN.DisplayFormat.FormatString = "dd-MM-yyyy HH:mm:ss"
Me.colLOGIN.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
Me.colLOGIN.FieldName = "LOGIN" Me.colLOGIN.FieldName = "LOGIN"
Me.colLOGIN.Name = "colLOGIN" Me.colLOGIN.Name = "colLOGIN"
Me.colLOGIN.Visible = True Me.colLOGIN.Visible = True
@ -200,6 +214,9 @@ Partial Class frmStatistiscsADDI
' '
'colLOGOUT 'colLOGOUT
' '
Me.colLOGOUT.Caption = "Logout"
Me.colLOGOUT.DisplayFormat.FormatString = "dd-MM-yyyy HH:mm:ss"
Me.colLOGOUT.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
Me.colLOGOUT.FieldName = "LOGOUT" Me.colLOGOUT.FieldName = "LOGOUT"
Me.colLOGOUT.Name = "colLOGOUT" Me.colLOGOUT.Name = "colLOGOUT"
Me.colLOGOUT.Visible = True Me.colLOGOUT.Visible = True
@ -208,6 +225,7 @@ Partial Class frmStatistiscsADDI
' '
'colVERSION_CLIENT 'colVERSION_CLIENT
' '
Me.colVERSION_CLIENT.Caption = "Version Client"
Me.colVERSION_CLIENT.FieldName = "VERSION_CLIENT" Me.colVERSION_CLIENT.FieldName = "VERSION_CLIENT"
Me.colVERSION_CLIENT.Name = "colVERSION_CLIENT" Me.colVERSION_CLIENT.Name = "colVERSION_CLIENT"
Me.colVERSION_CLIENT.Visible = True Me.colVERSION_CLIENT.Visible = True
@ -221,15 +239,15 @@ Partial Class frmStatistiscsADDI
Me.SplitContainerBottom.Name = "SplitContainerBottom" Me.SplitContainerBottom.Name = "SplitContainerBottom"
Me.SplitContainerBottom.Panel1.Text = "Panel1" Me.SplitContainerBottom.Panel1.Text = "Panel1"
Me.SplitContainerBottom.Panel2.Text = "Panel2" Me.SplitContainerBottom.Panel2.Text = "Panel2"
Me.SplitContainerBottom.Size = New System.Drawing.Size(1044, 247) Me.SplitContainerBottom.Size = New System.Drawing.Size(1342, 301)
Me.SplitContainerBottom.SplitterPosition = 532 Me.SplitContainerBottom.SplitterPosition = 629
Me.SplitContainerBottom.TabIndex = 0 Me.SplitContainerBottom.TabIndex = 0
Me.SplitContainerBottom.Text = "SplitContainerControl2" Me.SplitContainerBottom.Text = "SplitContainerControl2"
' '
'XtraTabPage2 'XtraTabPage2
' '
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1040, 514) Me.XtraTabPage2.Size = New System.Drawing.Size(1342, 703)
Me.XtraTabPage2.Text = "XtraTabPage2" Me.XtraTabPage2.Text = "XtraTabPage2"
' '
'VWDD_LOGIN_USER_HISTORYTableAdapter 'VWDD_LOGIN_USER_HISTORYTableAdapter
@ -247,14 +265,31 @@ Partial Class frmStatistiscsADDI
Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
'colMACHINE_NAME
'
Me.colMACHINE_NAME.Caption = "Machine Name"
Me.colMACHINE_NAME.FieldName = "MACHINE_NAME"
Me.colMACHINE_NAME.Name = "colMACHINE_NAME"
Me.colMACHINE_NAME.Visible = True
Me.colMACHINE_NAME.VisibleIndex = 8
'
'colUSER_ID
'
Me.colUSER_ID.FieldName = "USER_ID"
Me.colUSER_ID.Name = "colUSER_ID"
Me.colUSER_ID.Visible = True
Me.colUSER_ID.VisibleIndex = 9
'
'frmStatistiscsADDI 'frmStatistiscsADDI
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1046, 542) Me.ClientSize = New System.Drawing.Size(1344, 728)
Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.XtraTabControl1)
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 = "frmStatistiscsADDI" Me.Name = "frmStatistiscsADDI"
Me.Text = "Statistik ADDI" Me.Text = "Statistics"
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False)
@ -293,4 +328,6 @@ Partial Class frmStatistiscsADDI
Friend WithEvents SplitContainerTop As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerTop As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents SplitContainerBottom As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerBottom As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents colMACHINE_NAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colUSER_ID As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

1199
app/DD-Record-Organiser/frmStatistiscsADDI.resx
View File

File diff suppressed because it is too large Load Diff

28
app/DD-Record-Organiser/frmTask_Editor.Designer.vb generated
View File

@ -453,22 +453,22 @@ Partial Class frmTask_Editor
Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.MaximizeBox = false Me.MaximizeBox = False
Me.MinimizeBox = false Me.MinimizeBox = False
Me.Name = "frmTask_Editor" Me.Name = "frmTask_Editor"
Me.ShowInTaskbar = false Me.ShowInTaskbar = False
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASKBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(false) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout Me.GroupBox1.PerformLayout()
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(false) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout Me.GroupBox2.PerformLayout()
Me.ResumeLayout(false) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet

160
app/DD-Record-Organiser/frmUserKonfig.Designer.vb generated
View File

@ -212,6 +212,21 @@ Partial Class frmUserKonfig
Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox() Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox()
Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox() Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox()
Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox() Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn15 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn16 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn17 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn18 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtPath = New System.Windows.Forms.TextBox()
Me.btnopenfolder = New System.Windows.Forms.Button()
Me.btnUpdatePath = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswahlAufhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
PRENAMELabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
@ -282,6 +297,10 @@ Partial Class frmUserKonfig
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage3.SuspendLayout()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -465,8 +484,8 @@ Partial Class frmUserKonfig
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
@ -690,7 +709,7 @@ Partial Class frmUserKonfig
resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1") resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1")
Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.TabGruppendefinition, Me.XtraTabPage2}) Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.TabGruppendefinition, Me.XtraTabPage2, Me.XtraTabPage3})
' '
'XtraTabPage1 'XtraTabPage1
' '
@ -1129,8 +1148,8 @@ Partial Class frmUserKonfig
' '
'TabControl3 'TabControl3
' '
Me.TabControl3.Controls.Add(Me.TabPage5)
Me.TabControl3.Controls.Add(Me.TabPage6) Me.TabControl3.Controls.Add(Me.TabPage6)
Me.TabControl3.Controls.Add(Me.TabPage5)
resources.ApplyResources(Me.TabControl3, "TabControl3") resources.ApplyResources(Me.TabControl3, "TabControl3")
Me.TabControl3.Name = "TabControl3" Me.TabControl3.Name = "TabControl3"
Me.TabControl3.SelectedIndex = 0 Me.TabControl3.SelectedIndex = 0
@ -1613,6 +1632,115 @@ Partial Class frmUserKonfig
Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox"
Me.LOG_OUT_WHENTextBox.ReadOnly = True Me.LOG_OUT_WHENTextBox.ReadOnly = True
' '
'XtraTabPage3
'
Me.XtraTabPage3.Controls.Add(Me.btnUpdatePath)
Me.XtraTabPage3.Controls.Add(Me.btnopenfolder)
Me.XtraTabPage3.Controls.Add(Me.txtPath)
Me.XtraTabPage3.Controls.Add(Me.Label8)
Me.XtraTabPage3.Controls.Add(Me.Label6)
Me.XtraTabPage3.Controls.Add(Me.GridControl3)
Me.XtraTabPage3.Name = "XtraTabPage3"
resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
'
'GridControl3
'
resources.ApplyResources(Me.GridControl3, "GridControl3")
Me.GridControl3.ContextMenuStrip = Me.ContextMenuStrip1
Me.GridControl3.DataSource = Me.TBAD_UsersBindingSource
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.Name = "GridControl3"
Me.GridControl3.ShowOnlyPredefinedDetails = True
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
'GridView3
'
Me.GridView3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView3.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView3.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView3.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn15, Me.GridColumn16, Me.GridColumn17, Me.GridColumn18})
Me.GridView3.GridControl = Me.GridControl3
Me.GridView3.Name = "GridView3"
Me.GridView3.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView3.OptionsView.ColumnAutoWidth = False
Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
Me.GridView3.OptionsView.ShowAutoFilterRow = True
Me.GridView3.OptionsView.ShowGroupPanel = False
'
'GridColumn15
'
resources.ApplyResources(Me.GridColumn15, "GridColumn15")
Me.GridColumn15.FieldName = "Select"
Me.GridColumn15.Name = "GridColumn15"
'
'GridColumn16
'
Me.GridColumn16.FieldName = "Username"
Me.GridColumn16.Name = "GridColumn16"
Me.GridColumn16.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn16, "GridColumn16")
'
'GridColumn17
'
Me.GridColumn17.FieldName = "Email"
Me.GridColumn17.Name = "GridColumn17"
Me.GridColumn17.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn17, "GridColumn17")
'
'GridColumn18
'
Me.GridColumn18.FieldName = "ID"
Me.GridColumn18.Name = "GridColumn18"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'Label8
'
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'txtPath
'
resources.ApplyResources(Me.txtPath, "txtPath")
Me.txtPath.Name = "txtPath"
'
'btnopenfolder
'
Me.btnopenfolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG
resources.ApplyResources(Me.btnopenfolder, "btnopenfolder")
Me.btnopenfolder.Name = "btnopenfolder"
Me.btnopenfolder.UseVisualStyleBackColor = True
'
'btnUpdatePath
'
Me.btnUpdatePath.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1
resources.ApplyResources(Me.btnUpdatePath, "btnUpdatePath")
Me.btnUpdatePath.Name = "btnUpdatePath"
Me.btnUpdatePath.UseVisualStyleBackColor = True
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SelectAllToolStripMenuItem, Me.AuswahlAufhebenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'SelectAllToolStripMenuItem
'
resources.ApplyResources(Me.SelectAllToolStripMenuItem, "SelectAllToolStripMenuItem")
Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
'
'AuswahlAufhebenToolStripMenuItem
'
Me.AuswahlAufhebenToolStripMenuItem.Name = "AuswahlAufhebenToolStripMenuItem"
resources.ApplyResources(Me.AuswahlAufhebenToolStripMenuItem, "AuswahlAufhebenToolStripMenuItem")
'
'frmUserKonfig 'frmUserKonfig
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -1707,10 +1835,15 @@ Partial Class frmUserKonfig
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) Me.XtraTabPage3.ResumeLayout(False)
Me.PerformLayout Me.XtraTabPage3.PerformLayout()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub End Sub
Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet
Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter
@ -1868,4 +2001,19 @@ End Sub
Friend WithEvents WAN_ENVIRONMENTCheckBox As System.Windows.Forms.CheckBox Friend WithEvents WAN_ENVIRONMENTCheckBox As System.Windows.Forms.CheckBox
Friend WithEvents DATE_FORMATComboBox As System.Windows.Forms.ComboBox Friend WithEvents DATE_FORMATComboBox As System.Windows.Forms.ComboBox
Friend WithEvents LOG_OUT_WHENTextBox As System.Windows.Forms.TextBox Friend WithEvents LOG_OUT_WHENTextBox As System.Windows.Forms.TextBox
Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridColumn15 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn16 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn17 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn18 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents txtPath As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents btnopenfolder As System.Windows.Forms.Button
Friend WithEvents btnUpdatePath As System.Windows.Forms.Button
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AuswahlAufhebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class End Class

1175
app/DD-Record-Organiser/frmUserKonfig.resx
View File

File diff suppressed because it is too large Load Diff

95
app/DD-Record-Organiser/frmUserKonfig.vb
View File

@ -1,4 +1,5 @@
Public Class frmUserKonfig Imports DD_LIB_Standards
Public Class frmUserKonfig
Private Shared _Instance As frmUserKonfig = Nothing Private Shared _Instance As frmUserKonfig = Nothing
Public Shared Function Instance() As frmUserKonfig Public Shared Function Instance() As frmUserKonfig
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@ -241,6 +242,31 @@
Load_Groups() Load_Groups()
LoadGroupsForSelectedUser() LoadGroupsForSelectedUser()
Case 1 Case 1
Case 2
Load_Client_relations()
Case 3
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 0 ORDER BY T.USERNAME")
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check wether User is listed in User Client Relation!", MsgBoxStyle.Critical)
End Try
End Select End Select
End Sub End Sub
@ -300,7 +326,7 @@
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)}) 'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check whether User is listed in User Client Relation!", MsgBoxStyle.Critical) MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check wether User is listed in User Client Relation!", MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
@ -418,15 +444,18 @@
Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged
Select Case TabControl3.SelectedIndex Select Case TabControl3.SelectedIndex
Case 1 Case 0
Load_Users_not_Related_2_Client() Load_Client_relations()
Try
cmbClientsforUser.SelectedIndex = 1
Catch ex As Exception
End Try
cmbClientsforUser.SelectedIndex = 0
End Select End Select
End Sub End Sub
Sub Load_Client_relations()
Load_Users_not_Related_2_Client()
Try
cmbClientsforUser.SelectedIndex = 1
Catch ex As Exception
End Try
cmbClientsforUser.SelectedIndex = 0
End Sub
Sub Load_Users_not_Related_2_Client() Sub Load_Users_not_Related_2_Client()
Try Try
DD_ECMAdmin.TBWH_Users2.Clear() DD_ECMAdmin.TBWH_Users2.Clear()
@ -552,7 +581,7 @@
'End Sub 'End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
delete_user() Delete_user()
End Sub End Sub
@ -577,4 +606,50 @@
Delete_user() Delete_user()
End If End If
End Sub End Sub
Private Sub btnopenfolder_Click(sender As Object, e As EventArgs) Handles btnopenfolder.Click
Dim fbdia As New FolderBrowserDialog
If fbdia.ShowDialog() = DialogResult.OK Then
txtPath.Text = fbdia.SelectedPath
End If
End Sub
Private Sub btnUpdatePath_Click(sender As Object, e As EventArgs) Handles btnUpdatePath.Click
Dim msg As String = ""
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_VERSION_USER_UPDATE_PATH Where USER_ID = " & row.Item(5) & " AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'"
If clsDatabase.Execute_Scalar(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_VERSION_USER_UPDATE_PATH (USER_ID,MODULE_NAME,UPDATE_PATH) VALUES ( ({0}, {1}, '{2}'))", row.Item(5), "RECORD-ORGANIZER", txtPath.Text)
Else
sql = String.Format("UPDATE TBDD_VERSION_USER_UPDATE_PATH SET UPDATE_PATH = '{0}' WHERE USER_ID = {1} AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'", txtPath.Text, row.Item(5))
End If
If ClassDatabase.Execute_non_Query(sql, False) = False Then
msg &= vbNewLine & String.Format("for User '{0}'", row.Item(1))
End If
End If
Next
If msg <> String.Empty Then
msg = "Error in Adding UpdatePath" & msg
MsgBox(msg, MsgBoxStyle.Critical)
Else
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
row.Item(0) = CBool(False)
Next
End If
End Sub
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
row.Item(0) = CBool(True)
Next
End Sub
Private Sub AuswahlAufhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswahlAufhebenToolStripMenuItem.Click
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
row.Item(0) = CBool(False)
Next
End Sub
End Class End Class

10
app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb generated
View File

@ -41,8 +41,8 @@ Partial Class frmWD_IndexFile
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.PATHTextBox = New System.Windows.Forms.TextBox() Me.PATHTextBox = New System.Windows.Forms.TextBox()
Me.lvwIndices = New System.Windows.Forms.ListView() Me.lvwIndices = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader) Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader) Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.DOCTYPE_IDTextBox = New System.Windows.Forms.TextBox() Me.DOCTYPE_IDTextBox = New System.Windows.Forms.TextBox()
Me.chkdelete_origin = New System.Windows.Forms.CheckBox() Me.chkdelete_origin = New System.Windows.Forms.CheckBox()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
@ -285,10 +285,10 @@ Partial Class frmWD_IndexFile
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtFilepath As System.Windows.Forms.TextBox Friend WithEvents txtFilepath As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label

24
app/SetupWiX/Product.wxs
View File

@ -34,7 +34,7 @@
<MajorUpgrade <MajorUpgrade
AllowDowngrades="no" AllowDowngrades="no"
AllowSameVersionUpgrades="no" AllowSameVersionUpgrades="no"
DowngradeErrorMessage="A newer version of [ProductName] is already installed. The setup will terminate." DowngradeErrorMessage="A newer version of [ProductName] is already installed. The setup will terminate."
/> />
<Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" /> <Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" />
@ -47,10 +47,10 @@
<!-- UPGRADE END --> <!-- UPGRADE END -->
<!-- Legt das Icon fest --> <!-- Legt das Icon fest -->
<Icon Id="DDRecordOrganiser.exe" SourceFile="DD-Record-Organiser.exe" /> <Icon Id="DDRecordOrganizer.exe" SourceFile="DD-Record-Organizer.exe" />
<!-- Zeige Icon in Systemsteuerung > Programme entfernen --> <!-- Zeige Icon in Systemsteuerung > Programme entfernen -->
<Property Id="ARPPRODUCTICON" Value="DDRecordOrganiser.exe" /> <Property Id="ARPPRODUCTICON" Value="DDRecordOrganizer.exe" />
<!-- Liest den Installationsort über die Registry aus --> <!-- Liest den Installationsort über die Registry aus -->
<Property Id="APPLICATIONFOLDER"> <Property Id="APPLICATIONFOLDER">
@ -89,11 +89,11 @@
</Directory> </Directory>
</Directory> </Directory>
<!-- Die DD-Record-Organiser.exe und Shortcuts für Desktop und Startmenü --> <!-- Die DD-Record-Organizer.exe und Shortcuts für Desktop und Startmenü -->
<Component Id="MainExecutable" Guid="9CC5D446-F056-4A09-995D-9DF53A7F0E38"> <Component Id="MainExecutable" Guid="9CC5D446-F056-4A09-995D-9DF53A7F0E38">
<File Id="PMOEXE" Name="DD-Record-Organiser.exe" Source="DD-Record-Organiser.exe" KeyPath="yes"> <File Id="PMOEXE" Name="DD-Record-Organizer.exe" Source="DD-Record-Organizer.exe" KeyPath="yes">
<Shortcut Id="StartMenuShortcut" Directory="ProgramMenuDir" Name="ADDI-RecordOrganiser" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganiser.exe" IconIndex="0" Advertise="yes" /> <Shortcut Id="StartMenuShortcut" Directory="ProgramMenuDir" Name="ADDI-RecordOrganizer" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganizer.exe" IconIndex="0" Advertise="yes" />
<Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="ADDI-RecordOrganiser" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganiser.exe" IconIndex="0" Advertise="yes" /> <Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="ADDI-RecordOrganizer" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganizer.exe" IconIndex="0" Advertise="yes" />
</File> </File>
<!-- Programmordner bei Deinstallation entfernen--> <!-- Programmordner bei Deinstallation entfernen-->
<util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" /> <util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
@ -183,7 +183,7 @@
<!-- Lokalisierung für DEVEXPRESS Bibliotheken--> <!-- Lokalisierung für DEVEXPRESS Bibliotheken-->
<Directory Id="LOCALE_DE" Name="de"> <Directory Id="LOCALE_DE" Name="de">
<Component Id="RecordOrganizer.Locales.de" Guid="C9476586-46A4-450A-88F4-BE416B7AD21C"> <Component Id="RecordOrganizer.Locales.de" Guid="C9476586-46A4-450A-88F4-BE416B7AD21C">
<File Id="DDRecordOrganiser.resource.de" Name="DD-Record-Organiser.resources.dll" Source="de\DD-Record-Organiser.resources.dll"></File> <File Id="DDRecordOrganizer.resource.de" Name="DD-Record-Organizer.resources.dll" Source="de\DD-Record-Organizer.resources.dll"></File>
</Component> </Component>
<Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391"> <Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
@ -212,13 +212,13 @@
<Directory Id="LOCALE_EN_GB" Name="en-GB"> <Directory Id="LOCALE_EN_GB" Name="en-GB">
<Component Id="RecordOrganizer.Locales.en_gb" Guid="7FAA9173-9012-4EBB-A408-04AB25D3C9DF"> <Component Id="RecordOrganizer.Locales.en_gb" Guid="7FAA9173-9012-4EBB-A408-04AB25D3C9DF">
<File Id="DDRecordOrganiser.resource.en_gb" Name="DD-Record-Organiser.resources.dll" Source="en-GB\DD-Record-Organiser.resources.dll"></File> <File Id="DDRecordOrganizer.resource.en_gb" Name="DD-Record-Organizer.resources.dll" Source="en-GB\DD-Record-Organizer.resources.dll"></File>
</Component> </Component>
</Directory> </Directory>
<Directory Id="LOCALE_EN_US" Name="en-US"> <Directory Id="LOCALE_EN_US" Name="en-US">
<Component Id="RecordOrganizer.Locales.en_us" Guid="AC6E160E-8FDE-41F4-98FD-41FD668AF320"> <Component Id="RecordOrganizer.Locales.en_us" Guid="AC6E160E-8FDE-41F4-98FD-41FD668AF320">
<File Id="DDRecordOrganiser.resource.en_us" Name="DD-Record-Organiser.resources.dll" Source="en-US\DD-Record-Organiser.resources.dll"></File> <File Id="DDRecordOrganizer.resource.en_us" Name="DD-Record-Organizer.resources.dll" Source="en-US\DD-Record-Organizer.resources.dll"></File>
</Component> </Component>
</Directory> </Directory>
</Directory> </Directory>
@ -242,8 +242,8 @@
<RegistryKey Key="Classes"> <RegistryKey Key="Classes">
<RegistryKey Key="pmo" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="yes" Id="REGKEYCUSTOMURLHANDLER"> <RegistryKey Key="pmo" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="yes" Id="REGKEYCUSTOMURLHANDLER">
<RegistryValue Type="string" Name="URL Protocol" Value="" /> <RegistryValue Type="string" Name="URL Protocol" Value="" />
<RegistryValue Key="DefaultIcon" Type="string" Value="&quot;[INSTALLDIR]DD-Record-Organiser.exe,0&quot;" /> <RegistryValue Key="DefaultIcon" Type="string" Value="&quot;[INSTALLDIR]DD-Record-Organizer.exe,0&quot;" />
<RegistryValue Key="shell\open\command" Type="string" Value="&quot;[INSTALLDIR]DD-Record-Organiser.exe&quot; --data %1" /> <RegistryValue Key="shell\open\command" Type="string" Value="&quot;[INSTALLDIR]DD-Record-Organizer.exe&quot; --data %1" />
</RegistryKey> </RegistryKey>
</RegistryKey> </RegistryKey>

99
app/VERSION_CHECKER/ClassInit.vb
View File

@ -6,7 +6,7 @@ Public Class ClassInit
End Sub End Sub
Public Sub InitLogger() Public Sub InitLogger()
ClassLogger.Init("", "VersionChecker") ClassLogger.Init("", "")
clsLogger.LOGFILE_PATH = ClassLogger.logDateiname clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
End Sub End Sub
@ -24,31 +24,40 @@ Public Class ClassInit
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Unexpected Error in InitDatabase: " & ex.Message, True)
Return False Return False
End Try End Try
End Function End Function
Public Sub InitBasics() Public Sub InitBasics()
Try Try
InitAddons() Dim UPDATE_ID As Integer
Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1") InitInstallPath()
Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = ('Record-Organizer')")
Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False) Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False)
If KONFIG_DT.Rows.Count = 1 Then If KONFIG_DT.Rows.Count = 1 Then
Try MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("UPDATE_PATH")
VERSION_SERVER = KONFIG_DT.Rows(0).Item("VERSION_CLIENT")
Catch ex As Exception
End Try
End If End If
sql = String.Format("SELECT * FROM TBDD_VERSION_UPDATE WHERE GUID = (SELECT MAX(GUID) FROM TBDD_VERSION_UPDATE WHERE UPPER(MODULE_NAME) = UPPER('{0}'))", "Record-Organizer")
Dim DT_UPDATE As DataTable = clsDatabase.Return_Datatable(sql, False)
If Not IsNothing(DT_UPDATE) Then
If DT_UPDATE.Rows.Count = 1 Then
UPDATE_ID = DT_UPDATE.Rows(0).Item("GUID")
VERSION_SERVER = DT_UPDATE.Rows(0).Item("VERSION_NO")
FORCE_UPDATE = DT_UPDATE.Rows(0).Item("FORCE_UPD")
VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD")
sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} ORDER BY GUID", UPDATE_ID)
DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
End If
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in InitBasics:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Unexpected Error in InitBasics: " & ex.Message, True)
End Try End Try
End Sub End Sub
Public Shared Function InitUserLogin(Optional _User As String = "") Public Shared Function InitUser(Optional _User As String = "")
Try Try
Dim sql = "" Dim sql = ""
USER_USERNAME = Environment.UserName USER_USERNAME = Environment.UserName
@ -63,63 +72,55 @@ Public Class ClassInit
Return False Return False
Else Else
USER_GUID = USER_DT.Rows(0).Item("GUID") USER_GUID = USER_DT.Rows(0).Item("GUID")
sql = String.Format("SELECT UPDATE_PATH FROM TBPMO_USER_UPDATE_PATH WHERE USER_ID = {0}", USER_GUID) USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
sql = String.Format("SELECT UPDATE_PATH FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
Dim USER_UPDATE_PATH = clsDatabase.Execute_Scalar(sql) Dim USER_UPDATE_PATH = clsDatabase.Execute_Scalar(sql)
If Not IsNothing(USER_UPDATE_PATH) Then If Not IsNothing(USER_UPDATE_PATH) Then
If USER_UPDATE_PATH <> String.Empty Then If USER_UPDATE_PATH <> String.Empty Then
MyServer_UpdatePath = USER_UPDATE_PATH MyServer_UpdatePath = USER_UPDATE_PATH
End If End If
End If End If
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '1.0.0.0' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '')", USER_GUID) sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '1.0.0.0' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MACHINE_NAME) = UPPER('{1}') AND UPPER(MODULE) = UPPER('{2}'))", USER_GUID, Environment.MachineName, "Record-Organizer")
VERSION_USER = clsDatabase.Execute_Scalar(sql) VERSION_USER = clsDatabase.Execute_Scalar(sql)
If IsNothing(VERSION_USER) Then
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '1.0.0.0' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MODULE) = UPPER('{1}'))", USER_GUID, "Record-Organizer")
VERSION_USER = clsDatabase.Execute_Scalar(sql)
If IsNothing(VERSION_USER) Then
VERSION_USER = "1.0.0.0"
End If
End If
Return True Return True
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) ClassLogger.Add("Unexpected Error in InitUser_Update_Spec: " & ex.Message, True)
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
End Function End Function
Public Sub InitAddons() Public Sub InitInstallPath()
Try Try
Dim CurrentDir As String = My.Application.Info.DirectoryPath Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Digital Data\Record Organizer", "Path", Nothing)
' Dim Sql As String = "SELECT PATH_ADDONS from TBPMO_KONFIGURATION WHERE GUID = 1" If Not IsNothing(readValue) Then
Dim AddonPath As String = MY_ADDON_PATH ' ClassDatabase.Execute_Scalar(Sql) MY_INSTALL_PATH = readValue
Dim Dev_AddonPath As String = System.IO.Path.GetFullPath(System.IO.Path.Combine(CurrentDir, "..\..\..\..\app"))
If AddonPath Is Nothing OrElse AddonPath = "" Then
' Addon Pfad in der Datenbank ist leer
Dim path = System.IO.Path.Combine(CurrentDir, "Addons")
Dim AddonDir As New DirectoryInfo(path)
If AddonDir.Exists Then
AddonPath = path
Else
AddonPath = Dev_AddonPath
End If
Else Else
' Addon Pfad steht in der Datenbank MY_INSTALL_PATH = readValue = ""
Dim path = AddonPath
Dim AddonDir As New DirectoryInfo(path)
If (AddonDir.Exists) Then
If AddonDir.Name = "Addons" Then
AddonPath = path
Else
AddonPath = Dev_AddonPath
End If
Else
AddonPath = Dev_AddonPath
End If
End If End If
MY_ADDON_PATH = AddonPath
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in InitAddons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True)
End Try End Try
End Sub End Sub
Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
Try
Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
Return clsDatabase.Execute_non_Query(insert, False)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True)
Return False
End Try
End Function
End Class End Class

14
app/VERSION_CHECKER/ClassLogger.vb
View File

@ -1,4 +1,5 @@
Imports System.IO Imports System.IO
Imports DD_LIB_Standards
Public Class ClassLogger Public Class ClassLogger
Public Shared DateiSpeicherort As String = Nothing Public Shared DateiSpeicherort As String = Nothing
Public Shared DateiPrefix As String = "" Public Shared DateiPrefix As String = ""
@ -39,13 +40,12 @@ Public Class ClassLogger
' legt den Speicherort fest ' legt den Speicherort fest
Public Shared Sub SetSpeicherort(ByVal speicherort As String) Public Shared Sub SetSpeicherort(ByVal speicherort As String)
Dim f As String = Application.UserAppDataPath() & "\Log" Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\RecordOrganizer-VersionCheck\Log"))
If speicherort = "" Then If speicherort = "" Then
If IO.Directory.Exists(f) = False Then If IO.Directory.Exists(f.ToString) = False Then
IO.Directory.CreateDirectory(f) IO.Directory.CreateDirectory(f.ToString)
End If End If
ClassLogger.DateiSpeicherort = f ClassLogger.DateiSpeicherort = f.ToString
Else Else
ClassLogger.DateiSpeicherort = speicherort ClassLogger.DateiSpeicherort = speicherort
End If End If
@ -61,7 +61,9 @@ Public Class ClassLogger
If ClassLogger.OpenFile Then If ClassLogger.OpenFile Then
Try Try
If ACHTUNG Then If ACHTUNG Then
ClassLogger.StreamWriter.WriteLine("#ATTENTION# (" & System.DateTime.Now & "): " & information) ClassLogger.StreamWriter.WriteLine("#ERROR# (" & System.DateTime.Now & "): " & information)
ERROR_WHILE_UPDATING = True
Else Else
ClassLogger.StreamWriter.WriteLine(information) ClassLogger.StreamWriter.WriteLine(information)
End If End If

45
app/VERSION_CHECKER/ModuleMySettings.vb
View File

@ -8,14 +8,19 @@ Module ModuleMySettings
Public DTEXCLUDE_FILES As DataTable Public DTEXCLUDE_FILES As DataTable
Public USER_USERNAME As String = "" Public USER_USERNAME As String = ""
Public USER_GUID As Integer Public USER_GUID As Integer
Public USER_LANGUAGE As String = "de-DE"
Public MyConnectionString As String = "" Public MyConnectionString As String = ""
Public MyServer_UpdatePath As String = "" Public MyServer_UpdatePath As String = ""
Public VERSION_SERVER As String = "" Public VERSION_SERVER
Public VERSION_USER As String = "1.0.0.0" Public VERSION_USER
Public FORCE_UPDATE As Boolean = False
Public VERSIONS_FOR_FORCE_UPDATE As String = ""
Public FOLDER_TEMP As String Public FOLDER_TEMP As String
Public LogErrorsOnly As Boolean = True Public LogErrorsOnly As Boolean = True
Public MY_ADDON_PATH As String Public MY_INSTALL_PATH As String
Public DT_UPDATE_ITEMS As DataTable
Public ERROR_WHILE_UPDATING As Boolean = False
Public Function LoadFileExclusion() Public Function LoadFileExclusion()
Dim rowresult As String = "" Dim rowresult As String = ""
@ -143,38 +148,4 @@ Module ModuleMySettings
End Try End Try
End Function End Function
Private Function CreateConfigTable() As DataTable
Try
' Create sample Customers table, in order
' to demonstrate the behavior of the DataTableReader.
Dim table As New DataTable
table.TableName = "MyConfig"
' Create two columns, ID and Name.
Dim idColumn As DataColumn = table.Columns.Add("ID", _
GetType(System.Int32))
idColumn.AutoIncrement = True
idColumn.AutoIncrementSeed = 0
idColumn.AutoIncrementStep = 1
table.Columns.Add("ConfigName", GetType(System.String))
table.Columns.Add("Value", GetType(System.String))
'Set the ID column as the primary key column.
table.PrimaryKey = New DataColumn() {idColumn}
Dim newRow As DataRow = table.NewRow()
newRow("ConfigName") = "MyConnectionString"
newRow("Value") = ""
table.Rows.Add(newRow)
Dim newRow1 As DataRow = table.NewRow()
newRow1("ConfigName") = "LogErrorsOnly"
newRow1("Value") = "True"
table.Rows.Add(newRow1)
table.AcceptChanges()
Return table
Catch ex As Exception
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
End Module End Module

5
app/VERSION_CHECKER/VERSION_CHECKER.vbproj
View File

@ -50,11 +50,6 @@
<Reference Include="DD_LIB_Standards"> <Reference Include="DD_LIB_Standards">
<HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath> <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />

49
app/VERSION_CHECKER/frmVersionCheck.Designer.vb generated
View File

@ -25,17 +25,20 @@ Partial Class frmVersionCheck
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVersionCheck)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVersionCheck))
Me.lblStatus = New System.Windows.Forms.Label() Me.lblStatus = New System.Windows.Forms.Label()
Me.pbStatus = New System.Windows.Forms.ProgressBar() Me.pbStatus = New System.Windows.Forms.ProgressBar()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'lblStatus 'lblStatus
' '
Me.lblStatus.AutoSize = True Me.lblStatus.AutoSize = True
Me.lblStatus.BackColor = System.Drawing.SystemColors.Control Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.lblStatus.ForeColor = System.Drawing.SystemColors.Info
Me.lblStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.lblStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblStatus.Location = New System.Drawing.Point(-1, 19) Me.lblStatus.Location = New System.Drawing.Point(213, 94)
Me.lblStatus.Name = "lblStatus" Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(163, 15) Me.lblStatus.Size = New System.Drawing.Size(173, 15)
Me.lblStatus.TabIndex = 3 Me.lblStatus.TabIndex = 3
Me.lblStatus.Text = "Checking for newer version...." Me.lblStatus.Text = "Checking for newer version...."
Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -43,30 +46,62 @@ Partial Class frmVersionCheck
'pbStatus 'pbStatus
' '
Me.pbStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.pbStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.pbStatus.Location = New System.Drawing.Point(2, 37) Me.pbStatus.Location = New System.Drawing.Point(216, 112)
Me.pbStatus.Name = "pbStatus" Me.pbStatus.Name = "pbStatus"
Me.pbStatus.Size = New System.Drawing.Size(546, 23) Me.pbStatus.Size = New System.Drawing.Size(320, 23)
Me.pbStatus.TabIndex = 2 Me.pbStatus.TabIndex = 2
' '
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.SystemColors.Info
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Location = New System.Drawing.Point(23, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(208, 21)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Checking for new updates"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.PictureBox2.Location = New System.Drawing.Point(27, 36)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(183, 185)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox2.TabIndex = 5
Me.PictureBox2.TabStop = False
'
'frmVersionCheck 'frmVersionCheck
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(551, 92) Me.BackColor = System.Drawing.Color.DodgerBlue
Me.ClientSize = New System.Drawing.Size(551, 229)
Me.ControlBox = False Me.ControlBox = False
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.pbStatus) Me.Controls.Add(Me.pbStatus)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmVersionCheck" Me.Name = "frmVersionCheck"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Checking for newer version of ADDI" Me.Text = "Checking for newer version of ADDI"
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents lblStatus As System.Windows.Forms.Label Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
End Class End Class

315
app/VERSION_CHECKER/frmVersionCheck.resx
View File

@ -118,6 +118,321 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAaUAAAGkCAYAAACRjjoLAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EwAACxMBAJqcGAAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAEgsSURBVHhe7Z0H
lBRV2ob//V1dBURAxDURDKtINOAakGAOuIJigEVERBcFXRDMiqOiYsBBRRATKhnBIUdxyFFFxQAIDFkx
ja6u4u5/zv3rLeY2t6u/6qnq6VBV/T7nPEecru7p6am679x7v3vrfwghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQmwKLYstCyzbWja1JIQQQnICAkkJrrYsskRYtbKsa0kIIYRkFLdQchPHD7fsZYmwqmZJ
CCGEpAW/oSRZaonXwVBgF0uEFSGEEOKbdISSmyWWeH3OVxFCCPFEJkPJTcxXYQiQ81WEEELiyEUouamH
ADlfRQgheUqQQklSz1ehV8X5KkIIiThBDyU3MV+lS9Y5X0UIIREBjbvU6IdVzlcRQkiIkRr2KMr5KkII
CQFSA54vcr6KEEIChtRY57ucryKEkBwhNcqibavUU90Oqm//99xKR6rT9q+ljvhjZVVzn/3F4yMo56sI
ISTDSI2vKMKoR7WGrl5z4LHqksq17bA6Yb/qdmBJrxMxzS2WOF9FCCEVRGpoRcsLJTd176r5AYfFelcH
/u9+4veIkOYWS5yvIoQQj0gNqmiqoZTMPOxdmbcE4XwVIYQ4kBpO0UyEkptm76rJnw7Oh94VelWcryKE
5D1SAymazVBKJt6H7l3V27dqlHtXnK8ihOQdUmMoGpRQcrNz1ePzpXfF+SpCSGSRGj3RoIdSMp29q4iW
sXO+ihASeqTGTTTMoeSm7l0hrHTv6k9/2Ef8+UMs56sIIaFBasREoxhKycTPqxcJR7B3xfkqQkggkRos
0XwLJTcj3rtyzldxCJAQklWkhkmUoZTciG/B5Jyv4hAgISQjSA2QKEMpdbFIWPeu9CLhiPSunPNVHAIk
hFQIqaERZSil34j2rqT5KkLShnXttLLsZVlg2MWSPfgIIDUqogyl7BrBLZg4X0VSwroeqlkihIr09ZFE
BlPIkRoPUYZSMIzgBrecryIi1vmOHtFw8/yH+g+2xn86uOSQfQ7A8HEv61pATwk9Jv6xE3KkRkKUoRR8
I9a74nxVnmKdywiYYn1e4w8xDHFjaUayudjDDjusZMas2QylkCP+ciUZSuE1Qhvccr4qoljnqR6iK9Hn
Lc5Z/HFlPZzgBRdcqAY8+aR67fXhashLL6m77rlHNWrcWM1fuEjNmjMXf8iQEIK/PMVfuCRDKZri9xqB
DW45XxVSrHOwrmWhZak+J9ErcjsPr776arVq1fvqq6++Vlu3blMbNmxUn37+hVr1wYfqvfkL1LvvFauF
i5fg3zgPSMjAX5niL16SoZRfRmSDW3O+Cuc756sCgnWOxc0XoTePc006x6pWrar69OmjvvhirdqxY6ct
Qunrr3epbdu2D/9yw8a2n32xNja8O3fee22XLFuO+UkSMhhKNCWdvasQlrHr+SpusZRlrPMnbr4If/zg
jx5prqhBgwaqsHBQLIgcDreCiX9kRAyGEk2rId+CyZyv4i1B0oh1bviaL8IQ3YQJE6UgKrEssOQfERGF
oUSzJs6fkG5wa85X8ZYgPrB+757ni4466ih7iG758hVSGK225BxRHuArlDDeq08sStNliHtXxAXr9+p5
vuiMM85MOkRnyT8C8ghfoYRGQ59klGZaXcYe4C2Y2Fg6sH5vnuaLULiAIbo5c+ZKQcQhujyGoURDaUA2
uGV1l4X1+/A8X4Qhuocffjiuis6w2JKfaZ7DUKKRMsu9q7xeoGl93pgvwhBd3HyR9HlfdNFFboULpZYY
omMVHbFhKNG8MQNbMKGkPO+wPkvMF8U2RsUfAvhMnfNFGKLr3bu3WrJkqdq+fYczjOzCBUsO0ZE4GEo0
79W9K0zE4xxHWHlcJIyKvFBi/dxNLc3bPkDMBbkZ6w1pMV+EcHcOm55++hlq4MCBasuWrXFi9wUrhNAr
QrtDiAhDiea1fao3VQ9UPyXOATVOV8/UONO25f6Hi9dCmVjXFDqsnxsl2uLn4UUEOEr6rZeKiV5R+/ZX
qZkzZyWEkWWJZYEle0WkXBhKNJQ6g6SgerNYkGhfOrileu3g1nFOrHmRLx856DTxWjDMSENr/YwoHsAw
WVtLZ4/GFNVuOM7TnIx1nF2mjaFMPe/mVJflSzrni4488ki7V7RmzadSGBVZsnCB+IKhRLOm1CtxBsmg
Gs0TgmRczQvEwMiGQ2u0FK8FwwoPRVmfDQoGEC7owWCoTPz8PIghNjwfYZVQrl72ddddFPyIXtG4ceOl
ICq1LLRk4QJJCYYSLVdnkPSv8deEMHH2St48+FyxkQ+j0rVgmNIuA9bnih4QQihWRp0BEVLoGaEnhdBL
6OmcUL++OuXUU9VJJ5+sjjn22LjH3Pz4kzVSGBVbcscFUmEYShH17uonJYSJM0gGH9wiLkhgLnslQbXB
vjXE66FMz2Xh1u9F73KQUDTgpt7tQlI6PplmD6lHjx5q06ZNdlXc+i83qI+soFm2YqWaPHWaeuDBfuqy
v/1N1at3tPlz2l7Zvr3aVLLZdvPmLQij4ZbsFZG0wVAKkP+s1jghSKReiTNIotQrCaJtDqgrXg9l4rYY
SbF+t+ilJO0RIWRQ/ZdKqTp6Pyg8wPXpFlZ4TB//t79drn7//T/qt992q19++UV9//33drh8+vkXbZcu
X9FqXvH8VtNmzGw1acrUgjdHjCy+9777YyE1bNjLsVCyxJ6AhKQVhlIadPZKpEl3qVciNYA0eN5Qub54
PZSJ+zWJWOcGyq7FOSKEB64nvwHkRZRoI6RQyIByd6zN0o81adJE7dr1jfrPf/6r/vvf/7P+i3D6rdzt
kqyAskNq9tQZq9d8+pkdSlMKX1lt/SzOggtW2JEKkbehJPVKzFJgrTNIRtU8X2y4aHT1UIGXgHWOYdud
uHMO4SCt68mk+F7Vq1S1bdGihRVIu9Tu3bvL/F0tGzMZPbikQWI9jnDF/BdCyP5ZHmlxpbr3xHPjfj5D
DE9icS0+Aw7tEV+ELpScQZKpUmBKTaXrwTCu4bXO07jdsXHdBOGOvU0bNFKjRo9WP//8sx1Kc14Yrq8r
3D8qAevrccOOzkXGpuiV4TEco483xGsg1NDeEJKUQIQS5k2kUmD2SmhQrLXPAeI1UWassbXO51ggoaHO
wSax5XriccerezrdpG4/7BTzOowFq/XvWBjpXb797B+IAEaPED1DIaR0RSCqDznURxIIRCixJ0ODbjkV
eLileiyQ0BBnYq4o3R5Xp556vEN3HU7oycTmwBAo6foZ8DroXSHg8NoO9bwUQ4rYBCKU2COiQfeaSknX
8KBBtxemYqeEIPaO3Lzo4kvUG68OV/2v6maXqWMIrrxeUf0TT1QPPPigmjx5ipo2fYZ6/oXB6tYePdR5
552vatU6VHyOFq+Nnhc+J339O0QPDcGoP1MUT3DYL4/AGgvx5JHMVChJjQClQfLuqieL1wQ86o9V7AYd
w3XS40F3yEvD1OAXh6iG9Y4TH4fYTqhfv4fUwkWL1cZNJXGuW/9lyYpV7xfOnfdewbQZM4e/OPSl1V1v
7Kbq1qsnvpZWVwmiF+VWyu4QnzMCCz3SrFb8Wd8Du27YAWmI92CK4g68P7/qnweiOMR+/bJvnXfkPJRQ
BSc1ApQGyYHVzhKvCTSsGJYyy64zbatWrVRBQYFtcXGxKiwstP/dtm1bVbdu0jVVovWOPlpVrpw4VJds
k1WsUbICqdDStZx8YtGkto8PGFB41dVXl3h9X5iPwnAfelNobxBWSXpV2th6KevfzuDQmuFhKoWE/UdG
gMR70sGFnyXSw5w5DyVU0EmNAKVB0+2ayMaQHRr14cOHq9WrVysNwqmoqMj+N8IJjwMc06VLF/F1vOh2
6wlL7GuHHRx83wZ+3NsTmj762OOFF118Sckhh+xdyOtHfMYILBRR4HPHHwIee1gpi9c3xffE9zbFe3Lq
Vm2pfwan5uvp7yW9H0PMxWGIM3JzcQwlSj1a94/xt2tAw4OiBj+VaX6tVq1aLGzwX3wNAQTx76ZNm9qP
6Z4IKC0ttXtPJSUldnDp10omekVdu95o35DPCCFtWve1Q0Bd2qZNoRV+uPWH+H782Ln9tar9IXvK1U3d
dkHHkKEUDNJr51oziMsZ5sTQIYYzQx9QOQ8lrCuSGgBKg2br/Y+Iux7QSGCYyfxaOkXg6OE5BA2G6PB1
BBUe08eZQ2PoOenHNHi+ftzNNm0uszdaLSnZrIMoK7t993/88bbNzz676JBDDhHfF5VFUKE9FoY2MfSI
HlRoFy0zlGjei70DsQ0UzkW9KBu32XCeq+bmqLgWMjmPhGAxgwj/77XXowV6WE/3stz8858PUwsWLbZd
sXKV69ZJmWLUmLF1W7RsWXDMscdifkh8j7kQu6eb3titW5woEDGd8E6RWrJseYKLrB6o/nyLFyxU84rn
2777XrF6euBA9fQzA9VDDz+s/t7pOnV523aqUePGqnLlKuJ7cooeu0tFI+ahQtdz8hVK6PY6fugKi90X
pIaC0kyJENIBJJ2TXs3UkI8OJID5IekYL+oQQ08KlBdMaDwXL12mFi5ektM76t7Y7aa2Rx55ZHGlShX/
fA877LC4UGnRomVcqNz/wINxoTJ77rsJgZLEUstihwWCraD1ubayQsnWCiZ741toBVMv6/sWlDl8xqzZ
xdNnziqxVOPenqAee+IJ1e2mm9Q5557nqeQew5bGeYqeU6huKeIrlHARGj9sWuTCWZoNEUTY21DqAaUi
ekvSNVJRMTSHuSD9b1TUOY/xK3pbmmSvN3TYy2r5ylVq6fIVaHB9FzOkmyvbt6978sknD69cuXLSuacV
K1fa71v3RNArsd6/V1dbuoVKL0s7UMrM+mdiBVPdqdNntJo8dVqBZZHl6pGjx6i777lXtbnsMiuk5KIR
9J7QkzfO2eHW10NBzkOJC2dpJsWwHHZxl849rd7TzZwYx3AIzneobwsB9WRzpnpJmP8pLzz8itdCNR56
ThjOQ9hJx7386mvq/Q9Xq1UffKhWvv9BYNbJjBozttqf//xn7JoRN7SH4oxhw4bZu53DrVu3lVihVACt
XkkXR6BoQ18IMLFoUjXLVpYFlsX4Y6JHz9tUs2aJGwdjDd0NB52AIgic66jYC/zPn/NQkhoSSisiblSI
4Tm3XhHmhhAuCBu30t1ciGE29JL0PJB0TEV0zlM5vbZDR4SRWv3xJ+rDjz5G2xA42ra7ossdffquHvDk
U1avaJF9C43vvvsO94YqtYIp5727XDHhnaK2496eUPja8DdKbu3R0xlQpVbbrddqiZvvBomchhIXztJ0
i419cV45zzVMAqP3E6QQcopektdiBvR2cGyvXr3snpBb78dUr3FCMEmPw45/72RP1s+YNTvQjdeYceNb
TZk2vWDp8hUF69Z/WbBr1ze8RUYZVjjVtez16uvDV3e+/npVVtlYikDfc0SwyWkocY0STZeYm3T2jDAs
hx5RJtcRpVP0ktBDKi9gdIm4k/JKv9FTQoihJ5ZseLBX7zvUmyNGqjfeGhGqCXKSyKgxY5taFt573/2l
p5x6qrrtn/8M/O+UoURDLeYkcU8t87zSt1vI9C4L6RSBoXEbXoMIrWR4GfbDWqZkAYaqt1dee11hQt1q
0LgZakSwfpddLIvx37IvBZKchhLXKNGK6ByqQ88IK9+lczfooueCXoz0mNYMrmQk6wWhlwTwX+lxbctW
rdXY8W+r0WPHlVqNWKS2scl3rN9noIc6GUo0dKKQwVxjhDBCZVyYekZO0TtC7yXZ0J1Z2p0M9ISk50ME
Fh5PNq+kLXjkETV+wkSslSmy/p+QrJDTUOLCWepXnDNm7whrMYJcvOBVHTgIC3PbIOmY8iivFwS9LMpt
0LChmlg0yS58sOQwHskKOQ0lLpylfsTiV33uoHeEkm7pPA2jCBwERbLqOwzveSFZKOlCBy89JTjouefV
pClTVdHkKcXW/xOScXIaSlw4S72I88RcAIveUZiH6iSxuDXZXBDU2wWVR7K5KQwRAi+9KXje+eeraTNm
qinTpqvJU6ext0QyTk5DSWqAKDXF9kB6uC7MhQzlqYsYEBbJ7oWkQ8UN9IDKKylHaHldnFulShU1a85c
NXP2HDV95qzQbFVDwkvOQokLZ2l5Yosgfb5g8WsU5o6SiUCB5fWY3OaWsM4J4SY9B+IxDA8ikPzcBHDg
s4Vq7rz37M1KLVmJRzIK/vIRT0TJdIYS1yjRZKLcW58r2JNOOh+jJsKivEDSYigPPR70nCBCxsuiW42X
HSC0XW7oat9u4b35C3CrhbbW1wjJGJi8FE9ESYYSzYb9a/w1dp5EdbhOEj0ZvbA1WVl3RUQxhdehO+1x
xx1n7769cPESNWvyNA7hkYySs1DiGiUqqQMJ80dh2R4onSKMQDpDCb0iDNuhd4XAcys5T2ZnqyeGKryJ
I8bg/jwcwiMZg6FEA6MOJMwf5WMgQQSGuVYp2RyRV3URBcB8lHRMeVauXFkNHjLU3uVhzLjxmIsmJCPk
LJS4cJaa4o8UnBcIpKiVe/sV80oYZtO7eqfSs4HoIem5I7yW1zJwN1ufc469mPbtie9A7spNMkLOQokL
Z6lWV9kxkPaKwgWAMMH/I1z89powBIiKPLwW/u2nuMFNq5eE9UpYTMu5JZIRchZKXDhLIdYh4XxgICWK
MEEo6Z6T2dNx6z1heE6HFwoaQLoCCfa98y573dKMWbOxbom9JZJ2chZKUgNF80tsrIr1agwkdxEwehhP
hxKCx9wmCP/W2xPhGPw/jsG/k+3ukIqXXtpGLVm2XM1fuEjNK56PW5QTklZyEkpcOEshlgWgyi7si2I7
d75e9evXT3wsXepek67OAwgiCPAY/o1A0qGUrt6R6bXXdlCbt2xVn32xFrdM5+7hJO3kJJS4RolicWwU
yr6vu+46tXv3bvX777+r9evX2/8vHZcuMWyntwlCT8gUQeR18W2qHn744WrYsJfVunXr1fYdOxhKJO34
CiUohYxfGUr5rR62C/vCWB1IpkYo4doq1cdGzbbtrsDt0kstucMDSSs5CSWuUcpvsR4p7FsHlRNIEI01
FpliTU8kw6n52WcjmGCh9f+EpAWGEs2qqLrsXPX4UBc2eAgk6Fxg2sVytaXzuFBbu3YdNeSlYQimYkvu
9EAqTE5CiQtn81f0ksJ8cz6PgQTd5ltwTyJfGyEHXSOYVjOYSEXJSShx4WzuxbwOfg9arBeSjkun+J7t
qxwjnldhUAqk12+6RzzWEtdWMtB4R6b3dPIpp+ihPAYTqRA5CSUunM2++MxR8YYiE+l3ou1Tvandm8Eu
CwgR6bVSFa8Z1vLv2267LS6Mfv7mezW35S1qYLWzxOPL9AoWoWK4r8RSep1QeOFFF6k3R4y0g8n6f0JS
IiehJDVYNDOiF1RQvZn4eyhPVMghoNL1R0TXA+uL51TQfeWVV8RA0j+X9JwyU+kxNLVEQIWyB9W7T181
asxYyG2ISEpkPZS4cDY7oldSXq/Ij+kIp2P2PUg8p4JseYEEG+xbQ3yuJeaPKgJ6UBjiw/xUKCr4sJv4
a8PfsPfIs2S5OPFN1kOJa5QyK4pIMATn/NxR8db8gMPstUFYBG0Oo2EBK77W5E8HqwsOPkZ1q9tM3XH0
WQmvgT8oMAQofd/yLKzePO48CoNNmjRRn376aSyQNn3wiXqqefuEYc3W+x8hPt8y3dvwIOTQi8J1G9iQ
uvqaa+2dxMdPmFg6sWgS55eIL3yf2M6Gyq8MpcyIYTqpZ4T1QAgc6XeZTFRUdbvpZvVCv8fU4x26qzsb
nBN7TQwH+p1vuqxSardfCIJYjzPBamRfevRp9dCFHRKC+ZpKx4rPs3SWhaebpocdfnivatWqFR144IGB
mY9Cb2n02HH2TQEtM/0ZkIghnlTJNBu8VOQapfSKITXnnBG270EYpaOooFKlSqrj3zvZlVXDBg22A+r2
w05Rd1c/yXPFHt5j2HdvwOfwSP/+9ufwSr8n1dtNOsR+vkcOOk18jiV6NFlj8tRpdS+86KK255x7XoEV
pMXHH398SaPGja2QqCK9t4za58477d3Ep8+cVWrJ3hLxjHhCJdNs/FKRoZQ+8VliSE1/tgij0/avlZGF
qTVr1lT33Hef3Si/NuxVO5zwvb0E04PVT43ELuAIpmGvvKreGjlKvfny67Fgeuvg88TjLXNehYZAsGxl
2aVP3zsL7rr7nqL7H3yw+LrOnUuu63y9ur5LF9vmzc+W3n/KXnzxJWrBosXqvfkLsJs45sUI8YR4QiXT
DJhU5MLZiouhOue8EXpG2Wj4y/Y8sx3yxEB1b8PzkgYThvkwlyW9Vhjt0LEjbnCnJrxTpMa/NUZNrH25
/XNW/sO+4vGWgccKjaaWrQY99zzmrDAPVuHKv1NOPVWt+uBDtWLV+2rp8hXchoh4Rjyhkmk2hKmIBtXZ
cFFvooEfUOP0uM+zbZV6WV/7c0L9+noFv+3jbbu6VuahNxf2W1OYHnvccfa9hNADmDvvPTXluvvsnzNJ
BR5KvMNIhXaeaNbsNPXJp5+pj9d8qj76ZE1WhzFJuBFPqGSaDWIqpmvNS77p7B2hmi6VAoZ0aWwtYzus
5wNi8cOlleuIzw+zH370cawXsODV8fbP2eYA10KOipaF5xqUpSOcfBVFnXbaaerztevs+y59+vkXDCXi
GfGESqYZMKnobLRovAgfU3wNvQ3zM8zUvJFfncE04qFn1ISj/hb7WbBWKpfBmSm/WLfebmzXfPa5WjFy
iv2z9jywkXisZVSqz3Q4ST9jgn/961/V+i83qHXrv1Rr161nKBHPiCdUMs3G0a9cOCuLHoazaEFrlnnj
tuFBuymeM5jeeuL5WDDdWDWcOziU55YtW1XJ5i1q06YS9fHbs+2fNUkFXtTmUxBOCBnpZ415+umnq5KS
zfZntGHjJoYS8Yx4QiXTbDD9yjVKiaJIQFrs6hS9I+n3EQQxx6RDCY667WG7lxf2MnDJBg0aqq+++lrt
3PmV2rFjp/p80nux36V0vGVUG2QURLgO6V144YVq27btauvWbQhx3qGWeEY8oZIpNZheZSjFi0CSekem
QewdSba74oo9pdJ7NuRUD1zTTTwu7F57bQf17bffqW+++Vbt2vWNWv3MiNjvs9Y+B0jPwaLWqIIiDrFS
r2/fO2PhbckFtMQzCSdTeUoNp1e5RmmvGLLTPSQULaBX4ZwnurzFuaFa3/P4gCf1ZpzqyvbtxWPC7uDB
L6rvv/8h5pKbHo/9Tk/b71D794V5NFPrdxzlxaP42RKC6S3rD5PvvvteBzjXKRHPxJ1IXjRDxq8Mpb1i
g1N8JthvTvqcw+iJDRqocW9PUK+/8aaqVCl6BQ7wk08+UaWlP1qWqh9+KFUDGl5i727hPNddLLUstiyw
xNxMVEgIpp9++kn9+CM+px8R3lH6WUmGibvgvFh2caUkF87uEfMt+DyiOOfyyKP91Q1dbxQfC7uNGjWy
G1vt2mXvJ5zjPh1uGZVeFH4Oe46pU6dO6pdf/q1+/vkXy59zvqsFCRfixZdMx0XlS13inO9i2C5KPSTT
008/Q9Wqdaj4WDY96KCDVJs2l4mPpeqAAQPiQmn0HY+I57lP0XsK6wJbJximU+vWrbN3Vf/tt9/Ur7/+
xqE74gvx4kum44LyJRfO7llzhF0YpM+WpsfGjRvblXH33Xe/+HiqrlmzJhZIixcvVu3/cqpdFVlv36oJ
80hOcQyObX/ICXE7rpdZYhmJHlPPnj1L/vvf/1P/+c9/Lf8T5SIPkiHEiy+ZaFAdF5RnpUY6n0RxQ/eD
GkRq252gqYeOYDpDCUN3o0ePVh07drR7YdIxXsXmtthDEHsHPtn1nzqkIlM2bYVSNctWllHpAZIsIl40
yUw1lLhwdk9xQ5DXG4VZBMWwYcNigQSffPIp8digaC48LuzbT93T7JKwb0lESIURL5ZkphpK+b5GCWuS
UPotfaa0YtapU0ctXbosLpC2vrtS9TsqvbdjyISOHTFWW0al8IGQlBAvlGQylFITPz/mFqTPlKYuihkw
f2QG0mfPj7M/85sOPFF8TtC86OJL1MjRY2xHjBrNajWSt2CoQLxIkplqKOXzGiVUHeJzkz5PmrpHHXWU
vUATYj3Mjz/+pBZ17Bf73Fvuf7j4vCD6UMHD9hqvsePfhtwBgeQlDKUsiRJwFjekX9yzB7t1YyfqDRs2
qrVLP4h95kNrtBSfE1QbNGyoJhZNsm8eaFlq/ZvDeCTvyGoo5evCWdy+IUp3Xg2Shx76ZzVl2nQ1c/Yc
+4Z7747fcxsJeEPlYO5QfsQRR9hKjz362GP2XW3fmTQZ/2VvieQdWQ2lfFw4q0vAw7R/XdjEbbf1fntw
/KU97c8e+9BJx+dCLCh+6KGH1KLFS+zbOaz+6GN15JFHJhx3zrnnqclTp2lLLdlbInlFVkMpHxfOYsiS
JeCZV8/HaCeceUOy25NnRZSo9+3bV61YsdIuxIDbt+8o2bp1W68tW7ZiLzh79wOno8eOM4OJuyGQvCKr
oSQ12lEWvaSuVU8QP0OaXg+pVcuei3l74jt7fHxwzobvateurQYPHhy7vQUsKpqkzjzzTDzu3JgUOx7E
Pf/mf3RX02fOUtNmzISsxCN5RdZCKR8Xzg6ocXokN1wNqnffc69dKBDzrK52MGWrx4Se0b333mvvjK13
x54yZao666zm5nG45kwSekvYNxDzZHDq9Bn4L3dFIHlD1kIp39YoYagSN+eTPj+aXDTiCxYsUA0bNhIf
d7Nhw4Z2gYB24kOD4n4nLjfgS4tNmjRRy5evUP/+96+2P+78Rt3wt6ukY6XihYS7tz72+BPmEN5w62uE
5AUMpQyJ7YS4UNa/vXvfgXkXtX3HTjVnzlxVtWpV8Tg3Bz33vNmYq3dOuDr2O7mmUmb+SEAgYaiubANS
9e2Ha9Xclre4FVoUWjrB1+KOY8EDyVeyFkr5tEYJvSR8RtJnR5M7eswYtXFTScyHb/qneJybl7dtZ87H
qMn/3HtX2LcOPk9V/sO+4vNStVq1avb6KOyKDX/9/if1bstb7e/nEoLFlk4wz5Rw7CuvvW4GUy/ra4RE
HoZSBiyo3oy9pBQdO3ac2rx5i22J5dL7Bqs2B9QVj5XEuqU5785Ts+e+q2ZZPa2ZoybG/W4GVjsrbcGE
OaQVK1ao3bt/t3tIcEmngtj3urvqydLz3G7lgLCKO7ZDx45mKPEWECQvyFoo5cvCWazFuqRybfFzy3cr
Vy4/qJcsWaq2bNkac9n9L9qfa+v95cWmkq+9PlwtWLRYzV+4SBUvWKgmN7s+7neEnR7SUfww+MUX1fov
N9ii3Lu4TZ+E7yM9z1JCLHgwQgm2tb5OSKTJWijly8JZzJ1xO6HU3bZtu+3Wrdts32t/T+yz9RpMr772
ulr98Sfq/Q9Xq1UffKhmd7w/7nekRWj0PLCRPczWoc4p6u/NzrG97pJ29u3cb+zWzbbH5R1U4a13q0c7
94j7Pk88+ZRasmx5zKI6bRO+h3m8oVs1XULBwz979TZDSRr6IyRSZC2U8mHhLIL33EqJq/SpN7G5ql5k
qp17Ua+4z9hLME2aNEl9/fUutWPnV3bALbrt6bjXqIjm90dwLbJ6dtqprbsnHO/SI3Pr8aDKLu7Yho0a
maEEneucCIkUWQsl58UaRdlLqphYXPrVV1/b7rQCBUqfc7JgqlKlilqx6n31vtVD+vyLterLDRvVzJM6
i6+TiuaQXNOmJ9nDgxgmhDN77C2q0Lq8V7c97dCDSjie5eEkn8hKKOXDwln0krjpasW888471a5d38Tc
+uHn4mcNkxU/6C2H9O4Ojza6OK1zmmbvZ17x/Jiznnol4ViXXSWSBUvCDg8sDyf5RFZCKR/WKPWu1oSb
rlbQESNGxu6NBNeOnS1+1qbouTgb/po1a8bu5Pqm9ZpDnxiobj/sFPuPI6wfwx2ApdfyKuah9Pd66OGH
7Wo/rfPYRw46Le69lZlsbgil3wnPYXk4yRcYSmkQt6bIx01XX3nlFdWiRQvxsVREGTi25oE//FCqVvR5
Tvy8nWL9kfO1KlWqpO657z59i3E1pCyY9Dl5d/WT7N+b9HrlaX6/dldcYZefaydftGeHculYQxQ0uCGu
Wbrsb5ebocTycBJZMLadcAGUp99QivoapduqNcq7XhICaffu3WrlypXi435t3Lix+te/frb8V8wZTa8T
P29Jty2Emp99tnrm2UI7mF4b9qp66MIOcecmbr6YSjjV/eOenSYOPfRQNWPW7JhT7ytMONZlXVSyIbgi
y7jjUU7P3cNJPsBQqqD52EsaNuxl9euvv9n+9ttv6rrrrhOP8+PLL78c2zcOfrXqM/HzdrO8qryTTzlF
dbvpZjuchg0arB5p20XdcfRZsXPUbziZQ4YP9HvI3kXCduLkhGNdKvAwSuGGeEsLR3k4dw8nkSSlUEIj
bIZOeUZ54Ww+9ZJwS4alS5eqn3/+JeZXKz9TbzQWNx71LLbqQWHD77//HnPFrU+Jn7ebLrsnJIhhPbP3
9EK/x+J6TwgnL2vqzCq8884/f28oWU5qd0fcsS7bDZXX00lYsyQspk0WbISEkqyEUlQXzuZTL6l79+5q
8+bNsTkfuPrR12KfhZf1Q25OmDAxtncc/O6j9XGfsxdd5m6Sit6TnnfC0N7jHbrH5p2wVVR5a+v0EB40
h9YmPfJC3HFmYYShW1m4JmHNEnT0ljDMR0ikyEooRXXhbD70kvRtJL7//oeY68bNUdObxM/3oOeQyp5y
uBke7j30008/2WLYbsrRV8a9tlfNkPDjCfXrq0f6908IJ1TrDarRXPxe0AybbjfdZIZF3O7kLhV45QWK
uGaJi2lJ1MlKKJkXclRELykfbuDn3GHhs1EzxM8DlndriLPPPtv+70knn6zuvOsutWLlKrV23Xq1ceMm
9fGbU9TCro+Kr+vVit6awq0oApV6Uhm52TtzDq0V3fZY3LHm9ynTy5wQjkl4LhfTkiiT8VCK6sLZmw86
UfxsoqS07c+KB4eKnwdEIy1VwWEuasmSJernn38u8xe16Z1iNTnFHpGb2AFcf0/s7GC+B69izqltuyvs
YIIoirin2SX2uSwV7JjDlnFhMW6imlj78thxLr248hDXLDkW00IupiWRIeOhFMU1SlHtJXXo0MG+HYP+
/zPOODMhlIqvulf8TLRmwQFu0NerV2/1xRdr7a2DsB/d9o/WqoUdHhCfmw51KF7Zvr065tjUe05YgGuu
cyrs288e0kOvyRyONoMw4c63f/tn7DiXG/6VN/SGsJGe51xMW978FCGhgaGUglHrJel5o02bSuK+3qdP
n4RQmnXWzeJnYor5JcyjTGn1j5hTW3VX08+4UTw+neqeyzHHHGsHw5ln7g2NVLzgwgtju0NgSA+l5M65
JrPke+CzhWpi0aQ9vjoidozL0KKX6jmx4IFbD5GokvFQitoapSj1kjCsNmXK1FgBA/5tPl5YOCghlKTP
JEiaPTUEA3ZZ6H7LrSkP50Fnrwll5FjjhAq9cTUviPuerc85Z28owbLekkvJupftgsRdV7iYlkQVhpJP
o9BLQhgNHvxiXEXdjk/WqTsv7xR3HEq1zUD6YnKx+JkETV0F2KfvnWrm7Dm2CJNGxx4f9/P5Veo1YV0T
iiDMubShw17eG0plvSVzXZNhoaUXEjZphddce23s+1i9Qm49RCJBxkMpSgtny+slpXMfuEyI+aJHH+2f
sBP34pv23HLBudbIDCT40dC3Ez6TIKp3EMecmLmodeqzVpAcdFqF7jqLXpMuH4d6runKysfEjnHrLZmv
U6bXm/aJOzygt/TWyFHm92JviYSejIdSlBbOJusltWzZUvXr1098LNcijHBbiPXrv4wPo27xZctmhRgq
78zwgqseGhZ3fFA1iw/GW709M5j0+iEcU5EFv2aFHnpNqNA74o97b/eOHpW+dcbbL79pf08hDL32bjBf
lLDDA+x52+1mKPHOtCT0ZDyUorJwFrc8cOslYZucDRs2Bi6UvIYRdO6IcPHFF8cFEnz34t4JzwuqejjN
uai1qFu/uOPwc2Mfu1QW3mLRrR7Og7d37mZ/HVWHLwx+UX3y6We2q5etUlP/2tUtBL2Cob6E59eqVcsM
Jcith0ioyXgomQ1AGMVENioIux0k3qzNduDAZ+3tcYISSujlPPfcc3YJtnbTgvfFMNI6dx1w3nAPTq53
hfjcIKo3TE3YL274GPF4qO/N5Gd4z3mLDGz6Oq5Xf7Xs/hdtF93+tJpU9rk57/tUJnZu8IJ4SwvI3hKJ
EhkNpbAvnEUvD+tS8LPgZ5Y+i86dr4/t2TZx4kTxmGyJORRnxdynI6eruRf1En8+U2fJ8htvvBkXSDs2
bBafF1TNnl//x59Qk6ZMjfnO+beIzzHF81Exh/kpL72ojn/vFAumN4e9psaffn3Ca7psN+SnZyOWh9et
V88MJXVP0wu4ywMJLRkNpTCvUUJFFUIVP8c1Bx4r7nHXpEkT+55C2jlz5iYck2kxVHTVVVep2bPnqO3b
d9huWbtBffDUm2pa407izybpXNz5/vsfxIXS+mkLxecFWT1c1qCh1WM3Gu2JA4aIxycTIYW97pL1oi65
tE3c93mnefy6LOcQaZm4Br3i2lvCFkk6FHFDw74ntGLRAwklDCVBVNnpQDq30pFiIGEft6+//tq+n5B2
5TuzEo7LlCeeeKIaOHCgWrPmU7Vly1Zb7B+34IZHxJ+pPJ2bqZqBBMNS5GBqlmHHLWqFZ3UVn+NFhJO0
+axz7dCkpxM/M2EbJr+9GhQ9iNsPOYPpnmaXcH6JhI6EO1x60WsohXGNEgJJv//mBxwm/vy33nqrsY/b
HjdOfM/eyy2VnbK9Wt8KogcefFAtXLRYbSrZbLv6jclqvhVEet4iFZ1raLALgjOUks1HBVnds2nV+py9
1XDwicHi8V5FMJmfmdZxa4m43cKh0NNKdQ5IHMozhxGHFb5Qav2XOz2QUIELIuHELs+ohhIq7PR7lyrt
UM02c+Ys9csv/475485v1PLuT8Zew2WPs5Q84ogjVLsrrlBPDBig5hUXq/VfblCfLVypVj43Sr175d1W
ELWLe/+p6mxgb7755oRQmtW8/O2Fgqg5j/NQwcNq3NsTYk448wbxOV7FnJOz51Pv6KPVlGnTY066fc8a
MK2w3RBKvVNB3OkB6jvswleHDGPhAwkVGQ2lsCycRYWdDiRU2ZnrTbSNGzdWn3/+eVwg4a6rc1p0T3g9
rIFBpRXmNLyWGv/lL3+xbzr3j+7dVeGg59TMWbPVipFT1LKXxqkFdw1SM8/vqSbVTU8IOXWWKj///PMJ
oSQ9Lyyid4KAf+DBfqp4/gLbma+OVu9cXn4BiFfNyrrBLw5RM6zfn+07U+KOc+lhpYq4qBYVgeYCX0s/
81aE5JSMhlIYFs7ae5eVVdh1rnq8qrnP/gk/b6dOneLCCKZy6wWEFf5y1758wuVqauvuMaecVrG/3FPV
GZzz5r0XF0hhLHLIhfrzu6FrVzV/4SI15915aur0GaqoebfYMebCXsOKzP2I65ew84S5hsqyrfV1QgJP
RkMp6AtnUWGnA8mtwm7YsGEJgfRx/+Hi64VRqSLMDCS4ZthE8bk0Xv35oeDh9TfejA0Tjn8s/vbo5mdd
ZkUr5cT5pVNOPVWNHD1GWzpqzFjepZYEnoyGknkhBk2z5PuSyrUTAsnL/FEUdO5ejXsCOUNpWe9C8bl0
r85ikauuvtp1/koY0k3H8Jp4l9rrOl+vrDDSernbLSE5JWOhFOSFs2YgoeTb+fNJ80ffri0R54/Crt68
VHvNNdcmhFKYthfKlc5hOfSWBg8Zure39NIbsWOFYhhUwVYUVNkl7CZeqVJl9fiAJ81g4vwSCTQZC6Wg
rlEyS77xczh/tjZtLrN3QjADCQUN6b51d1B0/tXu3EUcSs+jiZqfI2zZqnV8b+my2+3jhAo8XIfpAFsW
JWzcWqdOXTOUoNetjQjJOimFEqrTzACSDGIomYEklXz36NEjLozgujemia8VBaX5pKKiSXGBhD3zpOfS
RKVKS6m35LLdULpAQUPC6+P28EYolVhy/RIJJBkLpaCtUdKBhJLvevsmNh5SQcP7d1VsgWXQle6GagYS
XP3M3lt60+Q6h0KhdG8llxv+pbMIQdypxTGM5/UGg4RklbwIpUE1mtvvCYHkLPnOl4IGSWcjGqWdHHKh
yy3P4+9EO2q8faxwXLq3BEq4toVhPG5DRAJHxkIpKAtnzUWxzkBCQcPSpcsSAimKBQ2SR/6xStznEaWd
HHKl+Xlqpd6SsN0Q9rNLJ2Lhg3MYz/oaIYEiY6EUhIWzeshOWhSLQMqnggan0hCScyeHsN2uIgi6bTMV
11t6dYQ01JeJqjgUNDi/jxr0/AtmMLEajwSKjIVSrhfO6kCSFsVKOzSgoCFfAglK2918+OFq9e2336nv
vvvedsOMxeJzqbsu2wgl9JZuOL+t8xhci5kgYUdxbOyL3cy1Y8aN56JaEhgyFkrSBZst9RySFEhPPvlU
QiB99vw48XWirHO/O8ytff/9D3F+UPCK+Fzqrss9k2zN21oMeu555+OZXNiacDeAW3v0NMvVMxWIhPgm
I6GUq4WzGDJ02zYIja5UYZcPBQ2Szt2tX3hhsN1L0pYs+iBUtz8Pkm5DeB06doy7rUXDRgm9qkyRML/k
3ArJkjcFJIEgI6GU7TVKCCN8T/39UdRw4P/uF3u/CCSpoKG4TR/x9aKucz7pH//4R1wgbftoLQOpAroN
4dWqdWhcKOHeS45jMrmoNWF+6ZJLLzVDqdSSa5dIzgl1KDnDCDqr7HDL8nXr1sXdIfaHL7eouS1uEV8z
HzQXb15qNUw//FAa57xLuK1QRUw2hHffAw/Y91nC7uGwcuW4CshMl2gnrF968ulnzGBi0QPJORkJpUyv
UUIRgzOMIO4Uaw7ZtWjRQu3atUvt3r3b6h39on786Se1c+UaNSWPChokzW1uRo8erX6yPhftrs82iM+h
/nQbwjvjjDPV9JmzYl7etp35eDZCIe6aP7FBAzOUIIseSE4JTSihmg+v26d604Tvh01VzeE67aRJk+3h
qO+//97uAfz444/qw0deFV8/nzQbTDOQ4JpBY8TnUH+6LaSF4ydMjIXSCy8OMR/Lxi4LGKKL2x/vzrvv
tm8Rj6rAdyZNxm0wCMkZGQmlVBbOInAwHGeK18HXdfGCU7cwgli9/p///DfOX7/7Sc086Xrx++eTusgB
Q3fOUFrY4UHxOdS/lf+wb8J5Ce/o01fNnD3HdtacuerQQ/+sH8P1mA3i9sdr3KSJfUNC7bzi+ZxbIjkj
I6GEQJEu0mRKw3GSmDNKFkYQhQ0rVqxQv/76W5m/qp++/lbNv6yv+L3zSXO+Y+jQoQmhJD2Hpqaz7F6L
7Zxmz303ZrsrrtCPoQeTLeLuWIvCCyuMtLxLLckZGQmlVBfOYq6ooHozO6BQVg7xb3jrQQ1Vkz8dnLDu
yCluUrdgwQJ7uE6vt9k0c4ma0fQ68Xvmm+aw0po1a+ICacOEd8Xn0NR0ufW57TuTJqu5896zfebZQvOx
bBFXJv7Io/3NUOJmrSRnZCSUpAs0mUMPP1+NP/1627EX36rG/P0u26catFE3VK4v3hLA6YknnqgGDnxW
bd++Q23btt32oyHj1dyLe4nfM1/VRQ6NGjWKCyS47B9PiM+hqetcD6Z1hID5WDY3SY31ltpfdZWav3CR
WrBoMeQdaknOSHsopbJw1q1SqTzr16+vOl9/vZo8ZYpa/+UG9cmM+Wrlc6PUu1ferSbVayd+r3xXbwR6
yy23JIQSe5PpF39UOc9beGX7PSGgg6DpSSfpx7I5dIYAtL8vvn9ZIKmFi5eoJcuWc16J5IS0hxKG2qSL
M5mY58D4u9vEMPzL8cerVq1bq+vPuEC9cPv9au7QkWr+nYXqvVueUDPP76km1WUIeVF/nosXL44LpO3L
PxaPpxXT5d5J6iQrBBYtWRqz643d9GPZXisUe09WEJnythYkJwQilExxEWNxJ8SYvHQMTU09x4FCEDOQ
4OpHXxOfQyuuW8HDshUrYz7Y7yH9dexTl01ibcBbI0aq5StXadN9Kw1CPJFwP38vJgulTC+cpamrh5I6
duyYEEpzzs6Pe0jlQrfeEobuPlj9kfrokzXqtdeH668jJLJJbJeHl4a9rFZ98KHt+x+u5u4OJCfELhA/
MpTCqZ67c+7i8P22neLxNH1KxTrz5y9QP5SWqn/962d7s2DjsWwSm1f6R/db1OqPP7G1gpKLaElOMC8E
zyYLpaDccZYmqufstm7dGhdKa1+fIh5P06fzTrO4y++3332ndu78Ss2aPSfuMctsFhnge9nf99YePdSn
n3+hPrP8fO26bPfYCLFxXgyeTBZKqSycpZlXDyE1b948LpAgd3HIvM5rCMN1KAXHDgpvvDXC+Xi2iwxQ
Aq5uu+129eWGjbYbNm5iKJGc4LwYPJkslHJ9x1kqq+eTBgwYkBBK+XTH3VzpLHa4tkNHVTR5ir2IFrZu
fY75eLbvbYShOtW7d2+rF73NXuu3Y8dOzimRnGBeCL6UAglKFyTNvXo+ibs45E4zmHCTveFvvhXbnXvw
kKGxxyyzHQj2LdMnT55s74BSWlpq+SNv+kdygnkh+FIKpFzdcZaWL+aTateuHRdIcNWdz4vH08xoBtNV
V19t3jLCvule2WPZHjprWq1aNfXVV1+r3bt/V7///nvpL7/8m4tnSU6IXSB+lUKpomuUaGbU65O4i0Pu
xUJxsxIPPSQdSrg9OXpQ1tezvs1Pt27dhlthVLB79+62lrynEskZsYvDrwyl8Hhd5ePt39n06dPjAom7
OORGc1PcZs1Oi+stXd/lBv0YIXlJ7OLwqxRKXKMUTBvvd7C4iwNv6Jc7zd7SQwUPxwVT3bp18XX2Vkhe
Ersw/MpQCoeohsTvi7s4BEtso6WvpUMOqRUXSggp6+vce47kJbELw69SKHHhbPDsU7Wp/fty3tCPuzjk
XnN3fGfRgxVMLMkmeUnsovCrFEpcOBs8z93/SPv3xV0cgicWNOtdNlDggEIHI5hKLVkBR/KOuKDxoxRK
XDgbLMfVvMC+bTx3cQiu+qaLsGWr1mYoQd4BluQdcUHjRymUpIuO5s4nqp9u/664i0OwNe9O6yx6sGxq
fZ2QvCF2MfjVGUhcOBs821U62v5dcReHYGsWPaDyzhFK3IOO5BWxi8GvzlDiGqVgiaG7mvvsz10cQqK5
0wPWKjmCiVv+kLwhLmj8yFAKtnrojrs4hEPs9OAsehgzbrzt6LHjSkeNGcuiB5IXxAWNH52hxDVKwfLi
SrXt3xN3cQiPeid32KJlS2UFkSmLHkheELsI/MpQCq5vHnyuPXQn7eKw+tHXxOfQYGju9PDAg/2cwcSi
BxJ54oLGj85Q4sLZ4HhXtZPs3xF3cQifPQ9sFLvG6tSp6wwlFj2QyBO7APzqDCUunA2GKHA45U+H2L+j
0aNHxwXSrs82iM+hwdGsxINXtm/vDCYWPZBIE3cB+NEZSlw4GwwH1WhuL5jF78i5iwM3YA2H5nVWqVJl
Nej5F8xQYtEDiTRxF4AfnaEkXVw0+15auY79+7n00kvjAulf//oXh+5CojmvBE89tZkZShC3LyckksSd
/H40A4kLZ4Mh5vWO+KN9kzj10kvD1M8//6J++eXftt+uLRGfQ4OnuVGrVhc9jBg1Wr05YiRKxrmLOIkk
CSe/V81Q4hqlYNiz6p5JclTd7dixMxZI8OP+w8Xn0OBp7oenrVmzpnp+8Ivq1deHa0stWY1HIkfCye9V
hlKwxJzeCftVt383nTp1igskOKNpZ/F5NHg6ix20R9WuzWAikUc8+b1ohhLXKOXex6r/Vf3pD/vYv5vZ
s2er3377zXb37t1qy+QF4nNoMMUtLYxrrbRM+/+lYOp/zc2syCORwTz5fdntoPoMpQB5XqU9901q0aKF
HUSm8y/rKz6HBlfH9Ybe0Gr9/85gGvbiS+quxueXWNciw4mEHufJ79m2VerFQokLZ3MrPn9dBv7KK6/E
BdKO4vfF59Bg22DfGub1pkvAsdWQ/bWEYBrykrqzwTm4HhlOJNSYJ74vzVDiwtncetOBJ9q/kzp16sQF
EmQvKZy2OaCueb2ZlXZtLe3hPATT0wMHqjfeGhHzmR53qTuOPkuHU0GZbS25tomEAvPE96UZSlw4mzvN
Agf2kqKjuTmrpbPnU9cyNpzX/Oyz1TPPFrqFk+lwS4YTCTTmie9LM5Ski4pmxyern2H/PthLipaOCrwC
S4nYcB70GE6llqzYI4HFPPF9qUOJC2dzqy5wYC8pehrXW5GlG7HhPC3C6Z777rM1AwoOeWKg6t++W+nj
Hbqjt0VI4DBPfF/qUOIapdyJW1SgwIG9pGhaa58D9PWGobpkxA3nOa1du47qdtPNzoAqsWSPiQQO8ST2
IkMp9/Y9qKn9u3D2kko3bBWPp+HSsd1QeWCuCHvimc+JE+E05KVhZjCVMphI0BBPXi/qUOIapdzZcL8a
sV6SXiz766+/qeW3PCkeT8OlY7shr8NtcfNMtWvXLj3kkEMw/IfAKtHBhP3z3ho5So0cPaZkFHcdJwHC
POl9yVDKrVibhB0c7rvv/rjthH7c+Y14PA2fd1c92bzm/GzAWnDkkUcW9O7dW3pOr7+efnrpmHHj1djx
b6sJ7xSpKdOm9yp7jJCcY570vtShxIWzubHrgXtKhvXGq9gRHH763FjxeBo+B1Y7y7zm0hkcrZ4d9FzJ
vOL5hUuWLedu4yRQmCe9L3UoceFsbvzLvtVUmzZt7PskmfdN4j2ToqVxzbmVhRMSKcyT3pc6lLhwNvsO
qdHC/h0MGTJElZb+qH74odR2V8l28XgaXo3thootCYk8sZDxqw4l6UKimbVLlRPs38HGjZvUt99+Z/vN
N9+q9dMWisfT8Np6/yP0NVdeWTghkSAWMn5FKHHhbG48eb9D1FFHHaW+/nqX+uqrr9XOnV/Zc0srHhgq
Hk/Dq2O7IUIij3nC+xKhxDVKuRGf/4UXXqi2bduutm7dprZs2ao2b96iFt32tHg8Da+O7Ya4pohEHvOE
9yVDKTfqMuFevXqpTSWb1cZNJWrDxk3qyw0b1awLbhOfQ8PrWwefZ153rJQjkcc84X2JUOIapeyrb2lw
2+23q3Xrv1Rr161XX6xdpz63nHl+T/E5NNxW/sO++rpjBR6JPLGQ8StDKTfqaqxbe/RUaz77XH04b7Fa
9tI4Vdz3WVVUt534HBpujQo87NZASKSJhYxfEUpcOJt9h9Zoac8zvFq/HUMoTzS2G2JZOIk8cUHjR4QS
F85Smnl7HthIX3clloREmrig8SNCiQtnKc28ju2GCIk05snuS4SSdAFRStOvce2xLJxEGvNk92X7KseI
Fw+lNP3W/WNVfe3hTrOERBZMnMaFjVc7VjlOvHgopenX2G6IZeEk0qQcSi33P1y8eCil6deowMPN+giJ
LCmHEhb0Yf2EJP6qw0WUqj0PbGSXPacqVsFLFzalYRXnddm1x7JwEmlSDqUoi/F7Z9C6edp+h4rBKtnT
R9hiPZLUONH8FOdD2flZaklIZGEoRUAvISqFpCn21JPCUcuQzL3GdkOERBaGEk2LyYZzIfbsk8IQSiGo
lRrnfBWfY9nnzY1ZSWRhKNFQmiwE3QJQCj0oBUAQ1ZvxWrIsnEQWhhKlgrX2OUAMPCnsegpzhZkY7sT3
KXt/LAsnkYWhRGmWlOb+ygs4bDGkQwn/X/ZaRZaERBKGEqXhE9ctIZGEoURp+FxtSUgkYShRmj2xxgjX
nCl2aMAckbaXJarrTAnJGxhKlMpKAQJx91czRNyChLt5E5ICuMikC5LSMOgMDK2z96FFKbUzPCAhJCDg
ApYudkpT0RkOpm5BAd3CAhJC8gg0FlLjQsMlbpPtDAGn0rCTaRdLKRS0HI4ihGQcNFZSI5fvus0nuFle
g6+V5h7cZAgQQvIONKZSI5sOpUbZj1JD7VU26IQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEkDwHZdlS
qbcXsRDTDzheeh03cT8ZvD+97ifdhP39oNSfEEIiBXYJkBaWehFbyvgBDbr0On7Edv4IhbqWFSXs7wfB
RAghkQENqdTYedXv/V7SEQKmaJQr0mMJ+/thKBFCIgWGi6TGzo9+SHcIaDGsVs3SL2F/PwwlQkikwPCb
1Nj50U/PIFMhALGPnd9eStjfD0OJEBIpKjKfpEVD6pVMhoDWT/FF2N8PQ4kQEhkwvCQ1dH7FUJVXshEC
0GsQhP39MJQIIZEBN1yTGjq/orfllWyFAPSyg3jY3w9DiRASGbDGRWroUtFrOXQ2QwBhWV6xQdjfD0OJ
EBIZUM4tNXSpiF6XF7IZArC8xaVhfz8MJUJIJEjXfJIWjakXsh0CMFkvLuzvh6FECIkEXueT0OhJX3fq
tXH02+hiyAvPqUivLtmuE2F/PwwlQkgk8Nr4eZ13wpocL1Sk0cWaH3wf6bhk4jluczlRej+EEBJa0JhJ
jZxTNLzS1yWzUV2G75FKELiVZEft/RBCSCiRGjhJP6HkZS1OOhpdbH4qHZtMtyGzKL4fQggJFX6CBqDh
kx5z6uU2CulqdP32TnC8RFTfDyGEhAavDZ9uOL2Gkpcdw9PV6KayZ59U9RbV90MIIaHBa8joBs/PItvy
SFejm8puFNJaqqi+H0IICQ1S4yap5z38NJQYGkxGuhpd9DKk45OJ7+0kqu+HEEJCgZ/5JN1oooBBelwS
k/7JSGejKx2fzEyHgHR8MjP9fgghJPD4qRTTw0t+gqy8HcPT2ehiIav0HDel14ry+yGEkMCD0JAaN0m9
7sjP0BQa5mSks9HFY9Jz3Mx0CATt/RBCSODxU7psIj3uZrKdsBlKe830+yGEkECDno/UsEk6ezx+hqaS
FTswlPaa6fdDCCGBxs98krOx89PgomF1g6G010y/H0IICTR+5pOcweJncWiyhjKdja7fnbqlIowovx9C
CAk0fobgnPvY+Wks3bbQAelsdKXjk4nv7STK74cQQgKL38Wdznkhv5uOSlvogHQ1uqncpDCTIRC090MI
IYHGzwJY6Kyg87NWCWb61gzcZmiPDCVCSCjxMyckDb/5qdyDbjuGp6vRTWUDVL3uyiSq74cQQgKNn/kk
hBIaO6fSsW7ieIl0Nbp+fh6tRFTfDyGEBJZUNgtNhxLpaHRTualeJkMyaO+HEEICTSrzHekwE8NTCFg/
u1JoERwSUXs/hBASePzcDymdSg1vRRpdhFwqw2QwE9WAQXs/hBASCvwu6kyX+n5MJn4bXTT6eI6fhb9O
k90RN+zvh6FECAkVqayfSZdS4+u30U2HbuXpIOzvh6FECAkVuZpP0jrXO2U7BNCzSUbY3w9DiRASKnI1
n6R17gyR7RBItmM5CPv7YSgRQkIFGi2pMcuWaGRNshkC0pyWk7C/H4YSISRU+G1IMQ+Ehs5Nv9Vmzp2w
sxUC+DmcQ4cSYX8/+J0QQkgo8LtfHSwPv42mc8uibISA1wAAYX8/DCVCSGjw28CVNwkPUimcMNfkZDoE
0DPzGgAg7O+HoUQICQ1osKSGzE3nUJsEFoxKz02muRt2pkIAPTK3XRKSEfb3w1AihIQGqRFLJhpEL0jP
Tab5uukOATT+eE0/vRGTsL8fhhIhJBSkMp8k3d9Hwm+xg9lwpiME8P1Ryeb1/SYj7O+HoUQICQUYZkMD
50e3/dicYEcC6fnJ1CAspcfLEw0+nptqD8SNsL+fZLtDEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
wsfEmhe1sixI0aQlxsLxfnQtObceM99zl7L/16K8nRBCSBixGnE07CpFky7GFI73I9bgiFiP+X3PxQ4L
LXWoMdgIISQoWA1wPoRSOmSwEUJIprEaT4ZS9mSwEUJIMqyGj6EULhlshJDoYjVaDKX8k8FGCAkmVoPD
UKKpyGAjhKQfq7FgKNFcyWAjhMRjXegMJRoE/QRUum8BQggJCmUXvNRIeJGhRKGfQGGPhxDijtVAMJTy
WwYKISQ4WI0MQym8MlAIIdHCaqgYSrmRgUIIIU6sxo6h5F8GCiGEZAKrwcy3UGKgEEJIUClrhJ0NtVcL
y15GRDjej65hYD2m3zMDhRBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIISQI/M///D8hpie2tXZoTQAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA

236
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@ -1,10 +1,13 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.IO Imports System.IO
Imports DD_LIB_Standards
Public Class frmVersionCheck Public Class frmVersionCheck
Private InitSteps As Integer = 6 Private InitSteps As Integer = 6
Private bw As New BackgroundWorker() Private bw As New BackgroundWorker()
Private mainForm As Form Private mainForm As Form
Private UPDATE_NECESSARY As Boolean = False
Private UPDATE_CANCELLED As Boolean = False
Private Sub InitProgram() Private Sub InitProgram()
bw.WorkerReportsProgress = True bw.WorkerReportsProgress = True
AddHandler bw.DoWork, AddressOf bw_DoWork AddHandler bw.DoWork, AddressOf bw_DoWork
@ -20,6 +23,7 @@ Public Class frmVersionCheck
Return _step * (100 / InitSteps) Return _step * (100 / InitSteps)
End Function End Function
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
Dim JUMP_UPDATE As Boolean = False
'Try 'Try
Dim Init = New ClassInit() Dim Init = New ClassInit()
bw.ReportProgress(CalcProgress(1), "Initializing Logger") bw.ReportProgress(CalcProgress(1), "Initializing Logger")
@ -35,12 +39,34 @@ Public Class frmVersionCheck
Init.InitBasics() Init.InitBasics()
System.Threading.Thread.Sleep(200) System.Threading.Thread.Sleep(200)
bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration") bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If ClassInit.InitUserLogin = False Then If ClassInit.InitUser = False Then
Exit Sub Exit Sub
Else Else
VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
If VERSION_USER = VERSION_SERVER Then If VERSION_USER = VERSION_SERVER Then
Exit Sub Exit Sub
End If End If
UPDATE_NECESSARY = True
If FORCE_UPDATE = False Then
If VERSIONS_FOR_FORCE_UPDATE.Contains(VERSION_USER) Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER))
FORCE_UPDATE = True
End If
End If
If FORCE_UPDATE = False Then
Dim msg = "Auf dem Server liegt ein Update für ADDI bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
If USER_LANGUAGE <> "de-DE" Then
msg = "There is a new release available for ADDI!" & vbNewLine & "Would You like to install the update now? This might take some minutes!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.No Then
UPDATE_CANCELLED = True
Exit Sub
End If
End If
If MyServer_UpdatePath <> String.Empty Then If MyServer_UpdatePath <> String.Empty Then
If Directory.Exists(MyServer_UpdatePath) Then If Directory.Exists(MyServer_UpdatePath) Then
GetTempFolderGuid() GetTempFolderGuid()
@ -51,33 +77,29 @@ Public Class frmVersionCheck
' Get a reference to each file in that directory. ' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles() Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files. ' Display the names of the files.
Dim fri As FileInfo 'Dim fri As FileInfo
Dim error_while_copying = False Dim error_while_copying = False
For Each fri In fiArr For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
If error_while_copying = True Then If error_while_copying = True Then
Exit For Exit For
End If End If
Dim no_work = False Dim updatefile2copy = Path.Combine(MyServer_UpdatePath, Upd_item.Item("ITEM_INFO"))
For Each row As DataRow In DTEXCLUDE_FILES.Rows Dim tempfilename = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
Dim content As String = row.Item(0).ToString.ToLower If File.Exists(updatefile2copy) Then
If fri.Name.Contains(content) Then
no_work = True
End If
Next
If no_work = False Then 'Copy the file to tempFolder
Try Try
System.IO.File.Copy(fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name)) System.IO.File.Copy(updatefile2copy, tempfilename)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name))) ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, updatefile2copy, tempfilename))
error_while_copying = True error_while_copying = True
End Try End Try
If error_while_copying = False Then Else
ClassLogger.Add(String.Format("UpdateFile {0} is not existing or accessible", updatefile2copy))
End If
End If End If
Console.WriteLine(fri.Name) Next
Next fri
Replace_Files() If error_while_copying = False Then
Replace_Files()
End If
Try Try
'Delete the tempfolder and all data 'Delete the tempfolder and all data
@ -85,20 +107,19 @@ Public Class frmVersionCheck
Catch ex As Exception Catch ex As Exception
End Try End Try
Else
ClassLogger.Add(String.Format("The temporaryFolder could not be created!"))
End If End If
Else
ClassLogger.Add(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
End If End If
Else
ClassLogger.Add(String.Format("NO ACTION: the Updatepath is empty"))
End If End If
End If End If
System.Threading.Thread.Sleep(200)
bw.ReportProgress(CalcProgress(6), "Initializing Frontend")
' InitInterface wurde in frmMain integriert
'Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(200)
Start_RO()
Else Else
ClassLogger.Add(String.Format(">> Database was not intialized!"), False)
End If End If
'Catch ex As Exception 'Catch ex As Exception
' MsgBox("Unexpected Error in Init Classes: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Unexpected Error in Init Classes: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -106,35 +127,129 @@ Public Class frmVersionCheck
End Sub End Sub
Sub Replace_Files() Sub Replace_Files()
Try Try
Dim ProductionPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "Record Organizer")
Dim DevelPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "DD-Record-Organiser\bin\Debug") 'Jede Datei im tempfolder wird replaced
Dim COPY_FROM_PATH As String Dim di As New DirectoryInfo(FOLDER_TEMP)
If Directory.Exists(ProductionPath) Then ' Get a reference to each file in that directory.
COPY_FROM_PATH = ProductionPath Dim fiArr As FileInfo() = di.GetFiles()
Else ' Display the names of the files.
COPY_FROM_PATH = DevelPath ' Dim fri As FileInfo
End If Dim error_while_replacing = False
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("ITEM_INFO") & ".bac"
Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
Dim targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
Try
' Replace the file.
If File.Exists(targetfile) Then
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
If MoveFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
Else
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
File_Rename(BackUpOfFileToReplace, targetfile)
End If
End If
Else
MoveFile(sourcefile, targetfile)
End If
Catch ex As Exception
ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
error_while_replacing = True
End Try
Next
'For Each fri In fiArr
' If error_while_replacing = True Then
' Exit For
' End If
' Dim no_work = False
' For Each row As DataRow In DTEXCLUDE_FILES.Rows
' Dim content As String = row.Item(0).ToString.ToLower
' If fri.Name.Contains(content) Then
' no_work = True
' End If
' Next
' If no_work = False Then 'Copy the file to tempFolder
' Try
' Dim BackUpOfFileToReplace As String = REPLACE_RO_PATH & "\" & fri.Name & ".bac"
' ' Replace the file.
' Dim sourcefile = fri.FullName
' Dim targetfile = REPLACE_RO_PATH & "\" & fri.Name
' If File.Exists(targetfile) Then
' If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
' If MoveFile(sourcefile, targetfile) = True Then
' File.Delete(BackUpOfFileToReplace)
' Else
' File_Rename(BackUpOfFileToReplace, targetfile)
' End If
' End If
' Else
' MoveFile(sourcefile, targetfile)
' End If
' Catch ex As Exception
' ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name)))
' error_while_replacing = True
' End Try
' End If
' Console.WriteLine(fri.Name)
'Next fri
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Replace_Files: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
End Try End Try
End Sub End Sub
Sub Start_RO() Private Shared Function File_Rename(targetfile As String, BackUpOfFileToReplace As String)
Try Try
Dim ProductionPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "Record Organizer", "DD-Record-Organiser.exe") If File.Exists(BackUpOfFileToReplace) Then
Dim DevelPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "DD-Record-Organiser\bin\Debug", "DD-Record-Organiser.exe") If File_Delete(BackUpOfFileToReplace) = False Then
Return False
End If
End If
Rename(targetfile, BackUpOfFileToReplace)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in File_Rename: " & vbNewLine & "targetfile '{0}'" & vbNewLine & "BackUpOfFileToReplace '{1}'" & vbNewLine & "ERROR: {2}", targetfile, BackUpOfFileToReplace, ex.Message))
Return False
End Try
End Function
Private Shared Function File_Delete(deletefile As String)
Try
File.Delete(deletefile)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
Return False
End Try
End Function
Private Shared Function MoveFile(sourcefile As String, targetfile As String)
Try
File.Move(sourcefile, targetfile)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
Return False
End Try
End Function
Sub Start_RO()
Dim filename = ""
Try
Dim PMO_PATH = System.IO.Path.Combine(MY_INSTALL_PATH, "DD-Record-Organizer.exe")
Dim startInfo As New ProcessStartInfo() Dim startInfo As New ProcessStartInfo()
startInfo.Arguments = """" & MyConnectionString & """" startInfo.Arguments = """" & MyConnectionString & """"
filename = startInfo.FileName
If System.IO.File.Exists(ProductionPath) Then If System.IO.File.Exists(PMO_PATH) Then
startInfo.FileName = ProductionPath startInfo.FileName = PMO_PATH
Process.Start(startInfo)
Else Else
startInfo.FileName = DevelPath MsgBox("Can not find ADDI-Executable in '" & filename & "'! Please inform your systemadmin.", MsgBoxStyle.Critical)
End If End If
Process.Start(startInfo)
Catch ex As Exception Catch ex As Exception
MsgBox("Could not find Right manager: " & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Could not find RecordOrganizer: " & filename & " - " & ex.Message)
End Try End Try
End Sub End Sub
@ -149,8 +264,37 @@ Public Class frmVersionCheck
ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message)) ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message))
End Try End Try
End Function End Function
Private Sub frmVersionCheck_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If ERROR_WHILE_UPDATING = True Then
Dim msg = String.Format("Während des Updatevorgangs für Version '{0}' haben sich unerwartet Fehler ereignet!" & vbNewLine & "Wollen Sie die Logdatei anzeigen?", VERSION_SERVER)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("During update of version '{0}' unexpected errors occured!" & vbNewLine & "Would You like to show the logfile?", VERSION_SERVER)
End If
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Unexpected errors occured during client-update update of version '{0}'!", VERSION_SERVER))
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(ClassLogger.DateiSpeicherort)
End If
Else
If UPDATE_NECESSARY = True Then
If UPDATE_CANCELLED = True Then
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("The ClientUpdate {0} is necessary but user cancelled update-process!", VERSION_SERVER))
End If
Else
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("The ClientUpdate {0} was completed without errors!", VERSION_SERVER))
End If
End If
End If
End If
Start_RO()
End Sub
Private Sub frmVersionCheck_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmVersionCheck_Load(sender As Object, e As EventArgs) Handles Me.Load
InitProgram() InitProgram()
End Sub End Sub