From 20da19c9b00e2871698740093c123182d158b4fe Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Thu, 2 Feb 2017 17:13:17 +0100 Subject: [PATCH] MS --- app/DD-Record-Organiser/ClassInit.vb | 58 +- app/DD-Record-Organiser/ClassLogger.vb | 18 +- .../DD-Record-Organiser.vbproj | 6 +- .../DD_DMSDataSetCalendar.Designer.vb | 286 +- .../DD_DMSDataSetMenuDesigner.Designer.vb | 2550 ++++++------- .../DD_ECMAdmin.Designer.vb | 3143 ++++++++--------- app/DD-Record-Organiser/DD_ECMAdmin.xsc | 6 +- app/DD-Record-Organiser/DD_ECMAdmin.xsd | 46 +- .../My Project/Application.Designer.vb | 2 +- .../My Project/Settings.Designer.vb | 268 +- .../frmConstructor_Main.Designer.vb | 144 +- .../frmConstructor_Main.resx | 1635 ++++----- .../frmDD_EMAIL_ACCOUNT.Designer.vb | 4 +- app/DD-Record-Organiser/frmMain.vb | 4 +- app/DD-Record-Organiser/frmRecordView.vb | 2 +- .../frmSAP_FuBa.Designer.vb | 116 +- .../frmStatistiscsADDI.Designer.vb | 65 +- .../frmStatistiscsADDI.resx | 1199 +++++++ .../frmTask_Editor.Designer.vb | 28 +- .../frmUserKonfig.Designer.vb | 160 +- app/DD-Record-Organiser/frmUserKonfig.resx | 1175 ++++-- app/DD-Record-Organiser/frmUserKonfig.vb | 97 +- .../frmWD_IndexFile.Designer.vb | 10 +- app/SetupWiX/Product.wxs | 24 +- app/VERSION_CHECKER/ClassInit.vb | 99 +- app/VERSION_CHECKER/ClassLogger.vb | 14 +- app/VERSION_CHECKER/ModuleMySettings.vb | 45 +- app/VERSION_CHECKER/VERSION_CHECKER.vbproj | 5 - .../frmVersionCheck.Designer.vb | 49 +- app/VERSION_CHECKER/frmVersionCheck.resx | 315 ++ app/VERSION_CHECKER/frmVersionCheck.vb | 236 +- 31 files changed, 6920 insertions(+), 4889 deletions(-) diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organiser/ClassInit.vb index 394c21a..2031152 100644 --- a/app/DD-Record-Organiser/ClassInit.vb +++ b/app/DD-Record-Organiser/ClassInit.vb @@ -134,9 +134,10 @@ Public Class ClassInit 'Me.Close() Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") MsgBox(msg, MsgBoxStyle.Exclamation) + ClassHelper.InsertEssential_Log(0, "USER-ID", String.Format("User '{0}' not listed in Userconfiguration", USER_USERNAME)) Return False Else - + Dim Right_RO As Boolean = False USER_GUID = USER_DT.Rows(0).Item("GUID") 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) @@ -144,23 +145,17 @@ Public Class ClassInit clsCURRENT.USER_LANGUAGE = USER_LANGUAGE USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT") 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) - 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.") + 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) + Dim USER2MODULE = clsDatabase.Execute_Scalar(sql) + If Not IsNothing(USER2MODULE) Then + If USER2MODULE = 1 Then + Right_RO = True End If - MsgBox(msg, MsgBoxStyle.Exclamation) - Return False + Else + Right_RO = USER_DT.Rows(0).Item("MODULE_RECORD_ORG") End If - Dim Right_RO As Boolean = USER_DT.Rows(0).Item("MODULE_RECORD_ORG") + + If Right_RO = False Then 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:") @@ -170,20 +165,38 @@ Public Class ClassInit msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.") End If MsgBox(msg, MsgBoxStyle.Exclamation) + ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", "User not authorized for using Record-Organizer!") Return False 'Me.Close() 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 ClassLicence.Refresh_Licence(CLIENT_SELECTED) 'Am System anmelden 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) - 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 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) USER_IS_ADMIN = USER_DT.Rows(0).Item("RECORD_ADMIN") @@ -196,13 +209,14 @@ Public Class ClassInit End If End If Else - + End If If clsWindream.Create_Session = False Then 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 - 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) USERS_LOGGED_IN = CInt(anzahl) 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) If USER_IS_ADMIN = False Then '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) ClassLogger.Add(" - logged out the user", False) Return False diff --git a/app/DD-Record-Organiser/ClassLogger.vb b/app/DD-Record-Organiser/ClassLogger.vb index d967288..9d8d322 100644 --- a/app/DD-Record-Organiser/ClassLogger.vb +++ b/app/DD-Record-Organiser/ClassLogger.vb @@ -9,7 +9,7 @@ Public Class ClassLogger ' eine Art Konstruktor Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True) ' initialisiert den Speicherort - ClassLogger.SetSpeicherort(speicherort) + ClassLogger.SetSpeicherort() ' wenn ein Prfix gesetzt wurde If Not prefix = "" Then ' initialisiert das Prefix @@ -38,18 +38,12 @@ Public Class ClassLogger End Sub ' legt den Speicherort fest - Public Shared Sub SetSpeicherort(ByVal speicherort As String) - Dim f As String = Application.UserAppDataPath() & "\Log" - - If speicherort = "" Then - If IO.Directory.Exists(f) = False Then - IO.Directory.CreateDirectory(f) - End If - ClassLogger.DateiSpeicherort = f - Else - ClassLogger.DateiSpeicherort = speicherort + Public Shared Sub SetSpeicherort() + 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 + IO.Directory.CreateDirectory(f.ToString) End If - + ClassLogger.DateiSpeicherort = f.ToString End Sub ' legt das Prefix für den Dateinamen fest diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index 5d739d5..fa5fa11 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -8,7 +8,7 @@ WinExe DD_Record_Organiser.My.MyApplication DD_Record_Organiser - DD-Record-Organiser + DD-Record-Organizer 512 WindowsForms v4.5.1 @@ -36,7 +36,7 @@ true true bin\Debug\ - DD-Record-Organiser.xml + DD-Record-Organizer.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -46,7 +46,7 @@ true true bin\Release\ - DD-Record-Organiser.xml + DD-Record-Organizer.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 diff --git a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb index c548003..07936f3 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' 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 ' der Code erneut generiert wird. @@ -16,45 +16,45 @@ Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' - _ + _ Partial Public Class DD_DMSDataSetCalendar Inherits Global.System.Data.DataSet - + Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable - + Private tableTBPMO_RESOURCES As TBPMO_RESOURCESDataTable - + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ + + _ Public Sub New() - MyBase.New - Me.BeginInit - Me.InitClass + MyBase.New() + Me.BeginInit() + Me.InitClass() Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler - Me.EndInit + Me.EndInit() End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context, false) - If (Me.IsBinarySerialized(info, context) = true) Then - Me.InitVars(false) + MyBase.New(info, context, False) + If (Me.IsBinarySerialized(info, context) = True) Then + Me.InitVars(False) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return 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 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))) @@ -70,8 +70,8 @@ Partial Public Class DD_DMSDataSetCalendar Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If @@ -80,92 +80,92 @@ Partial Public Class DD_DMSDataSetCalendar AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - - _ + + _ Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable Get Return Me.tableTBPMO_APPOINTMENTS End Get End Property - - _ + + _ Public ReadOnly Property TBPMO_RESOURCES() As TBPMO_RESOURCESDataTable Get Return Me.tableTBPMO_RESOURCES End Get End Property - - _ + + _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get - Set + Set(value As Global.System.Data.SchemaSerializationMode) Me._schemaSerializationMode = value End Set End Property - - _ + + _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property - - _ + + _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property - - _ + + _ Protected Overrides Sub InitializeDerivedDataSet() - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DD_DMSDataSetCalendar = CType(MyBase.Clone,DD_DMSDataSetCalendar) - cln.InitVars + Dim cln As DD_DMSDataSetCalendar = CType(MyBase.Clone, DD_DMSDataSetCalendar) + cln.InitVars() cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + _ Protected Overrides Function ShouldSerializeTables() As Boolean - Return false + Return False End Function - - _ + + _ Protected Overrides Function ShouldSerializeRelations() As Boolean - Return false + Return False End Function - - _ + + _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) 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() ds.ReadXml(reader) If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then @@ -180,82 +180,82 @@ Partial Public Class DD_DMSDataSetCalendar Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXml(reader) - Me.InitVars + Me.InitVars() End If End Sub - - _ + + _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function - - _ + + _ Friend Overloads Sub InitVars() - Me.InitVars(true) + Me.InitVars(True) End Sub - - _ + + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"),TBPMO_APPOINTMENTSDataTable) - If (initTable = true) Then + Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"), TBPMO_APPOINTMENTSDataTable) + If (initTable = True) Then If (Not (Me.tableTBPMO_APPOINTMENTS) Is Nothing) Then - Me.tableTBPMO_APPOINTMENTS.InitVars + Me.tableTBPMO_APPOINTMENTS.InitVars() End If End If - Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"),TBPMO_RESOURCESDataTable) - If (initTable = true) Then + Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"), TBPMO_RESOURCESDataTable) + If (initTable = True) Then If (Not (Me.tableTBPMO_RESOURCES) Is Nothing) Then - Me.tableTBPMO_RESOURCES.InitVars + Me.tableTBPMO_RESOURCES.InitVars() End If End If End Sub - - _ + + _ Private Sub InitClass() Me.DataSetName = "DD_DMSDataSetCalendar" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_DMSDataSetCalendar.xsd" - Me.EnforceConstraints = true + Me.EnforceConstraints = True Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable() MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS) Me.tableTBPMO_RESOURCES = New TBPMO_RESOURCESDataTable() MyBase.Tables.Add(Me.tableTBPMO_RESOURCES) End Sub - - _ + + _ Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean - Return false + Return False End Function - - _ + + _ Private Function ShouldSerializeTBPMO_RESOURCES() As Boolean - Return false + Return False End Function - - _ + + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then - Me.InitVars + Me.InitVars() End If End Sub - - _ + + _ 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 type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -268,86 +268,86 @@ Partial Public Class DD_DMSDataSetCalendar If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If xs.Add(dsSchema) Return type End Function - - _ + + _ Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent) - - _ + + _ Public Delegate Sub TBPMO_RESOURCESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESOURCESRowChangeEvent) - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_APPOINTMENTSDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_APPOINTMENTSRow) - + Private columnUniqueID As Global.System.Data.DataColumn - + Private columnType As Global.System.Data.DataColumn - + Private columnStartDate As Global.System.Data.DataColumn - + Private columnEndDate As Global.System.Data.DataColumn - + Private columnAllDay As Global.System.Data.DataColumn - + Private columnSubject As Global.System.Data.DataColumn - + Private columnLocation As Global.System.Data.DataColumn - + Private columnDescription As Global.System.Data.DataColumn - + Private columnStatus As Global.System.Data.DataColumn - + Private columnLabel As Global.System.Data.DataColumn - + Private columnResourceID As Global.System.Data.DataColumn - + Private columnResourceIDs As Global.System.Data.DataColumn - + Private columnReminderInfo As Global.System.Data.DataColumn - + Private columnRecurrenceInfo As Global.System.Data.DataColumn - + Private columnCustomField1 As Global.System.Data.DataColumn - + Private columnCustomField2 As Global.System.Data.DataColumn ' 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 ' der Code erneut generiert wird. @@ -16,47 +16,47 @@ Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' - _ + _ Partial Public Class DD_DMSDataSetMenuDesigner Inherits Global.System.Data.DataSet - + Private tableTBPMO_MENU_FORM As TBPMO_MENU_FORMDataTable - + Private tableTBPMO_MENU_FORM_ENTRIES As TBPMO_MENU_FORM_ENTRIESDataTable - + Private relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID As Global.System.Data.DataRelation - + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ + + _ Public Sub New() - MyBase.New - Me.BeginInit - Me.InitClass + MyBase.New() + Me.BeginInit() + Me.InitClass() Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler - Me.EndInit + Me.EndInit() End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context, false) - If (Me.IsBinarySerialized(info, context) = true) Then - Me.InitVars(false) + MyBase.New(info, context, False) + If (Me.IsBinarySerialized(info, context) = True) Then + Me.InitVars(False) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return 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 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))) @@ -72,8 +72,8 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If @@ -82,92 +82,92 @@ Partial Public Class DD_DMSDataSetMenuDesigner AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - - _ + + _ Public ReadOnly Property TBPMO_MENU_FORM() As TBPMO_MENU_FORMDataTable Get Return Me.tableTBPMO_MENU_FORM End Get End Property - - _ + + _ Public ReadOnly Property TBPMO_MENU_FORM_ENTRIES() As TBPMO_MENU_FORM_ENTRIESDataTable Get Return Me.tableTBPMO_MENU_FORM_ENTRIES End Get End Property - - _ + + _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get - Set + Set(value As Global.System.Data.SchemaSerializationMode) Me._schemaSerializationMode = value End Set End Property - - _ + + _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property - - _ + + _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property - - _ + + _ Protected Overrides Sub InitializeDerivedDataSet() - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DD_DMSDataSetMenuDesigner = CType(MyBase.Clone,DD_DMSDataSetMenuDesigner) - cln.InitVars + Dim cln As DD_DMSDataSetMenuDesigner = CType(MyBase.Clone, DD_DMSDataSetMenuDesigner) + cln.InitVars() cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + _ Protected Overrides Function ShouldSerializeTables() As Boolean - Return false + Return False End Function - - _ + + _ Protected Overrides Function ShouldSerializeRelations() As Boolean - Return false + Return False End Function - - _ + + _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) 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() ds.ReadXml(reader) If (Not (ds.Tables("TBPMO_MENU_FORM")) Is Nothing) Then @@ -182,85 +182,85 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXml(reader) - Me.InitVars + Me.InitVars() End If End Sub - - _ + + _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function - - _ + + _ Friend Overloads Sub InitVars() - Me.InitVars(true) + Me.InitVars(True) End Sub - - _ + + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBPMO_MENU_FORM = CType(MyBase.Tables("TBPMO_MENU_FORM"),TBPMO_MENU_FORMDataTable) - If (initTable = true) Then + Me.tableTBPMO_MENU_FORM = CType(MyBase.Tables("TBPMO_MENU_FORM"), TBPMO_MENU_FORMDataTable) + If (initTable = True) Then If (Not (Me.tableTBPMO_MENU_FORM) Is Nothing) Then - Me.tableTBPMO_MENU_FORM.InitVars + Me.tableTBPMO_MENU_FORM.InitVars() End If End If - Me.tableTBPMO_MENU_FORM_ENTRIES = CType(MyBase.Tables("TBPMO_MENU_FORM_ENTRIES"),TBPMO_MENU_FORM_ENTRIESDataTable) - If (initTable = true) Then + Me.tableTBPMO_MENU_FORM_ENTRIES = CType(MyBase.Tables("TBPMO_MENU_FORM_ENTRIES"), TBPMO_MENU_FORM_ENTRIESDataTable) + If (initTable = True) Then If (Not (Me.tableTBPMO_MENU_FORM_ENTRIES) Is Nothing) Then - Me.tableTBPMO_MENU_FORM_ENTRIES.InitVars + Me.tableTBPMO_MENU_FORM_ENTRIES.InitVars() End If End If Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = Me.Relations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID") End Sub - - _ + + _ Private Sub InitClass() Me.DataSetName = "DD_DMSDataSetMenuDesigner" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_DMSDataSetMenuDesigner.xsd" - Me.EnforceConstraints = true + Me.EnforceConstraints = True Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_MENU_FORM = New TBPMO_MENU_FORMDataTable() MyBase.Tables.Add(Me.tableTBPMO_MENU_FORM) Me.tableTBPMO_MENU_FORM_ENTRIES = New TBPMO_MENU_FORM_ENTRIESDataTable() MyBase.Tables.Add(Me.tableTBPMO_MENU_FORM_ENTRIES) - Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn}, false) + Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn}, False) Me.Relations.Add(Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID) End Sub - - _ + + _ Private Function ShouldSerializeTBPMO_MENU_FORM() As Boolean - Return false + Return False End Function - - _ + + _ Private Function ShouldSerializeTBPMO_MENU_FORM_ENTRIES() As Boolean - Return false + Return False End Function - - _ + + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then - Me.InitVars + Me.InitVars() End If End Sub - - _ + + _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DD_DMSDataSetMenuDesigner = New DD_DMSDataSetMenuDesigner() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -273,86 +273,86 @@ Partial Public Class DD_DMSDataSetMenuDesigner If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If xs.Add(dsSchema) Return type End Function - - _ + + _ Public Delegate Sub TBPMO_MENU_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_MENU_FORMRowChangeEvent) - - _ + + _ Public Delegate Sub TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_MENU_FORM_ENTRIESRowChangeEvent) - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_MENU_FORMDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_MENU_FORMRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnMENU_ENTRY As Global.System.Data.DataColumn - + Private columnICON_PATH As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBPMO_MENU_FORM" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -366,145 +366,145 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property MENU_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_ENTRY End Get End Property - - _ + + _ Public ReadOnly Property ICON_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnICON_PATH End Get End Property - - _ + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORMRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORMRow Get - Return CType(Me.Rows(index),TBPMO_MENU_FORMRow) + Return CType(Me.Rows(index), TBPMO_MENU_FORMRow) End Get End Property - - _ + + _ Public Event TBPMO_MENU_FORMRowChanging As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORMRowChanged As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORMRowDeleting As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORMRowDeleted As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_MENU_FORMRow(ByVal row As TBPMO_MENU_FORMRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBPMO_MENU_FORMRow(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_MENU_FORMRow - Dim rowTBPMO_MENU_FORMRow As TBPMO_MENU_FORMRow = CType(Me.NewRow,TBPMO_MENU_FORMRow) + Dim rowTBPMO_MENU_FORMRow As TBPMO_MENU_FORMRow = CType(Me.NewRow, TBPMO_MENU_FORMRow) Dim columnValuesArray() As Object = New Object() {Nothing, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_MENU_FORMRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_MENU_FORMRow) Return rowTBPMO_MENU_FORMRow End Function - - _ + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_MENU_FORMRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_MENU_FORMRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_MENU_FORMRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_MENU_FORMDataTable = CType(MyBase.Clone,TBPMO_MENU_FORMDataTable) - cln.InitVars + Dim cln As TBPMO_MENU_FORMDataTable = CType(MyBase.Clone, TBPMO_MENU_FORMDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_MENU_FORMDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMENU_ENTRY = MyBase.Columns("MENU_ENTRY") @@ -515,9 +515,9 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub - - _ + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -535,85 +535,85 @@ Partial Public Class DD_DMSDataSetMenuDesigner MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnMENU_ENTRY.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnMENU_ENTRY.AllowDBNull = False Me.columnMENU_ENTRY.MaxLength = 100 Me.columnICON_PATH.MaxLength = 1000 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 - Me.columnADDED_WHEN.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = False Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + _ Public Function NewTBPMO_MENU_FORMRow() As TBPMO_MENU_FORMRow - Return CType(Me.NewRow,TBPMO_MENU_FORMRow) + Return CType(Me.NewRow, TBPMO_MENU_FORMRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_MENU_FORMRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_MENU_FORMRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_MENU_FORMRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowChanged(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowChanged(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_MENU_FORMRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowChanging(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowChanging(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_MENU_FORMRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowDeleted(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowDeleted(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_MENU_FORMRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowDeleting(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowDeleting(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBPMO_MENU_FORMRow(ByVal row As TBPMO_MENU_FORMRow) Me.Rows.Remove(row) End Sub - - _ + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -642,35 +642,35 @@ Partial Public Class DD_DMSDataSetMenuDesigner If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -678,49 +678,49 @@ Partial Public Class DD_DMSDataSetMenuDesigner Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_MENU_FORM_ENTRIESDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_MENU_FORM_ENTRIESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnMENU_FORM_ID As Global.System.Data.DataColumn - + Private columnFORM_ID As Global.System.Data.DataColumn - + Private columnICON_PATH As Global.System.Data.DataColumn - + Private columnMENU_ENTRY As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBPMO_MENU_FORM_ENTRIES" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -734,133 +734,133 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property MENU_FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_FORM_ID End Get End Property - - _ + + _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property - - _ + + _ Public ReadOnly Property ICON_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnICON_PATH End Get End Property - - _ + + _ Public ReadOnly Property MENU_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_ENTRY End Get End Property - - _ + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORM_ENTRIESRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORM_ENTRIESRow Get - Return CType(Me.Rows(index),TBPMO_MENU_FORM_ENTRIESRow) + Return CType(Me.Rows(index), TBPMO_MENU_FORM_ENTRIESRow) End Get End Property - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowChanging As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowChanged As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowDeleting As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowDeleted As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_MENU_FORM_ENTRIESRow(ByVal row As TBPMO_MENU_FORM_ENTRIESRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBPMO_MENU_FORM_ENTRIESRow(ByVal parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID As TBPMO_MENU_FORMRow, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_MENU_FORM_ENTRIESRow - Dim rowTBPMO_MENU_FORM_ENTRIESRow As TBPMO_MENU_FORM_ENTRIESRow = CType(Me.NewRow,TBPMO_MENU_FORM_ENTRIESRow) + Dim rowTBPMO_MENU_FORM_ENTRIESRow As TBPMO_MENU_FORM_ENTRIESRow = CType(Me.NewRow, TBPMO_MENU_FORM_ENTRIESRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID(0) @@ -869,29 +869,29 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Rows.Add(rowTBPMO_MENU_FORM_ENTRIESRow) Return rowTBPMO_MENU_FORM_ENTRIESRow End Function - - _ + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_MENU_FORM_ENTRIESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_MENU_FORM_ENTRIESRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_MENU_FORM_ENTRIESRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_MENU_FORM_ENTRIESDataTable = CType(MyBase.Clone,TBPMO_MENU_FORM_ENTRIESDataTable) - cln.InitVars + Dim cln As TBPMO_MENU_FORM_ENTRIESDataTable = CType(MyBase.Clone, TBPMO_MENU_FORM_ENTRIESDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_MENU_FORM_ENTRIESDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMENU_FORM_ID = MyBase.Columns("MENU_FORM_ID") @@ -904,9 +904,9 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub - - _ + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -928,87 +928,87 @@ Partial Public Class DD_DMSDataSetMenuDesigner MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnMENU_FORM_ID.AllowDBNull = false - Me.columnFORM_ID.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnMENU_FORM_ID.AllowDBNull = False + Me.columnFORM_ID.AllowDBNull = False Me.columnICON_PATH.MaxLength = 1000 - Me.columnMENU_ENTRY.AllowDBNull = false + Me.columnMENU_ENTRY.AllowDBNull = False Me.columnMENU_ENTRY.MaxLength = 50 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 - Me.columnADDED_WHEN.AllowDBNull = false + Me.columnADDED_WHEN.AllowDBNull = False Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + _ Public Function NewTBPMO_MENU_FORM_ENTRIESRow() As TBPMO_MENU_FORM_ENTRIESRow - Return CType(Me.NewRow,TBPMO_MENU_FORM_ENTRIESRow) + Return CType(Me.NewRow, TBPMO_MENU_FORM_ENTRIESRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_MENU_FORM_ENTRIESRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_MENU_FORM_ENTRIESRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanged(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanged(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanging(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanging(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleted(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleted(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleting(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleting(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBPMO_MENU_FORM_ENTRIESRow(ByVal row As TBPMO_MENU_FORM_ENTRIESRow) Me.Rows.Remove(row) End Sub - - _ + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1037,35 +1037,35 @@ Partial Public Class DD_DMSDataSetMenuDesigner If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1073,419 +1073,419 @@ Partial Public Class DD_DMSDataSetMenuDesigner Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_MENU_FORMRow Inherits Global.System.Data.DataRow - + Private tableTBPMO_MENU_FORM As TBPMO_MENU_FORMDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPMO_MENU_FORM = CType(Me.Table,TBPMO_MENU_FORMDataTable) + Me.tableTBPMO_MENU_FORM = CType(Me.Table, TBPMO_MENU_FORMDataTable) End Sub - - _ + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM.GUIDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBPMO_MENU_FORM.GUIDColumn) = value End Set End Property - - _ + + _ Public Property MENU_ENTRY() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn),String) + Return CType(Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn) = value End Set End Property - - _ + + _ Public Property ICON_PATH() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn),String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ICON_PATH in Tabelle TBPMO_MENU_FORM ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) = value End Set End Property - - _ + + _ Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn), Date) End Get - Set + Set(value As Date) Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_MENU_FORM ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_MENU_FORM ist DBNull.", e) End Try End Get - Set + Set(value As Date) Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) = value End Set End Property - - _ + + _ Public Function IsICON_PATHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) End Function - - _ + + _ Public Sub SetICON_PATHNull() Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function GetTBPMO_MENU_FORM_ENTRIESRows() As TBPMO_MENU_FORM_ENTRIESRow() If (Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID") Is Nothing) Then Return New TBPMO_MENU_FORM_ENTRIESRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")),TBPMO_MENU_FORM_ENTRIESRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")), TBPMO_MENU_FORM_ENTRIESRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_MENU_FORM_ENTRIESRow Inherits Global.System.Data.DataRow - + Private tableTBPMO_MENU_FORM_ENTRIES As TBPMO_MENU_FORM_ENTRIESDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPMO_MENU_FORM_ENTRIES = CType(Me.Table,TBPMO_MENU_FORM_ENTRIESDataTable) + Me.tableTBPMO_MENU_FORM_ENTRIES = CType(Me.Table, TBPMO_MENU_FORM_ENTRIESDataTable) End Sub - - _ + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn) = value End Set End Property - - _ + + _ Public Property MENU_FORM_ID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn),Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn) = value End Set End Property - - _ + + _ Public Property FORM_ID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn),Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn) = value End Set End Property - - _ + + _ Public Property ICON_PATH() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn),String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ICON_PATH in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) = value End Set End Property - - _ + + _ Public Property MENU_ENTRY() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn),String) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn) = value End Set End Property - - _ + + _ Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn), Date) End Get - Set + Set(value As Date) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) End Try End Get - Set + Set(value As Date) Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) = value End Set End Property - - _ + + _ Public Property TBPMO_MENU_FORMRow() As TBPMO_MENU_FORMRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")),TBPMO_MENU_FORMRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")), TBPMO_MENU_FORMRow) End Get - Set + Set(value As TBPMO_MENU_FORMRow) Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")) End Set End Property - - _ + + _ Public Function IsICON_PATHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) End Function - - _ + + _ Public Sub SetICON_PATHNull() Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_MENU_FORMRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_MENU_FORMRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_MENU_FORMRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBPMO_MENU_FORMRow Get Return Me.eventRow End Get End Property - - _ + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_MENU_FORM_ENTRIESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_MENU_FORM_ENTRIESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_MENU_FORM_ENTRIESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBPMO_MENU_FORM_ENTRIESRow Get Return Me.eventRow End Get End Property - - _ + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -1495,57 +1495,57 @@ Partial Public Class DD_DMSDataSetMenuDesigner End Class Namespace DD_DMSDataSetMenuDesignerTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_MENU_FORMTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -1559,65 +1559,65 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -1634,403 +1634,403 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_E"& _ - "NTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NUL"& _ - "L) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE)"& _ - " AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHE"& _ - "N) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = "& _ - "@Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_E" & _ + "NTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NUL" & _ + "L) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE)" & _ + " AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHE" & _ + "N) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = " & _ + "@Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL" & _ "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM] ([MENU_ENTRY], [ICON_PATH], [SEQUENCE], [ADDE"& _ - "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_ENTRY, @ICON_"& _ - "PATH, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM] ([MENU_ENTRY], [ICON_PATH], [SEQUENCE], [ADDE" & _ + "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_ENTRY, @ICON_" & _ + "PATH, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT " & _ + "GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG" & _ "ED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICO"& _ - "N_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_"& _ - "WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID"& _ - "] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON"& _ - "_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ("& _ - "[SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([A"& _ - "DDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WH"& _ - "O] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WH"& _ - "EN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))"& _ - ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICO" & _ + "N_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_" & _ + "WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID" & _ + "] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON" & _ + "_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND (" & _ + "[SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([A" & _ + "DDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WH" & _ + "O] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WH" & _ + "EN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))" & _ + ");" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED" & _ "_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & _ " CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable + + _ + Public Overridable Overloads Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable = New DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_MENU_FORM") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_ENTRY,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_ENTRY, String) End If If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ICON_PATH,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ICON_PATH, String) End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Integer) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE, Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO, String) End If - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN, Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + + _ + Public Overridable Overloads Function Insert(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_ENTRY,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_ENTRY, String) End If If (ICON_PATH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ICON_PATH,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ICON_PATH, String) End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO, String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN, Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal MENU_ENTRY As String, _ - ByVal ICON_PATH As String, _ - ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_MENU_ENTRY As String, _ - ByVal Original_ICON_PATH As String, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + + _ + Public Overridable Overloads Function Update( _ + ByVal MENU_ENTRY As String, _ + ByVal ICON_PATH As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_ENTRY,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_ENTRY, String) End If If (ICON_PATH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ICON_PATH,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ICON_PATH, String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN, Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID, Integer) If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MENU_ENTRY,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MENU_ENTRY, String) End If If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ICON_PATH,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ICON_PATH, String) End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE, Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN, Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + + _ + Public Overridable Overloads Function Update(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MENU_ENTRY, Original_ICON_PATH, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_MENU_FORM_ENTRIESTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -2044,65 +2044,65 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -2121,514 +2121,514 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND "& _ - "([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AN"& _ - "D ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_I"& _ - "CON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original"& _ - "_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original"& _ - "_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANG"& _ - "ED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WH"& _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND " & _ + "([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AN" & _ + "D ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_I" & _ + "CON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original" & _ + "_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original" & _ + "_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANG" & _ + "ED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WH" & _ "EN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM_ENTRIES] ([MENU_FORM_ID], [FORM_ID], [ICON_PAT"& _ - "H], [MENU_ENTRY], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED"& _ - "_WHEN]) VALUES (@MENU_FORM_ID, @FORM_ID, @ICON_PATH, @MENU_ENTRY, @SEQUENCE, @AD"& _ - "DED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MENU_FORM_ID, "& _ - "FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM_ENTRIES] ([MENU_FORM_ID], [FORM_ID], [ICON_PAT" & _ + "H], [MENU_ENTRY], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED" & _ + "_WHEN]) VALUES (@MENU_FORM_ID, @FORM_ID, @ICON_PATH, @MENU_ENTRY, @SEQUENCE, @AD" & _ + "DED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, MENU_FORM_ID, " & _ + "FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH" & _ "ANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_"& _ - "ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE]"& _ - " = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO"& _ - "] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID"& _ - ") AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_"& _ - "ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Orig"& _ - "inal_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Or"& _ - "iginal_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Or"& _ - "iginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ("& _ - "[CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHAN"& _ - "GED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ - " MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_" & _ + "ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE]" & _ + " = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO" & _ + "] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID" & _ + ") AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_" & _ + "ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Orig" & _ + "inal_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Or" & _ + "iginal_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Or" & _ + "iginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR (" & _ + "[CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHAN" & _ + "GED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID," & _ + " MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, " & _ "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, A"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, A" & _ "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM_ENTRIES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED"& _ - "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_MENU_FORM_ENT"& _ - "RIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MENU_FORM_ID = @MENU_FORM_ID)" + Me._commandCollection(1).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED" & _ + "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_MENU_FORM_ENT" & _ + "RIES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (MENU_FORM_ID = @MENU_FORM_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable + + _ + Public Overridable Overloads Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable = New DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillBy(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable, ByVal MENU_FORM_ID As Integer) As Integer + + _ + Public Overridable Overloads Function FillBy(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable, ByVal MENU_FORM_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MENU_FORM_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_MENU_FORM_ENTRIES") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_FORM_ID As Integer, ByVal Original_FORM_ID As Integer, ByVal Original_ICON_PATH As String, ByVal Original_MENU_ENTRY As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_FORM_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID,Integer) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_FORM_ID As Integer, ByVal Original_FORM_ID As Integer, ByVal Original_ICON_PATH As String, ByVal Original_MENU_ENTRY As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_FORM_ID, Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID, Integer) If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ICON_PATH,String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ICON_PATH, String) End If If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_MENU_ENTRY,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_MENU_ENTRY, String) End If - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SEQUENCE,Integer) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SEQUENCE, Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO, String) End If - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN, Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal MENU_FORM_ID As Integer, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + + _ + Public Overridable Overloads Function Insert(ByVal MENU_FORM_ID As Integer, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_FORM_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) If (ICON_PATH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ICON_PATH,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ICON_PATH, String) End If If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_ENTRY,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_ENTRY, String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO, String) End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN,Date) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN, Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal MENU_FORM_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal ICON_PATH As String, _ - ByVal MENU_ENTRY As String, _ - ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_MENU_FORM_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_ICON_PATH As String, _ - ByVal Original_MENU_ENTRY As String, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + + _ + Public Overridable Overloads Function Update( _ + ByVal MENU_FORM_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal ICON_PATH As String, _ + ByVal MENU_ENTRY As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_FORM_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) If (ICON_PATH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ICON_PATH,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ICON_PATH, String) End If If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_ENTRY,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_ENTRY, String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN, Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_MENU_FORM_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_MENU_FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_FORM_ID, Integer) If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ICON_PATH,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ICON_PATH, String) End If If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_MENU_ENTRY,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_MENU_ENTRY, String) End If - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SEQUENCE, Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO, String) End If - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN, Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal MENU_FORM_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal ICON_PATH As String, _ - ByVal MENU_ENTRY As String, _ - ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_MENU_FORM_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_ICON_PATH As String, _ - ByVal Original_MENU_ENTRY As String, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ + + _ + Public Overridable Overloads Function Update( _ + ByVal MENU_FORM_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal ICON_PATH As String, _ + ByVal MENU_ENTRY As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_FORM_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_SEQUENCE As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MENU_FORM_ID, Original_FORM_ID, Original_ICON_PATH, Original_MENU_ENTRY, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class - + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' - _ + _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component - + Private _updateOrder As UpdateOrderOption - + Private _tBPMO_MENU_FORMTableAdapter As TBPMO_MENU_FORMTableAdapter - + Private _tBPMO_MENU_FORM_ENTRIESTableAdapter As TBPMO_MENU_FORM_ENTRIESTableAdapter - + Private _backupDataSetBeforeUpdate As Boolean - + Private _connection As Global.System.Data.IDbConnection - - _ + + _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get - Set + Set(value As UpdateOrderOption) Me._updateOrder = value End Set End Property - - _ + + _ Public Property TBPMO_MENU_FORMTableAdapter() As TBPMO_MENU_FORMTableAdapter Get Return Me._tBPMO_MENU_FORMTableAdapter End Get - Set + Set(value As TBPMO_MENU_FORMTableAdapter) Me._tBPMO_MENU_FORMTableAdapter = value End Set End Property - - _ + + _ Public Property TBPMO_MENU_FORM_ENTRIESTableAdapter() As TBPMO_MENU_FORM_ENTRIESTableAdapter Get Return Me._tBPMO_MENU_FORM_ENTRIESTableAdapter End Get - Set + Set(value As TBPMO_MENU_FORM_ENTRIESTableAdapter) Me._tBPMO_MENU_FORM_ENTRIESTableAdapter = value End Set End Property - - _ + + _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get - Set + Set(value As Boolean) Me._backupDataSetBeforeUpdate = value End Set End Property - - _ + + _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_MENU_FORMTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_MENU_FORMTableAdapter.Connection End If - If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection End If Return Nothing End Get - Set + Set(value As Global.System.Data.IDbConnection) Me._connection = value End Set End Property - - _ + + _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 @@ -2641,18 +2641,18 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Return count End Get End Property - + ''' '''Update rows in top-down order. ''' - _ + _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -2661,7 +2661,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -2669,17 +2669,17 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If Return result End Function - + ''' '''Insert rows in top-down order. ''' - _ + _ Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -2687,7 +2687,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -2695,17 +2695,17 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If Return result End Function - + ''' '''Delete rows in bottom-up order. ''' - _ + _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -2713,7 +2713,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -2721,18 +2721,18 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If Return result End Function - + ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' - _ + _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() - If ((updatedRows Is Nothing) _ + If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If - If ((allAddedRows Is Nothing) _ + If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If @@ -2740,55 +2740,55 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) - If (allAddedRows.Contains(row) = false) Then + If (allAddedRows.Contains(row) = False) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function - + ''' '''Update all changes to the dataset. ''' - _ + _ Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If - If (dataSet.HasChanges = false) Then + If (dataSet.HasChanges = False) Then Return 0 End If - If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORMTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORMTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) = False)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then - Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ - "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ "t.") End If - Dim workConnOpened As Boolean = false - If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then - workConnection.Close + workConnection.Close() End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then - workConnection.Open - workConnOpened = true + workConnection.Open() + workConnOpened = True End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then - Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ - "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ "ion nicht zu.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() @@ -2801,24 +2801,24 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If - Try + Try '---- Prepare for update ----------- ' If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_MENU_FORMTableAdapter, Me._tBPMO_MENU_FORMTableAdapter.Connection) - Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_MENU_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORMTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_MENU_FORMTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter, Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter) End If End If @@ -2836,14 +2836,14 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters ' '---- Commit updates ----------- ' - workTransaction.Commit + workTransaction.Commit() If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges + row.AcceptChanges() i = (i + 1) Loop End If @@ -2853,16 +2853,16 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges + row.AcceptChanges() i = (i + 1) Loop End If Catch ex As Global.System.Exception - workTransaction.Rollback + workTransaction.Rollback() '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) - dataSet.Clear + dataSet.Clear() dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then @@ -2871,8 +2871,8 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges - row.SetAdded + row.AcceptChanges() + row.SetAdded() i = (i + 1) Loop End If @@ -2880,14 +2880,14 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Throw ex Finally If workConnOpened Then - workConnection.Close + workConnection.Close() End If If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then - Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORMTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_MENU_FORMTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then @@ -2896,63 +2896,63 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) - adapter.AcceptChangesDuringUpdate = true + adapter.AcceptChangesDuringUpdate = True i = (i + 1) Loop End If End Try Return result End Function - - _ + + _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub - - _ + + _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then - Return true + Return True End If - If ((Me.Connection Is Nothing) _ + If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then - Return true + Return True End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then - Return true + Return True End If - Return false + Return False End Function - + ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption - + InsertUpdateDelete = 0 - + UpdateInsertDelete = 1 End Enum - + ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) - + Private _relation As Global.System.Data.DataRelation - + Private _childFirst As Integer - - _ + + _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) - MyBase.New + MyBase.New() Me._relation = relation If childFirst Then Me._childFirst = -1 @@ -2960,9 +2960,9 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Me._childFirst = 1 End If End Sub - - _ + + _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -2973,8 +2973,8 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = false)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -2983,12 +2983,12 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Loop If (distance = 0) Then - traversedRows.Clear + traversedRows.Clear() traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = false)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -2999,9 +2999,9 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Return root End Function - - _ + + _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 @@ -3022,7 +3022,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else - Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb index 1fcb77e..6493e2f 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -4589,6 +4589,8 @@ Partial Public Class DD_ECMAdmin Private columnVERSION_CLIENT As Global.System.Data.DataColumn + Private columnMACHINE_NAME As Global.System.Data.DataColumn + _ Public Sub New() @@ -4712,6 +4714,14 @@ Partial Public Class DD_ECMAdmin End Get End Property + _ + Public ReadOnly Property MACHINE_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMACHINE_NAME + End Get + End Property + _ @@ -4749,9 +4759,9 @@ Partial Public Class DD_ECMAdmin _ - Public Overloads Function AddVWDD_LOGIN_USER_HISTORYRow(ByVal GUID As Integer, ByVal _MODULE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal CLIENT_NAME As String, ByVal LOGIN As Date, ByVal LOGOUT As Date, ByVal VERSION_CLIENT As String) As VWDD_LOGIN_USER_HISTORYRow + Public Overloads Function AddVWDD_LOGIN_USER_HISTORYRow(ByVal GUID As Integer, ByVal _MODULE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal CLIENT_NAME As String, ByVal LOGIN As Date, ByVal LOGOUT As Date, ByVal VERSION_CLIENT As String, ByVal MACHINE_NAME As String) As VWDD_LOGIN_USER_HISTORYRow Dim rowVWDD_LOGIN_USER_HISTORYRow As VWDD_LOGIN_USER_HISTORYRow = CType(Me.NewRow,VWDD_LOGIN_USER_HISTORYRow) - Dim columnValuesArray() As Object = New Object() {GUID, _MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT} + Dim columnValuesArray() As Object = New Object() {GUID, _MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME} rowVWDD_LOGIN_USER_HISTORYRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWDD_LOGIN_USER_HISTORYRow) Return rowVWDD_LOGIN_USER_HISTORYRow @@ -4785,6 +4795,7 @@ Partial Public Class DD_ECMAdmin Me.columnLOGIN = MyBase.Columns("LOGIN") Me.columnLOGOUT = MyBase.Columns("LOGOUT") Me.columnVERSION_CLIENT = MyBase.Columns("VERSION_CLIENT") + Me.columnMACHINE_NAME = MyBase.Columns("MACHINE_NAME") End Sub _ + Public Property MACHINE_NAME() As String + Get + Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.MACHINE_NAMEColumn),String) + End Get + Set + Me(Me.tableVWDD_LOGIN_USER_HISTORY.MACHINE_NAMEColumn) = value + End Set + End Property + _ Public Function IsNAMENull() As Boolean @@ -10119,252 +10145,252 @@ Namespace DD_ECMAdminTableAdapters Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER"& _ - "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_"& _ - "WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, MENU_IMG, SHORT_TITL"& _ - "E, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER" & _ + "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_" & _ + "WHEN, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, MENU_IMG, SHORT_TITL" & _ + "E, LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + + _ + Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer + + _ + Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + + _ + Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO, String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE, String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -10378,65 +10404,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -10470,465 +10496,465 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ - ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ - "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ - "CH_PATTERN5, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WIND"& _ - "REAM_VIEW)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQ"& _ - "UENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAM"& _ - "E2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_P"& _ - "ATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY,@S"& _ - "QL_RIGHT_WINDREAM_VIEW); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEV"& _ - "EL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHE"& _ - "N, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARC"& _ - "H_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 F"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (CONSTRUCT_ID" & _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR" & _ + "CH_PATTERN5, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WIND" & _ + "REAM_VIEW)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQ" & _ + "UENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAM" & _ + "E2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_P" & _ + "ATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY,@S" & _ + "QL_RIGHT_WINDREAM_VIEW); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEV" & _ + "EL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHE" & _ + "N, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARC" & _ + "H_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 F" & _ "ROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ - "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ - "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ - "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ - "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ - "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ - "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ - "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ - "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONTROL_DO"& _ - "CTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_"& _ - "READ_AND_VIEW_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_RIGHT_WINDREAM_VIEW = @SQL_RI"& _ - "GHT_WINDREAM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONS"& _ - "TRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SE"& _ - "LECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COL"& _ - "UMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, S"& _ - "EARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID ="& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ + "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ + "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CONTROL_DO" & _ + "CTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_" & _ + "READ_AND_VIEW_ONLY, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_RIGHT_WINDREAM_VIEW = @SQL_RI" & _ + "GHT_WINDREAM_VIEW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONS" & _ + "TRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SE" & _ + "LECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COL" & _ + "UMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, S" & _ + "EARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID =" & _ " @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ - "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ - "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ - "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ - "5, LOAD_DIRECT, SQL_QUICK_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONTROL_DOCTYPE_MATCH"& _ - ", SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_F"& _ - "ORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ" & _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_" & _ + "WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE" & _ + "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN" & _ + "5, LOAD_DIRECT, SQL_QUICK_VIEW, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CONTROL_DOCTYPE_MATCH" & _ + ", SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_F" & _ + "ORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal CONTROL_DOCTYPE_MATCH As Integer, _ - ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ + + _ + Public Overridable Overloads Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ ByVal SQL_RIGHT_WINDREAM_VIEW As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) End If - Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY,String) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else - Me.Adapter.InsertCommand.Parameters(18).Value = CType(SQL_RIGHT_WINDREAM_VIEW,String) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(SQL_RIGHT_WINDREAM_VIEW, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal CHANGED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal LOAD_DIRECT As Boolean, _ - ByVal CONTROL_DOCTYPE_MATCH As Integer, _ - ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ - ByVal SQL_RIGHT_WINDREAM_VIEW As String, _ - ByVal Original_GUID As Integer, _ + + _ + Public Overridable Overloads Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal LOAD_DIRECT As Boolean, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ + ByVal SQL_RIGHT_WINDREAM_VIEW As String, _ + ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY,String) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SQL_RIGHT_WINDREAM_VIEW,String) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SQL_RIGHT_WINDREAM_VIEW, String) End If - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -10942,65 +10968,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11022,315 +11048,315 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ - "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ - "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, SQL_PROVIDER," & _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & _ + " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK" & _ + "UNG,@AKTIV,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE" & _ + "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT" & _ "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ - "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ - "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ - "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ - "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ - "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, SQL_" & _ + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @" & _ + "USERNAME, PASSWORD = @PASSWORD, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " BEMERKUNG = @BEMERKUN" & _ + "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GU" & _ + "ID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS" & _ + "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR" & _ "OM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable = New DD_ECMAdmin.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + + _ + Public Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If If (SERVER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER, String) End If If (DATENBANK Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK, String) End If If (USERNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME, String) End If If (PASSWORD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD, String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV, Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + + _ + Public Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If If (SERVER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER, String) End If If (DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK, String) End If If (USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME, String) End If If (PASSWORD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD, String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV, Boolean) If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER, String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Short) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class VWTEMPQUICKVIEWTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11344,65 +11370,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11415,100 +11441,100 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der "& _ - "Eintragung im Register], Aktenzustand"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWTEMPQUICKVIEW" + Me._commandCollection(0).CommandText = "SELECT [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der " & _ + "Eintragung im Register], Aktenzustand" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWTEMPQUICKVIEW" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBWH_ENTITIESTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11522,65 +11548,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11591,125 +11617,125 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV"& _ - "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_FORM AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW AS T1 ON "& _ - "T.GUID = T1.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELE"& _ - "CT DISTINCT ENTITY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_CLIE"& _ - "NT_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (CLIENT_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT CLIENT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD"& _ - "_CLIENT_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHE"& _ - "RE (USER_ID = @USER_ID)))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 'CAPTION'" + Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV" & _ + "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ + " TBPMO_FORM AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM_VIEW AS T1 ON " & _ + "T.GUID = T1.FORM_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.GUID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELE" & _ + "CT DISTINCT ENTITY_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FROM TBPMO_CLIE" & _ + "NT_ENTITY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHERE (CLIENT_ID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " (SELECT CLIENT_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " FROM TBDD" & _ + "_CLIENT_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHE" & _ + "RE (USER_ID = @USER_ID)))))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY 'CAPTION'" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN,Integer) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable + + _ + Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN,Integer) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) Dim dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable = New DD_ECMAdmin.TBWH_ENTITIESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBWH_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11723,65 +11749,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11791,99 +11817,99 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_USER_GROUPS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable = New DD_ECMAdmin.TBWH_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_SAP_FUBATableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11897,65 +11923,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11983,411 +12009,411 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, TableName, H"& _ - "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, "& _ - "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COM"& _ - "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT"& _ - "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ - "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli"& _ - "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, COMMENT, TableName, H" & _ + "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, " & _ + "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COM" & _ + "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT" & _ + "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SE" & _ + "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli" & _ + "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE" & _ "D_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT,"& _ - " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = "& _ - "@UserName, Password = @Password, Client = @Client, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" La"& _ - "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH"& _ - "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FuBa_SplitCharacter = @FuBa_SplitCharacter"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ - "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U"& _ - "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME, COMMENT = @COMMENT," & _ + " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = " & _ + "@UserName, Password = @Password, Client = @Client, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " La" & _ + "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH" & _ + "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " FuBa_SplitCharacter = @FuBa_SplitCharacter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @O" & _ + "riginal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U" & _ + "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE" & _ "N, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw"& _ - "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE"& _ - "N, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, Method, FuBa_SplitChara"& _ - "cter"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_SAP_FUBA" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw" & _ + "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE" & _ + "N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, Method, FuBa_SplitChara" & _ + "cter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_SAP_FUBA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable = New DD_ECMAdmin.TBPMO_SAP_FUBADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_SAP_FUBA") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer + + _ + Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(TableName,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(TableName, String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Host,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Host, String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SystemNumber,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SystemNumber, String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(UserName,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(UserName, String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password, String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(Client,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(Client, String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(Language,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(Language, String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(TempTableName,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(TempTableName, String) End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ACTIVE, Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHO, String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE,String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method,String) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method, String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter,String) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal COMMENT As String, _ - ByVal TableName As String, _ - ByVal Host As String, _ - ByVal SystemNumber As String, _ - ByVal UserName As String, _ - ByVal Password As String, _ - ByVal Client As String, _ - ByVal Language As String, _ - ByVal TempTableName As String, _ - ByVal ACTIVE As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal WHERE_CLAUSE As String, _ - ByVal Method As String, _ - ByVal FuBa_SplitCharacter As String, _ - ByVal Original_GUID As Integer, _ + + _ + Public Overridable Overloads Function Update( _ + ByVal NAME As String, _ + ByVal COMMENT As String, _ + ByVal TableName As String, _ + ByVal Host As String, _ + ByVal SystemNumber As String, _ + ByVal UserName As String, _ + ByVal Password As String, _ + ByVal Client As String, _ + ByVal Language As String, _ + ByVal TempTableName As String, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal WHERE_CLAUSE As String, _ + ByVal Method As String, _ + ByVal FuBa_SplitCharacter As String, _ + ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TableName,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TableName, String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Host,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Host, String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SystemNumber,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SystemNumber, String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UserName,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UserName, String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password, String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Client,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Client, String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Language,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Language, String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TempTableName,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TempTableName, String) End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ACTIVE, Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO, String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method, String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String) End If - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class USER_RIGHTSTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -12401,65 +12427,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -12481,120 +12507,120 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO"& _ - "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, "& _ - "T.EDIT_REC, T.ADD_REC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.DELETE_REC, T.ADD_DOC, T.REA"& _ - "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_RIGHT_USER AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS"& _ - " T1 ON T.USER_ID = T1.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM AS T2"& _ - " ON T.ENTITY_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW A"& _ - "S T3 ON T2.GUID = T3.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.GUID = @ENTITY_ID)" + Me._commandCollection(0).CommandText = "SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO" & _ + "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, " & _ + "T.EDIT_REC, T.ADD_REC, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " T.DELETE_REC, T.ADD_DOC, T.REA" & _ + "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ + " TBPMO_RIGHT_USER AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_USER AS" & _ + " T1 ON T.USER_ID = T1.GUID INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM AS T2" & _ + " ON T.ENTITY_ID = T2.GUID INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM_VIEW A" & _ + "S T3 ON T2.GUID = T3.FORM_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T2.GUID = @ENTITY_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable + + _ + Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID, Integer) Dim dataTable As DD_ECMAdmin.USER_RIGHTSDataTable = New DD_ECMAdmin.USER_RIGHTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ + + Private _clearBeforeFill As Boolean + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -12608,65 +12634,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -12689,535 +12715,535 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) "& _ - "AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AN"& _ - "D ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEAD"& _ - "ER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) "& _ - "AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_"& _ - "WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_W"& _ - "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ - "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ - "riginal_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Or"& _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) " & _ + "AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AN" & _ + "D ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEAD" & _ + "ER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) " & _ + "AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_" & _ + "WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_W" & _ + "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN" & _ + "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O" & _ + "riginal_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Or" & _ "iginal_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN"& _ - "_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGE"& _ - "D_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS]) VALUES (@ENTITY"& _ - "_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @ADDED_WHO, @AD"& _ - "DED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_COLUMNS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ - "ELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, AD"& _ - "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMN"& _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN" & _ + "_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGE" & _ + "D_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS]) VALUES (@ENTITY" & _ + "_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @ADDED_WHO, @AD" & _ + "DED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_COLUMNS);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "S" & _ + "ELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, AD" & _ + "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMN" & _ "S FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAG"& _ - "E] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION"& _ - ", [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN]"& _ - " = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [V"& _ - "ISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS W"& _ - "HERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LA"& _ - "NGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND (["& _ - "HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND "& _ - "([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@I"& _ - "sNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDE"& _ - "D_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_W"& _ - "HO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] "& _ - "IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Origina"& _ - "l_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Origin"& _ - "al_CONFIG_COLUMNS));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPT"& _ - "ION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, "& _ - "EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @G"& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAG" & _ + "E] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION" & _ + ", [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN]" & _ + " = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [V" & _ + "ISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS W" & _ + "HERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LA" & _ + "NGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([" & _ + "HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND " & _ + "([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@I" & _ + "sNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDE" & _ + "D_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_W" & _ + "HO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] " & _ + "IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Origina" & _ + "l_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Origin" & _ + "al_CONFIG_COLUMNS));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPT" & _ + "ION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, " & _ + "EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @G" & _ "UID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARC"& _ + Me._commandCollection(0).CommandText = "SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_DOCSEARC" & _ "H_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_DOCSEARCH_RESULTLIST_CONFIG") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_ID,Integer) + + _ + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_ID, Integer) If (Original_LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LANGUAGE,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LANGUAGE, String) End If If (Original_COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COLUMN_VIEW,String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COLUMN_VIEW, String) End If If (Original_HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HEADER_CAPTION,String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HEADER_CAPTION, String) End If - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WIDTH,Integer) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TYPE_ID,Byte) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WIDTH, Integer) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TYPE_ID, Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_VISIBLE,Boolean) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EDITABLE,Boolean) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CONFIG_COLUMNS,Boolean) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_VISIBLE, Boolean) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EDITABLE, Boolean) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CONFIG_COLUMNS, Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) + + _ + Public Overridable Overloads Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID, Integer) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE, String) End If If (COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_VIEW") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW, String) End If If (HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("HEADER_CAPTION") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION, String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH,Integer) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH, Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID, Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE,Boolean) - Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE,Boolean) - Me.Adapter.InsertCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE, Boolean) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE, Boolean) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(CONFIG_COLUMNS, Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal ENTITY_ID As Integer, _ - ByVal LANGUAGE As String, _ - ByVal COLUMN_VIEW As String, _ - ByVal HEADER_CAPTION As String, _ - ByVal WIDTH As Integer, _ - ByVal TYPE_ID As Byte, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal VISIBLE As Boolean, _ - ByVal EDITABLE As Boolean, _ - ByVal CONFIG_COLUMNS As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal Original_ENTITY_ID As Integer, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_COLUMN_VIEW As String, _ - ByVal Original_HEADER_CAPTION As String, _ - ByVal Original_WIDTH As Integer, _ - ByVal Original_TYPE_ID As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_VISIBLE As Boolean, _ - ByVal Original_EDITABLE As Boolean, _ - ByVal Original_CONFIG_COLUMNS As Boolean, _ + + _ + Public Overridable Overloads Function Update( _ + ByVal ENTITY_ID As Integer, _ + ByVal LANGUAGE As String, _ + ByVal COLUMN_VIEW As String, _ + ByVal HEADER_CAPTION As String, _ + ByVal WIDTH As Integer, _ + ByVal TYPE_ID As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal VISIBLE As Boolean, _ + ByVal EDITABLE As Boolean, _ + ByVal CONFIG_COLUMNS As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_COLUMN_VIEW As String, _ + ByVal Original_HEADER_CAPTION As String, _ + ByVal Original_WIDTH As Integer, _ + ByVal Original_TYPE_ID As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_VISIBLE As Boolean, _ + ByVal Original_EDITABLE As Boolean, _ + ByVal Original_CONFIG_COLUMNS As Boolean, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID, Integer) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE, String) End If If (COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_VIEW") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW, String) End If If (HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("HEADER_CAPTION") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION, String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH, Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID, Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value, Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ENTITY_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE, Boolean) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE, Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONFIG_COLUMNS, Boolean) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ENTITY_ID, Integer) If (Original_LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LANGUAGE,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LANGUAGE, String) End If If (Original_COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_COLUMN_VIEW,String) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_COLUMN_VIEW, String) End If If (Original_HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_HEADER_CAPTION,String) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_HEADER_CAPTION, String) End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_WIDTH,Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_TYPE_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_WIDTH, Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_TYPE_ID, Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO, String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO, String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0, Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VISIBLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EDITABLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_CONFIG_COLUMNS,Boolean) - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VISIBLE, Boolean) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EDITABLE, Boolean) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_CONFIG_COLUMNS, Boolean) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(GUID, Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal ENTITY_ID As Integer, _ - ByVal LANGUAGE As String, _ - ByVal COLUMN_VIEW As String, _ - ByVal HEADER_CAPTION As String, _ - ByVal WIDTH As Integer, _ - ByVal TYPE_ID As Byte, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal VISIBLE As Boolean, _ - ByVal EDITABLE As Boolean, _ - ByVal CONFIG_COLUMNS As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal Original_ENTITY_ID As Integer, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_COLUMN_VIEW As String, _ - ByVal Original_HEADER_CAPTION As String, _ - ByVal Original_WIDTH As Integer, _ - ByVal Original_TYPE_ID As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_VISIBLE As Boolean, _ - ByVal Original_EDITABLE As Boolean, _ + + _ + Public Overridable Overloads Function Update( _ + ByVal ENTITY_ID As Integer, _ + ByVal LANGUAGE As String, _ + ByVal COLUMN_VIEW As String, _ + ByVal HEADER_CAPTION As String, _ + ByVal WIDTH As Integer, _ + ByVal TYPE_ID As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal VISIBLE As Boolean, _ + ByVal EDITABLE As Boolean, _ + ByVal CONFIG_COLUMNS As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_COLUMN_VIEW As String, _ + ByVal Original_HEADER_CAPTION As String, _ + ByVal Original_WIDTH As Integer, _ + ByVal Original_TYPE_ID As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_VISIBLE As Boolean, _ + ByVal Original_EDITABLE As Boolean, _ ByVal Original_CONFIG_COLUMNS As Boolean) As Integer Return Me.Update(ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, Original_GUID, Original_ENTITY_ID, Original_LANGUAGE, Original_COLUMN_VIEW, Original_HEADER_CAPTION, Original_WIDTH, Original_TYPE_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_VISIBLE, Original_EDITABLE, Original_CONFIG_COLUMNS, Original_GUID) End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class VWDD_LOGIN_USER_HISTORYTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -13231,65 +13257,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -13306,103 +13332,104 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("LOGIN", "LOGIN") tableMapping.ColumnMappings.Add("LOGOUT", "LOGOUT") tableMapping.ColumnMappings.Add("VERSION_CLIENT", "VERSION_CLIENT") + tableMapping.ColumnMappings.Add("MACHINE_NAME", "MACHINE_NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N"& _ - "AME, LOGIN, LOGOUT, VERSION_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDD_LOGIN_USER_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHE"& _ - "RE (MODULE = 'RECORD_ORGANIZER')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" + Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N" & _ + "AME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWDD_LOGIN_USE" & _ + "R_HISTORY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (MODULE = 'Record-Organizer')" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY GUID DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable = New DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + MyBase.New() + Me.ClearBeforeFill = True End Sub - - _ + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -13416,65 +13443,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + Set(value As Global.System.Data.SqlClient.SqlTransaction) Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + Set(value As Boolean) Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -13484,90 +13511,50 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("ID", "ID") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub - - _ + + _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _ - "INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _ - "D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" + Me._commandCollection(0).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT " & _ + "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT CONVERT(TINY" & _ + "INT, 3) AS ID, 'ComboBox' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT CONVERT(TINYINT, 4) AS I" & _ + "D, 'DatePicker' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _ - "INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _ - "D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _ - "INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _ - "D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function FillBy(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function FillBy1(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function End Class ''' diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsc b/app/DD-Record-Organiser/DD_ECMAdmin.xsc index 17bf94f..a8bddf5 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsc +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsc @@ -62,11 +62,9 @@ - - + - - + diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organiser/DD_ECMAdmin.xsd index 39b8048..614c0f1 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -609,10 +609,10 @@ SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, A - - SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT + + SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME FROM VWDD_LOGIN_USER_HISTORY -WHERE (MODULE = 'RECORD_ORGANIZER') +WHERE (MODULE = 'Record-Organizer') ORDER BY GUID DESC @@ -631,6 +631,7 @@ ORDER BY GUID DESC + @@ -666,7 +667,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -712,7 +713,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -833,7 +834,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -906,14 +907,14 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + - + @@ -942,7 +943,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -954,7 +955,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -975,7 +976,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -989,7 +990,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -1001,7 +1002,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -1013,7 +1014,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -1128,7 +1129,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -1172,7 +1173,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -1222,7 +1223,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + @@ -1272,10 +1273,17 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG + + + + + + + - + @@ -1330,7 +1338,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/My Project/Application.Designer.vb b/app/DD-Record-Organiser/My Project/Application.Designer.vb index 293c9b5..30473bf 100644 --- a/app/DD-Record-Organiser/My Project/Application.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Application.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' 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 ' der Code erneut generiert wird. diff --git a/app/DD-Record-Organiser/My Project/Settings.Designer.vb b/app/DD-Record-Organiser/My Project/Settings.Designer.vb index 235d25c..2048062 100644 --- a/app/DD-Record-Organiser/My Project/Settings.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Settings.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' 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 ' der Code erneut generiert wird. @@ -13,35 +13,35 @@ Option Explicit On Namespace My - - _ + + _ Partial Friend NotInheritable Class MySettings 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" #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 - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub #End If #End Region - + Public Shared ReadOnly Property [Default]() As MySettings Get - + #If _MyType = "WindowsForms" Then - If Not addedHandler Then + If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings @@ -53,218 +53,218 @@ Namespace My Return defaultInstance End Get End Property - - _ + + _ Public ReadOnly Property DD_DMSConnectionString() As String Get - Return CType(Me("DD_DMSConnectionString"),String) + Return CType(Me("DD_DMSConnectionString"), String) End Get End Property - - _ + + _ Public Property WD_ENTITYIMP_EXCLUDE() As String Get - Return CType(Me("WD_ENTITYIMP_EXCLUDE"),String) + Return CType(Me("WD_ENTITYIMP_EXCLUDE"), String) End Get - Set + Set(value As String) Me("WD_ENTITYIMP_EXCLUDE") = value End Set End Property - - _ + + _ Public Property WD_ENTITYIMP_FILTER() As String Get - Return CType(Me("WD_ENTITYIMP_FILTER"),String) + Return CType(Me("WD_ENTITYIMP_FILTER"), String) End Get - Set + Set(value As String) Me("WD_ENTITYIMP_FILTER") = value End Set End Property - - _ + + _ Public Property WD_ENTITYIMP_IMPPATH() As String Get - Return CType(Me("WD_ENTITYIMP_IMPPATH"),String) + Return CType(Me("WD_ENTITYIMP_IMPPATH"), String) End Get - Set + Set(value As String) Me("WD_ENTITYIMP_IMPPATH") = value End Set End Property - - _ + + _ Public Property WD_ENTITYIMP_TARGETPATH() As String Get - Return CType(Me("WD_ENTITYIMP_TARGETPATH"),String) + Return CType(Me("WD_ENTITYIMP_TARGETPATH"), String) End Get - Set + Set(value As String) Me("WD_ENTITYIMP_TARGETPATH") = value End Set End Property - - _ + + _ Public Property WD_ENTITYIMP_SAFETYPATH() As String Get - Return CType(Me("WD_ENTITYIMP_SAFETYPATH"),String) + Return CType(Me("WD_ENTITYIMP_SAFETYPATH"), String) End Get - Set + Set(value As String) Me("WD_ENTITYIMP_SAFETYPATH") = value End Set End Property - - _ + + _ Public Property WD_ENTITYIMP_OBJECTTYPE() As String Get - Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"),String) + Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"), String) End Get - Set + Set(value As String) Me("WD_ENTITYIMP_OBJECTTYPE") = value End Set End Property - - _ + + _ Public Property WD_INDEXDOKART_SAVE() As String Get - Return CType(Me("WD_INDEXDOKART_SAVE"),String) + Return CType(Me("WD_INDEXDOKART_SAVE"), String) End Get - Set + Set(value As String) Me("WD_INDEXDOKART_SAVE") = value End Set End Property - - _ + + _ Public Property User_Calendar_isChild() As Boolean Get - Return CType(Me("User_Calendar_isChild"),Boolean) + Return CType(Me("User_Calendar_isChild"), Boolean) End Get - Set + Set(value As Boolean) Me("User_Calendar_isChild") = value End Set End Property - - _ + + _ Public Property User_DesignPanels_areChild() As Boolean Get - Return CType(Me("User_DesignPanels_areChild"),Boolean) + Return CType(Me("User_DesignPanels_areChild"), Boolean) End Get - Set + Set(value As Boolean) Me("User_DesignPanels_areChild") = value End Set End Property - - _ + + _ Public Property Constructor_DetailsSplitter() As Integer Get - Return CType(Me("Constructor_DetailsSplitter"),Integer) + Return CType(Me("Constructor_DetailsSplitter"), Integer) End Get - Set + Set(value As Integer) Me("Constructor_DetailsSplitter") = value End Set End Property - - _ + + _ Public Property User_InBoxScan_NotinFront() As Boolean Get - Return CType(Me("User_InBoxScan_NotinFront"),Boolean) + Return CType(Me("User_InBoxScan_NotinFront"), Boolean) End Get - Set + Set(value As Boolean) Me("User_InBoxScan_NotinFront") = value End Set End Property - - _ + + _ Public Property TBPMO_RIGHT_GROUPDataGridView() As String Get - Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"),String) + Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"), String) End Get - Set + Set(value As String) Me("TBPMO_RIGHT_GROUPDataGridView") = value End Set End Property - - _ + + _ Public Property frmRecordViewSplitter() As Integer Get - Return CType(Me("frmRecordViewSplitter"),Integer) + Return CType(Me("frmRecordViewSplitter"), Integer) End Get - Set + Set(value As Integer) Me("frmRecordViewSplitter") = value End Set End Property - - _ + + _ Public Property TBPMO_RIGHT_USERDataGridView() As String Get - Return CType(Me("TBPMO_RIGHT_USERDataGridView"),String) + Return CType(Me("TBPMO_RIGHT_USERDataGridView"), String) End Get - Set + Set(value As String) Me("TBPMO_RIGHT_USERDataGridView") = value End Set End Property - - _ + + _ Public ReadOnly Property windreamGruppe() As String Get - Return CType(Me("windreamGruppe"),String) + Return CType(Me("windreamGruppe"), String) End Get End Property End Class End Namespace Namespace My - - _ + + _ Friend Module MySettingsProperty - - _ + + _ Friend ReadOnly Property Settings() As Global.DD_Record_Organiser.My.MySettings Get Return Global.DD_Record_Organiser.My.MySettings.Default diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb index bd1ecb5..4acc0db 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb @@ -24,9 +24,9 @@ Partial Class frmConstructor_Main Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) - Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Dim GridLevelNode2 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.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.TreeViewMain = New System.Windows.Forms.TreeView() @@ -416,12 +416,12 @@ Partial Class frmConstructor_Main Me.GridControlMain.AllowDrop = True Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid resources.ApplyResources(Me.GridControlMain, "GridControlMain") - GridLevelNode4.LevelTemplate = Me.grvwGrid - GridLevelNode4.RelationName = "Level1" - GridLevelNode5.LevelTemplate = Me.grvwCarousel - GridLevelNode5.RelationName = "Level2" - GridLevelNode6.RelationName = "Level3" - Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6}) + GridLevelNode1.LevelTemplate = Me.grvwGrid + GridLevelNode1.RelationName = "Level1" + GridLevelNode2.LevelTemplate = Me.grvwCarousel + GridLevelNode2.RelationName = "Level2" + GridLevelNode3.RelationName = "Level3" + Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3}) Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.Name = "GridControlMain" 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.Name = "frmConstructor_Main" CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerMain.ResumeLayout(false) - CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit - Me.SplitContainerTop.ResumeLayout(false) - Me.cmsTreeView.ResumeLayout(false) - CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit - Me.ContextMenuGrid.ResumeLayout(false) - CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit - Me.ToolStripRecords.ResumeLayout(false) - Me.ToolStripRecords.PerformLayout - CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit - Me.TCDetails.ResumeLayout(false) - Me.TabDetails.ResumeLayout(false) - Me.TabDetails.PerformLayout - CType(Me.SplitContainerDetails,System.ComponentModel.ISupportInitialize).EndInit - Me.SplitContainerDetails.ResumeLayout(false) - Me.statStripDoc.ResumeLayout(false) - Me.statStripDoc.PerformLayout - Me.ToolStripEdit.ResumeLayout(false) - Me.ToolStripEdit.PerformLayout - Me.TabPos.ResumeLayout(false) - Me.TabPos.PerformLayout - Me.Panel1.ResumeLayout(false) - CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit - Me.BindingNavigatorPOS.ResumeLayout(false) - Me.BindingNavigatorPOS.PerformLayout - Me.TabWindream.ResumeLayout(false) - Me.TabWindream.PerformLayout - CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit - Me.cmsResultFilesBasic.ResumeLayout(false) - CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit - Me.ToolStripDokumente.ResumeLayout(false) - Me.ToolStripDokumente.PerformLayout - Me.TabFollowUp.ResumeLayout(false) - Me.TabFollowUp.PerformLayout - Me.grpbxFU_Profile.ResumeLayout(false) - Me.grpbxFU_Profile.PerformLayout - Me.GroupBox4.ResumeLayout(false) - Me.GroupBox4.PerformLayout - Me.TabPageVariant.ResumeLayout(false) - Me.TabPageVariant.PerformLayout - CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TBPMO_RECORD_VARIANTBindingSource,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.GridViewVariants,System.ComponentModel.ISupportInitialize).EndInit - Me.tsVariants.ResumeLayout(false) - Me.tsVariants.PerformLayout - CType(Me.SplitContainerFORM,System.ComponentModel.ISupportInitialize).EndInit - Me.SplitContainerFORM.ResumeLayout(false) - Me.ContextMenuStripResultFiles.ResumeLayout(false) - Me.StatusStrip_Main.ResumeLayout(false) - Me.StatusStrip_Main.PerformLayout - CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit - Me.cmsrpContainer.ResumeLayout(false) - CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit - Me.ResumeLayout(false) - Me.PerformLayout + Me.SplitContainerMain.ResumeLayout(False) + CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerTop.ResumeLayout(False) + Me.cmsTreeView.ResumeLayout(False) + CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuGrid.ResumeLayout(False) + CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripRecords.ResumeLayout(False) + Me.ToolStripRecords.PerformLayout() + CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit() + Me.TCDetails.ResumeLayout(False) + Me.TabDetails.ResumeLayout(False) + Me.TabDetails.PerformLayout() + CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerDetails.ResumeLayout(False) + Me.statStripDoc.ResumeLayout(False) + Me.statStripDoc.PerformLayout() + Me.ToolStripEdit.ResumeLayout(False) + Me.ToolStripEdit.PerformLayout() + Me.TabPos.ResumeLayout(False) + Me.TabPos.PerformLayout() + Me.Panel1.ResumeLayout(False) + CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigatorPOS.ResumeLayout(False) + Me.BindingNavigatorPOS.PerformLayout() + Me.TabWindream.ResumeLayout(False) + Me.TabWindream.PerformLayout() + CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.cmsResultFilesBasic.ResumeLayout(False) + CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripDokumente.ResumeLayout(False) + Me.ToolStripDokumente.PerformLayout() + Me.TabFollowUp.ResumeLayout(False) + Me.TabFollowUp.PerformLayout() + Me.grpbxFU_Profile.ResumeLayout(False) + Me.grpbxFU_Profile.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.TabPageVariant.ResumeLayout(False) + Me.TabPageVariant.PerformLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_RECORD_VARIANTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).EndInit() + Me.tsVariants.ResumeLayout(False) + Me.tsVariants.PerformLayout() + CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerFORM.ResumeLayout(False) + Me.ContextMenuStripResultFiles.ResumeLayout(False) + Me.StatusStrip_Main.ResumeLayout(False) + Me.StatusStrip_Main.PerformLayout() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + Me.cmsrpContainer.ResumeLayout(False) + CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() -End Sub + End Sub Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx index d84ad27..b99f887 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.resx @@ -134,453 +134,6 @@ 1222, 56 - - 195, 160 - - - cmsTreeView - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill - - - Segoe UI, 9.75pt - - - 0, 0 - - - 283, 237 - - - - 0 - - - TreeViewMain - - - System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerTop.Panel1 - - - 0 - - - Panel1 - - - 295, 17 - - - 252, 270 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill - - - Tahoma, 9pt - - - Aqua - - - Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu lassen - - - 0, 25 - - - 1074, 212 - - - 0 - - - GridControlMain - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerTop.Panel2 - - - 0 - - - 395, 95 - - - 0, 0 - - - 1074, 25 - - - 0 - - - ToolStrip1 - - - ToolStripRecords - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerTop.Panel2 - - - 1 - - - Panel2 - - - 1362, 237 - - - 0 - - - SplitContainerControl1 - - - SplitContainerTop - - - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerMain.Panel1 - - - 0 - - - Panel1 - - - Fuchsia - - - 255, 192, 255 - - - Tahoma, 8.25pt, style=Bold, Italic - - - Fill - - - 0, 0 - - - 591, 17 - - - SplitContainerDetails - - - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabDetails - - - 0 - - - ToolStripEdit - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabDetails - - - 1 - - - 1356, 372 - - - Detailansicht - - - TabDetails - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 0 - - - 1362, 403 - - - 1 - - - 225, 95 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPos - - - 0 - - - BindingNavigatorPOS - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPos - - - 1 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa - SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY - wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= - - - - 1356, 372 - - - Positionen - - - TabPos - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 1 - - - 975, 17 - - - GridControlDocSearch - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabWindream - - - 0 - - - ToolStripDokumente - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabWindream - - - 1 - - - 1356, 372 - - - Dateien - - - TabWindream - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 2 - - - ListViewFollowUps - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabFollowUp - - - 0 - - - grpbxFU_Profile - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabFollowUp - - - 1 - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabFollowUp - - - 2 - - - 1356, 372 - - - Wiedervorlage - - - TabFollowUp - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 3 - - - 657, 95 - - - Crimson - - - Tahoma, 8.25pt, style=Bold, Italic - - - Black - - - GridControl1 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPageVariant - - - 0 - - - tsVariants - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageVariant - - - 1 - - - 1356, 372 - - - Vorgängervarianten - - - TabPageVariant - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TCDetails - - - 4 - - - TCDetails - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerMain.Panel2 - - - 0 - - - Panel2 - - - 1362, 645 - - - 2 - - - SplitContainerControl1 - - - SplitContainerMain - - - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerFORM.Panel2 - - - 0 - 194, 22 @@ -614,33 +167,13 @@ Auswertung anzeigen - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG - OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP - X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c - s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr - ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9 - 0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT - T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz - fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ - 8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg - BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC - - - - 194, 22 - - - Dateisuchen - 313, 22 Entitätssuche - diesem Knoten untergeordnet + False @@ -719,25 +252,32 @@ Volltextsuche - - 191, 6 - - - 191, 6 - - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn - yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF - TkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG + OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP + X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c + s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr + ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9 + 0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT + T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz + fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ + 8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg + BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC - + 194, 22 - - Neuer Knoten + + Dateisuchen + + + 191, 6 + + + 191, 6 212, 22 @@ -780,6 +320,20 @@ Unterhalb + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 194, 22 + + + Neuer Knoten + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 @@ -805,6 +359,48 @@ False + + 195, 160 + + + cmsTreeView + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + + + Segoe UI, 9.75pt + + + 0, 0 + + + 283, 237 + + + 0 + + + TreeViewMain + + + System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerTop.Panel1 + + + 0 + + + Panel1 + + + 295, 17 + Segoe UI, 9pt, style=Bold @@ -817,12 +413,6 @@ 248, 6 - - 251, 22 - - - Ansicht umschalten - 182, 22 @@ -841,6 +431,12 @@ Detail View + + 251, 22 + + + Ansicht umschalten + 251, 22 @@ -883,27 +479,72 @@ 248, 6 - - 251, 22 + + 251, 22 + + + Record löschen + + + 251, 22 + + + Massenänderung sichtbare Zeilen + + + 248, 6 + + + 251, 22 + + + Detail-Ansicht Datensatz + + + 252, 270 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + + + Tahoma, 9pt + + + Aqua + + + Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu lassen - - Record löschen + + 0, 25 - - 251, 22 + + 1074, 212 - - Massenänderung sichtbare Zeilen + + 0 - - 248, 6 + + GridControlMain - - 251, 22 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Detail-Ansicht Datensatz + + SplitContainerTop.Panel2 + + 0 + + + 395, 95 + Segoe UI Semibold, 9pt, style=Bold, Italic @@ -913,15 +554,6 @@ tslbldisplayRecords - - Magenta - - - 122, 22 - - - Record-Funktionen - False @@ -999,6 +631,15 @@ Anwendungscache freigeben + + Magenta + + + 122, 22 + + + Record-Funktionen + 6, 25 @@ -1020,6 +661,72 @@ Geodaten + + 0, 0 + + + 1074, 25 + + + 0 + + + ToolStrip1 + + + ToolStripRecords + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerTop.Panel2 + + + 1 + + + Panel2 + + + 1362, 237 + + + 0 + + + SplitContainerControl1 + + + SplitContainerTop + + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerMain.Panel1 + + + 0 + + + Panel1 + + + Fuchsia + + + 255, 192, 255 + + + Tahoma, 8.25pt, style=Bold, Italic + + + Fill + + + 0, 0 + ControlLight @@ -1092,6 +799,32 @@ 539, 95 + + 46, 19 + + + DocID: + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAGwSURBVDhPlZO7S8NwFIULioMPBEEcHH3sdpD6QEUo + KPhHCK7t3EFQCwGrVbrUQukgCIKg+Bi6FAylpoUabW3AB9SqFBcFH7U6KRzvDUmatB10+Pgl5577JUNi + A6ASiUTMdBILhEJAO+eJDsLSNQTBYFBnLhQKIZlMolgsolQqqackSeCc5rOmbkVwvNho8/v93YFAAIVC + AalUCuFwGJTxGyCdTiOfz4Pn3OM+YxF4vV4hFotBFEXQ9Q4xquVOYj8ej4Pn3Ksr8Hg8d7lcDoIggK7H + 9ZI2c/p8PvCce3puEbhcrnI2mwWfekGHsga32w1FUXj+o+dmQYjAP+C+RYDv14M/o0msgq+bmT9TT/BT + vprC5/W0we1uL+T1FvU054y41MSCBrPg8eVsHOVLp4G83mxgzt8yE7z8XP0Gm/dRO8rKpAV1uSp7iA6w + YKtaMJjwteH1dBgfF2MG8lozCns9xv372Qik1XYWDFULGEHe6CSJA6XsSA1vsgOZcBcvr2r9GgGznFim + px724Slhx/v5EJ5O7Lg76oe00mpZZuoJmEFik8gTvMSf7jah/hsVGm2/4uVvpN0vK3IAAAAASUVORK5C + YII= + + + + 312, 19 + + + Ansicht eingeschränkt - Klick Bearbeiten für Entsperren + 0, 319 @@ -1164,59 +897,9 @@ 0 - - 46, 19 - - - DocID: - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAGwSURBVDhPlZO7S8NwFIULioMPBEEcHH3sdpD6QEUo - KPhHCK7t3EFQCwGrVbrUQukgCIKg+Bi6FAylpoUabW3AB9SqFBcFH7U6KRzvDUmatB10+Pgl5577JUNi - A6ASiUTMdBILhEJAO+eJDsLSNQTBYFBnLhQKIZlMolgsolQqqackSeCc5rOmbkVwvNho8/v93YFAAIVC - AalUCuFwGJTxGyCdTiOfz4Pn3OM+YxF4vV4hFotBFEXQ9Q4xquVOYj8ej4Pn3Ksr8Hg8d7lcDoIggK7H - 9ZI2c/p8PvCce3puEbhcrnI2mwWfekGHsga32w1FUXj+o+dmQYjAP+C+RYDv14M/o0msgq+bmT9TT/BT - vprC5/W0we1uL+T1FvU054y41MSCBrPg8eVsHOVLp4G83mxgzt8yE7z8XP0Gm/dRO8rKpAV1uSp7iA6w - YKtaMJjwteH1dBgfF2MG8lozCns9xv372Qik1XYWDFULGEHe6CSJA6XsSA1vsgOZcBcvr2r9GgGznFim - px724Slhx/v5EJ5O7Lg76oe00mpZZuoJmEFik8gTvMSf7jah/hsVGm2/4uVvpN0vK3IAAAAASUVORK5C - YII= - - - - 312, 19 - - - Ansicht eingeschränkt - Klick Bearbeiten für Entsperren - 591, 17 - - 0, 0 - - - 1356, 25 - - - 0 - - - ToolStrip1 - - - ToolStripEdit - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabDetails - - - 1 - False @@ -1330,17 +1013,80 @@ Nur lesenden Zugriff - - False + + False + + + 110, 22 + + + Kein Dateizugriff + + + False + + + 0, 0 + + + 1356, 25 + + + 0 + + + ToolStrip1 + + + ToolStripEdit + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabDetails + + + 1 + + + 1356, 372 + + + Detailansicht + + + TabDetails + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TCDetails + + + 0 + + + 1362, 403 + + + 1 + + + Fill + + + 0, 0 - - 110, 22 + + Cyan - - Kein Dateizugriff + + 1356, 347 - - False + + 0 GridControlPos @@ -1378,33 +1124,6 @@ 0 - - Fill - - - 0, 0 - - - Cyan - - - 1356, 347 - - - 0 - - - GridControlPos - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - 225, 95 @@ -1624,48 +1343,35 @@ 1 - - 17, 134 - - - 149, 48 - - - cmsResultFilesBasic - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill - - - 0, 25 - - - Aqua - - - Aqua + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa + SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY + wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= + - - 1356, 347 + + 1356, 372 - - 7 + + Positionen - - GridControlDocSearch + + TabPos - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TabWindream + + TCDetails - - 0 + + 1 + + 17, 134 + 148, 22 @@ -1683,315 +1389,192 @@ 148, 22 - - Eigenschaften - - - 975, 17 - - - Tahoma, 9pt - - - 0, 0 - - - 1356, 25 - - - 2 - - - ToolStrip2 - - - ToolStripDokumente - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabWindream - - - 1 - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 126, 22 - - - Windream-Dokumente - - - 6, 25 - - - 6, 25 - - - Magenta - - - 119, 22 - - - Suche neu laden - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKrSURBVFhH7ZO/b9pAFMdR/4AqQ5dOkRIRUiDgQMABY0P4 - EZsfNmBjHGxsDESdo+5VsnTrjpQpU9UxY8ZMmTP0D+APyMDE+vrudLFSJZHSLYM/0pPv3r3z9713d5GQ - kJCQkHfLbDa7mU6nTTYNOD2d38/nM5jNpuC67srzvCXavec51xPb5lgYxTTNLNpyYBhArNPprFRVTbTb - 7V8s5HXm8/kabcmmAZPJZMOf+uD7E/BdVyc+17VNxxnBcDgM4odDXdINnYp2u90e8eF3Q1GU66YiAw16 - DRReoAEzhbkDPM8FdzwG27ZpAgTLsgCrXZExEaLCmgaq2r6gAU9oNBq3bPgyjuPc4RH8JgmQo2DuAMex - YTQ6Acsyv5K5YRhFUm2/36Vimtb52em0odVqgSzLFeJ7yvn5+Qc2fE6tVlPQFuPxuOhPfHA9b40JfWbL - FMsaYrtN2l5d70O/14NuV70klZP1lixfKrIMx/Ix1Ov1L3TTWzk6OrrBBPbJ2B6N/pxgaweDwYIuMjRN - RXFaIT0CbGkTDarVKm1tpVK5LJfLIEoiSDz/fwmIorjW8OxMcwCGbkAPq2s2mw9smdJo1KFWqwImG9wB - USxBURAA91/wPP89n8vBwUEWstksvYBvolAoLARB+MGmFEVWHkh12JVvzEUqhLIkgSRJQQKHhUPg+Tzg - P67S6fRGPB5fcek0pFKpKxYSEIvFnt2LCNmEwQ+Y8SfmoqDYHVYFuWKOPrF8Pv+RVCsIRSJGLyHPH2ik - 2kxm/zbBJYrEl0wme8lEAuKJOOzu7p4RXzQa5dAutre378n8HzKZzJLjOEilU4DZ06dXKglrFIFcLo+t - zMDe3t6yUinDS4YFnD2KP4L/4WLR6PXOTnSFwkCEt7a2zjY3N+llDQkJCQl5B0QifwHOFwaCeJJHzwAA - AABJRU5ErkJggg== - - - - Magenta - - - 101, 22 - - - Volltextsuche - - - Top, Bottom, Left - - - 14, 36 - - - 263, 265 - - - 5 - - - ListViewFollowUps - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabFollowUp - - - 0 - - - ID - - - 40 - - - Title - - - 200 - - - Top, Bottom, Left - - - GroupBox4 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxFU_Profile - - - 0 - - - lblFollowUp_save - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxFU_Profile - - - 1 - - - chkFollowUp - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Eigenschaften - - grpbxFU_Profile + + 149, 48 - - 2 + + cmsResultFilesBasic - - dtpFollowUp + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.DateTimePicker, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Fill - - grpbxFU_Profile + + 0, 25 - - 3 + + Aqua - - lblWiedervorlage_Control + + Aqua - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1356, 347 - - grpbxFU_Profile + + 7 - - 4 + + GridControlDocSearch - - 283, 28 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 774, 273 + + TabWindream - - 4 + + 0 - - grpbxFU_Profile + + 975, 17 + + + Tahoma, 9pt - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Segoe UI, 8.25pt, style=Bold, Italic - - TabFollowUp + + 126, 22 - - 1 + + Windream-Dokumente - - Top, Bottom, Left + + 6, 25 - - btnRemoveUser_FollowUp + + 6, 25 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Magenta - - GroupBox4 + + 119, 22 - - 0 + + Suche neu laden - - btnAddUser_FollowUp + + 6, 25 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKrSURBVFhH7ZO/b9pAFMdR/4AqQ5dOkRIRUiDgQMABY0P4 + EZsfNmBjHGxsDESdo+5VsnTrjpQpU9UxY8ZMmTP0D+APyMDE+vrudLFSJZHSLYM/0pPv3r3z9713d5GQ + kJCQkHfLbDa7mU6nTTYNOD2d38/nM5jNpuC67srzvCXavec51xPb5lgYxTTNLNpyYBhArNPprFRVTbTb + 7V8s5HXm8/kabcmmAZPJZMOf+uD7E/BdVyc+17VNxxnBcDgM4odDXdINnYp2u90e8eF3Q1GU66YiAw16 + DRReoAEzhbkDPM8FdzwG27ZpAgTLsgCrXZExEaLCmgaq2r6gAU9oNBq3bPgyjuPc4RH8JgmQo2DuAMex + YTQ6Acsyv5K5YRhFUm2/36Vimtb52em0odVqgSzLFeJ7yvn5+Qc2fE6tVlPQFuPxuOhPfHA9b40JfWbL + FMsaYrtN2l5d70O/14NuV70klZP1lixfKrIMx/Ix1Ov1L3TTWzk6OrrBBPbJ2B6N/pxgaweDwYIuMjRN + RXFaIT0CbGkTDarVKm1tpVK5LJfLIEoiSDz/fwmIorjW8OxMcwCGbkAPq2s2mw9smdJo1KFWqwImG9wB + USxBURAA91/wPP89n8vBwUEWstksvYBvolAoLARB+MGmFEVWHkh12JVvzEUqhLIkgSRJQQKHhUPg+Tzg + P67S6fRGPB5fcek0pFKpKxYSEIvFnt2LCNmEwQ+Y8SfmoqDYHVYFuWKOPrF8Pv+RVCsIRSJGLyHPH2ik + 2kxm/zbBJYrEl0wme8lEAuKJOOzu7p4RXzQa5dAutre378n8HzKZzJLjOEilU4DZ06dXKglrFIFcLo+t + zMDe3t6yUinDS4YFnD2KP4L/4WLR6PXOTnSFwkCEt7a2zjY3N+llDQkJCQl5B0QifwHOFwaCeJJHzwAA + AABJRU5ErkJggg== + - - GroupBox4 + + Magenta - - 1 + + 101, 22 - - cmbFollowUpUser + + Volltextsuche - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0, 0 - - GroupBox4 + + 1356, 25 - + 2 - - Label6 + + ToolStrip2 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ToolStripDokumente - - GroupBox4 + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 3 + + TabWindream - - ListBoxUser2Profile + + 1 - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1356, 372 - - GroupBox4 + + Dateien - - 4 + + TabWindream - - Label7 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TCDetails - - GroupBox4 + + 2 - - 5 + + Top, Bottom, Left - - Segoe UI, 8.25pt, style=Bold + + ID - - 177, 20 + + 40 - - 594, 247 + + Title - - 4 + + 200 - - Individuelle Empfänger für diesen Datensatz: + + 14, 36 - - GroupBox4 + + 263, 265 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 5 - - grpbxFU_Profile + + ListViewFollowUps - + + System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabFollowUp + + 0 + + Top, Bottom, Left + + + Top, Bottom, Left + Segoe UI, 8.25pt @@ -2180,6 +1763,33 @@ 5 + + Segoe UI, 8.25pt, style=Bold + + + 177, 20 + + + 594, 247 + + + 4 + + + Individuelle Empfänger für diesen Datensatz: + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxFU_Profile + + + 0 + True @@ -2288,6 +1898,27 @@ 4 + + 283, 28 + + + 774, 273 + + + 4 + + + grpbxFU_Profile + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabFollowUp + + + 1 + True @@ -2315,6 +1946,33 @@ 2 + + 1356, 372 + + + Wiedervorlage + + + TabFollowUp + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TCDetails + + + 3 + + + Crimson + + + Tahoma, 8.25pt, style=Bold, Italic + + + Black + 762, 95 @@ -2417,12 +2075,36 @@ 0 - - 1140, 17 - 657, 95 + + Segoe UI Semibold, 9pt, style=Bold, Italic + + + 0, 22 + + + Magenta + + + 81, 22 + + + Neu laden + + + 6, 25 + + + Magenta + + + 85, 22 + + + Detail View + 0, 0 @@ -2447,32 +2129,59 @@ 1 - - Segoe UI Semibold, 9pt, style=Bold, Italic + + 1356, 372 - - 0, 22 + + Vorgängervarianten - - Magenta + + TabPageVariant - - 81, 22 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Neu laden + + TCDetails - - 6, 25 + + 4 - - Magenta + + TCDetails - - 85, 22 + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Detail View + + SplitContainerMain.Panel2 + + + 0 + + + Panel2 + + + 1362, 645 + + + 2 + + + SplitContainerControl1 + + + SplitContainerMain + + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerFORM.Panel2 + + + 0 Fill @@ -2510,15 +2219,6 @@ 17, 95 - - 252, 370 - - - ContextMenuStripResultFiles - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 251, 22 @@ -2564,11 +2264,11 @@ 248, 6 - - 251, 22 + + 152, 23 - - Umbenennen + + Filename 216, 22 @@ -2576,11 +2276,11 @@ Dateinamen umbenennen - + 152, 23 - - Filename + + Diplayname 216, 22 @@ -2588,11 +2288,11 @@ Displayname umbenennen - - 152, 23 + + 251, 22 - - Diplayname + + Umbenennen 251, 22 @@ -2606,12 +2306,6 @@ Datei mit Datensatz verknüpfen - - 251, 22 - - - windream - iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -2631,6 +2325,12 @@ Dokumentart ändern + + 251, 22 + + + windream + 248, 6 @@ -2726,6 +2426,15 @@ Ansicht zurücksetzen + + 252, 370 + + + ContextMenuStripResultFiles + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -2783,30 +2492,6 @@ 17, 17 - - 0, 685 - - - 1362, 24 - - - 1 - - - StatusStrip1 - - - StatusStrip_Main - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 7 - 57, 19 @@ -2843,6 +2528,30 @@ Loading Record Data.. + + 0, 685 + + + 1362, 24 + + + 1 + + + StatusStrip1 + + + StatusStrip_Main + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 7 + 160, 17 @@ -2875,6 +2584,12 @@ 1313, 95 + + 172, 22 + + + Change Hidepanel + 173, 26 @@ -2884,12 +2599,6 @@ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 172, 22 - - - Change Hidepanel - 17, 56 diff --git a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb b/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb index a106cf3..90605df 100644 --- a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb +++ b/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb @@ -431,9 +431,9 @@ Partial Class frmDD_EMAIL_ACCOUNT Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) - Me.PerformLayout + Me.PerformLayout() -End Sub + End Sub Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet Friend WithEvents TBDD_EMAIL_ACCOUNTBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_EMAIL_ACCOUNTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index aef8533..0147d71 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -47,7 +47,7 @@ Public Class frmMain For Each form In My.Application.OpenForms If (form.name = frmScanFiles.Name) Then '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 open = True 'do work when visible @@ -174,7 +174,7 @@ Public Class frmMain sql = sql.Replace("@ANGEMELDETWO", "''") sql = sql.Replace("@user", USER_USERNAME) 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) ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain") ToolStripManager.SaveSettings(Me) diff --git a/app/DD-Record-Organiser/frmRecordView.vb b/app/DD-Record-Organiser/frmRecordView.vb index a7f0610..01c4b26 100644 --- a/app/DD-Record-Organiser/frmRecordView.vb +++ b/app/DD-Record-Organiser/frmRecordView.vb @@ -324,7 +324,7 @@ Public Class frmRecordView '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 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 Sub diff --git a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb b/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb index 73dcf06..eafb2ab 100644 --- a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb +++ b/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb @@ -174,21 +174,21 @@ Partial Class frmSAP_FuBa Label19 = New System.Windows.Forms.Label() Label20 = New System.Windows.Forms.Label() Label21 = New System.Windows.Forms.Label() - CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.TBPMO_SAP_FUBABindingSource,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.TBPMO_SAP_FUBABindingNavigator,System.ComponentModel.ISupportInitialize).BeginInit - Me.TBPMO_SAP_FUBABindingNavigator.SuspendLayout - CType(Me.GridControl2,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.GridView2,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).BeginInit - Me.XtraTabControl1.SuspendLayout - Me.XtraTabPage1.SuspendLayout - Me.XtraTabPage2.SuspendLayout - Me.SuspendLayout + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_SAP_FUBABindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_SAP_FUBABindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPMO_SAP_FUBABindingNavigator.SuspendLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + Me.SuspendLayout() ' 'GUIDLabel ' - GUIDLabel.AutoSize = true + GUIDLabel.AutoSize = True GUIDLabel.Location = New System.Drawing.Point(137, 28) GUIDLabel.Name = "GUIDLabel" GUIDLabel.Size = New System.Drawing.Size(36, 13) @@ -197,7 +197,7 @@ Partial Class frmSAP_FuBa ' 'NAMELabel ' - NAMELabel.AutoSize = true + NAMELabel.AutoSize = True NAMELabel.Location = New System.Drawing.Point(190, 28) NAMELabel.Name = "NAMELabel" NAMELabel.Size = New System.Drawing.Size(69, 13) @@ -206,7 +206,7 @@ Partial Class frmSAP_FuBa ' 'COMMENTLabel ' - COMMENTLabel.AutoSize = true + COMMENTLabel.AutoSize = True COMMENTLabel.Location = New System.Drawing.Point(381, 28) COMMENTLabel.Name = "COMMENTLabel" COMMENTLabel.Size = New System.Drawing.Size(65, 13) @@ -215,7 +215,7 @@ Partial Class frmSAP_FuBa ' 'HostLabel ' - HostLabel.AutoSize = true + HostLabel.AutoSize = True HostLabel.Location = New System.Drawing.Point(190, 69) HostLabel.Name = "HostLabel" HostLabel.Size = New System.Drawing.Size(272, 13) @@ -224,7 +224,7 @@ Partial Class frmSAP_FuBa ' 'SystemNumberLabel ' - SystemNumberLabel.AutoSize = true + SystemNumberLabel.AutoSize = True SystemNumberLabel.Location = New System.Drawing.Point(490, 69) SystemNumberLabel.Name = "SystemNumberLabel" SystemNumberLabel.Size = New System.Drawing.Size(147, 13) @@ -233,7 +233,7 @@ Partial Class frmSAP_FuBa ' 'UserNameLabel ' - UserNameLabel.AutoSize = true + UserNameLabel.AutoSize = True UserNameLabel.Location = New System.Drawing.Point(190, 110) UserNameLabel.Name = "UserNameLabel" UserNameLabel.Size = New System.Drawing.Size(63, 13) @@ -242,7 +242,7 @@ Partial Class frmSAP_FuBa ' 'PasswordLabel ' - PasswordLabel.AutoSize = true + PasswordLabel.AutoSize = True PasswordLabel.Location = New System.Drawing.Point(381, 110) PasswordLabel.Name = "PasswordLabel" PasswordLabel.Size = New System.Drawing.Size(57, 13) @@ -251,7 +251,7 @@ Partial Class frmSAP_FuBa ' 'ClientLabel ' - ClientLabel.AutoSize = true + ClientLabel.AutoSize = True ClientLabel.Location = New System.Drawing.Point(490, 110) ClientLabel.Name = "ClientLabel" ClientLabel.Size = New System.Drawing.Size(105, 13) @@ -260,7 +260,7 @@ Partial Class frmSAP_FuBa ' 'LanguageLabel ' - LanguageLabel.AutoSize = true + LanguageLabel.AutoSize = True LanguageLabel.Location = New System.Drawing.Point(675, 110) LanguageLabel.Name = "LanguageLabel" LanguageLabel.Size = New System.Drawing.Size(58, 13) @@ -269,7 +269,7 @@ Partial Class frmSAP_FuBa ' 'TempTableNameLabel ' - TempTableNameLabel.AutoSize = true + TempTableNameLabel.AutoSize = True TempTableNameLabel.Location = New System.Drawing.Point(258, 149) TempTableNameLabel.Name = "TempTableNameLabel" TempTableNameLabel.Size = New System.Drawing.Size(98, 13) @@ -278,7 +278,7 @@ Partial Class frmSAP_FuBa ' 'ADDED_WHOLabel ' - ADDED_WHOLabel.AutoSize = true + ADDED_WHOLabel.AutoSize = True ADDED_WHOLabel.Location = New System.Drawing.Point(190, 280) ADDED_WHOLabel.Name = "ADDED_WHOLabel" ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) @@ -287,7 +287,7 @@ Partial Class frmSAP_FuBa ' 'ADDED_WHENLabel ' - ADDED_WHENLabel.AutoSize = true + ADDED_WHENLabel.AutoSize = True ADDED_WHENLabel.Location = New System.Drawing.Point(332, 280) ADDED_WHENLabel.Name = "ADDED_WHENLabel" ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) @@ -296,7 +296,7 @@ Partial Class frmSAP_FuBa ' 'CHANGED_WHOLabel ' - CHANGED_WHOLabel.AutoSize = true + CHANGED_WHOLabel.AutoSize = True CHANGED_WHOLabel.Location = New System.Drawing.Point(466, 279) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) @@ -305,7 +305,7 @@ Partial Class frmSAP_FuBa ' 'CHANGED_WHENLabel ' - CHANGED_WHENLabel.AutoSize = true + CHANGED_WHENLabel.AutoSize = True CHANGED_WHENLabel.Location = New System.Drawing.Point(607, 279) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) @@ -314,7 +314,7 @@ Partial Class frmSAP_FuBa ' 'WHERE_CLAUSELabel ' - WHERE_CLAUSELabel.AutoSize = true + WHERE_CLAUSELabel.AutoSize = True WHERE_CLAUSELabel.Location = New System.Drawing.Point(190, 238) WHERE_CLAUSELabel.Name = "WHERE_CLAUSELabel" WHERE_CLAUSELabel.Size = New System.Drawing.Size(425, 13) @@ -323,7 +323,7 @@ Partial Class frmSAP_FuBa ' 'Label4 ' - Label4.AutoSize = true + Label4.AutoSize = True Label4.Location = New System.Drawing.Point(138, 36) Label4.Name = "Label4" Label4.Size = New System.Drawing.Size(272, 13) @@ -332,7 +332,7 @@ Partial Class frmSAP_FuBa ' 'Label5 ' - Label5.AutoSize = true + Label5.AutoSize = True Label5.Location = New System.Drawing.Point(438, 36) Label5.Name = "Label5" Label5.Size = New System.Drawing.Size(147, 13) @@ -341,7 +341,7 @@ Partial Class frmSAP_FuBa ' 'Label6 ' - Label6.AutoSize = true + Label6.AutoSize = True Label6.Location = New System.Drawing.Point(138, 77) Label6.Name = "Label6" Label6.Size = New System.Drawing.Size(63, 13) @@ -350,7 +350,7 @@ Partial Class frmSAP_FuBa ' 'Label7 ' - Label7.AutoSize = true + Label7.AutoSize = True Label7.Location = New System.Drawing.Point(329, 77) Label7.Name = "Label7" Label7.Size = New System.Drawing.Size(57, 13) @@ -359,7 +359,7 @@ Partial Class frmSAP_FuBa ' 'Label8 ' - Label8.AutoSize = true + Label8.AutoSize = True Label8.Location = New System.Drawing.Point(438, 77) Label8.Name = "Label8" Label8.Size = New System.Drawing.Size(105, 13) @@ -368,7 +368,7 @@ Partial Class frmSAP_FuBa ' 'Label9 ' - Label9.AutoSize = true + Label9.AutoSize = True Label9.Location = New System.Drawing.Point(623, 77) Label9.Name = "Label9" Label9.Size = New System.Drawing.Size(58, 13) @@ -377,7 +377,7 @@ Partial Class frmSAP_FuBa ' 'Label3 ' - Label3.AutoSize = true + Label3.AutoSize = True Label3.Location = New System.Drawing.Point(138, 143) Label3.Name = "Label3" Label3.Size = New System.Drawing.Size(213, 13) @@ -386,7 +386,7 @@ Partial Class frmSAP_FuBa ' 'Label10 ' - Label10.AutoSize = true + Label10.AutoSize = True Label10.Location = New System.Drawing.Point(138, 184) Label10.Name = "Label10" Label10.Size = New System.Drawing.Size(64, 13) @@ -395,7 +395,7 @@ Partial Class frmSAP_FuBa ' 'Label11 ' - Label11.AutoSize = true + Label11.AutoSize = True Label11.Location = New System.Drawing.Point(138, 222) Label11.Name = "Label11" Label11.Size = New System.Drawing.Size(65, 13) @@ -404,7 +404,7 @@ Partial Class frmSAP_FuBa ' 'Label12 ' - Label12.AutoSize = true + Label12.AutoSize = True Label12.Location = New System.Drawing.Point(438, 143) Label12.Name = "Label12" Label12.Size = New System.Drawing.Size(44, 13) @@ -413,7 +413,7 @@ Partial Class frmSAP_FuBa ' 'Label13 ' - Label13.AutoSize = true + Label13.AutoSize = True Label13.Location = New System.Drawing.Point(438, 185) Label13.Name = "Label13" Label13.Size = New System.Drawing.Size(66, 13) @@ -422,7 +422,7 @@ Partial Class frmSAP_FuBa ' 'Label14 ' - Label14.AutoSize = true + Label14.AutoSize = True Label14.Location = New System.Drawing.Point(438, 222) Label14.Name = "Label14" Label14.Size = New System.Drawing.Size(77, 13) @@ -431,7 +431,7 @@ Partial Class frmSAP_FuBa ' 'Label15 ' - Label15.AutoSize = true + Label15.AutoSize = True Label15.Location = New System.Drawing.Point(735, 143) Label15.Name = "Label15" Label15.Size = New System.Drawing.Size(74, 13) @@ -450,11 +450,11 @@ Partial Class frmSAP_FuBa ' 'TBPMO_SAP_FUBATableAdapter ' - Me.TBPMO_SAP_FUBATableAdapter.ClearBeforeFill = true + Me.TBPMO_SAP_FUBATableAdapter.ClearBeforeFill = True ' 'TableAdapterManager ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = false + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing @@ -1345,26 +1345,26 @@ Partial Class frmSAP_FuBa Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(989, 591) 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.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) + 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.Name = "frmSAP_FuBa" Me.Text = "SAP - Funktionsbausteinverknüpfungen" - CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TBPMO_SAP_FUBABindingSource,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TBPMO_SAP_FUBABindingNavigator,System.ComponentModel.ISupportInitialize).EndInit - Me.TBPMO_SAP_FUBABindingNavigator.ResumeLayout(false) - Me.TBPMO_SAP_FUBABindingNavigator.PerformLayout - CType(Me.GridControl2,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.GridView2,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).EndInit - Me.XtraTabControl1.ResumeLayout(false) - Me.XtraTabPage1.ResumeLayout(false) - Me.XtraTabPage1.PerformLayout - Me.XtraTabPage2.ResumeLayout(false) - Me.XtraTabPage2.PerformLayout - Me.ResumeLayout(false) + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_SAP_FUBABindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_SAP_FUBABindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBPMO_SAP_FUBABindingNavigator.ResumeLayout(False) + Me.TBPMO_SAP_FUBABindingNavigator.PerformLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + Me.ResumeLayout(False) -End Sub + End Sub Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin Friend WithEvents TBPMO_SAP_FUBABindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPMO_SAP_FUBATableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter diff --git a/app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb b/app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb index 8baf2ff..3463264 100644 --- a/app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb +++ b/app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb @@ -23,6 +23,8 @@ Partial Class frmStatistiscsADDI _ Private Sub InitializeComponent() 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.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.SplitContainerTab1 = New DevExpress.XtraEditors.SplitContainerControl() @@ -44,6 +46,8 @@ Partial Class frmStatistiscsADDI Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() 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.colMACHINE_NAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colUSER_ID = New DevExpress.XtraGrid.Columns.GridColumn() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() @@ -66,7 +70,7 @@ Partial Class frmStatistiscsADDI Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Name = "XtraTabControl1" 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.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.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1044, 517) + Me.XtraTabPage1.Size = New System.Drawing.Size(1342, 703) Me.XtraTabPage1.Text = "Logins" ' 'SplitContainerTab1 @@ -87,8 +91,8 @@ Partial Class frmStatistiscsADDI Me.SplitContainerTab1.Panel1.Text = "Panel1" Me.SplitContainerTab1.Panel2.Controls.Add(Me.SplitContainerBottom) Me.SplitContainerTab1.Panel2.Text = "Panel2" - Me.SplitContainerTab1.Size = New System.Drawing.Size(1044, 517) - Me.SplitContainerTab1.SplitterPosition = 258 + Me.SplitContainerTab1.Size = New System.Drawing.Size(1342, 703) + Me.SplitContainerTab1.SplitterPosition = 390 Me.SplitContainerTab1.TabIndex = 4 Me.SplitContainerTab1.Text = "SplitContainerControl1" ' @@ -100,8 +104,8 @@ Partial Class frmStatistiscsADDI Me.SplitContainerTop.Panel1.Controls.Add(Me.GroupBox1) Me.SplitContainerTop.Panel1.Text = "Panel1" Me.SplitContainerTop.Panel2.Text = "Panel2" - Me.SplitContainerTop.Size = New System.Drawing.Size(1044, 258) - Me.SplitContainerTop.SplitterPosition = 622 + Me.SplitContainerTop.Size = New System.Drawing.Size(1342, 390) + Me.SplitContainerTop.SplitterPosition = 763 Me.SplitContainerTop.TabIndex = 6 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.Location = New System.Drawing.Point(0, 0) 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.TabStop = False Me.GroupBox1.Text = "Detail-Logins (Last 5000):" @@ -121,10 +125,12 @@ Partial Class frmStatistiscsADDI ' Me.GridControl1.DataSource = Me.VWDD_LOGIN_USER_HISTORYBindingSource 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.MainView = Me.GridViewLoginHistory 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.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.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.Name = "GridViewLoginHistory" Me.GridViewLoginHistory.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] @@ -154,6 +160,7 @@ Partial Class frmStatistiscsADDI ' 'colGUID ' + Me.colGUID.Caption = "ID" Me.colGUID.FieldName = "GUID" Me.colGUID.Name = "colGUID" Me.colGUID.Visible = True @@ -162,6 +169,7 @@ Partial Class frmStatistiscsADDI ' 'colCLIENT_NAME ' + Me.colCLIENT_NAME.Caption = "Client" Me.colCLIENT_NAME.FieldName = "CLIENT_NAME" Me.colCLIENT_NAME.Name = "colCLIENT_NAME" Me.colCLIENT_NAME.Visible = True @@ -170,6 +178,7 @@ Partial Class frmStatistiscsADDI ' 'colUSERNAME ' + Me.colUSERNAME.Caption = "Username" Me.colUSERNAME.FieldName = "USERNAME" Me.colUSERNAME.Name = "colUSERNAME" Me.colUSERNAME.Visible = True @@ -178,6 +187,7 @@ Partial Class frmStatistiscsADDI ' 'colNAME ' + Me.colNAME.Caption = "Name" Me.colNAME.FieldName = "NAME" Me.colNAME.Name = "colNAME" Me.colNAME.Visible = True @@ -185,6 +195,7 @@ Partial Class frmStatistiscsADDI ' 'colPRENAME ' + Me.colPRENAME.Caption = "Prename" Me.colPRENAME.FieldName = "PRENAME" Me.colPRENAME.Name = "colPRENAME" Me.colPRENAME.Visible = True @@ -192,6 +203,9 @@ Partial Class frmStatistiscsADDI ' '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.Name = "colLOGIN" Me.colLOGIN.Visible = True @@ -200,6 +214,9 @@ Partial Class frmStatistiscsADDI ' '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.Name = "colLOGOUT" Me.colLOGOUT.Visible = True @@ -208,6 +225,7 @@ Partial Class frmStatistiscsADDI ' 'colVERSION_CLIENT ' + Me.colVERSION_CLIENT.Caption = "Version Client" Me.colVERSION_CLIENT.FieldName = "VERSION_CLIENT" Me.colVERSION_CLIENT.Name = "colVERSION_CLIENT" Me.colVERSION_CLIENT.Visible = True @@ -221,15 +239,15 @@ Partial Class frmStatistiscsADDI Me.SplitContainerBottom.Name = "SplitContainerBottom" Me.SplitContainerBottom.Panel1.Text = "Panel1" Me.SplitContainerBottom.Panel2.Text = "Panel2" - Me.SplitContainerBottom.Size = New System.Drawing.Size(1044, 247) - Me.SplitContainerBottom.SplitterPosition = 532 + Me.SplitContainerBottom.Size = New System.Drawing.Size(1342, 301) + Me.SplitContainerBottom.SplitterPosition = 629 Me.SplitContainerBottom.TabIndex = 0 Me.SplitContainerBottom.Text = "SplitContainerControl2" ' '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" ' 'VWDD_LOGIN_USER_HISTORYTableAdapter @@ -247,14 +265,31 @@ Partial Class frmStatistiscsADDI Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing 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 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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.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.Text = "Statistik ADDI" + Me.Text = "Statistics" CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) @@ -293,4 +328,6 @@ Partial Class frmStatistiscsADDI Friend WithEvents SplitContainerTop As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox 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 diff --git a/app/DD-Record-Organiser/frmStatistiscsADDI.resx b/app/DD-Record-Organiser/frmStatistiscsADDI.resx index 6738fe1..f8ebf19 100644 --- a/app/DD-Record-Organiser/frmStatistiscsADDI.resx +++ b/app/DD-Record-Organiser/frmStatistiscsADDI.resx @@ -129,4 +129,1203 @@ 738, 17 + + + + AAABAAwAAAAQAAEABACCIAAAxgAAADAwEAABAAQAaAYAAEghAAAgIBAAAQAEAOgCAACwJwAAGBgQAAEA + BADoAQAAmCoAAAAAAAABAAgAsi4AAIAsAAAwMAAAAQAIAKgOAAA0WwAAICAAAAEACACoCAAA3GkAABgY + AAABAAgAyAYAAIRyAAAAAAAAAQAgAH5eAABMeQAAMDAAAAEAIACoJQAAzNcAACAgAAABACAAqBAAAHT9 + AAAYGAAAAQAgAIgJAAAcDgEAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAAAXNSR0IA + rs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw + nLpRPAAAIABJREFUeF7tXQ1y47wO69H3aO9m34st06IgkHLaJnUkZGan3TSxJZg/IETZX196CQEhIASE + gBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgI + ASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQ + AkJACAgBISAEhIAQEAJCQAgIASEgBITAOxH43//+91/0753j0LmEgBB4IQLm5P/997U7/Pbz379/58/t + vX//yt/8z+0z27/t/RcOT4cWAkLgFQigw5tD28+vIxBEP8vnSrA4v/OKgeqYQkAI/BwBy+4lk1en3X5n + Tm4ZHz9LP38GgsIUfj5aHUEICIFfQcDT+pGzo9NvgcHe80GiBpHCAM6/uUDwK4PXQYSAEHgeAe/05pzm + qHuGdo7NKL99xn/H031kDPa3ryMAnD+fH7q+IQSEwHcR8EJddfJC930gOB32CATt3/Cz7f/rZ4/sf5QT + /v0vpw98dy76nhAQAhcRiGj+5uiMul8PBu3390CCWX7//+Nzx9/M+e3/0gQuXkR9TAg8iwBzfE/xPdX3 + tbzV8FgKdNn9WAmo9B9q/v3vxfnLT2MF9ff9fb2EgBD4PQS8CGdOjM7rl+l6FtBn9rzGd0KfLQ96mh84 + /xYQpAf83nXXkRZHgIl7XrnHYJCJfc36/Znpi6Oz1QDUEc6gAoEAywQFgMWNVtP/OQKRqo/Lemzt3tf7 + 7PfsPc8casCo7AE1hur8JfN3pcHPodARhMA6CGCNj8tyrZjXq/2Z82fMoc32rO53JcFZ/5sOEP+UILiO + 7WqmP0QAHZRRcC/mRRQ9pO5Bq298HJ/5axtwLQX6pqBC/+sKgQTBHxqFvj4/AptTRyp9lJlHNbtt8EFG + kH3PNwNdDSLtikBlAj4Q7MfSSwgIgRYBo/us7sb3UKhDxzaHZxrB9tno75kwyDoGbaWhWftHZkFYgIKA + rF8IOAQwE+cZO671UROogaLW7FHrLxX0oFOwHr/uAhyvBngx0JUOsgAhsDoCkcjnxb7WqWsdbs7t2QA2 + AaGzZ6sGMatoa3s8xskCaOYvgcevBtjvYgGrW//i82dLe8ypMRi0tXmu0G9MAlnA1doeBUa/f4AHgcEq + QBcItHV4cRdYc/pV5KvOi06Jm3U8PceOPZ/1N8fcnd7u1AMNPmwZMXN0JhoiI2HBwJcKXh9oVwQe7OC4 + 09CalqBZL4dA1NCDjhaXAIVSt06fs4AzKECHn6f8XmTsg1HVD6JxNkEA+wLO1mFbEqz7Bc5At5wlaMLL + IRA13rD1/qrG984d9QdgUPCOnGVyXyLgcl/LPMjaP9ks5IPJfjwXEHCz0PY3tQov5wr3nPApmG0G+3Uo + 7b8wVL+8F9XfkQA30gQ2Bx0dEzWAkTAYLR1iQLHSIRQFzfEbBmAO74XBElj24y/6Om1k0fn/2bRrpm3v + kVcy1yP7/jAQ+PV273iWxTOBjgUFVPm9U3rBD7MwLyna233hUmTLBoqY6JkJO0f3Hb9RiASCtkHoccRF + X4brykHw7Zd+A90EuYdydnbfnUb+cP6Tvj45Op8do3o+q8F9ZmdO34uEVRvwIqHvJ/C/XykPWNnAxMlo + RSAXAnsGsGop4JPEHsT1ej0CPuJuzs8CgBnksyzAC33o/FGDj2ciKMhVh+5XDTyTQIYxztA+aFShzweQ + TOHvan224sDuOEzuKOR3Du7nXOSF110M4E0X3jI/MgDM3JvzP5OZ6vers2ZlgDmRLd2xmj/SAXxw6bUA + vsTI9YBC75Fp9IKgDxLYjYjNQm3JcGKYtAn7JcI3mcGfnoatCP3pgFY6uTlquQiVATTCVnNjy3FWYhQb + hbKMem8Ohz36kdAWaQFZuWDH35X3YCkRm31GDGA0H+xf8CsC9rf63lYWmM4wNxVG4XZ1EfRPYo9pAGcE + YDrATkePDrdglMzJWdecd05Gs9GZ2P9RG+gdtl0V8I6OjCFS+6NyhL3v58FKjq5MuHDvAF8O/IlhvPik + KLY2LPDF59bhHQK+DBjpAHvWJC+kcRYMsgwbOWWl560TZ+JdxAQiZ2U032sH/nfWRoxlQaRX2PvleFtm + P35e3C9ggWW2mthsLhR55aHvQ8CcdcQAdiP+atepWf3G6DMT5jADMNo/qskxKGAmtnNkx0FBEgNTDSJV + I8hYQyQKnu97et8xgXrjEK8FzCQI+uTQBtJS9swW7N7nyT84k0XkSAdoM1hhAYzCYWZlzoXBAJfUmAPh + uUa1v403o/ueHbSfa0U+lt19Zscsz4yafb4vC3xr8GMMcIfhGYKAPYg1W779gRnrq99FgAUAzHzeYaL6 + zTseo9SxQMjpPlJ4n9GRhnsnZll8xCai2t3PtTryla3BJZBE37dyYB93sCRof6uiIC/Bvnvd3/m9kUZ0 + MoN3DkrnKghcYwC1B77WszVb9vW+d4D+cyzzs9ocMzDTCNo6vV366wNFpfLooNtnr3YSPi38BTsSsZzA + gOCDwxY0PtFmeRDsA6QagP7o6lrtVWr60g3Yr9sbRe03w/TZvjjZWTqQ9XVG45lTXekfyDQGlvnRIG0s + jL4js6AO27QH+xIiZgqNKJjuHPTlwHG8P7KT75yW3XbNgizazXeOr+/8AgIRA2ic+DTStlb1a9wZ9WYC + XVs/14xg7zNNoWcavNknq//ZMfy50Mnbkic+X7vefy0QnBk+3Cz0GC0EiE/QAyrlz/DyGH0mu/kF9/v7 + QxgDsGWZ6qy9MNVQVEJrvQ7gHbwPDuXYrC04Ew+zbG9/M2cerRJ0GQiW59jfPVtgfQ5M+0A2RBkT6Q04 + y5/zhqI1GNxZLfcMkpVZWNadpdffu8JaIzBn9dmvy4SNQLUZIGYkiOKO7kfOkKn4SLkjXYDVlb6VODu3 + ZWqk/nZMXhJg22+b4dl3MADamJA1jXQAC7qVCdy3FLiCQ8gO1nK/v5+tdyLLllywKU7fqtVYClSHqFG/ + vod1Hzpo1OiDrMScPAsUrMEEmUlL64tzc+rflyZjHaDvRGTfsTEVx3baShd0Dfv2OuyB5CYvrhtVXCPM + 7DrcZBprDQOzPcu2NftUh8e6FWvf07ChRGDBBetxTxlZhkZKiaVFX2oUx8qYBFJSf46ervarDHlAaIVA + zgoOx8YOwe42Ym0Q3q7DHUqB04lhfwUPqCYO14B7hzms5flutj7zWRbuanDyvHsfBCLqbFSPaQG93tA6 + 6qgUaINXNaqo1yBzZKtBYxbAndgfc1TuePrP2QCWVtn/Syl2Bto/sl7M+rhiw4I1MjHD/o+moNN6R9t+ + 753WG6Kn/fY+1wCiDr8r6//cuavBewfCQNHOB7N1zwQ8y/DaQDb+WsP2c2dBJHoPA0jj1ENRsLCBMxC/ + 0ZTN8bvxw9LvKCgajmIAb7x4eCoWkRlNNfFv/wk3wcwzYc3OjO4zB76yL8DTegxiURBggcMbKZYobXAo + zm7vbb97XSMqG7KAgEujcSnRBuGvYEn21WZkrbzePjInj5dFK/1X88+rr9qF43vDq/3abXbDpUH8TmQI + /ftZ22++jRezcpux63hZoPHOnJUJyAhYgKp0nouHJ60FYXHEBPb50K3CVvv3gcCvyrwik27H9IzHEgbT + ZyJmlgXkV4z5gsnrIx4BzwIsC0Zr8Vm2R+bgjSTLpuhkWAJk/8dxXt1vkNWnkWA4duA+ICBLGLGQ9u/O + 4U9BsGglLQtw//8l0/b1PWWEsM+BZftTHAzEzX2uet0HAYv25eKzluBWwUVjjhpvfNDInNk7JcswPrMj + XUanRTo/KgtGTs8CIuolV0oh5kyIozm4L7VOh98KkfCGIt/vDzCHN9wyxpTT/pY5smtquIn+38f3z5FY + ELAA4A3CU/Aok6ETRJkWnTlzaPY31AA8LceAE+sF+DyBXq/Izh2JhqNyqO2J2EYbLRW272MZdn4PdhOy + zNoG9zLvWu7ZrsXivIyteZaYBXT2N2Q1DeO7oQ8sPaTt4jAG4DNXJNL1tXGrwrNgYMbGNv1gwPGOhRmq + d3pYZyYbkqKa1Y9zFKiiMUW0Oa6T0dn7TNoHFluVacuC7XNey7HfsdkL2ZgfcxQ08TMYIM1+sCRABqba + /6ZhhjMA39HVZ6xIzW4zSR4MmqxAnDUqLxh19y3BmM2YkJiNM1oOrEGiOmrmHDkryFgADwR9udGWBufy + 4FmrXz0OZwHIABiurGyL8BP9v2kAQAYQiUF5HcizGdblo7rdfz4KEDSzHJS6DxrVuFk502bE1rHZ2HEV + gmXDZ96zzI2sIi53ggalY/MQo+1WflgdjqytBrG4+SkqEaJShgbGm9r/8sNqa0V7UhCKf302Zxki0wwY + vTdDyfoAMKNE4pyn7vgZFkyygBBSb6eEsxJk5Ezm8F9kuZA5EwYhrK3LcYAJBPdi8BQ9qun9+LFcQAx9 + IGHlnL8eov83DzOREMiyGTMeVhdbxukdZdydF9WZkeH2NJ/rAYyetqwj7ksY0V0cM2Mz6MDIZqLs3GbU + vv4/cXHtwu25WiaEc/Hn9Y6LgZAtuUY24uevAHDzAIBlAIpHvuZHY2GlATN0lkFqXc2DQqzmt+vvTBdA + Q+4yEtm4hBn8Cp03Q69zqcGHUXvDOhofZmoWSJtxsZ2EIQuoZY6/xlcDKwYi/39/Lf34VPvf3Pm34UVC + IM085CYa0cX3TuGNbET5WbY1oY9l2syAGY3G8qXNxDVb4rzwc5hls7HxYNKWWux8/TncpqBBf4AFIK8D + sMCzfa6l8dun+JKpH2PEFpT9P8DpsTOwiH9FA/BCIDrLiNpeCQaR44xEQjPUr8ZgqxNVI+YrEMyoI4Fr + FGiuMJpoWRO/G5UXPrDheDYMfP2//x3vNgxMIFsR4dj3wRCDLVsRaub3Yb6w5HAjITDKnpkRMMfIM27N + NpFQyIwzovTZ+0jJPeX3Ttgq5606Pup+ZIEjEhxHfQ+Nc523CbPyJ24m8sEBmZMvKZgWgBneMENa77Fk + DGp7T7X/B4UTVgZEFLgaRZtpryjNZ11vBgLr1hZ0MjaQNa3473kHyhz3CgtAg0fnZSsPLNNHGdMfzztw + CVJtkGQlD3NIf/5RMxf7e4ZzVJrY2FT7f5Dzb0O1iJ3tCbhieL7uzIzSsizLyowSs8yOjnvlWPiZeGWg + pb9ZSYDOgNQ9YkARPldLh+i8Ncg8RuKWHA2vKwIgq/VHdL/5+4fZ//LDjYRAb7yYJfqsWJwmosFtdi5U + Fuk2UtSoLMBAs503o+7ILKKMnpUhYweoQcPmxrFoVwp8KdLSaX6vQX9NMnyulmoj9sCCZBy8jmu6vEd9 + GADIAEwIrMbZO3fk6JlB4XdY1maqNdJRLpxF6//t2CNNIXO+bNxtJo4CYO70IxbBxNWohjdMO5GQlFss + cF4pwzzV767hh9m+huuWAv1qgAWFKONEKwKtIxW1GmtzdML+O9xhslrbH6OpRRM13OYWjcfP3Tsh0xp8 + mVKdkAXOq6sUBTsWJFG0zM7ng7hhdKl7L1jyxXN1Aqo86jMRwDIga6mNlG1GZ6Ps5hVqNCpWGqCD4fh6 + oc9Tcp6Ze6et6+wsoETZnq2YIBZezItwijSJ+PO87PIsgDnsKKhEwY4xwiaIfqbpa9RMCMQMP1rOQuMd + /R+zNAYK5oDeYSMqb+OOPruNK9MzenGxzcLjwNAu1aGz9bjUQMVYBNby6ISMDfjvbOeP9BEMXEwricqP + zh7kRp+NAGMAJsplApg3cPw9yhjVqNosXc/XO4WVEllg6Z2tZsgsoPjgkzkYjruf++MTbn++WQTrZMzO + GQUNlrkZ/WesiwmsUWnmsYpEwI4lfLb5a/TbRccg0GflPhtmxoZGjgbHsjSKgFeMHtlAVg60NXFbGjBn + Gn3e0/N9HOQVCWuWnTGQjNp3s0zNMvaI8mNwjI5vdL87ntzn8xFA5y+C4DWHjzJ/6zw8G6PCj04YUf02 + S7XH9oHnmYCCdDsS4erxHT4DE/DOw5gRZxd5J2Lk7Kxs8Ndy1BjFAncUiKOg9/keseAMGANos9RmWu09 + 5XK6WlcAfPNP7gB9h2HPRI66FhpdsC7t6/loOa4tOcYBrYzxGeP3FDxjNaw8QqYUNzD1qwbZSgJboUE2 + gMGgC64L+sm0Uzajxo5AzOSmaF+tFX1Wt3o4qz8xQ9n5WTaP6DI6P8vuOAbM0r0Gcj3jMyPhjKocM+qO + ZPrLlcyf0X7Gqti19MHfB6YzcEzrCYtOzBhAof92hyBTteu69MgAMYNySlnZBNMCmELdZ8Kaua+Ig33n + XBlDNj7/t2cyfqwF8FLIz43V5BFGNv42mMXlFtbxV/SSmgDcNVvUR6aeNjIArwO0LIDT9Kh2ROPOmMNV + ess0AAwaEX3lmb8GOm/wZzD7pSuPLICNZbRMyYIdllXsuFkQsWudXSv7208D4S9BqcP8NgKcAVjNzxVz + NDxmvN6hPDUfBYbss9l5kKH0jKSfCzKBV9FcrwWwMoXNuV3H99m9D8QRo+nZE343ZiZdCffbhqfj3QcB + thpwhfK3DCGn5vV48ef8OTO9gH0uE/FGTndm1xdekogFRIKqnyNiF32HnQO7EaMyK9V2XoiLDn0DBDAA + tH3jzywL9j3vaFijuvYKHWU03+rcyFn8d6rI9ryy/93LZY6HZRWr4xkjYOVPO6eazVlpwFYGPA54zlOk + /O6E9b3PQYAxAHOoNnvG21WbjHUs1TEDZTW7V579d/h6/namGpSYeMZ68N9F97OrbnNHZ2Nr9MiAGM1n + rIedAzGK/u+7F1Xzf47//nikJgQWUWh7eQfjDAA35qDjRtkJGUFU87OMFNFUC1Z4Tp/1yu/vy/hXVwSQ + zntH96zBB86oTTtiRoxVsSBgY9kDgV7rIGAi1eH98Lz4ntb32bQXk0a1bS9Q1Yad1tiZUl91hFHJ4J3i + DlktEjIxc3vhMAsSGPwYA8Bgjf0H/vjb3+6A0zred4OZWglgDKD8bGl2m017p4wckWcavg7P6vcsI0b1 + dM8EHgHjJi/v2PY761W4Ut9HVD57Pzuu2cFNoNIw3okA0wF8Xc9odvT3iKr3xh93xOXH6MsSxkp2LeCG + r6wvAANpHFirFlIDYb98i2yKibCmwSjz39BY3jUkDACjTUFMafaGmNWjjNJivduIivDQip4VGCOpAWU/ + /01fbK6GCQt8V2p+xJtpKNH1kePf1FDeOSwUAis9Ze3A7XuMVvpa1C83XSkVsiUrZB1Uj3gncN88V1Sr + Z4H1nKs9JCTYuclKoEiTkeD3zQs429dQCDRaWDNTv+usrcGriOeNDetRZvjWgYe1MDpDJIa9o5HnFde7 + EyiJQ6POQQMeYUie+uN37P/K/K+4qh96TCYEehppGkBkgJG4hMHgClVtafCDytNMV+vdTzXkK/3/jMrH + gZJrI00wOHo0lPk/1FFfOexIB6iG2opMrdPjwyWr4zIH7gXE8nkzeKyTo9WEV+LxjmNjzR8Fu6/m2YA+ + KI6Zma/9tcz3jqv6oedgKwFRBsfMlIl4jEnEdL4NHP64fiXiU7M+mgbDlwmo3omvBFTr6kPBdBbcPtTF + 7j1sLwTWYMD7AbD+x1q1N+ztE22GR0GQNajgcWcz4G0+2Arc1f1JazWuHvCAouaee3veTUbnGYC/OYjP + PmyZCrNMJlRFN/HIjvupIt/Vy4qlFGUA9rRgdzMTFPp6plXuOjRb0LyKqz73JAJMCIw6ApmT98tPfRux + N1pe1/f17ewGHK2MnHW/Ob1jAkxM9cH1ZBVP2oA+vjgCVgYYA2DLSdgWfGVpCmv+K84/u+N7U4uz/iMg + no8LK2VUH2jboGmBfHFT1vS/gwBbCShBoHbbRQJgpGiPSoKWuv7tjr3vYPYb32lYwNbCfDj9+ZPu0OyD + wUpB8zdw1zEAAc4AelrOl6uYgl83Dm3HZnv8vcawsgFjZi/OvwWD0nm5/eyD6REEZMlC4DcQeEYHQPEK + xUL7O7+xR20ntuW9lZ3frp1hcTp6s/5vKzJ1ZUaY/YbV6xgnAiwAcB2AZaO2HThbKuxWFnQNdgTOAND0 + +xcmoEApI3kLAkwH8BqAGeKe4b1A5SgqrkfzkkFLVOyCenwNR2X6t5i+TrIhgAGgioBHvWn1aFOj8h2C + XkDsGIHgFgJC4F4IoLP3NWkNApFA1TCEbtnqEQb0EgJC4H4I4Fp9f+NPr0i36jS7aUUvCsr573fVNSIh + cCDAetIZhd/q/ro0BUtVsF5tn1MNKzMTAjdHwKvMdpMO3FXW0v5jbRqEwLo8qDXqm19yDU8IVASsI4/9 + 7G5CQZpUzs+cAeGxSqCXEBACn4EAbtSxnWRNn7prUfVlgO9Wu+vdeD/jKmiUQuAPEcgUfGxDxVbVc8Xg + D8evUwsBIfADBBj9x0eFYea3QLAzBb2EgBD4XASwDLDNQTz7t/38nztrjVwICIETAV8GWPb3P5u9Ae6h + m4JQCAiBiRCw7N/eHKR9Cs+5R+BL9H+iS6+pCIGyJ2BzcP/U4PbmIK7//6bP4dN1FAJC4JsI4NZgf6PQ + s234kfn338UAvomyviYEboyA3xmYlQJ7e7BeQkAIzIXAOABstX+97ddcs9dshMDiCHgh0GsBZwlgNwv9 + OvYFLI6Xpi8EpkIAhUBaBhzOr0agqS69JiME6t2BtkDAGEC5LZgJgdIBZDNCYDoEhjrArgGoBJjuwmtC + QmBDYBgAjAUcYqBQEwJCYCIELgmBWx+AbRWeaO6aihBYHoFICDzbgI972G/NQBIClzcXATAbAs90BKoh + aLarr/kIgUs6wHGjULUEy16EwHwIjITAfSnwWA1QGTDf9deMFkfAhMCsH6DcC1A6wOKmounPiAAygGxn + oHSAGS1Ac1oaAVsJyBnAsRQoHWBpW9HkJ0UAHxq6sQC/FLj3AagEmPTqa1rLI8DKgKYXwJxfDUHL24oA + mBABFAItIIgFTHixNSUhgAiMhEC/FLitBghBISAEJkLgmhCopcCJLrmmIgRaBLAtGMuA0gegrcGyGyEw + JQKsIxA3BZVSQI8Gn9IANKm1EbjSEWgsQC3Ba9uKZj8hAs+UAHpWwIQGoCmtjcCVrcHlQSHSAda2FM1+ + WgTwDkH4uLDHxMuNQrefegkBITAXAqMywBhAfXzYXPPXbITA0gjgU4OjPQF2u/ClwdLkhcBsCGBDUNcS + vN8g9OgHUBkw2+XXfFZH4IoQaDsDt0CwOl6avxCYDgEsA7wQuImA9sjwcpcgvYSAEJgKgStC4BkIxAKm + uvaajBB4MPt//+ENQpptwdYKfDw3UJAJASEwEQJDIbBkfXtQiMqAia69piIEzucF2j0C+12BpgOoI1Dm + IgSmRGBUBhybgfS4sCmvvia1PAJMCHTdfyf9V0fg8qYiAGZEwDMAHwyYGKitwTNagOa0NAJMCEycX0Lg + 0taiyU+HgA8AXgzEIOBWA6bDQBMSAksj4Kl/uBKgXoClbUSTnxiBqysBGwvYAsTEUGhqQmA9BJgQGOkA + EgLXsw/NeHIEUAdoygC7M1DbFTg5IpqeEFgMgUwHgGYglQCL2YamuwACaRng7g+oEmABY9AU10MgCwB2 + W7B/bTmwHkiasRCYFYGcAditwbbbhOlpQbPagOa1MAJMCKwrAXaL8BIIVAYsbCia+rwIjFjAeY9A3SR0 + XiPQzNZFINcBHpl/v1OwGMC6FqKZT42AUX66K9A5/xYIVAZMbQqa3IoIDDsCt+wvFrCiaWjOKyAwEgKL + 85fnBYoBrGARmuNyCCALOFcCmicFqQRYzjA04TUQSHWA/QEhridgDUg0SyGwDgLpSoBzfj0taB2b0EwX + QmDEAErtr4aghUxCU10JgVwI7JxfOwNXMg7NdQ0EwjLg3AxkWoCeGryGRWiWSyGAZYC/O9D+u9sevBQw + mqwQWAGBq/cG2HoCVsBDcxQCSyGQCYF2b4AHIHszkBqCljINTXYFBEZCYC0ByuagFTDRHIXAUgiMhcDm + 0eFLYaPJCoHpERgJgWcJoHsDTG8LmuCCCOQdgUf9f6wGLAiPpiwE5kYg7wj09wiUEDi3JWh2SyIwEgJ9 + CaCVgCVNRJOeHYFMCNyd3jUFzY6F5icElkMgEwK98+/LgnoJASEwFwKjjsCD+qsZaK7LrtkIgYKAOgJl + CUJgYQQkBC588TV1IWAsAJ8cbDsCJQTKRoTA5AhcFgK1M3ByS9D0lkRgJASeqwHbXYP1EgJCYC4EhkKg + PSNAjwyb68JrNkJgQyAVAk/n18NCZC1CYFoE0o1BZzfg8diwaVHQxITAogikW4PP+wOW1uBFIdK0hcC8 + CFxjAMfNQueFQTMTAmsikG4N9iKgHhu+poFo1nMjMOwI9E8MVhkwtzFodmsiMLxHoJ4VsKZhaNZrIDC6 + R6B2Bq5hB5rloghcuUfgAxptDV7UPjTtyREY3SPQOb+CwOS2oOktiMCoI3DfE+DFwAUx0pSFwNQIpBuD + ivpv2V8NQVNbgia3JALp1mDn/LpL8JLmoUnPjsBlBqBegNlNQfNbEYGrQuA/rQasaB6a8+wIXBUCtRw4 + uyVofssigGWAsQL7KSFwWdPQxFdA4JmGIImBK1iE5rgUAs+0BCsALGUamuwKCEQBwFN/UhasAI3mKATm + R8A7tzk9OrzfGCQWML9NaIaLIcAcHkVACBSLIaTpCoGJEfDOvrEA/0/Zf+ILr6kJAUPAHN2cX44v2xAC + iyEgmr/YBdd0hYAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEg + BISAEBACQkAICAEhIASEgBAQAkJACAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBAQAkJA + CAgBISAEhIAQEAJCQAgIASEgBISAEBACQkAICAEhIASEgBBYBYH/A+e3Eyr6Ia0TAAAAAElFTkSuQmCC + KAAAADAAAABgAAAAAQAEAAAAAACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAA + gACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAB3cAAAAAAAAA + AAAAAAAAAAAAAAAAAAAACHdwAAAAAAAAAAAAAAAAAAAAAAAAAAAACHdwAAAAAAAAAAAAAAAAAAAAAAAA + AAAAB3cAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeAcAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAiHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd3AAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAId3AAAAAAAAAA + AAAAAAAAAAAAAAAAAAAIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIdwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdwAAAAAAAAAA + AAAAAAAAAAAAAAAAAACIdwAAAAAAAAAAAAAAAAAAAAAAAAAAAACIcAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACIcAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiHcAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAiHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiHAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAiHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHOnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIcydwAAAAAAAAAA + AAAAAAAAAAAAAAAAAIg2p3AAAAAAAAAAh4AAAAAAAAAAAAAAAIinenqAAAAAAAAAMjcAAAAAAAAAAAAA + AIc3qDinAAAAAAAIp6eoAAAAAAAAAAAAAIe2OnpzeAAAAAAHenencAAAAAAAAAAACIeniot6engAAACK + d6d6qAAAAAAAAAAACIN6c6eop6N4AABzeop7eoAAAAAAAAAACIp3qHd6g3p6gAinqDeoengAAAAAAAAA + CIOnenqDeoenpzeoOop6g6cAAAAAAAAACDd6e3qKinqDenpzenN4qKeAAAAAAAAAiHp3p6int6inqDin + pyenp7pwAAAAAAAAiDeoqHqKeoN6enp3eni3p2eoAAAAAAAAd6d6eoOKh6eoN6ejZwAACKenAAAAAAAI + snpzg3p7p3qKend6MAAAAIt6AAAAAAAAhyenqKineoN6d6NigAAAAACKgAAAAAAAiHg3eoOKinp3p3o3 + AAAAAAAIMAAAAAAIhwCLp6inqDenp6cgAAAAAAAAgAAAAAAAhwAAinOKenqDenKAAAAAAAAAAAAAAAAA + AAAACHpzioOnpycAAAAAAAAAAAAAAAAAAAAAAAinp6d6cnAAAAAAAAAAAAAAAAAAAAAAAAAIN6enMoAA + AAAAAAAAAAAAAAAAAAAAAAAACLd6eAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIAAAAAAAAAAAAAAD//h// + //8AAP/+H////wAA//4f////AAD//j////8AAP/+P////wAA//w/////AAD//D////8AAP/8f////wAA + //x/////AAD//H////8AAP/4f////wAA//j/////AAD/+P////8AAP/4/////wAA//D/////AAD/8P// + //8AAP/w/////wAA//H/////AAD/8f////8AAP/x/////wAA/+H/////AAD/4f////8AAP/j/////wAA + /+P/////AAD/w/////8AAP/A/////wAA/8B//x//AAD/wB//D/8AAP/AD/4D/wAA/8AD/gH/AAD/gAD8 + AP8AAP+AADwAfwAA/4AAGAA/AAD/gAAAAD8AAP+AAAAAHwAA/wAAAAAfAAD/AAAAAA8AAP8AAAA+DwAA + /gAAAH8PAAD/AAAAf8cAAP8AAAD/5wAA/jAAAf/3AAD/PAAB//8AAP/+AAP//wAA//+AB///AAD//+AH + //8AAP//+A///wAA////P///AAAoAAAAIAAAAEAAAAABAAQAAAAAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA + ////AAAAAAAAdwAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAHcAAA + AAAAAAAAAAAAAAAACHAAAAAAAAAAAAAAAAAAAAdwAAAAAAAAAAAAAAAAAACHcAAAAAAAAAAAAAAAAAAA + h3AAAAAAAAAAAAAAAAAAAIcAAAAAAAAAAAAAAAAAAACHAAAAAAAAAAAAAAAAAAAAhwAAAAAAAAAAAAAA + AAAACIcAAAAAAAAAAAAAAAAAAAh3AAAAAAAAAAAAAAAAAAAIeAAAAAAAAAAAAAAAAAAACHAAAAAAAAAA + AAAAAAAAAIhwAAAAAAAAAAAAAAAAAACCOAAAAAAAAAAAAAAAAAAAd6eAAAAAAAAAAAAAAAAAAItqNwAA + AAACdwAAAAAAAACHN6eoAAAAijpwAAAAAAAAg6d6ingAAKd6egAAAAAACIenqDejcAinqKgwAAAAAAiK + d3p6inpzenOKeAAAAAAIN6c4qKenp6eqenoAAAAACHp6int6g3pziLengAAAAIOnOKunp6enpwAAijAA + AACIN6eoeop6c2AAAABwAAAAiHCKeopzenIAAAAACAAAAAcACKenqKenAAAAAAAAAAAAAACLenpycAAA + AAAAAAAAAAAAAIg6MgAAAAAAAAAAAAAAAAAACIAAAAAAAAAA/8////+P////j////5////+f////n/// + /x////8f////P////z////8////+P////j////4////+f////H////w////8H////A/4//wD8H/8APA/ + +ABgH/gAAA/4AAAP+AAAB/AAA8fwAAf38QAP+/uAD///wB////A////+f/8oAAAAGAAAADAAAAABAAQA + AAAAACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAA + AAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAh3AAAAAAAAAAAAAAd3AAAAAAAAAAAAAAdwAAAA + AAAAAAAAAIdwAAAAAAAAAAAAAIdwAAAAAAAAAAAAAIcAAAAAAAAAAAAAAHcAAAAAAAAAAAAAAIcAAAAA + AAAAAAAACIcAAAAAAAAAAAAACHcAAAAAAAAAAAAACHAAAAAAAAAAAAAACHAAAAAAAAAAAAAAg3cAAAAA + AAAAAAAAh6eAAAAAeAAAAAAAiDqoAAAIo4AAAAAAh6d6eAAHp6gAAAAAg3qKOni6enqAAAAAinqDinp3 + p6egAAAIc3qKenp6eItoAAAIOneoqKejAACLAAAIiHp7enNoAAAAAAAAcAiqenpwAAAAAAAAAAAIOnMA + AAAAAAAAAAAACIAAAAAAAP4//wD+P/8A/n//APx//wD8f/8A/P//APz//wD8//8A+P//APj//wD5//8A + +f//APD//wDwfz8A8D4fAPAODwDwAAcA8AAHAOAAAwDgAPMA4AD/APYB/wD/g/8A/+f/AIlQTkcNChoK + AAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAAAFzUkdCAK7OHOkAAAAEZ0FNQQAAsY8L/GEFAAAAIGNI + Uk0AAHomAACAhAAA+gAAAIDoAAB1MAAA6mAAADqYAAAXcJy6UTwAAC4wSURBVHhe7V1bsF1VlfXXb//t + /mjLDym7/GiruxWrfLQoqKBpMDw6PAwIWEEkyNvwEHkFATudQEAjQcCAQUMjSSCKINFQBIqXUqShbGhA + 0KZsqS6ri/Jj9xkrd2zHnVlr730eN3efe8et2nXOPWefc9Yea8+x5hxzrrXe9jb/GQEjYASMgBEwAkbA + CBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyA + ETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgB + I2AEjIARMAJGwAgYASNgBIzA/kTglYc3Vv/1s73Ho7vvr/ZsX1v/vz/b4d8yAkZgDhGgkW+/ZVV125YV + 1eaHv1qt3bq8Ov9nJ1TnrzspPa5Zv6r+/4RtS9Lr3/zhcdWd3/tStXXH+moOm+evNgJGYC4Q2LXpsmTA + augw7i9uOLxKRj4wfDzGA+8v+8Fh1ZKbDkrHWeeclz4DApmLdvo7jYARmAACj//7umSkGOVh3F+483ON + Rh4N/9iHDqvJAAQAowcBHHzjR6qDr/5wOvDaHd+7wUQwgf7yVxiBiSCw6/tfTW79WVuPLBq8Grsaur5+ + 6eVXVHwPBIDj8DsOrj0BkgAe115xkklgIr3nLzECIyCAuB4jPWL5nAufc+35mhp66TwSgIYCSgB/f8Xf + VReuPsEkMELf+SNGYGQEMNpTwGsycn0Pgl7uXBg3X6fB438+h/sPDwAhAB81HDAJjNyN/qARGA4BGr6K + dxTz8JqO6iWDp3Gr0X/6lo/tjfEHx0fXHlh96Lp/qGDYfPzbi95b8TjgvPdUOPA/zuFhTWC4vvTZRqAz + Aj/5zlfquJ6qvRp+Vy+Axq8xfS3wzYzweA+EwAOEwEMJASTwVyf+dTpABggNOl+QTzQCRqAdAaTwkIfX + VF3J8JsIQWN5inogg6X3fnrWAeOPBAAiyJEARn56BSQC6wHtfeozjEArAjB8Cnsw/mFG+1xMj9fU2KHy + R+PH/zD2NhKAF0BPQEkAZPD+899nL6C1d32CESggAFU/p+jTxY9xfS7OhyGrmMeRvmT0OS8AREBC0HAA + hk+NIKcPgAQuvf4Uk4DvcCMwDAIw/G2/OLJW49Uou8T3HOFp+Pi85vlzo33pNXoAXUKBEglsuWuzSWCY + G8DnLl4EHtm0tw6fhj6M8XO0h7Gq0XO0H4UESAA5D0D1gKZQ4PArPmoCWLy3tK+8CwJPb1tRrX98RTY3 + TxIojf4xnoeh64HPjUoCJJNSGNAmCFIY/OrqI00CXW4En7O4EIC7f/svT5016nOkhmGrOh8JIGf4X/zl + P1c4SiRAMsip/k1hQMkD6JIVYI2AJw4trnvbV9uCAEZ9uPvqmsfnbfE6zleD5/NIAjR8fn9XEZC/Tw0g + RwTRCyhlBVwbYJMwAgMEXt55Y7XjsZXJ+Jdt3ddd15Gesbw+8nnO+OkB5LyAUcMA/J6GAjlBsKQHaNUg + nq9cd4hDAVvB4kXg4e1H1+4+jLQUn+tITXcehqgGnjP2EgGo6x9nAbZ5Gfp+Vy1AvYBYH+DU4OK9/xft + lWOpLcb6NOjolquRqtFzxIdxn/HokemIRKAxf5sOoL8/rBbQFgrQE9CsQPQCUDbsFYUWrSksvgvfs/Wq + 6mu7j9tHmedInBvt1V2Pxp4jgOjyt5HAqF6AhgJaFBTFwLYCIacGF58dLMorhsuPRTnUyKM7HgkgjvhK + AKXRPxp8iQCiZ5GrN2gLCbQ8uIsoCA8AHkGcRei5AovSJPp10StXnll9Yfnyatlxx1dHHX1Mtfykkyci + Ur3003XJ5W8zxJiuy8X5pRG/KQyIAmEu7NB0Y8wKxPSjkkKbIFjKCjAdSCL46FUfWNRrCiIF/KvNZ07k + fuuXVfW8NVjQ8oJVF1XfvPa66tq1N1WXXXlVWuRyxWmnV8csOy4dG27eOHLHUOij4bKyL+cF6IhMoy0J + fXx9GB1AQwPVHDTEUCJoG/01LcjnuVAgagH0AKIguJhTg7ffd0QShLGuQ89NZuE0b9XFl1S3b7qzeva5 + PdVvX/9dtXX7fYkEIgEc9IlPDN0pSO9h1Kfhc6EOqv2q+qsxNrn8TfF/mxaQ8z4iCYxSGBTTgiQADQdy + XkAMA+gJLMbU4P33fT5lgLBIqwlgP/HL6tWrk/E/8dTTFf8eePChat0N6ysQAzwAhADwAEAAeL1r07CB + BtgcRomYH8bHkR+vRcPLiXxq0F3c/q7ZgLbKwFh3MIwXUEoLxgVEmBUo6QGLKTUIg1fMce90vc983hgI + wK0HAcDof//6a9Wf3vpz8gTwOgjgtNPPqAng4EMOSdpAl5977sfnJMNHp+Yemb6Lo36Tqx+NO5JDl9Ff + Q4qoNURNoAsJ5KoHu2QF4rThqAXgf6QGu2A97edgshcGCK7TsHLLoYviunvRb/fcc08a1UEAf3jzzeQE + gAhACtABIAjSA4AXABJoazim7dKQYUQ68qfFO8QTwHN193PuPQ27iwcQi35yLn9TYVCcWzCqFhC9gBgK + 4H16AKUyYZDAQk8NQvBL1Z+y8CrWe2i7x/z+BBFAvA8CQPyPPxDBXVvurq751pqkA5xy6pdqIbBJB0Bu + /+rHj08dytiez+kF8HX+T4WfIl6TkXchgCgGlpT/tkxEKS3ZJRRomy1I48+RQM4TWKipwV//6OJZE77o + BTy4eZkJYIL23fpVG2/+bhL+Xn3t9UQACANACCoEwvXHUfIAWMfPET/3COPUiT4wJjX8kpLfVQdo8xSU + DNqKgjQ8aKoLyIUAXecJ5FYPYkZAMwNIDWIJtNaOnKITEONjLUdgy9GfjxYA93NHYrTH8ZsXX6qFwN27 + dycCgA5wxjknV19cMdhCa0AAn1uypPr2hpvrmxEdidQNRT66zBzho8tPg4npuzYPoM242wqDcqJfVy+A + 1zRMiTBJoE0QBAmoJ8AlxGOp8EIKBeD20/iBKe4dkizuF9QC7GcT8M/deecPUiYAoz/+fv7or6tvrr25 + uuTysxMBnHLW0nSgOOj88y9IHQTj/8b2veINbniO+jSYqAPgfbjHOfGuiQByHkApHGgLE9rmB2gpss4w + ZEjQJQSIdQFcSDTWBgwbCiyE1CBjftVasKArSQDEYGucBwRu/f6mCqM+COD/3vrf6ld7dlY3bbo8LWAJ + Ajj+3M+kAwSAkAFuGjfF1GW02bFR5efomVPy28KAJvW/lDVoIgKSQEkMjNkAkluXrEAkiLh8WG7acAwF + SusIIiuAXYzn4faYyE/inuFmrDR4Hf3xHAVjE/kxf8lwCCDtx1QgRMCnnt9Wbd/5rxVW1QUJQIjCElbw + Am678ohZO+KqB6DGpQbDOf6jEICGCySWYdKF8dwmL0DTkioExjAA14OjySNQ4y+tF5BbPagpKzCtqUHd + uKW0hDvuI8f/w9ntxM4GAdy7bXsSAkEAj794T/XjXVdWZ69bkkgAxn/a6k+lI21+OdglBzvm6IYaOlLG + mnoakxqwxvXRC2gy8FHey+X/S8QQDT+WK6vht5FAFARLE4ViRqBEAiCAU9d+cqpGSaj6OtJzYEDFH5/j + PsI5E7uh/UXDIYAQAAQAIfCtt/6UCABbaWP0xw0HEerjF/xj2tiCBwkAjxwJo2Ieq/1yxtsWAkTSaIvz + 2wgiFgC1ZQTovZRCAIzuJVJgSnDY2YJNi4eABKZh23FoRNiZOdZW5P6H8Tv+H85mJ3o2FqfEgRgTqj7Y + mTF+NP73nbt3hxt6ARi9dKMNkIGGBTr64/moYUCXTECTXtBWE8BMQS4M0GXKmtKCuZBASUA9gOgNdF1H + EBmCvqcG4cqr0j8rHByM9hzx1Rtw/D9Rk+72ZXdff0wySBTwYAnue5/9VvWDPavS/ym1N1Bo4fLjhoPR + Y/ThI14DCZAAaPjq1qk7jd/RNGFM3XUNA7p4AKVzYijQpA/U1zET70dPYJyMQNc1BJv0AIRj3Xp5/561 + e9uJswp8gCPdfYaJWvmH9/G/6//3bz+lX0Nahuk7GP26p05MB1brQU02d8aFsWPkxwESeNepf5OIAe9r + CBA7NuoCMMCmFF6XdGCpYCgKhF0yATEjkJsPEDWAXEqwTQvIeQGlnYVyS4jl6gPQD9es/lhvSACVfSjj + 1dg+jvzR/ddswDzc/v5JlO/SLYfRkwBABknpHjCzegAkAHoCzHFHwyerkwBi3J0zzjYPoEsIkCsI0t8q + TQZqSwnGmoBhwwCKgbmFQ5q2G0dYAOPPTRtGH+Dow94CcfemaPi4Rt4D8V4BYbj+fx65iK6tegB4jk6E + gcPNZwigHgCeY/RvYvlcZqBU2NNGALmQoSQqxtRh7rw2MTCnBZAIlADwvEs4oF5AU4Vgwntg+DwYBuTq + A0AAEGfn6/ZBrB83a1UPgNfcJATifMf/89WDg9+lkcIAr33y2OQF4BGdhg6E8WMUQuyvHgCeJwV8phIw + 5wVEAsBvMOToIgZGw42pwyYC6KIVlGoCVLvgOTT+HAl0IYCcF5BLC7bVBug8AXoBX7lm/+oBNPym9J7e + D5oWjgMGioOwXNw8msDi/un77lxa73mfXPeB64+O5Q2rOgAFQNx4IAYVeOj2xw7OhQFNFXxddIAuBUGl + c4YJA6IXELMBpclAXQuESmXCOS8glxpEP3DtgP2RGkScj9SebtaaG91p/PvUUMi0X5KHR/8e8A8r26AD + 0AtYt/OoFLclLwAu6cDgl6w6MLn9dPM03aeMzzSPegBxx59RdAB17ZtG+KZ0YEn5z+kAvLljYVMsD+7q + AagXwNqAnBgIAogkELUAegL0AhAKPPajNRMfSaHOdxnx6TEy3lfyJFEqWeAeAgl48k8PCOCHGz9bj+aY + 2otagO1PHlldd/ch1WXfP6q6bOOnUlUgJqQgNQhjRgfGtE4uDIgjBPPtoxCAZgC6uPg5L6DkAejrbGPU + CeKIpsQwaRLouq+AemWnr5rcajoY7XXXpmi80dObNRjMbO+moVRO/MP7Pbj93QQigFmBnBr8x//5Q6oL + wKKeKOq4aMPnK8SaIAEVwdqIoEkHyMX4TSFAVyGwS4jQVhiUe5+Cn6YLR8kIRE+gKRRI3sBMLQbFWDzq + AW8A/49TJYiMENR8GD36O67Uw+uMaT4tAgMu0dMrqf/4Ptxbtr6eIbD5R1uqZ555Js0JePj5W6u7n/xy + 8gJAADB+FKDQ6NuMP47+OqJ2qQfoohW0ZQLavIA42uv3UbCM7iyJQEe4YTyAUiigJcPUXhgO6NwL1l/U + 5whBgAgw+SbeVtiKDQcEN6zZiIMGDyUfBt8W28dRH+2NOglJgGElHnkezuXKP/gteBk9u/3dnDQ1+JFd + f5kU9MzZKdUDEiABpE4cdCyFv1gFqIJgjJd19Bw1DMjl+4fNCORG+Dbj19F+0l4AjV+Nm6MrjQb/g3Tx + yPPoIcBLSFOLBwSA8m30GXQcHCDxOx5Zmio88TqXbgP+avQksSjoRnLTvL6SIEOi3PyJ6EEgzLS19RAB + Tg2GB/D8q7uq+/d8oyYA6ADwAFAlGHUAvWlKFYG8QZry9Ll6gDaiKHkKTURRivkjCfAGz+kCmuGgVzCs + J0Ajh1FxlG9S1nm+TsZKnsCMF4BH6ALM0tDI2X485jyb6M2oMes1NWko6g0wXaqjv14XPJAe3v5uEggA + awS+8sor1Wtv7Kkee3nNLA+gFgIxqaPBC2AmIN2wM/X00Zhy7nlbQVDXisBcwVGJKEpFQTlj0VGSRtJV + B1CSIGHqlOqYV48LZpBYoxdQewPiBSQSGGRvaOyx5oGvKzHoObHuIX6eWKonpOfEcIHuP1+3pfUUASwJ + juXCn3/hhSonBCYPYKAF0PhVB8iFAvWNPkMWpRspJ/C1Kf1tgmEkgVJZcJsOEDUAXoMWBbVlBFQ3UKPP + jfa6Tn58n8aPR3oNqgWoYAhxEG3MpTijATeRYNPnc54R8crF/njPuf+eGj+bhUwAhcDdL961jxCIBUJy + 8X9TXYDeyDpyjuveN4mJ0cPQNKKOfDljiKFAHB2VFHhtORJQw6fx8vy4NFacJovzmC+PI2pJC9DsAEMB + xSFiUMqYlHDNEXguPaop4rjwpyv/ek4A8AIgBGKNwLQ6UEYIhA4QRzXepG31ALhhcIPxMbrmbWFA1BC6 + eApddIKYpVD3OecFRA1AiSCKn5o+U4MovR5dZj0Pz+kB0Auo04UzRVucQci1G4ARCr2asG3DMRJlLnzI + jf7EBW3GHoA9v/3dPF0jMAqBcP9RD3DWHbMLgmj0sSIwxsfRkEqG2dW9z41oOZGxpB00iVr4Ht3LoDTS + aRwcDZ+jeM7Vz70WDT2eQ+LVEKCetDVj/NELYCigmIIMShpMG8HmwgUlS9V/SHZoL7BEvYEtrOcIlITA + WQVBtw/2CpRqwBj/d/ECeNPkjLOrF1ByYZuIpasYqOSgo3vUALoavRqDGnZuUk0TYbBwCLE/hL44TwD/ + cxYnJ3PhtYipegQ50oy6TMSNOMRwCXjk1gVw7N9zw2fzEAJAB0Am4M03X68rAlkQpBWB7GwlgJwXENVz + Ghdu9DYCaHLfu2QFms6J6UAVtZgj19dyoYDG/m2jur4fR3uO7jhHnye9ZSCicm8B7iuo04bjvgMsIFIi + wDlNoUBTCJB7LxJAaqdM+Ikkh0KkKTEBN1OFwFJFYJdaAE1dxZGSOkDOwIeJVbvErm1EQSIoubcMBWIY + oMRWMm6N52n0XUZ9YIcYnxODuIcA59krnrn6AxYMMUTA59FnSgJRF6BH1YZpLnSK5EcB03P+p5BPugiB + rAik+l/KAqgOEF3pLmFAiSDUbW27Ydtc3FwmQEVKXKvG+mg3DbD02EQIfE9H+rquYmCkNHqO5LmCGs2m + 4HkkAfaHTunGc15rkyjYll3JhQP0BiO5gTyn0AQWd5ObhEBUBFII1HSPPs+NBmo0OpKWYs1hhMA2MbEp + nm0SAvU9hgQ66vOa6ynSLI6aeeTr+P0SIbBQiqM99wzMeRc5IVJJNZKAzi9gOKCj/CgkkMNaXf/o5Tj2 + n0IuaRICSQArZ4RANWz1BnIxobqtalw5Yx9WCGzzAtoyASUiwA2fE/rUoHX0jmSA8/AaR3s84jtp+PUI + PRD04kivo3xJGIxhSxMJQDfAb0RsozbQ5DEpztq+XPx//Tan/abQ/N/2NhUC//DHlxuFQN60GgKo8euN + kSOAKMSpobZ5ATFmzZFAkzubEwFjmBJjbRq0vq4EQNGOj9HNZyUg3XzG+iowRmOPHkQ0ev2fFYoaFnDh + ESUAjP45DyCmVhW/HJbavzHT4Zr/qTT/vY1uEwIRBsRRnqnB3GigaUPe7HyMbmWOBLpoAW3pvzYvIKa0 + OJrnjH2WBzCjfus02PicWMFzoiF2NXp1/XPGr5mKqFVw2XJmCigEKrm2hQLR8Pl/DIEUk22/8HZfU2z+ + e72AWBGIWoDc1GAuIx51gFggFF1pTSXlRpqSB5C7IdtCgK46AEf4ksutk6B4jnoAOvmJuAAHFFHd8W9H + VNiQBVur574/F+M3GX+JFJUk+Dv0AkgA6j3FECB6AbnfybWfoY6Fv6k2/b2Nhw6w88EH0toAuYpATAyK + FYHRI8h5AkoCdG1H8QBKhNHkKUTPQtV/PNfcvLZTX29y9/kecKDBwdWH0evuNyiJjeFQ9Ip0Xn3MuZc8 + nfg624PP4znaEg0/6gElb0BJgaSUEyrxO9ghaAGYwOK+hKapwVghCARw8m2DmYEz7i/TQBQFGetGUohe + QI4EuuoAkQSavICS+58EuZnFNuKopgYdDV9Hf476uDYa/vU3HJRG/NxdhAkxOQLQ388ZfU6zKHk20Qtg + RqCEbckLyGHKtlNnIDZoixf7WCC8wTUCSxWBnBpMg9d4WUmhNhQhCr2BcjpAzrCbBL42oapEDHTRW939 + kNbj+bgOTeNB0V9/yyFpxG+7DbB1tgqOqgewBqHLyF+6NtUCkgcws4eDKvzDkIF6S/QAaPj0BCACvrjz + 6tZrb8PG7/cEAQiBTzz19D5rBKoOwBGeN0FpQlAuttZRapQwgO5sdGtLaSze8Lhx6+yFLFhCgyzl9VXY + o7rPER/eEJbQ7tp1UMipBZTc/ZgqbRM5o5Fqmg7tjLhE95//l8KAKFpGIrDr37X3p+Q8CIFPPv7YPlOD + dZFQTXOp0h8FwBwx8AZqi9u7iFJKAiUywe+lHY1mjL4mrUACUeiLij4+R1X98oGrf9+NJ3U2fO16FMnk + jJ+GX/J6uryOczRMQXsjYUZvQAkhN1koehWqWzzz2PEjYTAlprA4m9kkBHKNQAqBuVLg5CIzRSYTRXLx + b4kESpmANtLQ9+kCMyUWi2Xq7EWGCNT4GeODRLq6+k13DrSA5EHNrKUfXf620CaHQS4DwOvOaQhtIiCn + DlOryX0/Fh1dnBaywK+6qSIQaS2sDoS8tuoApVSgxtkgBXVPc7FuVx0gjvzRW9AUJdvWRgDR6GlAMHxc + 96gjfu52gRfQFgo1iZt6/TpCc3TWtGQUDGOIkQsJ8Bltn/YbfuOyXUc77l+oPKCbhbRNDZ6VKpNRf1YR + jQiBKoCVQoGcSFVy7yMRqPAV8/Sxui+GApEA4D7D8LuIe8PeC/ACoAVEEohGH40zxvPRPSemaDsNXR+b + wgjNCOj3Ri8A5z29bYVH/2E7fZrOhxD47HN7GjcLYd5bBcGo/vM9lot2DQNKAl8TETAFCUPmTauudkxF + xhCAhJBG/IGHU0rnTaofVQuAweVSlk2hUBz5ea3aL9QE4qifExr5WznPRL/Hcf+k7oAefw+FQBQEcY3A + UkWg1gBEMsgVBeVGLRWq2lT+OArWvx8MX8OPaPwxlUXdggU8+2MHm5d33jjLC2gbnWOYw9FeQxzNdGiI + FXWA3G9Flz8XBux86miP/D2224k1TYXAl197fNZmIfVuQTNrBMZioCaPoM0DyGkApTQYblgulKF1BTHP + Xsr3awoT6bzvrf/UrMq9iYHZ8EXwAmJNRFvsT8NUD4YkyEwFHkkQGgLwOX5DvQ6+nvYHLIiT2Dx2f2Di + 3+gBAhQCX33t9XqzEGzsyCXCUkFQWCOwlALk6wgDaHSaW44iVRcPIH6Ppqai0JgjAHz+uLv3Zitg+MPk + 8ifZPeoFRC8o9z+NnwZPt59kEFcOit5WThCM8X6M+fG/jX+SvT4F3wUh8N5t29NmIU1CIEf/mAWI/8di + GzVK3tS5+D7GwEnkm6nQyxl9k/HH0l1sgT5JZX/Ubo1aQBQ2Y2pTY33iqCO/ZjtyXoB+XxRl6RVo+ADj + 99p+o/bulH5ux44daZFQ3TVYPQCmA1X0K6UCow6Q8wLUNS3pAbpwht7YsaiGS3kpQWgtAEp350LZH7Wr + 4QWwzVHfiOk+XoeSAF+D8l9KdUZPQD2ISALqnSHXj/aNem3+3BQjUKoI1JJgVgS2uf/UBaI7roYchSoa + A1VtvYlVlSYBRCLA5xh2oH2I869Z/bFe3sw5LyASIY1ePaAkXg48Iqw1gOcaAvC9nMekwmHUZYgzRn4b + /xQb8LhNpxD4+9dfq5qEQL2Z1COYFadKRWBcRQjn5UY+Gr6OSDqqM1ZVw48Ew5r9W2+Zvzi/Sz9oXQCu + C8SVc/31+rRQiaN/JAD1trQ/SgRAfF3l16XXFvg5395wc9o1+Lev/26fXYM5NViFQF0ZiDeYzhPIbRxB + I443O29uFaTUVSVp8IZl7l/r+VnB1yd3v+mWYUaAIz89omj0uMYkYA4egTNG/xIBRELM/a8eADwrC34L + 3LC7Xp4KgbprcG6zkDgVOLdegN58JR2A+fhYjEJDj4Sgop8aP/L5UPe7XmtfztPqQFX8tbSXIzmwwnVy + ghLn/teu/8x6B7ndieIiKPh+nOc8f1/uhB6044EHH0pCYJeKQMb4mhXIjf45L4CxrY5EMZ6PRSrqAZBY + MCrCGDBTb1r3o1MvIEduipXuI1Cv/TcwejzPFWDF0V9Ln1Hb/8TPPbOvB2bXryZoReAzL25L24av3bo8 + 1QNggdC0RNhg5IhTgjUjoCJU9AJqYWtw43J0hxvK9fhz6nU0jHQjz6y/Ny3uflMvqxdQayoyYxHXCyPn + NmH0AvhIvEtky+9kH63beVTllXz7ZXe9aU1bRWBusxAVAmmceC3ekHT3tXaf6j6r4VQAVDKoR6+ZEQ91 + +7r+Xm8AHKEhj2w6Kbt4KMkSrj52/2XsD8NP6x0MsIihAskZn91nqfIBkWAVXwiQIzTTH1kMCFAIxBJh + r72xp3rs5TW1B6BCoIYAfE7jVw+AJKAlvGr0GPk1zufzKIThe3CAgOarim+u+h/hi47S6qojzFHD567B + FAW7jP48xyv5zFUPLqDvpRD4mxdfqpqEQF1Oqx6JZkYkEkL0DPC/Gj//jyTA6jT9/FxN0+1L12GRTTV8 + Kv6M+0ECtcsPnDOjv5ImR394BFideH9MduoLlm7HGAiwIhBC4Ftv/akq7RqssbwavHoBdFPpyseRP0cI + DAH4nRjxUu3+pssWtNv6q81n1qsGMWOCa9dtwkEAqGqk6EfC0O3IVEPAbE6EF2PcDv7oYkSAm4VgajCF + QE4NhguedIDByKKjkMb+SgLq0udGf3yPVvmp4eNm/8l3vrJobmB4AVrai7gfR9oy/KoPpFBgFgGIx1UT + 8oxA+sONn10wGslitMF5vWbuGgwCyFUEUghUQycZaG46Cno0dCr+nPiD87gNeVrUcsPh8zJVd15BH/w4 + vIC62Gdg8O8//31/IYCB8ZMAciQA/IF9MvyBpjDf1+Lfn2IEIAQiFIAQiE1DS0JgjFl5E7L0l+IT03g5 + xV9HLtzY46y+O8WQ103/8bbP1NV+9ADS6D84Dr76w/uQAAgTKVqUPi+E6/c19AABCIH33HNP1SYE0l3X + /ekZ93NZ7pwXoGEBSAKCIkZ97LKzUFJ743QjDBrxPggAXkAMAfAeDuCF6c0e8cdB25/dBwGtCKQQiKnB + 0AF0rwCGADBgjN44YMh41BqAWNxDd58FLgtd4R/2FoNRE8+UBZgZ/U9d+8nq4isP3Bse2c0fFlafPwwC + umtwFAJhsF+8eK8ghZsTIxVvWHoDIADuUqNeAMMGkgam6y50hX8Y3HkuKhyBLfQW7ja80OofRsHFn9lP + CEAI3LXrkbRKMIVArKiDUejwKz6ajP595763Pjj6M1cNA49VanXBEASrwXfcdmV+U839dIn+GSNgBHII + YESGca678hMpzsTCGohD6Y5iZEJsesB570nHu079m9oDUIVat+eC8ddhwsB7MPJGwAj0EAGM8qzEW/fU + iRWOa588NhWpQHGm2w8CgAcAAsAjSIEGjiwAnqs4iP+hYvd1hZ4edoWbZAT2PwIoRmGFHgyfJIAUHgyb + XgBDAHoAIAQSAB5xLgRBlrCeedmHqrvWnOCRf/93qX/RCHRH4L47l9YEcPXjx6fRHySA1B0moKQU1GAk + VwIACSgBwPDrGvaBZ4BQonsLfKYRMALzhgCr0WDwSgDJAxjk7FMIMKhKY45adQBWqtUFK6sOrO68+DM2 + /nnrTf+wERgSAcwV53x9EABDAGwfjdc1BFAdAETAijWQA/LVQ/60TzcCRqAPCJw12AIszTibWZUGrj+K + d7jirub/KQQyDMDof90FNv4+9KPbYARGQiCGAbOEwJkwQEtVSQIoDrLLPxLk/pAR6A8CMQygEIiQQMOA + pZd+qIK6j8erzv1ItfYKzz3vTy+6JUZgDAQwIQUu/3V3H1JhhhoOrCfH57dtWVGdvW5JdfqqQxMJ4PHS + y69w3D8G5v6oEegdAlwjELsGY4kwrBB0y5Zzq0uvP6W6cPUJ1cqvHVmdctbSdBx62GEmgN71oBtkBMZA + gGsEYm0AzAx8/tVd1dYd66s161dVl1x+dnXGOScn4z/p1H8xAYyBsz9qBHqJAKcGY9dg/GGBkEd331/d + cNO1iQC+fMaK6gvLl1fHnrDMBNDLHnSjjMCYCOiuwSCBF/7j2WrDxg0p5l+58sxEAMcsO646YumRDgHG + xNofNwK9Q0A3CwEBYPNQkMJlV16VCGD5SSdXRx19TDrwWu8uwA0yAkZgdARUCAQB/OmtP6clw65de1N1 + 1jnnVaec+qU0+vMY/Zf8SSNgBHqHgAqBSQgY/O3evXsWASw77vhEAAcd5Ik/vetAN8gIjIOArhFIAnji + qaerdTesr1ZdfEl12uln1CGAU4HjIO3PGoGeIqBrBIIEkBaENnDJ17+eCIAegAmgpx3oZhmBcRDQNQKh + Afz+9ddqIRAEACEQIQAIYPXq1RYCxwHbnzUCfUMABLB1+30VKgIpBN67bXt1zbfWpEwAhcDDP7/U6cC+ + dZ7bYwTGRUCFQHgA+Nv54AOzhECkAUEAFgLHRdufNwI9Q0ArAkkATz7+WCKAC1ZdlDwAEADDgJ41380x + AkZgXARiRSC2DkNogIrAFaedXlcDWggcF2l/3gj0EIFYEQgh8Nbvb6pLgjUTAG2gh5fgJhkBIzAqAlEI + xK5BEAI5J0AzAZ4XMCrK/pwR6CkCGO25azCMP20c+vOH6kwA5wRYCOxpB7pZRmAcBGD8d225u3r2uT1p + PgCOKARyPsDBhxziEGAcsP1ZI9BHBLQiEF5Amho8EAKRCTjp5FOSEAgR0EJgH3vPbTICYyLAikAIgAgB + UBhEIRAVgSAAhADwAG5Yt9ZewJh4++NGoFcIqBAIDwDrBG65a3NaB4BzAkAA8ABABr1qvBtjBIzAeAhQ + CHz+hReSBwASgBCoi4OQAKwDjIe1P20EeocAhUBMB4bx49j9yK7k7mNxECwPxmpA6wC96z43yAiMjwCF + QIYAWDAUawOcf/4F9aQgGP/nlixxCDA+3P4GI9AvBKADYG4A1gYECXBtgJgJsBDYr35za4zARBAAAezY + sSMZPrIBIALMFkRFIIRADQEQEkzkR/0lRsAI9AMBCIEsCEIWACQAQqAQiDkBFAI9NbgffeZWGIGJIYD6 + f4z4FAJBALt2PZJWAuI+ASwGciZgYrD7i4xAfxCAF4AFQf77jTdSCMCSYBKAMwH96Su3xAhMHAEKgdQB + UBeA/QNiJsBC4MSh9xcagflHAASAmgAYPkIALA6y8ebvplWCMSeAHgAIwELg/PeXW2AEJooAQoDNP9pS + oQYABABPAIRAAuCkIBCAhcCJQu8vMwLzjwBU/1QQNNghCMaPg5kATgpiMdBnDj3MqcD57zK3wAhMFgG4 + /BACMSMQBIBMAJcJRyoQBAAPwCXBk8Xd32YEeoEANw2FDgACeObJJ9KcAGYCOC0YIYCnBveiy9wIIzA5 + BCAEoiAIOgAIAIuDbNywIWUCIPwxBAABQBic3C/7m4yAEZh3BKABsCDopf/8TcoI4P+LLryw3icA8T8I + wDrAvHeXG2AEJosARD/qAEgDggDu27q13jAUqUATwGQx97cZgV4hwIlBMH4cXByE6wNiSrA9gF51mRtj + BCaHANYBQP4fOgAIAIuDMBMAHQAEwFqAG2+43jrA5KD3NxmB+UcAHgDifswFgAiITAAMXScFMQzA/oHz + 32K3wAgYgYkhAOOHDvDILx6uCWDT7bfVmQB6APACPDNwYrD7i4xAPxCAEIh6ADwmD2AQCmCVYM0E0PhN + AP3oM7fCCEwUAdUBQAD3b99Wzwk49oRltQbgVOBEYfeXGYF+IIAqP4QCEABBACgPxuIgXB6MmQBkA1Ao + 1I9WuxVGwAhMBAGEANQBQABcJhxCIDwA6gD/9PGPpwKhifyov8QIGIF+IIDRnzoAsgE4MNIzE2AhsB/9 + 5FYYgTlDAASQ6gEGaUAQADMBKAgyAcwZ7P5iI9APBFQHAAGADJAJAAEcdfQxFgL70U1uhRGYGwQg+lEH + AAEgLYjXQADQAVgMZCFwbvD3txqBeUUAIQCOhx74aRIBMSeAmQAKgTB+1AJ8+YwVFgLntbf840ZgwghA + CEQYANcfBIADhKBCIAjAE4MmDLy/zgj0BQHVAVAaDCEQBEAhUMOAvrTZ7TACRmBCCMDlhyeAQiAQgJYE + IxPgtQEmBLS/xgj0EQEsCY78P3QAEAAXB4mZAAuBfew9t8kIjIkAYn6EAZgLAAIAEcArgOinQiAIwELg + mGD740agbwhQCITrDwJAKIC1ATAnIBKAJwb1rffcHiMwAQQw4oMAqAOgNoCrBKsO4N2CJgC2v8II9A2B + pAMMjB7uP0gAZAACiJkAkEHf2u72GAEjMCYCIABoARAAKQTGxUFYDzDmT/njRsAI9A0BiIAsCAIBsCQ4 + JwSiRqBv7Xd7jIARGAMBCIHUAZgJACGoEMhVgr1n4BhA+6NGoK8IgABQBVgLgTNrA+jUYM4L6Os1uF1G + wAiMiIAWBEEMLAmBTgWOCLA/ZgT6jABUfwqBIAAIgrn9Ap0K7HMvum1GYEQEVAhEGKAVgVgchIuEYo1A + C4EjguyPGYG+IqBCIIwfB0ght0iohcC+9qLbZQTGQIBCICcGcZFQrxE4Bqj+qBGYFgRiRSC8Aq4RqCXB + 9gCmpUfdTiMwBAIQAjERCAIgdAAKgZwajAwANAALgUOA6lONwLQgoEIgdQBdJFR3C7IQOC296nYagY4I + UAjEo1YERiEQHoAnBnUE1acZgWlCQIVAhAE5IdATg6apR91WIzAEAioEakXgF5YvT6M+1wi0EDgEqD7V + CEwLAiUhEBuE6m5BEAOn5ZrcTiNgBDoi0LUiEGEAyKLj1/o0I2AEpgEBrQhkSXCpItBC4DT0qNtoBIZE + QIVA6AClbcMdBgwJrE83AtOAgE4Nzq0RiMVBcHhq8DT0pttoBIZEQKcGgwBK24a7InBIYH26EZgGBLoK + gQgBLAROQ4+6jUZgCARKQiDWCGQ9AEIAEICFwCGA9alGYFoQsBA4LT3ldhqBOUCgbbMQCoF4nIOf91ca + ASMwnwggtocWwM1CKARqRSDDgPlsp3/bCBiBOUAgTg3G7sHcNZhrBJIALATOQQf4K43AfCJQ2ixEdwti + GHDE0iMdBsxnZ/m3jcBcIKCbhWhFYFwj0BWBc4G+v9MIzDMCbRWBqASkFzDPTfXPGwEjMGkEXBE4aUT9 + fUZgihAoVQQiBDj2hGX1ZiEoCcbqwVN0aW6qETACbQgMUxFoIbANTb9vBKYQARUCdY1ALQl2PcAUdqyb + bAS6IBArArGFONz9SACuCOyCps8xAlOGQBQCc7sG2wOYsk51c41AVwRiRSAIQCsCNRXozUK6ourzjMCU + INC1ItCbhUxJh7qZRmBYBEq7BqsO4M1ChkXV5xuBKUEgVgTCK4A2wJJgbhYCEgBZTMlluZlGwAh0QQCq + /7c33FxhRmDcNZgFQdw41DMDuyDqc4zAFCGAUX3NmjXVlrs2V0wDYlYgPIB44HVXBU5R57qpRqANAYz+ + GNmxGEjO6PkavAE8dzagDVG/bwSmDIGc4aP8F1OBuUcANgyFMOgwYMo61801Am0IwKhh4O854IDqHe94 + R/X2t7+9euc735mOD37wg+k9eABYObjtu/y+ETACU4gARncYOwjg3e9+dxr5YfjwBOAhTOEluclGwAgM + gwA8Abj9IINhPudzjYARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgY + ASNgBIyAETACRsAIGAEjYASMgBEwAkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEw + AkbACBgBI2AEjIARMAJGwAgYASNgBIyAETACRsAIGAEjYASMgBEwAkag1wj8P/EOkfR79EuQAAAAAElF + TkSuQmCCAAAoAAAAMAAAAGAAAAABAAgAAAAAAAAJAAAAAAAAAAAAAAABAAAAAQAAAAAAACFzFgAkfRYA + Tk1NAFBPTgBSUlEAVlVVAFlZWABcW1oAXl1cAGBgXwBfdW4AYmFgAGViYABkZGQAamlnAG1rZwBqamoA + bGxsAHBwbwBxcXEAd3Z0AHh4eQB8e3sAfXx5AIB7eAAlghQAKIgfACuKIwArgSkALocvAC6NLQAskCEA + LoAzAC+NMAAwiTIAMZAyADeTPAA4lT4AOZo/ADa3IAA5oz0AOas5ADytPQA9tzwAPLo8ADrBNgA6wzkA + PIJHADyXRQA7mkMAP55IAD+DVQA/gVkAP6NDAD6oQgA/rkgAP7ZBAEGHSwBAmUoARIxZAEqZXwBAoUkA + QqBOAESgTgBDpU0ARKtNAEG2RQBCuEYARbRLAEO+SQBFuE0ARr5PAEWjUQBGq1IASq1XAEutWQBIslEA + SbdSAEqxVQBMs1cASbZUAEy1VwBHv1IASrhVAEuzWABMsVkAS7ZZAE21WgBPsF8ATrVdAE27WwBQtV4A + ULhfAEiZagBNmWsAUpBqAFqbbQBNn3oAVJF2AE+lYABPrmAAUaZvAFKqawBOuGEAUbZhAFG9YgBVtmkA + U75oAE2hcQBOoXUATqh1AE2kegBWsnEAVrVxAFmxcwBdtH8AW756AD7AQQBAxEUAR8RRAEvBVwBGy1EA + S8NYAEzAWwBOwV0ATsVfAE/CYABPxmAATsxgAFDBYQBQxWIAUsFlAFHFZQBQymQAVMVrAFTMagBZxHMA + Wc1zAIGAfwB+jo4AU6KBAFeohQBbuIEAXbGJAF+wkgBfupEAYrmFAGi5jgBjrpMAcqqWAHWongBmtZIA + ZbeVAGa8lgBiu6cAb7+nAG+/qQBxt6UAd72kAHy1qAB4vagAarS8AF7GgwBXx4wAX8WLAGXHlgBpzJUA + Y8WYAG3JmgBtwKUAdMSiAHTDqwB5xqwAfMW4AH7IvQCGhYUAiIiIAIyLjACQkI8Ajo+QAI2XkACRkZAA + lZKQAJSUlACZmZoAnJubAJ2dngCfn6IAl6y3AIa1tgCNuLcAjre4AJS3vAChoaEAo6OlAKWlpQCpqaYA + pqaqAKioqACurKoAra2tAKWzsgCuvbQAsrKyALSzsgC2trMAsbK0ALW1tAC5trYAtbq2ALK0uAC7vboA + vLy5AL++vQDAv74Aj8yzAIPHvgCUzLUAk8e8AJzStACT178Aqsa0AKbLtQCgwroAgLLBAJS/xgCJyccA + jc7MAJPCwQCQxcYAmcPIAJjEzwCXysoAmdDKAJzG0gCczdQAkdPQAJzU1gCe2NkAo9DBALfYxwCm3t8A + wcHAAMfGxQDJwsMAwc/FAMvJxwDIyMgA0tLQANjU1QDa2NcA19fZANjY2ADi398A////AAAAAAAAAAAA + AAAAAAAAALgSAwYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMLTBgoA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK8BrgAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMKxCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAMIUCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAwsIKFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu8YGswAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwrwDAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAybQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAzxYSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAADPyQ6LAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCwggAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADJuwcAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPsggAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAPP4iwoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAM/9EhMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM79CrIAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANbzDgAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPJDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAPe4FQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAz/mLiwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzvsPuwAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9f0KAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8NsLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACigyc1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACbdSMdNqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC92l5AUUiYAAAA + AAAAAAAAAAAAAAAA5ZbnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADT2G5RWoJ4cuUAAAAAAAAAAAAAAAAA + ZCAqmAAAAAAAAAAAAAAAAAAAAAAAAAAAAADUn25NXFpsfHd0AAAAAAAAAAAAAACvLUpJSEOqAAAAAAAA + AAAAAAAAAAAAAAAAAAD2lWdRXF18gl1GaaEAAAAAAAAAAACHfFpCUVotqQAAAAAAAAAAAAAAAAAAAAAA + AM7xjmVLaV2IioZdfC1y6QAAAAAAAO16iINLXYOHL6cAAAAAAAAAAAAAAAAAAAAAANHccEVcWnyIiIiI + h1pDRHPiAAAAAImBiIhdXYGIinemAAAAAAAAAAAAAAAAAAAAANTdbkVcXYCIiIaIiIJdWk05nwAA4y6C + hoiIUYeKioIt7gAAAAAAAAAAAAAAAAAAANKsZ1FaXYaIiIiIiIiIg11aQ0WQc1pdg4JdSmqKioh8aQAA + AAAAAAAAAAAAAAAAAMuRZktcfIiIiIiIiIiDgnx8XVxOUVpLSkpNSYeKiIGCRKwAAAAAAAAAAAAAAAAA + zt6NZ1FdgIaKiIiGiIiDiIJ8XV1aaWlpTDseOIGBh4aHTnIAAAAAAAAAAAAAAAAAyt9wWlxcgIiIiIiG + iIiCgoJ8XU5OWktMTDFfqKVdRUR8fC2sAAAAAAAAAAAAAAAAq5Q8S1xdgoiKiIiIiHyGgnx8Tl1OQkAx + HGAAAAAAAJ1IRU5sAAAAAAAAAAAAAADhpCkBO12CiIiIiIiIhoaCgnxdTk5RQDEkHgAAAAAAAADsk0RF + AAAAAAAAAAAAAAAA4GE0N118iIqIiIiIiIKGfHxdTk5CQCUavwAAAAAAAAAAAJwo2QAAAAAAAAAAAAAA + /rWM6nt7goiIiIiIhoKCgF1OTk1AJxtjAAAAAAAAAAAAAACujwAAAAAAAAAAAADJ+BkAAPKje4OCiIiI + goaAXU5dTUo+HzoAAAAAAAAAAAAAAAAAqgAAAAAAAAAAAAAAxbAAAAAAqXdOgoiGhoBdXU5OTT4mGr8A + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO+HLV1dgoJ8Tk5RQjEblwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAArWpFXV1dTl1CPh8wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAACaWkRFUUpAHxrBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AOSSaUMqPb4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOvrAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAP/+H////wAA//4f////AAD//h////8AAP/+P////wAA//4/////AAD//D// + //8AAP/8P////wAA//x/////AAD//H////8AAP/8f////wAA//h/////AAD/+P////8AAP/4/////wAA + //j/////AAD/8P////8AAP/w/////wAA//D/////AAD/8f////8AAP/x/////wAA//H/////AAD/4f// + //8AAP/h/////wAA/+P/////AAD/4/////8AAP/D/////wAA/8D/////AAD/wH//H/8AAP/AH/8P/wAA + /8AP/gP/AAD/wAP+Af8AAP+AAPwA/wAA/4AAPAB/AAD/gAAYAD8AAP+AAAAAPwAA/4AAAAAfAAD/AAAA + AB8AAP8AAAAADwAA/wAAAD4PAAD+AAAAfw8AAP8AAAB/xwAA/wAAAP/nAAD+MAAB//cAAP88AAH//wAA + //4AA///AAD//4AH//8AAP//4Af//wAA///4D///AAD///8///8AACgAAAAgAAAAQAAAAAEACAAAAAAA + AAQAAAAAAAAAAAAAAAEAAAABAAAAAAAAUlFRAFtbWwBdXV0AY2NiAGVlZABqaGgAbW1rAG1sbABtd3EA + eXZ1AH18fAAghxQAIo4WACCFGwAjkBkAKYguACmVJQApmSMALJkrACyZLgAroyIALacjAC2uKAA2vC8A + NaE8ADeoPgA0szEAN704ADm7PAAzwjEANcE1ADXFNgA1zzcAN8I5ADnGPQA6yD4AO4hHAD6EUgA6pkQA + PatHAD+uSgA5vUAAPL1BADy4RABFilQAQa1OAEG1RwBAskoAQrZLAEOyTgBCtk0ARLZOAEG9SgBEuk8A + Qr1MAES9TwBBqVAAQ61RAESuVABDsFAARLNRAESzVABIt1cARLpTAEa9UgBGuVQARr1VAEi2WQBJu1gA + Sb5ZAEu4XQBMul8AS75dAE69XgBQj3EAV5R2AEquYABQumQAVr5pAFW4bwBLrXIAUqt+AFC8cgBXtnkA + XL96ADvHQAA/y0kAQMJKAETATwBBx0wAQNJMAEPHUABHwFUASMNXAEjFVwBDzlIAScFZAEnFWgBJw1wA + S8ZdAEzFXwBKyV0ATMhfAErMXgBC0lAARNFSAEnSWwBMw2AATclhAEzNYABOymUATs5kAFbFbABL02AA + TNFiAE7SZgBP1GcAT9RoAFDTaQBQ1GoAUtJtAFLUbQBW03UAV9R2AFCsgwBcroEAXbyBAF+0kgBguI0A + cKeZAGK3kwBjvpMAbrKiAFrLgABlwZMAa82fAG/CpwBxwqIAcsimAHLIqgB3yq8AdNCuAGXFvAB2yrEA + f8fDAHrEyQCAgIAAhoaGAIqIhQCJiYoAlZeYAJGYmACYmJsAnp2bAKCgnwCCtKgAlL2kAISzuACmo6IA + oqKkAKenpwCnp6kApqiqAK6urgC3sK8AtbW1ALq1tQCzurcAt7e4ALq6uQC4vbkAvLy5AL69vQCAxbcA + k9K6AKjLtACxw7cAnb/CAKC80ACHxMEAgcvGAIjOxgCLz8sAlczKAI3RzACH2M8AnNvXAKvSxACy3c8A + wsLBAMbGxgDOyssAzczLAN7U1QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAJYCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAACpmQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKELCwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAoQYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACiAgAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAKICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmlwgAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAKSTkwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApAgAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACtBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL8FAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADBrQgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK2bkwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvpWbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADC + CgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs7AJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACPFyaeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJx+Eyy0AAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAqIMwYSSEAAAAAAAAAAAAFRqJAAAAAAAAAAAAAAAAAACxfTBJYVY3rgAAAAAAAIgsMBxJAAAA + AAAAAAAAAAAAAL1RL0l0eWcfULgAAAAAaXRCYWpXAAAAAAAAAAAAAADBr00wYXl0eW9ZGIEAAIsheWdh + fGtxAAAAAAAAAAAAAKaKO0JndGt0eXRhLCtUREJCYT58eR+NAAAAAAAAAAAArYAwSWd6emt0Z29fYUJJ + STsRKltqZ1kAAAAAAAAAAAC8UjBhdHl0dXR0Z19CQjA7FIW6kH8fH40AAAAAAAAAklMOPmF1dHV1a2dh + X18wJw1MAAAAALY3TwAAAAAAAACynUtKXHl1dnlvZ2FfNykTJQAAAAAAAABOAAAAAAAAAKellwCGJG91 + a2dnXjcwGQwAAAAAAAAAAAC1AAAAAAAAAJkAAACOH2BvZ2BCQigPggAAAAAAAAAAAAAAAAAAAAAAAAAA + AAC7VRxZQkIwEi0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuYdCGxYQAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAC5kQAAAAAAAAAAAAAAAAAAAP/P////j////4////+f////n////5////8f////H/// + /z////8/////P////j////4////+P////n////x////8P////B////wP+P/8A/B//ADwP/gAYB/4AAAP + +AAAD/gAAAfwAAPH8AAH9/EAD/v7gA///8Af///wP////n//KAAAABgAAAAwAAAAAQAIAAAAAABAAgAA + AAAAAAAAAAAAAQAAAAEAAAAAAABtbGsAb29uAHBvbwBxcG8AdnZ2AHh4dwB6fXQAfXx8ACaUGwApnhsA + LakYACy0FAAtiTAAL6MvADKnNAA0qzcANqY7ADewNAA3ujYAOrQ9ADi8OAAywCEAM88uADTNMgA3wjgA + O8E/ADfPOwA5yD0AOqBEADqtRAA/ukQAP7BIAEaRVgBKkloAQ7ROAEO5TgBDvE4ASKpaAESxUABFulAA + Rb1RAEi5VgBIvFgAWp95AE24YABXuWwAW6l8AFKzdgBjpG8AaqZ/ADvFQAA7yUEAPMtCAEHBSgBCz08A + RMFQAETFUABIx1cARcpTAErDWgBLw1wATMRdAEzJXgBMzF4AStFdAE3HYABNyWAATM1gAFLNagBTzG8A + TNFiAE7RZQBQ02cAUNNpAFLTbABf0XsAV7SFAFm4ggBpo4sAY7+EAG2wjgBnv48AZ7yUAH++pAB+qbQA + ZsyDAG3DngBvyZ8Aa9CaAGzCoAB2wKQAc8GoAHrBrQB7yq0Ae9CyAIGBggCMhYUAioqKAI2NjgCXlZMA + k5aVAJaVlQCCuK0AlrOhAJm+tACTu7gAp6KiAKOjpACmpaUAqampAK2trQCpu68AvLe3ALa3ugC4ubkA + gs6+AI/MvQC8wr0AjMfAAIvPxQCKxcoAm8/KAIbQwACW08UAldfOAJHO0ACS0tQAtcPAAKDY0wDDxMMA + xcXIANTT0wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAbQhiAAAAAAAAAAAAAAAAAAAAAAAAAAAAbQNmAAAAAAAA + AAAAAAAAAAAAAAAAAAAAYgQAAAAAAAAAAAAAAAAAAAAAAAAAAABzYgQAAAAAAAAAAAAAAAAAAAAAAAAA + AABvYGIAAAAAAAAAAAAAAAAAAAAAAAAAAABvBQAAAAAAAAAAAAAAAAAAAAAAAAAAAABtAwAAAAAAAAAA + AAAAAAAAAAAAAAAAAABvAwAAAAAAAAAAAAAAAAAAAAAAAAAAAIRuBAAAAAAAAAAAAAAAAAAAAAAAAAAA + AIJkZgAAAAAAAAAAAAAAAAAAAAAAAAAAAINhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGkHAAAAAAAAAAAA + AAAAAAAAAAAAAAAAf00hVQAAAAAAAAAAAAAAAAAAAAAAAAAAgDIQKXUAAAAAAAAAUXoAAAAAAAAAAAAA + cVQnNjRSAAAAAAB0DBRYAAAAAAAAAAAAdlMSPkc0JVsAAABMOzgXWQAAAAAAAAAAcE4UP0pKQxkud1wz + PytGGHsAAAAAAAAAaDAfRkpHR0M2FSUtER43GxoAAAAAAAB+MSYlSUpHQ0M+KSMOLIF9VxZeAAAAAAB5 + Lx04SkpKP0MpKQ8NAAAAAHxQAAAAAAByZmdWNEFHPz4qIAlqAAAAAAAAAAAAAAAAbQAAXzYcOisqCk8A + AAAAAAAAAAAAAAAAAAAAAABaKxULIgAAAAAAAAAAAAAAAAAAAAAAAAAAAHhdAAAAAAAAAAAAAAD+P/8A + /j//AP5//wD8f/8A/H//APz//wD8//8A/P//APj//wD4//8A+f//APn//wDw//8A8H8/APA+HwDwDg8A + 8AAHAPAABwDgAAMA4ADzAOAA/wD2Af8A/4P/AP/n/wCJUE5HDQoaCgAAAA1JSERSAAABAAAAAQAIBgAA + AFxyqGYAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAA + dTAAAOpgAAA6mAAAF3CculE8AABd/ElEQVR4Xu29B3iV15UunJvJzM3NnZubP39m5s/k5p/JTO7cxCVx + p0oyoHLUe5cQvZlmikA0gSQkUQVCIImiRi8SXYDoIMAS3TbuNTbYibsNxjGgdde7v2992jqIDG4EnbN5 + nu85kpDOOfs93157rXe9a63vfc/8MwgYBAwCBgGDgEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGD + gEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGD + gEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGDgEHAIGAQMAgYBAwCBgGD + gEHAIGAQ+CsjcCzL9Xd/5bdgXt4gYBD4LhE4Mdn1y6cmun5+fJLrR825rr4nC4Jy+ZrdnBc043hO4Izm + 2UHLj88InHE0z7/04NReYxsye/aoH9PzH7/L92Se2yBgEPgOEJAT/fjk4J+eKnDlnZwVVH64NPhCQ13U + p7v2xn5RsTvxxvz6pJbJ9amUvSuFCuqTKWtnKs3aHN+SuSGe8tZEtZStCb22dlHAu/WT/cq2jX087jt4 + m+YpDQIGgW8TgaeyXD9vmu4KbJrpmvRUafCZhnURHxbuSmnJ3JlGI3ek0KCd8TRoB1945GsgXwN2xDmP + /bbGUsbGKEpbG0GJ1SEUuyyIBpWGUf6SgOubZvieqBvjM3rjCN+ffpvv2TyXQcAg8DURODEp+Af406Zs + l+vUXNfKQ2UhL6xqSLhewKc6NjYu2eh41H8mX4sBEKPQd3OMMgIpq8IooTKYossDKHxRT3LN96VRRQEt + qyd127v+CR9jBL7mZ2b+zCDwrSDw1BTXoyemB/U7vDz0lS0NcV9OZBdenfJ8wusnu/61bHL5HXcvAD+H + QehTF01p6yIoqSaU4le4KHKJP4UU96CAuT6UWBhAi3N9/rh+ePcHvpWFmCcxCBgEbh+BkzmugScLg4p3 + 74m5unBXUkt7J3ubTW+7/PiZ7v7LZnf3BPB7CAV6b7JDgSorFFBGoOhx8p/Vjfxmdqb5C3yvbBjWrfPt + v3PzmwYBg8DXQmBTdsJ/5djedaws+HzV7oTrIOyUey/xvH1yq+/bifFlkysjoBkCffPL1+nrIhUHkFwT + RvEVHAJUBFFiZQjFLA2k8JKeFDzfj3oVdiPf3E40f7bPpxwO/P3XWpT5I4OAQeAvI7B+evL9T+UEpzQu + DXlm7d6E6wN2WjG9bH4nfrcNgLvrr294nQ8YsDWOktaHU0RNIAUv7UlhxT0paK4vn+7dqVdBd+qR15W6 + TX+MOk15mB6Z+AA9NP539HDm7+meCfdSp+kPk19eZ+pR0JW65z5Gq7O67jGfo0HAIPAtI3AsL2zM/uWh + byzcndTSZuPrrrx+4tuxv7PptdO+z/YYSq2NpKjVLo7pgymmPEhdrmU9KabSRel84ketZTd/VSBFrAyg + 0MpeFLjscQos86Mei7uTb1EX5fY/NOUBunfUb+nXQ3+trt9l3kcxuT1ow6juid/y8s3TGQS8E4H9uZFJ + TSWuE4t544PU009x+Vp3/3U3Xtx/ReTxpu+9lcm8NZGUXB1GySvDKXlduHq+pJ3hlLCNXfwtoRRXx+79 + JjYK65nsW8NuPgxAVS9lBAKW+lFAqS89XtyNus/vTJ1nP0qPFTxMD+U+QA9P/D39avC/0b8M/FcqyO7y + 4frhPkY05J23rFn1N0Vg5rSIH+7OifU5sTTkXDWn8XTCTlx39zjeSenp8T9v7t7boil9fRSlruVYnuN5 + GILkeo7p3a7EHa1GILaWib6NbATWsRFYbXsBbASCV/SgwHKO+Zf4kN/CrtR1XidlBB7Nf4genPF7un/a + ffTQxN+R64mHqXhAp/BvioP5e4OA1yGwKT815NQC16qlexNvZOyKpoz6GILLL0bAndF33/jq++1xfIqH + UMqaCHbnedPvjKH+DbHtbnwxBPACYATit3Kqb3Oo8gKiN7goap0VCoRVM+tf0VOFAv7sBfQs6U4+C7pQ + t7mdqNOsR+jhvAfpwRwYgfvpnsn3UPGEzs973YdnFmwQ+LoIzM8L+1lzUXDJnoMxVzL3pFLfXdZJnVAf + royAMPo3ufj2iY+f47SP3WBt/N6bOW23N5J674uivntjqO+eGErfHeUYgQS4/Xwp9x8Xv456PTsUiK1l + D4CNQOyGYOUFqFCgulcbI/D4Ig4FijpT1zmPWaFA3gP0++m/o/um3ke/nXQP1YzoPPvr4mH+ziDgFQjM + yov658P5kREHV4a9lrOXNz5v1D68+dXG5E2Jxww+wXHyixfgHvOn88aHex+zLkRt4j4Hoqn/fs7d8+bH + lc6GoA+ely88n9ro9ubH1/Iz9fPtblyAFgqE1fgrPsC1vAf5l7EXwISg8AFdZnEoMPMhxQf8Lvt+unfK + vTQip/v1lYO6GG2AV9zJZpFfGYGG/Fj/Y5Uhp1cdSbw+qCFebf5+u2PVSY1H2ZgSBuh5fRiB9C2y8YPV + Kd/nYLTa/Lh677c2f++91jVgbxz14zAAz43nFQPjzgUob8CNEEQoAEIwYhXLgO1QIGipFQr0YC/Ah7MC + TigwU0KB+1QoMGdal/e+MjDmDwwCno7AmUWuop1H4r4Ysy+V+u2NVRsUJ7QYAAkB1InOHoCe+lPEHsf2 + KRvZ1YeLfziahh5KoOGHkhwj0O8gs/62ByCPYgTaIwH1nykugDMC4AJUKMBegOICJBTgjEAQE4IBNiGo + ZwUeLXxY8QG/n4FQ4F4KmNKFKsZ22ubpn6dZn0HgthBozgv9TdOK4CMzDqWqDdp/X6wi6GAEcEJLrJ6+ + ize2HQrgtIYRwMa3XP1gtdn7H+XY/ki0ZQAOJ9CQQ/Hq9O93gA0JDMCBVi8AIQGeH6+TtotTgVoWQEIN + nP4SHrTnBUAbAC8AhCDSgk4owIQgsgLwAlRqMN9KDSIrcO+U+6jfDJ+WmqFdjDbgtu4Q80seicCBmTH/ + cG4x1+E3xnw2Zr+1+YWgUyczb0wYAhiA/nssV102Kk7/mPXIzQerTd2/MYaGHI23DABv/j5sBGAAcI1k + w4DN38YASCjAj3gdvIbE/rLpdS5AMgIwAtAFKG0AewHRtjZAjACyAq2hAGcFOBRAatDJCtipwd9O/i0V + zur6Wc3grr/0yA/XLMog8JcQOFkY2quxLvQ1nPo4iXENOGCTdByfq5PZvhAG9N/D8T17ACADM2qjKWV9 + hPqbgcf5b3nzD2iMpSGN8coIZByOUpd4AQgFxAvAo/466rX5dfAaeH7n5LczADo34BiBrZYRkLRgNBSC + HArohCAEQtAGOKHAHEsgpFKDbASQFbhn8r20eGLns+ZOMQh4FQLnil3TNx9L+HLkoWTr9LYNAE5/laZj + AwACDxsTnoDlATAfsCOGEteFqf8f1szx/fFEGn4ikQY3cp6fDYAyAmwA+rEX4BgA3vzKADAZCA9ACEE9 + I4Dng7GRjIB4AE52QNKBEg7AC9jMwiAWB4kRACHorg0QmbBfMdcEzLNUgkogxNqABzg1iKzAbyf9lqpH + dinwqhvALNY7ETieH/nTU1XBe6cfTnM2oqTn+u/nTW6n6WAEYACEoMOpn7ohQm26Yc3xavOr64RlBAYf + swyACgPYC4ABwOkvRgA8AMIA2fwqIwAuANkAOxSQMABeAFKM7qlA/fvE7ZwVsL0AZQRACNpegMiEg1e4 + hQIQCCEUKLQEQiAELT4AqcFu12sGd/mNd94VZtUej8CJvMi/Oz0nNOr4wcg/4tTXN6LE5boXIFwANmX6 + Zs7Xs8sPV/8J3vRDmywDgK9hAIYdT1D/Jx6AhALuZCC4AN0LcMhAjQuAByBcgM4DtMcNwACoOgHxApgL + QCiguABoA2xC0D0rAG2AhAIiEEJqcO7ULu94/I3wFxZ4fFKw6br817wBnn3mmbj0jD7PZfTt9wU/Xk9O + TbsWG5/wTkxcfPQ3eV9P5Yf/++lyV9WKY0nXcQpLWq6v5o5jM/azPQDlBSAEYKUfTn3838CmWBrUHEdD + muIcA6AMge0BwAgIDyBeADIBIAL1UEAZAM4GKD6AX79NGIDsg805gGx0NwDuacJ4iINsibATCoAQlLQg + i4McmTAEQppMWIUCLBB6gEOB39sCoaipvlQ5pvPab4J1R/1b7sL8g6a8oOmnFrsONU11+XXUdXTI9z1k + 2BMXJ06eSrPmzqei4hKaOWs2TZg0hYY8MYIy+vWnlLTexEag6Oss7tTc0MjGneFvZx9JUxt/xOFWAyBe + gPIAWKAjHkA/dv2Ra0/fGqk2+4jmRLX5YQRuMgDwBJgDQBgw0A4D4AEM5jBApQLdDABeX3gAeV1HGGRn + IIQQbC8E0I1Au9WCtygWghcAgZDIhJVACKEABEJMCEIlCC9gWE73G5wajP86WHfkvzmR40qp2JVwY+KO + VNq/MPhYR15Lh3rv2TNyae2GjfTiy6/QxXf+SHv27qMFixbTpKnZNGzkKOrdtz+lZfSloCAX+fv7/6+v + srjzpa7ZGxoTrlmbPlHF4OIBwBjohJwYgL4ce4NUw6mtXHyO92EAcIkXgEf5Pz0MgBHQswEwApISzLA1 + AQgDMmwy0EkLCg+gGQClO2AuwKkJcJMICzmoqgXBBeiEoJYWRJ0AQoEgFAuxF6AqBkEI2mXDSiAkRsAu + GJqV1+WTlUO6/uqrYN2Rf7dpsus3DfXRl6HiHLo9kepLgk1W5E58oJOmTH0Jm//s+afp2vXrdIOIDjce + o0VLymjytOk0bMQo6tN/IKX36UsuVzAMwG0XsZypCF6ffdQ69eWCIYABwCNc8TYhAG8+pNX67Ix2Tnmc + /uIBiAEQIyBEoGUINDLQzgboYQDIQHgCyASADBQuQMKADBCCmjpQyYfBBTS0LRHWMwO6ZFgXBwkh6F4y + HFLJHYNRK2BXDEIg5N47AF4AVILwBErHdzpZPairx8fEJ6a4/n3f0tDXRdE5cHs8HZgVVHUn7n+vfw02 + APtWr1tPBw8foT++/wFd/fI6PX3hOVpWUUXTc2fSqDHjqO+AQZTOHkBYeAQMwHN/CbQTM6P+7qnC8F8d + 3xT27JOHUxwBjn7qy9cizMHm68vlvTj1weTDxccmd1h+9gBGNifRKL7k/xAOCBGIRxgBJwzQyEBkAyQM + UEZAVwZqXoAyAFo2AMZAMgLIPogKUNx/0QnI91IuDC/A0QbYXgDSgpIVUDJh0QbYtQJd5nJLMS4bRmoQ + fIBkBVTV4PAuWZ58kx6b7PrZodLgZ0dxQxep5hy+NZkOTw2+z5PXfdesbcSo0blLypfS3gMH6KNPP+Pz + n+jdP71HMAr5s+bQmPETqP+gISoESO3dBwbgs1u9+UM54T8+WeyaVn8i7jM+aW/gtMUlp764/8IB4BEx + f/oWZvjro+jJ5mS18eUSA4DNjdMfRkAnAtWmty8hA/VsgKgClRE4apGBjiiIwwAJQRAGpNs6BMcI2KXC + IkJqzwDcVCzk3jlI6gTs7kF63wBoA9xDAUkNSgMRCITG5nW/XjOkm0d2EOLN/9OmRa79euPWDNZ4LKtP + vHE8O1TNcTD/7gACi5aU3th34CD98YMPlQH45PIV2rJ9B82eV0SZWZNp8LAnqHe/fsoIuIKDW9p7Swen + h9zXWOraUHQ4+QveWNbmtyW4eNTJPzEEcK/T6iJUvh6bXy4h+3QvAKc/Lt1AiOsvYQIelSiIL6UH4OcV + UZDUBVgZAQ4x2gkD2ksJqhoEfp/wAlBzoIuCpE+A/MzJCKBYqE5rHLKmrUIQWQF4AVIxqEIBWyD0CHsB + qBWAQAgqwcemPEjzJnV+8w7cBnf0JXgU2w+bF7h2TOORa045N5d1oyvTrjURpkryTn4aCxeVvFi/ew+9 + fekdZQC+ZCJg34FDNG/hYsqaOpWGDh/BPEB/zgYgDAi/iQjcm+2K2b8l4qXM/WlXOL12jWP7G9jkerwN + AyCuvzpxt0eqa0xzSpvNL16AGAHHvYcX0JToGAGEAvgd8QDcRUGSDYARUNJgvrD5xQuAAVAFQnaZsKQF + IUQSL0BlJLggyZIgt5Yg652CbvIC2qQFuWmIVieAUEAah4ALQK2AkgmjeQgIQZYJwwuQ1KDKCky5hxKy + fahqdOfl64b6eAQfcGyS6ycn57qqc3Zabr8+dwEE4MHFwU138v73+teaPWdubd3WbfTiK68qA0A3rlPT + qbNUtHgZZedMYx5gBA0e0Y/6D+5LMbFxMAD5AtrePNfcrbujrw+sj/us376YP7Mr7RgA2WT66Y8NhlMf + xgEbWD/58fWYkzyxx073Sc5fNjdCAJ0ItDwEK/7XlYGQBYsoSM8IiBfgcAG2lyJEoKMMFCmyTQpKNaJ7 + +k83BFIroHcO0usE3BWC8AKkYlCvFehiNxNtVQlaqUGEApVDuiSyEfhhR75hn5oY9E/s9jcU1Nub3+7I + LP0cM3ek0YlZLiOJvpMf8oyc3BEbauvo3NPP0J/59P8zuwBHmi/QvMVVlDc7i8ZOG0TDxqfRsAnJlMx6 + ADYA9btHBP2PhhzXnNmbYm/wZJyW5G3hV9kAXONT8wZOVWx6CQOck5bZ/aTNYcpFx6bFBhYDgI0vX+N0 + lxNe1H74fQkDYAjk/9uShbYhEGkwZwMcA8C1AYoLsCsE3clAMQKOMEhLC0KToPoR2L0D3RuG6F2DYAD0 + UEDah6GTcJt24qqRqCUTBh8AgZDfAi4btpuJIhRo7R1gNxCZ0eWD8gGdH94wzKdDxsfNk13/cXxx8FHE + /PqUJvECEAosqU9seSovuNedvP/NazECq9aup6dOnqJPrnxOV//8GT37YiMtW1dAOSWjaHReb+o/iWPh + rAjOCPRr6R3nV7inyHVy8Mq4G5Grglqg1GM57DWu0b+hauvZxRcDIHX4vW2iD5sfJ7sQeurU18IA+VpX + /EkYAGPgzgVIGID/k6wAiEBFBmqiIBQHOfUBNhkoPIBSJdrdgnQvQE8LigGAOlCvEZCT36kWlI5CTAi2 + qRPgDIfeOETvG6DLhKWZKKTCShugqQThCSwb3+nossEdjxTkPP+DB8pCXsJcRmfuosxtsCc0wRA01Ed9 + diwn9GdmU95hBJYur/j8wKFD9MFHH9GnVz6k8y/vot2NxTR5ySCaWTaUJs3rTZmzU2jM1ARatTD0avqK + iBvRK1wtUSuDqDc34mB390a/3TE3sGmwiYT5F5Zf1ffzxsPGlNN/qB0C4PR35wJ01Z9sbtEDwHjg/8VI + SG2AYyhsD+Cm2gA2AoOOclWhpgzUyUARBbWXEYAXAA8AXICQf3pKUM8SQCuAQiGRCKu+AdyJGF6AlAxL + WlD1DWCBEGYKqMEitjYAzUSFD0DBkKgEkRqsHNZ5wh2+Pb7Ry/FEZt/dVWGXxtWntTn5xRCI+w8C8Eip + 68Tx6eHf/0YvaP74qyOwsGTxRSECL3/+MZ16bRPtODGLnlySRjPK+tP4eRxXFwTSkAUhFDzrcQov9W+J + 4Wm4KTV8s68No7TaiBu9d1pVdYpQA7lWH02J7PIro8DfQ9mHPD82KjYv4nY83ooIFMZfNra7IEhCBT1d + aHkBfGleAMIAhwxkIyD1AXpKUOTBNzUM0UIBaU0mugC16blEWF12ibDuEUAc1OoFWO3DZKiI00PQFgdJ + 8xAQgqqPoB0KyHARGADoA+AFZOV3+7JmUNe7PgxAYU9TTlDfho2RH2Nwi9OwVevWrHdyxu+cyA/qUMbt + q++0u/AvVlRW/fdZc+Ye2rJthyICv/jiMp18o5Y2HR1P+atYzLMwhKJn+FPPyXxzTnyMHs18gLrOeozY + A6AknqSTtIY3OU/ITdnOzTnQxovDgNStEZSyLUKV8uoGAJsRxTvY3HDnxQDoXoAQgXLC626+ZALkb3Uj + IXyBng6EwdENgHgAekZAuAq9cSi8AF0TgOYh0isA4UC7bcPsfgGOZ8AZAaUQ1IqF0Eq8lRD0d2YKtCcT + dgRCXDAkXoA0EJk/odPLd+Gt5Lylpya6ft48y1W2ak+8mtOoD2uRaUy6B4CfLaxPajk6Pbjr3bwuj3xv + a0Z0TVsxJaR+9dyMUxVL4l/buD2NRm9MocEV8ZRSzBr3eUEUmONL3bO4hDXzQXog8/6WzlMfvuYq63kj + vCIQPABlbOQW21y4g159OPVx4+M0VHl0dp+RY8dGw2YEDyD6fj0TIEZAPAJd9+/uBdxKE+CkBe0SYXgC + TpMQOx3YXoWgcBUIX0Se7FQJ6v0C7NZk4gXcsoOwPkuADQDCAGki6hCCWvcgTBZS2gC7YhChgEwXUmXD + zAeIEUDvgJipnBoc1bl8/bC7LyvALn93Jvuaspnp13P8MqAVsxcxm0FcfxnTxvH/p41TQ/7JIzfZ3bqo + lfN7vtB3d8QHBSdSPiw/PYJ2vDyfNr44jfLPDKAxW3pT7woelFkUoKbgdprMUtXM+9V1X+a9N3rM7kZs + ACiSeQAQgclbwyml1pqpB6uPkxAxs3gFcLOx+aSmX0/3OdkAJgQlI+Be/iubW7wAXTCkewlOnwDe/NIp + qE27MLtZCEISvWege8egNs1C3KoEUSjk3iasPZFQe2lBp5Ow3U68TQsxrhhUMwYRCnDzEBEI6b0DJBQY + k9vtWsXgzvF3iz6AxT0/PZnrGt1QF/XJeI733Ue19d8WpwavqnBwM98H2jwHxP9nSlxrj08P69Bpzrt1 + n9/yfR2dH7CHb9IrvKmuzD3Zm8rPD6WlzwyjqSf70LCtSZRUFUrhxb3o8fwu9AhPvP39xPvVpNv7Mu/h + ufedKbqCa9/ZA0BDDBTBYPSWSvHYBgCsOUprVW0/av/ZAMAtl/gfm1VSeromQA8DRPcvyj9oASQE0FOG + TlGQXRyEzS+aAAkDRB4s7cJu1TNQugff5AWAzNRSgu6hgHv5sPIQJBTg8mb3xiFRrBLElGE9K6Bkwotb + KwZlroCoBK2CITs1mN35/aUDu/zLX/vGY5b/4aaS4KPL9iTdkHFt+pAWbP60jdbmR3t3dZ/Y7D8MwbAd + iXSqMCT02AxDAN7Rz/JATq/yvvWx1/hUvjbzZDotPjeQlj49hKafSlcWOqEmhEIX9SC/wi706LQH6XcT + sfnvVQag09SHKKImUBXx9N7CLh1/qLhgzfHhgxxL43JaZQCwcdgAgHiDS67zABLHi+svHoAU/kiuX8IA + KQ1GFqG92gEnHWiHAe59ApyuwXY2AEZAWodLStAhA2WIiNYxSBqG4EZuTxzkEIMaJ9C2WtBSCEooAEJQ + Ro2jWEjNGLRDAdVSnAlBNWLMniuAWoHWXoL30Ipxnfas/yupBBHrn8xzjeVT/6M2KT57c2OTo2U72rWr + JqwcCsILEPWfeAGlu5Nu3NEb37yYhcCezB7x0LgjBs4+ld5Scr4flZ0fRHPOpKl4PmF1CIUs6UGPz+pC + j2UzGZWl3H+6f4J14dTvvzWWMrZZvfl1A4DnxQbBRkEYgA9fqQPZBVcsvV3n76QD3WTBQgJik4veX1J+ + 7ekB5HfwvHpxUHv9AmEEJB3YxgtwbxlmNykRTYDMFJS2YTKeTM8IuLcRx/eSFnRvIqqXDGOykD5TwFEI + YsagW1ZA8QGqd8C9FDilK1U90aXvnbynUcjTnOvKOLQ05MWSXUktUsorAh8Z1BpbG6o2PDxA5U2BXOX7 + xJ0b2Ls+3Ktbod3Jz+6m18rgDwQ3eNbJNJp3pg+VPz2Y5p/tozYtDEBgkQ91yX2EHslmYcpkbmLJG1+8 + AJUBwN/blxgA3Aj4kMUAqBw63wA4YbHxBhzjbABvVInznWyAxgEgJNC9AF33DwOg6wFEF6CXCN+yY7BN + BiI12No63DKColpU3orbDAHMEZTMgAwqES+gPTJQLxl2tAHoHyiEoD1lWEaLCRcQzKlByQpgxmAbbQCX + DSMUgECoNRS4l7ILun5xp26ikzNc6Y2Lg0+t2JN4A2W8+nRmnOz4Hl4gRq/332ZverRagwFg8s99mGv2 + rlQ6vchVdqfev3kdNwTq1odeTmBLHbnWn4ag8o3JvHH7EilhUxC7bi6KqQxq9QKmP+SEASHFPajfFv5Q + 3QyACgUwipt5AGwMdNWRMECl2sADsExX9AB4FEPQhgxkY6C7+LoXgM2tagO4QEgnA/XKQL1TkOoXyBve + XRrc3uwAhAP/WcswxWkwVjJa3H2IiK4LcCYNgwuQJqIQB7H3hNmCwBhcAMRBar4gGwAnK6BmDNrThcQL + 0EKB1t4Bv6VFEzo/+13c3Fy880PIeJtzXMknS1yHkNpz8vrge/BZo6jH/lrGswEbpFP1eYzwCHQvAV8f + boj6uLkgtNN38d7Nc94mAunbrF78k5gHmMenP7wAPMILSFwdSgHsBTyex6Rfvi8lLw5UaT/Z+HD/9RBA + 9wLgASBlBuIMz4+NBR4AGxENPLB59QIfd1GQ9ADUawOwySUE0NuE4Xd0SbATEri3DdcqBMULcMaI2R2D + nCrB9iYJaRkB1S/AjQvQy4T1IiH3UEARgqgWtAeMopGo4gK4TsA9FMCgUYwbd68VABdgZQXupVCkBkd2 + XrRumM/f3+bH/hd/7ViW6/tN2cEhzbNd5Q0rwy8tZYJPGnfoBJ58jVMfI9gR70tzV9Xo1cYQ65fDQbwG + /O3ZkuCi47kRhv3/Nj60r/sctZXBH/XdnNiSvC7ivQ0Ho05u2Bn+2e6n0mgB57AL6qJpak0sZZVz9V5R + JI1dyaSfdupjBDe+V0ZgK29uZnxxMyhXUOMB1JAPrgYUHgCxuZz+N3kAdnGQeADW5rY7/9gNQiQdKMbB + UhfarcLt31WiIDY07rUB2PgiCmrTNNSeI6jPEkQoIINLZKKwhAIwbPo4sVuRgm36B2qNQ6RYSNUJ6GlB + 7iHozBRgQhAyYZkuBCPgk99JaQPQOwBtxSU1ODa3+7WaoV2/VjHNsWkhP35qsusXYPSb84KmnFoQtKNh + d/TnOajcs8U8ehGPs4n5c5ZpzGpOo06Y2nG/KgGvtXP/dpggXmLTjDCT+/+6G/fb/rs58+YfRDOQl199 + lT7+5B3a/fxiWn10KM3e2JumLk+gsQujaEwpN+y0ST93Q4Cf60SgpANxSqoZfxoPoOsBbiUL1jkCKf+V + k709IhDGQNKBuigI3sbAY61NQvRuQdI23CIDY1qHiWpThKRrkPtUYckI3E6/AEc3YIcCOiGIjIBOCKru + QZpMOHjx4xRU5KeyMX6cfvUtsK6A2d2pR2FX8snrRN3yHlWGoGhC55c2Tgj8SWNu+M+Oz4y8qYfAidyI + Hx3LDf/x8ZwwXJy7D/Y7lR885NQC18ojS0MuNOyJ/rxkd1LLBG7WIRtfbXa7eEcIPmH4e69j75FTfBLm + uWOk5OHIBPEhodf+4/nW7ku49m3fw+b5vgECuTPzR26s20znn3mGrlz+mI6+uo42nhxB8+v60PTKRBpX + HEUj53Jcr5368rV4ATAA4gU4PIDoAey6AIQB4AGQDpQ23xLLt9cdCJkC+T0xANInUC8ckpRhm0YhCAFs + TYCMDxM+QCoEJROgdwtSjUPt2QHuE4X1AabgAqRUGPG+pAElMyCn/628AGe2oFuxUOxy5gWWcDiwsAdF + lPSimBVBXHsRxuPPIyiphslE1mDELOWwYTF7Cws5dTjXMgb+M7tRzYQuew7MCu57dkHwgHMLg8edLQ4e + +/RiV+G5RcH5Z0tdZSeXurY3VwQ3Hl4b9jpi8FUHE64XNKS0jNvN1Xq7eLPben1n49sGQL5XBwBvfOXu + Y3Pr6VK30evACqGB7j3g+cEjnC4P3vENblfzp982AuMnZP0SpcFNXBr82WefcU3ANtr+TCYVb+9POTXJ + lFkSowzAmO0JbcIARfxomQCdB1CSYPYA4Cq36gEsQk655pzmk77/7RUH6YrB9gqDdB5AwgCdMIQxkDAA + BkCIQJke5DQN1XsG/qVZgm4txFWGQ1UKWtoHvTJQ3/x6FaFTKKQ1EYU2IHFNKMVWctVgWSDFVQfz8NNw + h1Dtt5Xx45qLdB6ImrKaCcVqFl+xkYgqZ/KwhBuMLGAV4VwfZQTiZvvTqn3x10qPJ9/gYSw3djXFfbH2 + eOK1RceSbyw4mtwy/3BKSwEPZM06kEbcyUl5ZxBt4VK8Dbvy7vr9DA7rMrZwuMcbP5qnMavZCW5l1O5D + VtTpz5+9Ov1tklCMy7qG+C9P5YV0/rbvYfN83xCBZSsqrx04dIQ+/PBDev5iY8uBl3Np8a7+NHN1Kk0o + tQzAWBb+4BRwP/3bSwe66wFwkzg8AJ/Mt+IBpFeAbgD0NmB6kxA9XagrB/WWYuIFSL9AJwyQceJ2yzCn + n6EME+XqRr1U2OEBhAxkolRXB0r6z71RiHgEigzELAG7WjC9jtuj8aaOZ9FV8kqurNwUabne2iXy6j4s + oc3gWDptHT/HylBKqGRB0TKWYy/xV15AwDwf8p/VjXw5JPBj7QYI2LHHUmlSYxqNOJKk+iFKo1YZkSab + VhqgImuD94i+BzACSsjD5cwpa3hCExsgcDntzVlsb9aiOv3X8+mv1fxLxqB5qevQN7xVzZ9/FwgUL15y + qX5PA128dIkuvvdCy6k/FNPy/YOpYF2aTQRG0JgaV5ssgM4F6IIgXRYMVaDoAdAfEG44eAAQd7KxpUuQ + 3iFIcvx6kxCJ88EDSCpQ/z29W7B87S4N1keJo2uwpARlk0hTU9EDSGpQ1wMIGSjCIDlB3dl/SQXq3gH0 + F6ihSOeNpTa9nTp1HqWKTjMEyKv33cwZFf671DVcis1eQBxXZcaU26EA8wT+c5gwLOA6gtzHlKIQ7xHC + pzYj0ji8UYNSbZ5DDWVlQ6b0DWw0+m/nik68xtpIStnIjzu50AsekltTVb2IShlJNpZ6JSW4ETn99cwB + jNvJwpCQ7+L+Nc/5DRGYPXeeRQRyafDHn77Tsuv5ElqliMAMmrIs3iEC3Te9TgwO4OEOThjA1h83PjYH + bjCkA6U/gMiC5dSWTSz9AfHYngegE4H6zAB9poB++qseATYXcFO/QK1dmFMgpHU11lOCOOXUDS5Mtx0O + 4FQUcVCbzc4hgbsngM2VsolP0w18mu5gXbxscDEA/L2c+PIowip8j1AggwelqlBgFYcC8ALABTBfEMZ8 + AcKAngVdyS+f04ZMDKbtjlD1F5iSpM9JkG7NMpkZ/RtUTwe+YAzw/3pTFeFLZNKSaqbCOMl8Bz0cEK8C + p3+bqj++F5AhOnQo5vLxnHCPaHL6Dbfb3ffnIAJrt2yl89wjEETg8dfW04bm4TRPIwJHzQu/iQMQg4Cw + wL0uAJtA9AAiC8ZJqwwA8wDYuIjlxRtwSoPtJqG62EefDozfl+IgSQdKJkAfHSbSYNU2nMMOp08ARonb + BkBubPemoWqKkR7r3oLwQhigWodxzKsTgeINYPP2rbPiaPGMZPOLNFYktU5BjW0cxBDg5zAg8ALSmXlP + XcsGhgnByOVcT8AGAOKsIDYACAP8ZrKEeIY1hVhlQezhqmqasn2JV6W+tz0xkV4r7gTzFtlLk/ZqIqGW + 9urKS0KoBLJUG7iK72H0lTdoi4TEiGVypeCZoqAFd9+db96RQmD8hIm/xGCQZpsIPPXmdtr29HiHCBxf + Ek0wAGP4lNc3/c1hQDyBOFKkj10dqMhApQeALJjn+HEYoAg6u0mo3KR6CKB7Ac5NbHcClqEh7tWBegGR + 3irM6RRkTw8CD6BORpsHEA9A5gi2aRkmNzg/OjME2jQPtVqIS0YA3IeQaZIVESzcY3z3Dd+eYdB/1neL + RQgiDEiqZuJwGesI2AC4ijkEmM/ZgDmcGizopLiAztkPUzjrCoBpJsu9xzWnqguYCbaSYZHpS63pVMtz + ghHQVZS6sWxvxgLCgdiNIZZMWEsh4vRv2BfzedO0UJP7v5vtzbIKiwj84IMP6MVLx2n/SzlUUg8iMEUR + gcoAbGZtvM3862SgOxHYRhZspwNhAFTzDaQD2T3FRhYGX05ydx5AbxCip/kkBNAnCEtIoUuDVeswu0eA + Hga4k4GtugAmzOzhJjJSXOJcXRikCoRsQyBtwxBHq1ObU6LKzdfce32z6yf7rb5ujxCEF6AMAHsAcdWc + NVgRqOTaUGz2mtddkYE9uV8DwoDOMx6mLjMfoYw9EWrDKyNwko0AX9jwUF8KtsBLGrbqhlMKqgSrmwqp + 3BSU/VkiLqo/Pf2H05+nR228m+99894YgUWLSy/tEiLw/efp9NsltIKJwEImAieVcTtvKAI1ItA5/VkJ + qBsA4QGkMChtF5NJSAfyhlHDQZlUwmmCUwabFjekeAO6AcDXuijIfWODCNQNAHQDUhXY5ndFE+A2SlyF + Ae1VCAoXIG4uehrY4YCe+4YRUINEbBKNS6ytsmjNhdfd/DYnPhsH95j/Jg9B+x38H4q04mu4vRhvfKka + RMUgZgyiozDKiEMXc2kxGwTfWcwF5DxK/sXdlaGVza8e2RPQOzHrZKxuRBV/Yk9c0qctKf0Ef4ZSSAU+ + QDH/0Py30/vvwM6oD5vzgn3NJrvLEbCIwJ30KhSBn75DIAKrjwylOZugCAQRyAagLKRNGtA9BMCU1zb9 + ASCSsduE8QwBJR7BjYMbSmTB2MSSFtT7BAq5J4+6HkBlAuzx4e5dgvS5AlbzUKsUWZ1o9hRhlRbUuAB4 + JZIRkOlGUiUo6cCb2oezQUN4g3j/L57kuifQDumnGwadJ8BzoucCNj0KhQIXcL6f6wN6lVqThTBXADUE + qtmoXU8Qxd2awss4LFhkhwWsD4hcE6A2PbyA8XYogO/1sWyy8SWscvorIExrb/CqNnQVeKVy1sApENLS + f0/sTKKzRa7C2vzUH9/lt795eyACN23eQs88+6wiAo+8Uk0bmmwisEIUgW1LgZ16AE0lqAuC1MnFrDhS + Q2izjRNTbxMm1YFC3kkmQAyBZAgkPnVcVKkNYCMgxUPuKcPW37XnB4IIdBcFSTbAFgQ5fQJs91ax3RoP + gK9x2sGrwboQ72fUc20An/7Ioav4/xb5/PZy/O39LndbpuR1YYRGIZgkhBFiaBkWu9ZFiZtCiQeyKN5B + GpXqGYjeXOCVvJFDBK7diFwWQEELudVYcTdKb+A0Lrv9wgfgUYUCdv2FFYpZBVdSi+EUWWl8gBhNeHAy + cg1Er6T93MuED++I/GB/bvT/a3ZXB0BgnCICN1DzqVN0mRWBZ5gI3PH0uHaIQEsRCA5ALp0XAPl1U3kw + 8wB6t2CdB9C1/PjaXRYsJ3wrB2AVCOltwuSmFU5Bxobp1YEySlxOf3UzMxmIAiG5od0bhahuQdpIcawB + TLdy97H57U2PR90A6O69exjQHhmIv03nJhqqIpBP78DlVoeg+FXBKnwSzQFeX1KP+Bl0FrrYSKVemadJ + ZSOQsCqEwst7KYIwdGlPZyybeAN4BIbSik0qK8UIONjBi7KNgNNsVQudYpj400k/Yf6n7kqhM/ODx3WA + W9+8RUEARODBw4ctIvDiMTrw0gxLEbimrSJQJwDxtegB2ksHqpuSb1TcsDJERG8T5s4D6AbAcf/tVmB6 + 6a8eBuhcQbszA+x4FkZA0oF6GCClwRLfOvMD2BOAEcDGk05A+mYXD8D9Z7fjBeB38PcoDYaLjxg+pjqI + 4nlDob26bHSpPtQfRcEncl5dd6DGlHEvwmiuM4C0OKy0J/Wc242GHIlzsgEqK2DzAe2RgnpJtoM5h1EK + OymthtBok5X+lZNfugDDCBysi/iT2VkdDAEoAnft2UuX3nmHLmlEYKsiEKXBrjaFQXpNgE4GYu47bgxs + DqkNED2AirP5BpKZgbgJJRxwHx3m3ipc1/y7ewE6X9BaJmyVC6vXchsiqm5mmwx03FqtPkB07XDz5cSX + k15SfvJ/8j0eHU7ALRMgOf/0rVxUw01XZFhozOogddKLvBgbW76XNKNTf2DXIagBpvYlakSnTRlLjtGF + CPMIwAsgFEioC1Ynvp4WFE5Al2AD3zbkKn+vQjSbR5Fmq6rfg93qWzcAIALL9yXdOD0vZHwHu/3N25XS + 4Fdfe41Lgy/RjgtFVGMTgZOWthKB+qZ39wbwfyADYQDkRFBEIDrD8kkq5cHo0os2YbLxJWZ3GoWiVRhf + utxXF6xIhyDxBIQD0GsHhMy6qVMQu//uRKDkudUAEXb7lZCJN/Ot3H33je9uGNwFPngu1ADIRKDENczq + 82kv7r0MIRGXX2ElRUf2o/oZBrGg36JWg6/UluxlwdPCY5/d3NuROxGh6hAEoT9zCDEbgpS7rzY9n/7y + KPoAfTaDhFtiUB0hlu1JwWOClNkp9tG6BGGdTRXBh9fP6vO/zI7qYAjkKSJwqyICr175hA6/XKOIwPmb + +1K2TQTqikBx/fUiIT0MkLQQDACIM5xYMjVI2oQ5cwPViK+2E4RxMuktwnSxjygCJRvgnjKUUED3BG5q + G27zACKZBfOP96n09xLn26e/GAP5uTw6noGbl6CnA1HxN7ImSrH32PRSKQk85IR3Tnr0UOAN7cT7GLLi + Vm6r5i9CniwXGpmiU5E9xASkKwwBSEE1lWhFAA1gNSIMgIiCxAiIR6D4AK0lmxRe6RyMwpK9qDSWNYvg + R28Phs9799HYq42zo7p0sFvfvF0gMHHS5FYi8PJlOv3GDkUELtzWT5UGQxF4q9JgnRgUIhB5cdwUMAA4 + lZy6AFsQJHoAEQJJOrA9HkAv+xWST0IAKQ6SmQEwBpJZ0L0ANaEI5ciaKlBy3CpTwZp7x7XXTn/F8vMG + 10993QDo4YF4AmDzsfFHV0bQ0jyfi5tm93wum4kx4UPauPj2plcuvUxWcu+yw5tc9AhqErMtWJJKRvxM + hSzItqBsl110FPSooSSVgZRmi4KAmcT/YgwkFIABgJHQ27HpWRYYgL67OO63+Qv3zT+ZewucL3ZNNbup + AyOwoqr62uEjliLw5UsnaP/LoghMpYmlsZYB0BSBKu7XxEDiFbi3CXN6BNjpQMUD2O3CsVlx0wkDrfMA + +skuTLVeG+DuAcjvu2cNpFWYygbwJYy2irdZZ4+bWm1ye+NLak9P87m7+XrcLyXQcLtRuw+xzpqZfs/V + je8+p3akn+p/t3NvzBeqa7J9Uutu/k0bH/UHaLDJ4QhSp9jwqmaB3W+ET0qMYxf7SG0DfkcV5UCjYPcr + SKuLoPAqfxrGXIe4+TCY7WkDgKU79lAJilJQ6SW2s/vPXhLWIRkOhAK9d0bTsc1hr3XgW9+8dSCwaAkr + Ahv2qtJgEIFn3l5Ey5QiML3d0mAh/vRwwCoPtqrARNwiPICKa/kmRY5dHxsmTUJwyugegIQBwgXogiCR + seLGlVPL3QDo7cKkOhBegBL21HGPAzZe4q6LAdANwU2kn5byEyOBzQDSDQ0+Zy8Lur58pu9bm8f4ptWN + 9PvfclftG+//g8Yc//liCOW0V6677ubzxkc5spzyfQ5ZGx6b3apjYNadPRhV5GR7NNYgFEvcBIOhQgRW + KsLAoPtz/CqX8oiAkRgBnPru4iCRCgv+OueC1+y93ZqShPBCmp2IkKnuEDf7mBsaY3ZRB0dg7vwiVRr8 + 6muvW0TgcwuUIhA9AkEEjlkQecsegboyUKoDURwEVxGbRJ8aJO3CUXWmTw3SswG6Wk3ceyH5JD0lYYB4 + D2IoxEtoU0mIdmS8kdBkA1V6ul5fpfJsUY9+st8q5sfPsQmQcsPGn18ZfK16hs8ztaN9b7kJDk30f7Bh + fcQHEM/I6S81BaqdNm9eZRj5pJVNrzwVzFTAYBV+/3pNhG4M8X9I04FbgeISykslFlrPQ1u3hSouRfgW + 4OqeEYBHIKGAeAIypwGYotYBRV1430rezd9LQ9QJe7nab7lrVXFh9N928NvfvH2dCPwcPQJfqaH1IALd + egS2l/672QDYXoDdH0DdRHZdACS2Uh4Ml1xYfNnIKh61JwfpcajIVvWNoDcLFQMgp5fUB+D3k7eHq/bm + UqcgKTvpZqxv/PbSe0IE4sZHnj1yVSANKg+juum+DbVP+jx5O3fP8bmB2ybxYAzVV0/IPcT3qJOwNz64 + EWxmVTWpbXp9bfhab40mcxDwHMq7wWQe5jXiVrtUuCMhlhRhYXPDtdczAk6KkLME+D8hBfs2WINkVGjB + hkX1/2dxlzR8ObY25NzR2bH33c76ze/c5QhMnDTll2vWsyKQS4OvXLlMZ9/cSVvOj1VE4IzqpL/YI1BX + BFrZgFYDgBNTpga5twvHzSunk+Sg9TBADIC49+7NQtvTAwhpiOdF95sk9NpjlaI+0Ueku7dM9bmlAXHi + I8bHxs9ZEnB9Ta7vubpRvoEc4992X34OBX6xa1/MVdU3jzeUnPyy+dXGt9unS1ZENrvUTQixKTl7NXCV + PZs2rb/4tO7D8Xo0tx4XQlSFWRz/ixEA4Qfj6WQG7FoBPTOAMK1NxgEzH7VmKM1NUR+enhfhNy2v39/c + 5be2eXu3iwCIwENHjtIH3CPw5YsnCD0CpTQYRCBSgWPdiUC7HkD3AkAEQg/Qtk2YlQ7EpkScK23C5KaU + m/xWkmArFWiJU6yNYGnY9ZkBYjBUrT+r1RDr6/37pZOvNMPUtfw6uy8/x+9j48fUBFFxpevLqhk+z24e + 7veLTcN9v1aHm2MzA4pV6yy7YzI8IWw0VSat9UoQlaS+4SUtKtwGfgcGwxnIwfUK4ACUSpAzEalstFQb + NvYk8Dx6IxZgrAwAn/h6yTC+xoW/U81R2DtxUo4Y+QUtAnsBq08kXT+3JGzg8Vlx37/de8v8XgdAQJUG + MxF4iYnAd95/UZUGL91n9Qi0SoMjlCLQnQB0DwvgAUAUJGSgMzcQN6fdJkymBunlwXp1oHvVmnAAsvmx + EWRkmM4DpG+xetvhxEfMivSb3sJbSCyd5NMlvSKvja/j5htrXDS6LKRlXXb3E7fr6v+lj3nvhICf7d8X + fUXpAHhz6aGQrF1Oat3r0YlOydNbHo4mDLL7FPTZwWImlgUDX3gH0pJdnt/BmMMsXRsgMmFsfqtTkkUs + Spt0yTLMPZLScqYmuLoD3M7mLX5VBEAEbt3BpcFQBH58kbZfWEA1R4e1IQJRGqz3BNTHhUmVoE4EQg+g + 1HWsBwAPoNRsYLwxNgxdgsBk8+mOmxwbWi8Mkt4AsgHaagISLA/ALg9WAz3WR6ouvHCzsfGl/TUMgOIh + +JK2XaL4k/hfQpUE3jxxa4Mpa1lIy8oc3+frnvSNqx3l99OvimV7v79vnP/3jxUGlE3m9tw4WeGpSKck + OaVlcIreK1HHQTwm1ZpLUwoqcpG9i3iuCAQWEDdJ7YU+mEUwFG5ANj5OfhhjaZOGLIRqAaYZgScPp1Bz + bcip4/Pibzv0+TZwM89xhxAQIvDChefo6mVWBDIRuLHpiTaKQOgB3PsBtNc01BkYog0PbW0T1hoGgPDS + Tz/coCJMkYo1p4sN/59OAuJrEF3omJPGoYmaSmQr46yqOcsDwCMMkOpVaBsBZRBs1Z+M+Y7bEExjqyJa + lhb6vcPpvORNI32/9Xr2A5kBv2Av4LIaOmrPTlRpPTtdpzP2OhkqHpBi5tFcBQImXq/epRjfx3LqD5tW + TWe2QwxgJEYAWEozFuCrtAEcCqjN75RHW8SkNAMVovLM8Yi3ThXFPHiHbkfzMncagYmTQQRu5NLg09wb + gEuD32glAnOYCBRF4NgdbYeF6JWB7bYJs9OB2IwyNky6BSsXleN5OZGkYaV7KtBdD4Dfy+CutiindcaR + 2Uo4UcQpnbw9BEM8APUe7GaeMsQzgevtIZutntfj7bosn2XfNe7H8gPmjt+XpjYq3HQxAJLpwKPuAUjp + tDq9eaOK5FfWJkVBCaut6T2qDZstJIKXAcGQpF3F2IpkGgYBOgI5+a0mKZYBkAteyuGzsZ+eLokO/a6x + Mc//V0ZAKQKPNtKHrAh89VITHWRFYGtpsKUIvBURqBcIOWGATQYi9pYTGiRYhp3+0tuF42QS4YpuAPS6 + AGwG3NzQpafsiLB63HNMLfl18QAkZaValPOGd05MO4+tOAKunx9eHUUVK/yv1I33mV87wveOpbQO7Iz4 + SLwA6ZWoE3V6NaR4BfiZ9ANQm982Zmq4B8f+KABSjViQarT1BUpJyCe7eAHuTVmhHwDhh8t948MADG9M + pL1n466eK4tM+Svfmubl7wQCIAJ3N/CwkIuX6N33X6LTbxUrRWCb0uB2hoW4DxGVugA0ykQ2QIg45bJC + Acc3KG5OaROmBD52r0AJA3RlmrjAyVtYhLMl1KkvEJGKexWd8jRsN9mSx1qFPtgsqVvYeLBev2xpr6u1 + U33q657w/cWdwFZ/DfYC8nMPpLbxAnSiTg91RAwFYyeVfzqnAWOAzkESyrinGrGxITDCSe9MamYFoWL4 + IR5izkCESEIA4m+w+bedTfjzuYqIrDuNj3m9vxICIAK37axXROBnPDUYikCUBosiUKYGuzP/7l2C8P9O + i2w2ACLCadsu3JIF6+XBIPVw88vmFwIM2QMU2kiDEVHSQaAi9fFSGScegfIG2BBIU4/4Hdw0g4dcFlaF + 3Fg5rfupzaP9/qpNK/c3RH2GdcBNFxddvAAxAFKVpwaV2OGMwpA9GXAaSpXIxF9cLY8bY+MmF3CSjszW + 5rZ6ICDkUl6BndNHk9MMND+11Ygg/ySDsOl0wpfnqkLzjhclqZoG888LEMhhJhDDQp69cIG+uPIp9wi0 + iUBWBOqlwXDx/zMyUMIAqR6DFyA8gBMGIA+ueACrJFjCAImDcWIhF5+6nd19dOOV1JdWKituvyql1cpq + VQ89FvVgk6RsDKOI5TxIs+DxVzild1ecaI3sBaAeQHEBvDlFGCWbXmJ/VYdv1/3LxocRUAM5OO0J1z+R + 1Y66AVCpV5Rh22pDyQpg4+MzUM8Db4wnHqtqQnRBxvvg7AE8herTSdfP14TM8YJb3ixRR2B85oSuFhHI + PQKZCDz/Zj0rAu3SYI0IbG9qsPvsAH1qENKBqq+eyILtm85dDyDadWyCDC5CSd3MNznkrZhpx5t/wAE3 + I2DLVNWJBrmqzQmIx5GyIYxGrYyi/LKAa5vH+o7b/ITvf9wtn/h+ZAR2MBcAlZ09PUlcdBE84XtJaaps + hn3yWzqHKAot76kKkpD+FA2DaB2AtZLywtXXuhlLKKSez07NCnEIb6T2bOK1c6tCi47PT/zR3YKVeR93 + EIEVldUtRxqZCGRF4KsXm1gRiB6BA+2pwa1E4K0mBrurAqU/gD49WLULt3kANOZAOlAIQJxEcTylVtUP + 2M0v5PTXvQA1qEPzBNSwDhTccIkvXGI011y+wv/zDdk++wBf7XDfH9xBGP/Tl9rLuoDGwoBFM/eltEhG + QHlDWgGQPs5bNr8U5KClWFiNvzIA8Vu5czAbWNn8YgxUqtAmPvU6BxleKnMcgSuM0PrTvPmXh034T9+8 + +QXPRYCJwI/27N2nFIF/tIlAUQRmlcfR6PnW1GCH+NP6AriHBfrgUBkbBkJObxMmsmDkqqHkQwtsJWvF + FFq+rOk8lgfQXhigbl6+yRXZyC2x0HZr1Iowqpnuc2HzaN/Au/mTOjA+4Od7t0Z8NGC/FZvrKTusC6c8 + LiH9nGo8JkMDyv1U5x+ESDACGEMuQicZVQZM3JuX6uXMeD4YmSd4fNuBM7Gfny0PH3I342Xe2x1AYP6C + hUwE7qLXXn+NLn/y7lcqDXZXBrbhAey5gVJNJlODkIpK3cVlw9zEQrnwrGuXUd3SDac9D6AfGwU8h9T1 + J6wNobCKXlRV0vOjTWN9MrlY5yd3AK5v/BJHZvhPyN6bqgydNPzAGHMRLqlNap/k2OBowoH5ASEVPSly + dSBFrQviCT3sBXB2pDcXAvXm5qMY2SWtulXTk3b6GeC58Nxj9qfSiZPRH50tjUj7xosxT9DxEcjLL8hH + j0AhAg+/XKkUgZganL2CR04VRyk9wC2JQPYIxDvA7+jZAIcHsMknVJwl1fHgkR2tRJTM5Ws7hvpmDwCs + P2J9ZAfgDheUB17bMsG3pHaU7+862qewb3uk4gLA2KtGpSAw7XhfNj++x6aVBqMwAGHV/soIxHCZMgxB + EvcB6L/VGkWuzyloM89AOiDx8+UeSqWmhvA3zxZHRHY0zMz7/Y4Q4KnBDhF45fKn9PQb9bT13CirRyCI + wEXSI7B1arD7tCA9FJDCIGQD9PJgiFfUqW93CoJ8FRc8AHH/9SGdqjwVZBaEP/xciuHn2XnTasJbqvJ8 + X948yrfH3Rbn385HhK5Bh6cExE/kBhtYI9YsLr/uBWDzR1YEqKk/mBrkWtZD9f2L4NZfwCGNwyenb5/b + pCL5uTQ0wfOWH0m+0VQTvPdYbsiD+6eG3FX8yO3gZn7nO0QARKBSBDIR+PqlZtrzYrZFBGJYyBJravBY + vuHE5RdC8FbFQXqbMNUliDc+Tn0oAqFCw8bH6acMADaANpxTdRFCyysOD7DpMTE3cT3Ld6sDqGpOj0u1 + 432KvkMo7shTHxjn//O9K0Jel5kEutsvJB4yGp1nP0qBJb4Uxps/eMXjiu9AdyJ9XoGc/u4zB3Xju6Ux + /sumosAOj9sd+XC88UW4R6BDBL73wat06q1FTmkwiECUBoMI1E96dzWgXhcgYYBKWW1ml59POmx4kaGK + EVB16Kh0swlAfI2qNKX441M/dTXXua+PoRElrpbNk33XbR7p6zHFKUdmBywftjfRYvPt+FzCgAyO+wPL + fChqKY8R440fx9jHcuffDBZc6R2N2xtPJk08kQUY3JBAhzaGvX1wun8/b7yvzZpvE4FWIvB1uvLpn2i7 + W49AZQBKg/+iGEi8AfQHQM99nPpKgGJXq4nLL4ZAvlfVZ7YHAIMgPfwgd51YEdZSmePz8ubhvv/B1Xoe + VZa6dXLgw5V74q6JoEeX+yLfj5MfU4KDV3Dsz+m/pLWhauiI3tvAfRipGIQJ9alUvy/mi8OF/hvrx/Z4 + +DZvA/Nr3ooAiMBaJgJRGvwFlwZDESg9AnVFIE52d/ff3RPAqY/0HlJ5svnlxBfXX/9eOtzCHcbmB8kX + x41IKot7flg7sXuNp34ma0f1+v6OosCDY3enObp+GIPgyp5qWrDPgi5qPDjSf9E8YgwS4JQNnBXgceJw + 79sbQArvoGRXUsvuJa4Xd4x7PKpu9OPfSm8DT/0MzLoYgQu//PV/mTRlqk0EojT4Mj375h5FBC7Y2koE + ggcYw6f7rSTBaL0tsb4ozaRMtT0DAE9ASVGh+IPUmOv8od2HhHfDdJ+jm0b6POrpH9D2KQHd2Qu4Ll5A + bG0wdeG4HxeMgF9xVwpZ0kONAY+uClJDSGAg+21r7XYssxlT2ePaXO56d9fUx4s9HTezvu8AgRVVNTYR + +BG9fvGkTQQOoLzVKUwEtvYI1BWBYgygxMPmx8RbCH+kMEUMAE5+d/JPbX6Mx+JTP7SqF/WviqLKRT0/ + 5FLdgg3Dfb1GlrpzQeBB0fr78vTgh/MepE6zHqFucztRYBGHACWPU3hZLzUAFF5A+noukqrjsGkL6/y5 + MQrSgeuXBX60c7Jf2dZRfr/5Dm4N85TegEDJkjKHCPzgg9foJBOB5fsGUcHaNHtYCKYG8w2oNQbFqZ9S + azXTRCtuMNSiSVd5fZv1F/IPmx4nP0hBbPx+nMOOWRVE08pcN9Zk+xzfONzX627guon+j67fFnEVXkAg + T/jtlvco+RR0It9ZndXIbxiB0MXsBSwPoPiqYGUE4muCKWdlRMuq6sDLW8b5juZKxw6nhfCGPdWh1jiv + aMHBbTvq6TUeFvL5J+/RjueLqOqwVRo8ZVnrsBDk+XHyI9bHxk9YHUopNVysstaanNObO/dIxZlUnakJ + OOg5B6PAohdh+Adxg46S2b4fbMz0ya8c3N0rc9OrRvb4wb4p/oMnbYpT7n73/MeoS+4jygj4z+9OrmI/ + iljSS4UBwYsfp4UVri/X5/md2TLZtxQ3WN0IP9Ott0PttLv0zeaCCOTS4AvPPUdfcmmwMyxEmxpsKQLj + 1anfewO7n8tZm76Cm1NUh1ECx6do2YVOtaoZqC1ywaZXfe34Z4hX4briBJtQFtyyfHLXMyuHdLvnLoXk + jr0tLhT60ea5vS4kLgumWMY0rJSzAHzyBy3wpWElwTS+qNeNZYt6fLoly7eEqxz73rE3Zl7IOxBgIvDH + 7kTgBSYCN5+1FIEYFgJF4BPzWIrK8aj/rG7UPa8TJS4NpaTlXJBTFao8AYQB4AGsoSBWfTqKXhDjQqiS + zl5CdHkAFS7s8eeasV1XVg7q5pWnfnt31dYxjwdUFPj9AbH/8AWBLcvy/S5WzOj+Qt1kn7rNI/1+hW7F + tSP8vtaMAu+4i80qvxECKyqrHqioXklHbEXgW++cpoYXp1LuBm4XVc5lqHN60GPTH6KHpvye7p9wLz04 + +XeUUM6dabgSL7IiiBtVBCoDkLYVjTtba9MxNATeAqbpJs8OpJJJXV9ZObybEabc4tOqHebzTzyJyMWb + 3uTvv9Edbf74thFYPbRb15VPdimvmhH3RWl+QEv5En8awic6WGnEoIhFfQs702PZD9HvJt5H92Xeo66o + 0gCKWBZI4cxQR/FEnfR1kZZUlavU0NUnYwtzBdXBFM4xbL8Zvi0rR3Wbyqf+L2/7jZlfNAgYBL57BKYz + ozyEXfbRx5Oo9OlhtPyZYVR0LsPqsccKtNCyntRjTlflAfw+637HAPgWdFZhQLTNAySv5XZcPJ8vhvP5 + SWuYF6gIppBZfjS7sPvlyqHd/uW7X4l5BYOAQeArI7B2Z+w1MPcYGlF0NoONwGBadK6vStmlcjvtsPJe + 1GteN+qc8zA9MOl+FQLAA8D3CAOiVgRRclWYygakro6goPIenLrqSWMKH79Rltml6Su/IfMHBgGDwJ1D + YPuqsI/QMBKjowpOp9Pi8wNpyfkBqq00lGfIQQcs8FE5asT+MAD3Z96r+IDo0kBFBKasCKfwUn8KWOxH + foVdaP707u/XjOg64s6twrySQcAg8LUQODIv4CAEPOhVX3g6lQ3AAGUEMEMOHWdQhw4uADnqR6Y+YBkA + 2wvoWeyjwoDweb2ox4LulJDtR1VjurzF6b27uj3X1wLK/JFBwBMRODi9Vz4KSTCKasapNFp0vj+VPz2I + svlr/Dximb9SpnXOeYQemfKA4gHgAdzHF077nnO6U7fZnWh6YXeqGtJtWNXg7h5VueeJn7lZk0HAQWDX + +B7xT9YmUsQqf0rbGUYD6qOoz9ZwGlEfx3XoXIte5bLCABanSBiAzY/LN7cTBeR3p6JJXa8ZSA0CBoEO + isDhef4H0ZACQzsQBixRPIAVBqARRQyXpAYW+6owQLQACAP6zPCl6jFdX+ugyzZv2yBgEAACB7QwIIdd + /+Jz/W4KA/xmdaGMWT1o9Bwfysj1pdlZzPT3eeiAQdAgYBDo4AggDJhVF3cjalXA9dKdEdd37Im4sZMr + 1PYeTaLtDdG0iRV9q7eMoMwiLg2eGUEjZgTQ6GmR5O/vv66DL928fYOAQUBHoKS07FMMC3nn3T/SZ5ff + oxPP1VDNliyaU/4EZc/pR+OmpdHITB7vPSaZQkJDPzXoGQQMAh6EgNUjsJ5ef+NNuv7lVXrt7RNUv7ec + FpVPoxn5o2nshEE0dERvGjAkjSIio1rYCzCsvwd9/mYpXo7AzIJCNSzkGe4RSC036MOP36Lmkw1UtqyI + cmZOodFjR1D/wf0oo19viomNv8EGwMfLITPLNwh4DgKTp07tunbDJjp5+jRdvXadvvzyCr36ynNUUV1B + efl59OS4MdR3QH9KTe9NcYlJ4AFGe87qzUoMAgaB71VUWz0CP/rkE8K/93loyPpNm6hwzhwamzmB+g8a + TMlp6ZSUmgYDUGkgMwgYBDwIASYCP2rA1GAmAvHv8y+v085du2lu0ULKzJpMA4cMUwYgLiGRAgIC3vKg + pZulGAQMAkULixUR+Nobf1AG4AZfjSdO0MKSxZQ1ZRoNeWI4pfXOoMTkFHgA1/n6bwY1g4BBwEMQUMNC + tmyjp0EE8r9r167RM88/T0vKl9G06Tn0xIhRbAD6UFJKGgUGBV1mA/CYhyzdLMMgYBCYPHWaIgJPnTlD + V6/foOtsAN54800mAmsoJy+fRoweQ7379mMDkAotwFU2AEMNagYBg4AHIQAi8Mjx40wEfqoMwHsffEjr + Nmyk/FmzORU4njMBgzgESKXIqCiEAcs9aOlmKQYBg8CSsqWKCLz4zrsqBLj8xZe0o34XzZlfROMnTlKZ + AGQBYuLiQQS+bhAzCBgEPAgBRQRiWAgrAmEA4AUcPXacFiwqoYmTp9AgOxMQn5gMD+AaX6ZttQd9/mYp + Xo5AfuHs/LqtTAQ+e8ExAOeffZYWly2lKdnTVSYglTMB8UnJFBgYeIUNgGll7eX3jFm+ByEgRGDzqVPs + /v9ZeQAYHba8spqyc/Jo+MjRlJ7RVxmA4JCQzw0R6EEfvlmKQQAIVNaspMONx+iDjz9WBuCP771Pa9dv + oLyCQho9ZhxlcCYggQ1AeIQqDTZEoLltDAKehEBp+bIP9+zdSxcvvcNhwJf0yeUrtJ15gYLZc7kmAJmA + gcoAREbHgAh81ZPWbtZiEPB6BOYtWHgaisBXX3+dvrh6la7ydejwEZq/sNjOBAyhRNYCxMYnGCLQ6+8W + A4DHIZA7M38ZpgY/w+TfF19cpSuXL9PpM2dp0ZJSmsSS4MFDn1CpwFjUBBgi0OM+f7MgL0eApwbHr1m/ + kfsBnFLuPwzA8y++REtXVNDU7Bk0bPhISuGiIHgAwcEhkAT393LIzPINAp6FAOS/R1kR+CdWAn5+5TJd + vHiJVq5eQzPyZtKIUaNVTQAMQGhYOMKAJZ61erMag4CXI1C6dNmHuxv20lsXLyoPAL0BtmzdqjIBo8aM + VZkAGABuDwYi8CUvh8ss3yDgWQhwj8BTW3fspJdeeUUZgE+5Scj+/Qdo1tx5qjkIMgHx3BkoKiYWHsCf + +fobz0LArMYg4MUIcGlwOXoEnjv/tDIAn336CTU3NytJcGYW1wQMHKRSgdFsANgDAA9wvxfDZZZuEPAs + BJgIjFvD4p+nmppVi7CPP/pQZQVKy5dyJmAq1wQMVY1BomPjyOVyfcYGoI9nIWBWYxDwcgRABB46epRb + hP1JGYA33vwDVVZV07QZOZwJGEHJnAqMYjFQSEgowoAFXg6XWb5BwLMQWFJW/v6u3bvpdW4KAgMAZeDG + TbU0PTePuwONpDTuEAwOICw8AmHA8561erMag4CXIzC/aEHzlm3b6bkXXqBPPvqI3v/Tn2jPnj2UXziL + awLGUu8+fVVfAGQC7NJgQwR6+T1jlu9BCHDKr3QDn/inuUXYR5wG/OC996iRi4TmcnOQseMyqW+//jwk + JE5SgYYI9KDP3izFIPC9KdOyY1atXUeN3BDk3T+9R+/98V0lCS4uWUKZE7OoP6cC0SIcHgA3Cf3UEIHm + pjEIeBgCK7gPwL6Dh+jNt96mP737Dr340ktUvmx5m0xARGQkuYKDDRHoYZ+9WY5B4HuLS8v/tH2nJQiC + B/Da62/QmjVruCaAuwMN46IgrgoMZw+AuwSDCHzWQGYQMAh4EALz5hedqK3bTE8/8yx7AO/S23/4A23f + vo1m2JmAVC4KQirQrgkwikAP+uzNUgwC38svKFy0ltuCP9XURO9eukQX3/oDHdi/nwq5TfjI0U9SOvcH + hAGwU4EgAv+Pgc0gYBDwEAS4R2AUqgAPHT5Mb739tjIAJ048RZwipCfHWu3BkAmAB8BNQj9hA5DiIUs3 + yzAIGASAAEi/3Zz/f+XV1+itN9+gp8+fp5LFi2k8FwX16z+A4rgqMIwNAEuCQQTOM6gZBAwCHoTAosWL + L23mVuHPXniW3mZV4AsvvkhVVVWUNZknBg/ioiCuCgwLZwPAmQAmAs960NLNUgwCBgEW/hxet2EDnT59 + mv7w+mv06ssv0aZNm2jqtGwazEVBScnoEBwhNQFXDWIGAYOAByEwM79gXg3zAEeOHKE3uFHoa6+8TLt3 + 7aLcPK4J4KKglLQ0FgNFigEAEfhrD1q+WYpBwLsRmDR5ShiqABu4VfjLL79Mr770Ih06eJBmzZpFI0fy + yHAUBUVF86AQaAEMEejdd4tZvUcisKSsjLZt304XuCfAK8wBNHNasAiZALQH69OHG4NYZcEsCTZEoEfe + AWZRXo3AguJFb2zcuJHOMA/w8gvP09mzZ2lpeTmNH89FQf37U2xcnFIDBlmZgDNeDZZZvEHA0xCYPWfu + npqVq+j4sWPsAbxAzz59niXBqylr0iQaMJD7A3JRUGhYmNQEGCLQ024Asx7vRiAnLy9/RUUF7Wce4PkL + F+j5Z56mLZs3q0zAkKFDKZnbg1mpwBB4ABgaaohA775lzOo9CYGsyVOCypcuox3MAzzz9NN0gT2APbt3 + UR5nAoY98QQloyiIOwPBALAWAIrAOE9av1mLQcDrEVhQXMwtwTbRKZ4YdOH8OWrktODs2bNpFAaFpHNR + EGcCIAZiSTC8gAKvB8wAYBDwJATmzJ33wupVq+gY8wDPnjtLTZwJWFxSQmPGjHEyATwqjIKsTMBJT1q7 + WYtBwOsRyC8o2Lx8+QpVDfgMG4DTJ09SdWUl1wRkUj9uDxbH/QGDQ0KkJuAzrwfMAGAQ8CQEsqfPmFLG + eoD6HTvoHPcJPHfqJG1Yv54mcU0AMgEJyASEhkkqEETg/+9J6zdrMQh4NQKZEyf2WMQuf11tLZ1sbqIz + fO3k5iDZ2agJGMJEYIpFBLpUURCIwGivBsws3iDgaQjMmTOXVq9mPUBjI5092azSgvn5+VwTMJxSuSYg + MirKMgAWETjD09Zv1mMQ8GoECgpnnauosHiA001P0RFuFFK8YAGNGj2auwP1pmjuDoRMgE0ENno1WGbx + BgFPQyAnN2/VEm4Gsru+nk49dYKeOn6Mli9bRmO5O1Dfvn0plrsDGSLQ0z51sx6DgI3A5ClTxyxYuJA2 + 126iZjYAzccbae3q1TRh4kQagJHhCQlWTUCQqgm4aohAc+sYBDwIgXHjx3edN28erV27lo7z4NCmY420 + ta6OpkyZQoMHD6GkJO4OxO3BYACYCMSwEEMEetDnb5ZiEPjeTCb9qisr6BDzAPAA9uyqp9zcXHqCJcEp + yARwdyBUBdqKQEMEmnvGIOBJCOTk5jaVlS6hBp4c/FTjETrIhmA+ewUjR2JicLqTCbB7A5zwpLWbtRgE + vB6BKVOnbljIzP/2rVvYABylxsOHCAZBJMGKCGyVBH/i9YAZAAwCnoRAZmZm1vz581kFuI6OHT1CJ/ha + vXIl8c+pPzcHESIQegDmADAt6P/zpPWbtRgEvBqB0aOfDCwsLKSVNTV0hHsDnjhymOq4SnAyS4IHDRpM + iUwEquYgliLwQzYAoV4NmFm8QcDTEJgxYwYtX1pO+xr2KAOwiweI5uTk0NBhwygllXsDKCLQUQRO87T1 + m/UYBLwagWnZ2U+XLi5RhUHH2QDs39tA8+bOoREjRipFoOoNwAbAJgL3ezVYZvEGAU9DYNKkSavAA2yp + q1UG4PDBA1TKCsEnn3ySMjL6WIrAViLwfU9bv1mPQcCrERg3bvzY2TwXYP3aNZwFOEzHOBOwsrraJgIH + UDzPC9S6BH/BPMA/eDVgZvEGAU9CYOSoUT1RBVjDMwIP7t/HBuAg1XLbcIsIHKSIQDQJhSDIEIGe9Mmb + tRgEbASmT59Oy8vLqIHHhMED2MkNQ3OYHBxmE4EREZGWAbBKgw0RaO4cg4AnIcD6/3OLFxWrpiDwAPZz + RmDuHBCBIygdTUKjoy1JsNUj0BCBnvThm7UYBCZOnFg1b+5c2swagGOHDtKRQweobAkTgXaT0JjYWEME + mtvEIOCpCHBl4GgMCF3HE4IgCIIRWFldpYjAflAEggjkeYH2uLAvDRHoqXeCWZdXIsDFP4/PnJmnOgOD + CDzOPIBOBDqlwRYR+DEbgACvBMos2iDgqQigIejSslKHCKwHEciKwCHcJDSFpwUpIlD1BlBE4ERPxcGs + yyDglQgwEXhWJwIhDW5DBLadFtTglSCZRRsEPBWBrKysyrksAa7btFGFAIcP7G9VBPbpQ0IEBgaqTMC7 + noqDWZdBwCsRGDt27KhZXBmoiEAmAdEbQBSBighEj8BWIvAaG4H/6ZVAmUUbBDwRASYC/WbyhGAQgQf2 + 2UTghg00RVcEokegRQRiWEhPT8TBrMkg4LUITAcRWF7OLcKgCDxIrUTgUDUtKCLSJgItReAYrwXKLNwg + 4IkIsP7fIQLBA+zds1sRgcNZEajGhrMiUJUGWwZgtydiYNZkEPBaBLImTqycN28ubeFZAUoReACKwCVW + abBOBFqSYEMEeu2dYhbukQiMGzfOJgLX0NFDh6gRikCuElSKQIwNj4+3iEBrWIghAj3yLjCL8loE2iMC + N/HYcKc0ODHRGhbCRCCLAQ0R6LV3ilm4xyKgiMCyMtrLRCB4AFQIom/gkCFDWxWBKhNgiECPvQnMwrwX + gbaKwEO0D0Tg7FmqNLgdIrDee5EyKzcIeCACUATOFyKQU4FQBC4pKVFEYJ+bicB3PBACsySDgPciIETg + 2jUgAlkRyGRgTVVla49AmRqseABFBP6996JlVm4Q8DAERo0aZSkCedMfZEUgBEEbeXIQiMCB0iNQiEBr + anB3D4PALMcg4N0IoDR4GfcIBBGoegRu26Z6BA4daisCuTRYTQuyBEGjvBsts3qDgIchACKwpHihkgJD + ELRvD5cGCxGYpisClSBoq4ct3yzHIODdCHCPwMoiHhOuFIFuRKCjCAwJEUHQW96Nllm9QcDDEBg/frxS + BGJYiCgChQhEabBSBIY6isDr7AX8Nw+DwCzHIOC9CIwaNdoPPQKtYSH7VRgAIpDHiFlTgxN5WEirIvAy + G4Au3ouWWblBwAMRsIjA8psVgUwEptilwVploCECPfAeMEvyYgR0IhCSYKUInDObhg9nRWBaWuuwECsT + YIhAL75XzNI9EAEoAovm20QghwC6IlARgTE8LISJQLtHoCECPfAeMEvyYgR4arBFBCpF4CGlCqyuqCAm + CNWwEKc02FIEGiLQi+8Vs3QPRABEYP7MmYoIPKSmBh+ijetsReDAgdbU4FZFIIjAxzwQBrMkg4D3IuAQ + gRz/W1ODLUXgEEUEYlhIhDM1uGfPnsMZqf/K13+3rx/y4/e9Fz2zcoNAB0dg6tSpZ0t4arBSBLIgaO9u + iwhUpcGsCIyMiiJXsNUjsEePHrt4uf/O1718PWxf/5sfTbFQB78PzNv3UgQcIrCu1hkWIqXBGRkZFIup + wbYikD2AiwwTCoMwNzCCrwS+Uvnqyhe8AfPPIGAQ6EgIjBkzJns2Tw1ev3atpQjkMMAhAvUegTYR+Ld/ + +7fxvL5kvvrwNZCvYfbjLzvSus17NQgYBBiB0aOfVKXBGBWO0mDoAUQRONAmAkPDwhQP0KtXrz//8z// + c5696Ufiz+0LRuDXBlCDgEGggyHQp0/f/zl9+nRatpQVgUwE6j0CURqcnt6b4uLiKQqDQ7k8+Oc///ki + XmKmfY3nxyf5Qijw/3SwpZu3axAwCAABbgTyOkqDd2zdQqtXrlRZAJCAg3lsOBqFIiMgX//0pz8t4z/J + 4SuLr7G2+/+gQdIgYBDooAiwIGjrpKwsa7OrTc8Xb3rra2vzZ2T0uXzPvfce5iWW81XI10S+BvPlwxdS + g+afQcAg0BER6NuvX5ZsfuuktzZ+cnIyMfNPv/nNb57ldW3jawNfK/gq4GsQX6gQ/FFHXLN5zwYBg0Ar + Av/wj//4j0X/9m//duJff/WrT3/yk598yf/1OV9/4OsNvo7wVcdXNV/z+erD1//h628MiAYBg0DHRwAu + fCRflXw18vUBXy/wtYOvzXyt5QuxP9z+znz9jK//0vGXbVZgEDAICAIQ8nTiK5evfXwh1seGH81XDF9Q + AP4Pvoz019wzBgEPRQCnOmS9/8rXj/n6KV/i5psT30M/dLMsg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAI + GAQMAgYBg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAI + GAQMAgYBg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAIGAQMAgYBg4BBwCBgEDAI + GAQMAgYBg4BBwCBgEDAIGAS8CYH/C34V1bvyBxDmAAAAAElFTkSuQmCCAAAoAAAAMAAAAGAAAAABACAA + AAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZmZmsWhoafhKSUn5Ozo63QAAAAQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAg4OEv7O1uP9WVlX/Q0NC1wgHB2oAAAAe + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAj4+QzZ2dn/9MS0ru + SUhHmQAAAGcAAABmAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + mJia44WFhv9KSknjUE9OXAAAADcAAAA6AAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAABzc3Ntn5+h93BwcP9LSkniUE9OKwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAB6enq1o6Ol/15dXf9HR0bCUE9OAwAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACGhofNpqaq/1FRUP1EREOXAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACUlZfbn5+i/0lIR/VFRURa + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHJycgakpafm + jo+Q/0NDQ+IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAHZ2dTKtrrDyeHh5/0NCQskAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAHp6eZKsrK79ZGRk/0RDQqwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIqJib+jo6X/VVVU90RDQ2EAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJqamtuZmZr/TExL7EVFRB4AAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfXx7O7CwsPCMi4z/ + RkVE4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + i4qIh8jIyPx8e3v/RENC1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAkI+NrNjY2P9tbGz/RERDwgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn56dvtfX2f9hYGD/RkZFowAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAr66tzMfGxf9YV1XwSUhHPwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuLe24K+urP9SUU/b + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBgHxk + yMfG9pWSkP9QT03GAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACWlpKw0tLQ/318ef9QT022AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACko6HK2tjX/21rZ/5QT06QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/t7nX2NTV/2JfXfpRT0xJAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF+HpX6dzb3vk8e8/1BpYekAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQH7CBkylr9RPx2L/ + OZo//zl9VPdAhYheN26WCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + SqinDU6znOJbvnr/MIky/yuBKf8/o0P/RZaEszRpnRMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOnWlAQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAHWRn7+UzLX/SJlq/0SgTv9JtFX/Rr5P/0+qgt08eZdfAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABDlpOSQo5zvkKRmYlAg6Mj + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKOmq9aPzLP/TqF1/0mzUv9OtV3/UMFh/0fEUf9WtXH/ + Rp+gmDt2oiMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEaDsjpNpF/8 + LJAh/zmrOf9Tr4njSJWmekGDxBYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAenh3JLa5te13vaT/TaFx/0iyUf9QtF7/ + T7Ze/1O+aP9Mwlv/P8BC/1Ovd+9AgJthOXWhAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + QHbFAlG1p708uzz/RqhT/0amU/9Gtkz/QrdH/1a4l9xImsssAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAjYqIfsHPxftjrpP/ + UKhs/0qyU/9RtWD/T7pd/07DXv9RwmT/Tb1b/0O+Sf9RtmL/TKiMwD59nU4AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAARYa4PlbHbf5Nw13/S7NY/0SqTv9MtVf/Trpd/z64Pv9ZwozgTrDHUwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + l5GRqLfYx/5XqIX/T65g/0yzV/9RtWD/Tr5c/1PLaf9XzW//U8Rn/069Xv9MvVn/PLs8/1aycf9GoKGO + PHujMwAAAAAAAAAAAAAAAAAAAAA/ec4BT7m0nkbLUf9UzWv/UMBg/0qzVf9LuFj/UcZk/1TGaf86wzn/ + WseL502fyjUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAop6eu5zStP9NpHr/RrFM/0+0Xf9Ot1v/UMFh/1TNav9VzGz/VM1r/1bLbv9TwGf/ + TbZa/0S3Sf9CuEb/VrBw9kOPm5E4b6sRAAAAAAAAAABGgbhMWcRz/07MYP9WzW3/U8tp/0+/X/9Nu1z/ + UMpj/1XNbf9YzHH/QMRF/1jCjepOjs4cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqammxpPXv/9OqHX/RrFM/1C0Xv9OuVz/T8Nf/1PMaf9WzW7/ + UMxj/1XMbP9UzWv/U8Nn/065Xv9Ptl3/R7dO/z+2Qv9MpY7KQomcYzlwrh5OrquqOsE2/1DFYf9RyWX/ + Vcxs/1TGav9Ltln/VMVr/1nOdP9ZzXP/Ucdj/zu6O/9Rs7iQRorbAQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqa+q23TDqP9Rpm//SLJR/0+1Xf9Qu2D/ + UMZi/1PMaf9UzWv/Ucxl/1XNbf9UzWv/Vcxs/1HJZf9QwmH/ULlf/062W/9Ct0f/RbVL/1CrgOxUr275 + S7ZZ/0+5X/9PwF//T8Jg/1C/YP9HrFL/Trhh/1vOd/9WzW7/U8xp/0y9Wf9Tt2T/TJe9XAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEgIBLqrqw8V+wkv9TqWz/ + SbJS/1C2YP9Ovlz/U8lp/1bNbf9UzWr/U8xp/1TNav9TzGn/VMtr/0/HYP9RxmT/T8Jg/06+XP9OuFz/ + ULde/0m3Uv9Ms1j/TbBb/0uuWf9HqlL/R61T/0esUv9CoE7/VMJs/1jNcv9UzWr/Uctl/1DGYv9At0P/ + VbWazUh/1AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSjo6j + qsa0/lOigf9Vrmr/TbRY/1C3X/9OwV3/U8xp/1fNb/9TzGn/VM1r/1DMY/9UzWv/U8po/1DGYv9TxWf/ + UcNj/03AW/9Pvl7/ULhf/0+2Xf9Rt2H/U7dk/1G3Yf9Lrlj/QJlK/y6HL/8/rkj/Tsxg/1DIY/9TyGj/ + Ucdj/1PFZ/9Mu1j/VrVr/0yPvVYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACLnZzEpsu1/02fev9MsVn/TrRc/0+5Xf9PxF//VM1q/1fNb/9UzWv/U8xp/1DMY/9UzGv/ + U8dn/1HGZP9RxGP/TsFd/02/W/9Mu1j/S7hW/0u4Vv9KsFb/SqtX/0+wX/9MrFz/OZU//0WUZPNWwZDr + WcOH9VG7Yv9GtU3/QbdF/07AXv9NwFv/Pbc8/1a3m9JFhdUIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAEilrFpqwJztaLmO/0SMWf9Lrlf/ULVe/026W/9RyGX/Vs1u/1XNbf9UzWv/ + VM1r/1TNav9Uy2r/T8Zg/1DFYf9PwmD/TcBb/06+XP9MuVj/S7hW/0q2Vf9GrU//QaJK/zyXRf8riiP/ + PIJY4kJ+uCtGkdYXSJDKJUmMwENMlKx7VLOZ1kK2Rv9FuE3/S71X/1W3aP9LjsE+AAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEeQpa9Xx4z/OaM9/yFzFv9FoVD/ULZg/1O/Zv9Tymj/ + Vcxs/1TNav9UzWv/U8xp/1PMaf9RyWX/UMZi/1DFYf9RwmL/Tb9b/066Xf9Kt1X/S7hW/0ixUf9DqEz/ + PpxG/y+NMP8sfzH8NnCCbAAAAAAAAAAAAAAAAAAAAAAAAAAARorKGk+mso5YtX3vP7dB/0S3Sf9Pn7B2 + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEeFoFObv7bxWptt/z+DVf4+qEL/ + TL1Z/06/Xv9TzGn/V81v/1TNav9UzWv/VM1q/1TNa/9TyGj/UcZk/1HEY/9OwV3/Tb5c/0y4WP9Kt1T/ + SrVV/0WsTv9AoUn/N5M8/yWCFP84hIKSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABHiMY3 + VbSX1za3IP9TsqW3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIWHhnfi39/5 + jZeQ/1RqacBQr6WUS8NY/0vBV/9Tw2f/Vstu/1TNa/9TzGn/VM1r/1PLaf9Tx2b/UcVk/1DBYf9OwF3/ + Tbta/0q3Vf9Kt1X/R69Q/0OlTf86mUH/KIgf/zqBYt01ap4ZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAARojHIFOzosJZt4D7R4rGKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAIWDgKnLycf/gHt4/1VRUFgAAAAAT7/AgFnEf/ZHv1L/TsBe/1HGZf9VzW3/U8xp/1PJaP9Oxl// + UcRj/07AXv9Qv2D/S7lX/0u4Vv9JtFT/RKpO/z+eSP8ujS3/N4FC8jZtl0AAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAESA0BdWtpjbS5atbAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIB/fBiCgX2uX15cv09LSAoAAAAAAAAAAEmZxDtYwo3dPsBA/0m7VP9RwWT/ + Vcxs/1DJY/9PxWD/T8Jg/07AXf9Mulj/S7dW/0q4VP9Grk//QaNK/ziWPf8lghT/OIGDkAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABGhcUuRorDOAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABJlscg + ULq7jVO/Z/88ujz/TLlZ/0+9X/9Rw2P/UMNi/0+/X/9LuVb/S7hW/0iyU/9DqEz/O5pC/ymJH/86g3Wy + NWaoEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAEuYu19WuJfKUbdh/0a0Tf9Ntlv/Trpd/024W/9Kt1T/SrZV/0WuTv9AoEn/ + Lo4t/zV+QfY0apgxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABGhs0ES5e4Y1e2jOdNtlr/RbVL/0WyTP9Lr1f/ + R6lS/0GhS/8xkDL/JH0W/zh4gogAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWEzRlMmbFZ + UbWxple3jPJRt2H/QbNF/zytPf9KmV//PomLnzhrsgkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAEaLyCVMlbNkTZivjUqYqpA/gKlJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + //4P////AAD//gf///8AAP/+A////wAA//4D////AAD//A////8AAP/8H////wAA//w/////AAD//D// + //8AAP/4f////wAA//h/////AAD/+H////8AAP/4f////wAA//h/////AAD/8P////8AAP/w/////wAA + //D/////AAD/8P////8AAP/w/////wAA//H/////AAD/4f////8AAP/h/////wAA/+H/////AAD/4f// + //8AAP/D/////wAA/4D/////AAD/gH//v/8AAP/AP/8P/wAA/8AP/gP/AAD/gAP8Af8AAP+AAfwA/wAA + /4AAeAB/AAD/gAAYAD8AAP+AAAAAHwAA/4AAAAAfAAD/AAAAAA8AAP8AAAAADwAA/wAAAAAHAAD+AAAA + AAcAAP4AAAA+BwAA/gAAAH+HAAD+AAAAf8MAAP4QAAD/4wAA/hgAAf/zAAD//AAB//8AAP//AAP//wAA + //+AB///AAD//+AH//8AAP///B///wAAKAAAACAAAABAAAAAAQAgAAAAAACAEAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHV1dneIiIn7S0tK5wAAADIAAAAM + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkZGSppiYm/85ODje + AAAAaAAAAEcAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACMjI3D + fHx8/js6OqcAAAAdAAAALQAAABsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAJSUl91oZmb7PDw7fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACAgIBLoqKk71ZWVvM+PT0kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAHl5em+kpqj5SEhI4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhISEmpWXmP9CQEDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACTk5TAgICA/z09PJ4AAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKSko99sa2v6PDs7ZAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIh4Meu7q681tbWu87Ozo/ + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJmYlXzGxsb9 + Tk5N4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + sbCvo7q6uf9HR0XKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACnp6PCpqOi/0VFQ6wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAALm5t9uKiIX9SEdGgwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACNnqFE3NHS7XVxcPZKRkQ6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF+OsJany7P7XGhh5AAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASruw2C2uKP83f0v1OoaOny9npAEAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkopTNXK6B/yyZK/88uET/ + QKGcnzqGmRoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD1/sg07kYp8Oo+YYT2IpgoAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKauq9hit5P/ + QbJK/0jAWP86yD7/TLWD3jyMnV4zdKYEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ46pZyujIv83qD7/ + TLORzEKRuE8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIgoEN + rMCz71Csg/9Bs0r/S7xb/0vHXv87x0D/Qb5L/0erl686hps2AAAAAAAAAAAAAAAAAAAAACWJvQlSxY/a + O75A/0GtTv83vTj/S75d/EvGynVIntQBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAKCYmXSw3M73S61y/0G1R/9Kvln/TtFl/1LRbP9Lx17/NsA0/1G2a/hDpaKPOH2eJgAAAAAAAAAA + Q5W2ZkLSUP9OzmT/RrtV/0vGXf9DzlL/P8tJ/063xHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAr6mqm5HSufpKrmD/RLZO/0nDWf9Q02n/TtNm/1HUa/9OymX/RMBP/za8L/9OsIDk + PZSfZzRzriNRvJHONc83/1DTaf9MyGD/ScNc/1fUdv9J0lv/UMNm9UaT0TQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACfn569ccKi/0SuVP9HuFT/S8he/07TZv9M02L/TtNm/1DUaf9OzmT/ + TMVf/zy9Qf89vUL/ULN09Ei2Wf9EulP/SL9Z/0e8V/9Es1T/VtN1/1HUa/81xTb/UbuZxi2SxgoAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKuwrNVftJL/Q7JO/0m7WP9Ly17/U9Rv/0/UZ/9L02D/ + TtNm/0vNX/9OymP/SMVX/0u+Xf9GvFL/TLpf/0u4Xf9BqVD/KZUl/zi8QP9A0kz/RNFS/0rLXf9BvUr/ + R5C+VAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQqK9Qpc/A7FKrfv9Ctkv/Sr9a/0zRYv9S1Gz/ + TtNm/07TZv9P0Wf/TMxg/0vIXv9Iw1f/R75V/0S7T/9DsFD/Q61R/y2ZL/8/mYTATsa4rFC8nMdTuHnv + N8I5/zPCMf9Ru5fOQIbcAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAESss7VQvHL/IIUb/0SzUf9Mw2D/ + T9Ro/07TZv9P1Gj/T9Ro/0zPYP9Lyl7/SsZb/0fAVf9GvVP/Q7dO/zqmRP8ijhb/M31Y0Tp8wA8AAAAA + QovIBUaRvDFOtqurQr1M/0+8Y/RIlrcvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYpienpS9pP9Himry + Sbpa9kHHTP9T027/T9Ro/0/UaP9P0mf/TM1h/0zIX/9JxFn/Rr5T/0S7T/8/rkr/LJkt/zGCPvItaYU0 + AAAAAAAAAAAAAAAAAAAAAAAAAABGkrdfTrpj/EmmtHIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACfmJe1 + t7Cv/1ljY6hOvq9gVsp9+DnGPf9MzWH/UNRp/0zRYv9KzF3/SsZb/0rCW/9EvU//QrVN/zWhPP8ghxT/ + MXeEcgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABGkbtbTLavs0SRwAYAAAAAAAAAAAAAAAAAAAAA + AAAAAISDgT9wbmysRj08LAAAAABGo8A1UsWazDXCN/9Dx1D/TMxh/0vKXv9JxFn/R75V/0S6T/89q0f/ + I5AZ/zOBbrItZ6QGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD1/1gRBisgqQYzHCQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABHnsIMTL+3jVS8c/I5uzz/QMJK/0a+VP9GvVP/ + QLJL/ymZI/81gEXqLGSfIQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQYzLIky3r6JTuobj + SLdX/zSzMf8tpyP/KYgu/zBthGYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAEmotxxIobVjTLawpUivqbE5jJRWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAD/g////4H///+B////j////w////8f////H////x////8f///+H/// + /j////4////+P////j////w////8f////B////wP8P/8A/B/+AHgH/gAYB/4AAAP+AAAB/gAAAfwAAAD + 8AABA/AAA+PwAAfx8QAH8f+AD///4B////g//ygAAAAYAAAAMAAAAAEAIAAAAAAAYAkAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAioqLxGloaNxTU1KrVVVUTVVVVBFVVVQB + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAk5OV2VlYWNtVVVSfVVVUflVVVDJVVVQDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJiYpdhYWG7UpJSMhVVVRK + VVVUXVVVVCJVVVQBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAACIiYmXhoWI+EFAQLhVVVQBVVVUAVVVVAEAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKiouy + e3t88zw8OpcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACUlJTJaGho5Tk5OTIAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACdnJvjWFhX2wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJOSjz+qqqjxS0pJzgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAALCvroqlpaTyR0ZFugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKytrLaRj43w + RkVEjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALi4vM6EfX3uRkJAPAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + aZSvHo22q+JqbWPjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATLa4mlGxgfVAjVD2PX6PqTl6ngUAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAA9f6cEOo+REzuEnwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAg5qWl2OiefM0qzf/RbtR+0itlJw6gJknAAAAAAAAAAAAAAAAAAAAAAAAAABBhqZD + RJpvx0SmnYhElrMiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoJmZs36+pP1EsVD/ + QsBL/zvIQf9Qtn7dQJqgaj+Vnw8AAAAAAAAAAAAAAABNuqOzLLQU/zq0Pv9Tv43VTLPHPAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqLCqxGe8lP83sDT/TMRd/03SY/88y0L/Q7xO/0ytiMM/k55O + AAAAAD+Hs0ZYz3b0RcpT/0TBUP8zzy7/VsqL3kmaxS8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + lqye0Fm4gv86tDz/TMpe/1HTaf9S02z/TMpf/zfCOP9Rt2f2SKeboEuwj8U7xUD/TMlf/0i8WP9TzG// + NM0y/1G8pbFCgdkLAAAAAAAAAAAAAAAAAAAAAAAAAABtnZlIiqqW41Kzdv8/ukT/Us1q/1HTaf9M0mH/ + TtFl/03KYf9Cw0v/OLw4/0O5Tv9NuGD/NqY7/zqtRP9Cz0//N887/zvBP/9Jk7hdAAAAAAAAAAAAAAAA + AAAAAAAAAABTs7ajXqJr90iqWv9Fv1D/UNNn/1LTa/9O0mX/TM1g/03JYP9Kw1r/RbtR/0O0Tv8voy// + QJBj20m0qoROvK2YUrmN1zLAIf9SupTCQonTAgAAAAAAAAAAAAAAAAAAAABisbi9W6l8/zqgRP5ExVD/ + UdNp/1DTaP9Q02j/TMxe/03HYP9FvlD/RblQ/zKnNP8mhSn2M3KIUwAAAAAAAAAASJSyH1C3n5lVunnq + SZmxOAAAAAAAAAAAAAAAAAAAAACeoKO/iIyK51igkb5Wx3bmO8tB/0rRXf9N0WP/TMlf/0vDXP9Iu1b/ + P7BI/yaUG/8zgHmHAAAAAAAAAAAAAAAAAAAAAEmXsQRKnrJ8SqOzbwAAAAAAAAAAAAAAAAAAAACJhIJt + YVdYjQAAAABKt785UcGZwEDCSv85yD3/SMdX/0i+WP9IuFb/KZ4b/ziFZcAuZZ0QAAAAAAAAAAAAAAAA + AAAAAAAAAABAgtYIQ4zFH0OKxQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASKW+E025tnNSuI/Y + Srxa/ze6Nv8tqRj/O4lM6y9ojUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABLpbQeTLe1X062pqZKqo+6N4qLUgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD+B/8A/gf/APwH/wD8D/8A/H//APx//wD8//8A + +P//APj//wD4//8A+P//APH//wDwfj8A8D4fAPAODwDwBAcA8AADAOAAAwDgAAEA4ABhAOAA8QDkAPgA + /gH/AP+D/wA= + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmTask_Editor.Designer.vb b/app/DD-Record-Organiser/frmTask_Editor.Designer.vb index d9f2ea1..2aa0730 100644 --- a/app/DD-Record-Organiser/frmTask_Editor.Designer.vb +++ b/app/DD-Record-Organiser/frmTask_Editor.Designer.vb @@ -453,22 +453,22 @@ Partial Class frmTask_Editor Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.GroupBox1) - Me.MaximizeBox = false - Me.MinimizeBox = false + Me.MaximizeBox = False + Me.MinimizeBox = False Me.Name = "frmTask_Editor" - Me.ShowInTaskbar = false - CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TBPMO_WORKFLOW_TASKBindingSource,System.ComponentModel.ISupportInitialize).EndInit - Me.GroupBox1.ResumeLayout(false) - Me.GroupBox1.PerformLayout - CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource,System.ComponentModel.ISupportInitialize).EndInit - Me.GroupBox2.ResumeLayout(false) - Me.GroupBox2.PerformLayout - Me.ResumeLayout(false) - Me.PerformLayout + Me.ShowInTaskbar = False + CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() -End Sub + End Sub Friend WithEvents OK_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 diff --git a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb b/app/DD-Record-Organiser/frmUserKonfig.Designer.vb index 9df6757..f4122ac 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb +++ b/app/DD-Record-Organiser/frmUserKonfig.Designer.vb @@ -212,6 +212,21 @@ Partial Class frmUserKonfig Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox() Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox() 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() PRENAMELabel = 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.GridControl1, 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() ' 'GUIDLabel @@ -465,8 +484,8 @@ Partial Class frmUserKonfig Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter + Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing @@ -690,7 +709,7 @@ Partial Class frmUserKonfig resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1") Me.XtraTabControl1.Name = "XtraTabControl1" 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 ' @@ -1129,8 +1148,8 @@ Partial Class frmUserKonfig ' 'TabControl3 ' - Me.TabControl3.Controls.Add(Me.TabPage5) Me.TabControl3.Controls.Add(Me.TabPage6) + Me.TabControl3.Controls.Add(Me.TabPage5) resources.ApplyResources(Me.TabControl3, "TabControl3") Me.TabControl3.Name = "TabControl3" Me.TabControl3.SelectedIndex = 0 @@ -1613,6 +1632,115 @@ Partial Class frmUserKonfig Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" 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 ' resources.ApplyResources(Me, "$this") @@ -1707,10 +1835,15 @@ Partial Class frmUserKonfig CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(false) - Me.PerformLayout + Me.XtraTabPage3.ResumeLayout(False) + 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 TBDD_USERBindingSource As System.Windows.Forms.BindingSource 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 DATE_FORMATComboBox As System.Windows.Forms.ComboBox 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 diff --git a/app/DD-Record-Organiser/frmUserKonfig.resx b/app/DD-Record-Organiser/frmUserKonfig.resx index 6bc1067..97253c0 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.resx +++ b/app/DD-Record-Organiser/frmUserKonfig.resx @@ -147,7 +147,7 @@ $this - 14 + 15 False @@ -177,7 +177,7 @@ $this - 16 + 17 False @@ -207,7 +207,7 @@ $this - 18 + 19 False @@ -237,7 +237,7 @@ $this - 20 + 21 False @@ -267,7 +267,7 @@ $this - 22 + 23 False @@ -300,7 +300,7 @@ $this - 25 + 26 False @@ -333,7 +333,7 @@ $this - 27 + 28 False @@ -366,7 +366,7 @@ $this - 32 + 33 False @@ -399,7 +399,7 @@ $this - 34 + 35 False @@ -432,7 +432,7 @@ $this - 36 + 37 False @@ -465,7 +465,7 @@ $this - 38 + 39 False @@ -675,7 +675,7 @@ $this - 10 + 11 False @@ -994,7 +994,7 @@ $this - 5 + 6 False @@ -1024,7 +1024,7 @@ $this - 3 + 4 False @@ -1054,7 +1054,7 @@ $this - 0 + 1 False @@ -1090,7 +1090,7 @@ $this - 29 + 30 17, 17 @@ -1311,7 +1311,7 @@ $this - 40 + 41 15, 55 @@ -1332,7 +1332,7 @@ $this - 15 + 16 79, 55 @@ -1353,7 +1353,7 @@ $this - 17 + 18 190, 55 @@ -1374,7 +1374,7 @@ $this - 19 + 20 378, 55 @@ -1395,7 +1395,7 @@ $this - 21 + 22 79, 96 @@ -1416,7 +1416,7 @@ $this - 23 + 24 False @@ -1446,7 +1446,7 @@ $this - 24 + 25 Segoe UI, 8.25pt, style=Italic @@ -1470,7 +1470,7 @@ $this - 26 + 27 Segoe UI, 8.25pt, style=Italic @@ -1494,7 +1494,7 @@ $this - 28 + 29 378, 83 @@ -1518,7 +1518,7 @@ $this - 31 + 32 Segoe UI, 8.25pt, style=Italic @@ -1542,7 +1542,7 @@ $this - 33 + 34 Segoe UI, 8.25pt, style=Italic @@ -1566,7 +1566,7 @@ $this - 35 + 36 Segoe UI, 8.25pt, style=Italic @@ -1590,7 +1590,7 @@ $this - 37 + 38 Segoe UI, 8.25pt, style=Italic @@ -1614,7 +1614,7 @@ $this - 39 + 40 Top, Bottom, Left, Right @@ -1625,302 +1625,479 @@ True - - True - - - 6, 13 - - - 109, 13 - - - 2 - - - Verfügbare Gruppen: - - - Label1 + + TabControl1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + XtraTabPage1 - + 0 - - MiddleLeft - - - 382, 37 + + 1109, 322 - - 321, 23 + + User-/Gruppenzuordnung - - 5 + + XtraTabPage1 - - Benutzer aus Gruppe entfernen + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - btnRemoveUserFromGroup + + XtraTabControl1 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - TabPage1 + + 1111, 347 - - 1 + + 30 - - 929, 17 + + 793, 56 - - 140, 10 + + GridControl2 - - 236, 21 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + TabGruppendefinition + + 0 - - cmbGroup + + COMMENTTextBox - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + TabGruppendefinition - + 2 - - True + + GUIDTextBox1 - - 6, 40 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 118, 13 + + TabGruppendefinition - + 4 - - Zugewiesene Gruppen: + + NAMETextBox1 - - Label2 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabGruppendefinition - - TabPage1 + + 6 - - 3 + + ADDED_WHOTextBox1 - - MiddleLeft + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 382, 8 + + TabGruppendefinition - - 321, 23 + + 8 - - 1 + + ADDED_WHENTextBox1 - - Ausgewählten Benutzer zu Gruppe hinzufügen + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - btnAddUserToGroup + + TabGruppendefinition - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 10 - - TabPage1 + + CHANGED_WHOTextBox1 - - 4 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Top, Bottom, Left + + TabGruppendefinition - - 140, 40 + + 12 - - 236, 212 + + CHANGED_WHENTextBox1 - - 3 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - lbGroups + + TabGruppendefinition - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 14 - - TabPage1 + + BindingNavigator1 - - 5 + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 4, 22 + + TabGruppendefinition - - 3, 3, 3, 3 + + 15 - - 1101, 296 + + 1109, 322 - - 0 + + Gruppendefinition - - User zu Gruppe + + TabGruppendefinition - - TabPage1 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + XtraTabControl1 - - TabControl1 + + 1 - + + True + + + TabControl3 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + 0 - - True + + 1109, 322 - - GridControlWH_Users1 + + Mandantendefinition - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + XtraTabPage2 - - TabPage2 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + XtraTabControl1 + + + 2 + + + MiddleLeft + + + NoControl + + + 316, 56 + + + 480, 32 + + + 93 + + + Ausgewählten Usern diesen Update-Pfad zuweisen + + + MiddleRight + + + btnUpdatePath + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + 0 - - GridControlUsers2Group + + NoControl - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 802, 29 - - TabPage2 + + 40, 23 - - 1 + + 92 - - btndeleteUserfromGroup + + ... - + + btnopenfolder + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + XtraTabPage3 - + + 1 + + + 316, 29 + + + 480, 21 + + + 91 + + + txtPath + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + 2 - - lblUserforGroup + + True - + + NoControl + + + 313, 13 + + + 282, 13 + + + 90 + + + Wählen Sie hier den Update-Pfad für die gewählten User: + + + Label8 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + XtraTabPage3 - + 3 - - btnaddSelectedUser2Group + + True - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 11, 13 - - TabPage2 + + 87, 13 - - 4 + + 89 - - Label4 + + User auswählen: - + + Label6 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + XtraTabPage3 - - 5 + + 4 - - Label3 + + Top, Bottom, Left - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 429, 134 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAACgSURBVDhPtZDLDcMgDIYzEjNwZwsG6Ykp2IJBemGPpBdf + aX+EkcWjJFGL9MnGj08kmzxE9PygSp601hnkpaYwg3x4MFh4IEoB10AZ7w+a1toUY8yDUoAaeksBL3nv + h/lS4Jyrwy3odQIUWkIIyRhTF5GjNpqtz24b/M3yn0h4ZypYMRQgStm3O8ffCq7QCe4wFRz7KzO7M/8T + nKUK7kPpDZHWkOed3OYOAAAAAElFTkSuQmCC + - - TabPage2 + + 172, 22 - - 6 + + Alle auswählen - - cmbGroups_Group2User + + 172, 22 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Auswahl aufheben - - TabPage2 + + 173, 70 - - 7 + + ContextMenuStrip1 - - 4, 22 + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 3, 3, 3, 3 + + 957, 95 + + + 11, 29 - - 1101, 296 + + Cyan - + + Fuchsia + + + Selection + + + True + + + 0 + + + 54 + + + True + + 1 - - Gruppe zu Usern + + 107 + + + True + + + 2 + + + 102 + + + 284, 290 + + + 88 + + + GridControl3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage3 + + + 5 + + + 1109, 322 + + + Update Konfiguration User + + + XtraTabPage3 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 3 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 14 + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 TabPage2 @@ -1958,207 +2135,390 @@ 0 - - 1109, 322 + + Label1 - - User-/Gruppenzuordnung + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage1 + + TabPage1 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 0 - - XtraTabControl1 + + btnRemoveUserFromGroup - + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 1 + + + cmbGroup + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 2 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 3 + + + btnAddUserToGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 4 + + + lbGroups + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 5 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1101, 296 + + 0 - - 1111, 347 + + User zu Gruppe - - 30 + + TabPage1 - - 793, 56 - - - GridControl2 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabControl1 - - TabGruppendefinition + + 0 - + + True + + + 6, 13 + + + 109, 13 + + + 2 + + + Verfügbare Gruppen: + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + 0 - - COMMENTTextBox + + MiddleLeft - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 382, 37 - - TabGruppendefinition + + 321, 23 - + + 5 + + + Benutzer aus Gruppe entfernen + + + btnRemoveUserFromGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 1 + + + 929, 17 + + + 140, 10 + + + 236, 21 + + + 0 + + + cmbGroup + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + 2 - - GUIDTextBox1 + + 929, 17 + + + True - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 40 - - TabGruppendefinition + + 118, 13 - + 4 - - NAMETextBox1 + + Zugewiesene Gruppen: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 3 + + + MiddleLeft + + + 382, 8 + + + 321, 23 + + + 1 + + + Ausgewählten Benutzer zu Gruppe hinzufügen + + + btnAddUserToGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 4 + + + Top, Bottom, Left + + + 140, 40 + + + 236, 212 + + + 3 + + + lbGroups - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabGruppendefinition + + TabPage1 - - 6 + + 5 - - ADDED_WHOTextBox1 + + True - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GridControlWH_Users1 - - TabGruppendefinition + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 8 + + TabPage2 - - ADDED_WHENTextBox1 + + 0 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GridControlUsers2Group - - TabGruppendefinition + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 10 + + TabPage2 - - CHANGED_WHOTextBox1 + + 1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + btndeleteUserfromGroup - - TabGruppendefinition + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 12 + + TabPage2 - - CHANGED_WHENTextBox1 + + 2 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + lblUserforGroup - - TabGruppendefinition + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 14 + + TabPage2 - - BindingNavigator1 + + 3 - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + btnaddSelectedUser2Group - - TabGruppendefinition + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 15 + + TabPage2 - - 1109, 322 + + 4 - - Gruppendefinition + + Label4 - - TabGruppendefinition + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabPage2 - - XtraTabControl1 + + 5 - - 1 + + Label3 - - True + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabPage2 - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6 - - XtraTabPage2 + + cmbGroups_Group2User - - 0 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1109, 322 + + TabPage2 - - Mandantendefinition + + 7 - - XtraTabPage2 + + 4, 22 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 3, 3, 3, 3 - - XtraTabControl1 + + 1101, 296 - - 2 + + 1 - - XtraTabControl1 + + Gruppe zu Usern - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabPage2 - - $this + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 13 + + TabControl1 + + + 1 - - 929, 17 - Top, Bottom, Left @@ -2231,9 +2591,6 @@ Top, Bottom, Left - - 957, 95 - 229, 19 @@ -2861,28 +3218,28 @@ matchen 15 - - TabPage5 + + TabPage6 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabControl3 - + 0 - - TabPage6 + + TabPage5 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabControl3 - + 1 @@ -3051,7 +3408,7 @@ matchen 3, 3, 3, 3 - 1093, 280 + 1101, 296 0 @@ -3069,7 +3426,7 @@ matchen TabControl3 - 0 + 1 668, 95 @@ -3251,7 +3608,7 @@ matchen 3, 3 - 1087, 25 + 1095, 25 2 @@ -3304,9 +3661,6 @@ matchen 1 - - 264, 95 - Tahoma, 8.25pt, style=Italic @@ -3362,7 +3716,7 @@ matchen 826, 37 - 261, 108 + 269, 108 36 @@ -3623,7 +3977,7 @@ matchen 3, 3, 3, 3 - 1093, 280 + 1101, 296 1 @@ -3641,7 +3995,7 @@ matchen TabControl3 - 1 + 0 Top, Bottom, Left @@ -3686,7 +4040,7 @@ matchen 102 - 284, 256 + 284, 272 89 @@ -3749,7 +4103,7 @@ matchen 102 - 284, 256 + 284, 272 88 @@ -3923,6 +4277,9 @@ Mandant hinzufügen 6 + + 264, 95 + 7, 20 @@ -3981,7 +4338,7 @@ Mandant hinzufügen $this - 12 + 13 de-DE @@ -4008,7 +4365,7 @@ Mandant hinzufügen $this - 11 + 12 17, 95 @@ -4041,7 +4398,7 @@ Mandant hinzufügen $this - 9 + 10 Segoe UI, 8.25pt, style=Italic @@ -4065,7 +4422,7 @@ Mandant hinzufügen $this - 8 + 9 469, 95 @@ -4134,7 +4491,7 @@ Mandant hinzufügen $this - 7 + 8 79, 181 @@ -4155,7 +4512,7 @@ Mandant hinzufügen $this - 6 + 7 190, 140 @@ -4179,7 +4536,7 @@ Mandant hinzufügen $this - 4 + 5 378, 110 @@ -4203,7 +4560,7 @@ Mandant hinzufügen $this - 2 + 3 dd.MM.yyyy @@ -4233,7 +4590,7 @@ Mandant hinzufügen $this - 1 + 2 Segoe UI, 8.25pt, style=Italic @@ -4257,7 +4614,7 @@ Mandant hinzufügen $this - 30 + 31 True @@ -5191,6 +5548,48 @@ Mandant hinzufügen DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + GridView3 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn15 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn16 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn17 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn18 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SelectAllToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + AuswahlAufhebenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmUserKonfig diff --git a/app/DD-Record-Organiser/frmUserKonfig.vb b/app/DD-Record-Organiser/frmUserKonfig.vb index d02b330..73e8ee3 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.vb +++ b/app/DD-Record-Organiser/frmUserKonfig.vb @@ -1,4 +1,5 @@ -Public Class frmUserKonfig +Imports DD_LIB_Standards +Public Class frmUserKonfig Private Shared _Instance As frmUserKonfig = Nothing Public Shared Function Instance() As frmUserKonfig If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then @@ -38,7 +39,7 @@ Catch ex As Exception MsgBox("Error in Load Clients:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + End Sub Sub Save_Clients() Try @@ -241,6 +242,31 @@ Load_Groups() LoadGroupsForSelectedUser() 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 Sub @@ -300,7 +326,7 @@ '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 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 Sub 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 Select Case TabControl3.SelectedIndex - Case 1 - Load_Users_not_Related_2_Client() - Try - cmbClientsforUser.SelectedIndex = 1 - Catch ex As Exception - End Try - cmbClientsforUser.SelectedIndex = 0 + Case 0 + Load_Client_relations() End Select 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() Try DD_ECMAdmin.TBWH_Users2.Clear() @@ -552,7 +581,7 @@ 'End Sub Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click - delete_user() + Delete_user() End Sub @@ -577,4 +606,50 @@ Delete_user() End If 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 \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb b/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb index 6d01ea7..b126924 100644 --- a/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb @@ -41,8 +41,8 @@ Partial Class frmWD_IndexFile Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.PATHTextBox = New System.Windows.Forms.TextBox() Me.lvwIndices = New System.Windows.Forms.ListView() - 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.ColumnHeader1 = 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.chkdelete_origin = New System.Windows.Forms.CheckBox() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) @@ -285,10 +285,10 @@ Partial Class frmWD_IndexFile Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(false) - Me.PerformLayout + Me.ResumeLayout(False) + Me.PerformLayout() -End Sub + End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txtFilepath As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label diff --git a/app/SetupWiX/Product.wxs b/app/SetupWiX/Product.wxs index cb1a3d8..0ef346e 100644 --- a/app/SetupWiX/Product.wxs +++ b/app/SetupWiX/Product.wxs @@ -34,7 +34,7 @@ @@ -47,10 +47,10 @@ - + - + @@ -89,11 +89,11 @@ - + - - - + + + @@ -183,7 +183,7 @@ - + @@ -212,13 +212,13 @@ - + - + @@ -242,8 +242,8 @@ - - + + diff --git a/app/VERSION_CHECKER/ClassInit.vb b/app/VERSION_CHECKER/ClassInit.vb index 4c9f374..d5563d4 100644 --- a/app/VERSION_CHECKER/ClassInit.vb +++ b/app/VERSION_CHECKER/ClassInit.vb @@ -6,7 +6,7 @@ Public Class ClassInit End Sub Public Sub InitLogger() - ClassLogger.Init("", "VersionChecker") + ClassLogger.Init("", "") clsLogger.LOGFILE_PATH = ClassLogger.logDateiname End Sub @@ -24,31 +24,40 @@ Public Class ClassInit End If 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 End Try End Function Public Sub InitBasics() Try - InitAddons() - Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1") + Dim UPDATE_ID As Integer + InitInstallPath() + Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = ('Record-Organizer')") Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False) If KONFIG_DT.Rows.Count = 1 Then - Try - MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("UPDATE_PATH") - VERSION_SERVER = KONFIG_DT.Rows(0).Item("VERSION_CLIENT") - Catch ex As Exception - End Try - + MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH") + 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 - MsgBox("Unexpected Error in InitBasics:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add("Unexpected Error in InitBasics: " & ex.Message, True) End Try End Sub - Public Shared Function InitUserLogin(Optional _User As String = "") + Public Shared Function InitUser(Optional _User As String = "") Try Dim sql = "" USER_USERNAME = Environment.UserName @@ -63,63 +72,55 @@ Public Class ClassInit Return False Else 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) If Not IsNothing(USER_UPDATE_PATH) Then If USER_UPDATE_PATH <> String.Empty Then MyServer_UpdatePath = USER_UPDATE_PATH 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) + 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 End If Catch ex As Exception - ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) - MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add("Unexpected Error in InitUser_Update_Spec: " & ex.Message, True) Return False End Try End Function - Public Sub InitAddons() + Public Sub InitInstallPath() Try - Dim CurrentDir As String = My.Application.Info.DirectoryPath - ' Dim Sql As String = "SELECT PATH_ADDONS from TBPMO_KONFIGURATION WHERE GUID = 1" - Dim AddonPath As String = MY_ADDON_PATH ' ClassDatabase.Execute_Scalar(Sql) - 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 + Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Digital Data\Record Organizer", "Path", Nothing) + If Not IsNothing(readValue) Then + MY_INSTALL_PATH = readValue Else - ' Addon Pfad steht in der Datenbank - 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 + MY_INSTALL_PATH = readValue = "" End If - - MY_ADDON_PATH = AddonPath 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 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 diff --git a/app/VERSION_CHECKER/ClassLogger.vb b/app/VERSION_CHECKER/ClassLogger.vb index d967288..c7b4a7f 100644 --- a/app/VERSION_CHECKER/ClassLogger.vb +++ b/app/VERSION_CHECKER/ClassLogger.vb @@ -1,4 +1,5 @@ Imports System.IO +Imports DD_LIB_Standards Public Class ClassLogger Public Shared DateiSpeicherort As String = Nothing Public Shared DateiPrefix As String = "" @@ -39,13 +40,12 @@ Public Class ClassLogger ' legt den Speicherort fest 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 IO.Directory.Exists(f) = False Then - IO.Directory.CreateDirectory(f) + If IO.Directory.Exists(f.ToString) = False Then + IO.Directory.CreateDirectory(f.ToString) End If - ClassLogger.DateiSpeicherort = f + ClassLogger.DateiSpeicherort = f.ToString Else ClassLogger.DateiSpeicherort = speicherort End If @@ -61,7 +61,9 @@ Public Class ClassLogger If ClassLogger.OpenFile Then Try If ACHTUNG Then - ClassLogger.StreamWriter.WriteLine("#ATTENTION# (" & System.DateTime.Now & "): " & information) + ClassLogger.StreamWriter.WriteLine("#ERROR# (" & System.DateTime.Now & "): " & information) + ERROR_WHILE_UPDATING = True + Else ClassLogger.StreamWriter.WriteLine(information) End If diff --git a/app/VERSION_CHECKER/ModuleMySettings.vb b/app/VERSION_CHECKER/ModuleMySettings.vb index 7e5e820..afa1cab 100644 --- a/app/VERSION_CHECKER/ModuleMySettings.vb +++ b/app/VERSION_CHECKER/ModuleMySettings.vb @@ -8,14 +8,19 @@ Module ModuleMySettings Public DTEXCLUDE_FILES As DataTable Public USER_USERNAME As String = "" Public USER_GUID As Integer + Public USER_LANGUAGE As String = "de-DE" Public MyConnectionString As String = "" Public MyServer_UpdatePath As String = "" - Public VERSION_SERVER As String = "" - Public VERSION_USER As String = "1.0.0.0" + Public VERSION_SERVER + Public VERSION_USER + Public FORCE_UPDATE As Boolean = False + Public VERSIONS_FOR_FORCE_UPDATE As String = "" Public FOLDER_TEMP As String 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() Dim rowresult As String = "" @@ -143,38 +148,4 @@ Module ModuleMySettings End Try 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 diff --git a/app/VERSION_CHECKER/VERSION_CHECKER.vbproj b/app/VERSION_CHECKER/VERSION_CHECKER.vbproj index 1bfed59..4393935 100644 --- a/app/VERSION_CHECKER/VERSION_CHECKER.vbproj +++ b/app/VERSION_CHECKER/VERSION_CHECKER.vbproj @@ -50,11 +50,6 @@ ..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll - - - - - diff --git a/app/VERSION_CHECKER/frmVersionCheck.Designer.vb b/app/VERSION_CHECKER/frmVersionCheck.Designer.vb index 44b309b..29b2d53 100644 --- a/app/VERSION_CHECKER/frmVersionCheck.Designer.vb +++ b/app/VERSION_CHECKER/frmVersionCheck.Designer.vb @@ -25,17 +25,20 @@ Partial Class frmVersionCheck Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVersionCheck)) Me.lblStatus = New System.Windows.Forms.Label() 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() ' 'lblStatus ' Me.lblStatus.AutoSize = True - Me.lblStatus.BackColor = System.Drawing.SystemColors.Control - Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblStatus.ForeColor = System.Drawing.SystemColors.Info 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.Size = New System.Drawing.Size(163, 15) + Me.lblStatus.Size = New System.Drawing.Size(173, 15) Me.lblStatus.TabIndex = 3 Me.lblStatus.Text = "Checking for newer version...." Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -43,30 +46,62 @@ Partial Class frmVersionCheck 'pbStatus ' 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.Size = New System.Drawing.Size(546, 23) + Me.pbStatus.Size = New System.Drawing.Size(320, 23) 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 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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.Controls.Add(Me.Label1) + Me.Controls.Add(Me.PictureBox2) Me.Controls.Add(Me.lblStatus) 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.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmVersionCheck" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Checking for newer version of ADDI" + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents lblStatus As System.Windows.Forms.Label 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 diff --git a/app/VERSION_CHECKER/frmVersionCheck.resx b/app/VERSION_CHECKER/frmVersionCheck.resx index 5549d19..b8f72a0 100644 --- a/app/VERSION_CHECKER/frmVersionCheck.resx +++ b/app/VERSION_CHECKER/frmVersionCheck.resx @@ -118,6 +118,321 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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== + + AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA diff --git a/app/VERSION_CHECKER/frmVersionCheck.vb b/app/VERSION_CHECKER/frmVersionCheck.vb index 3aec28d..a28106d 100644 --- a/app/VERSION_CHECKER/frmVersionCheck.vb +++ b/app/VERSION_CHECKER/frmVersionCheck.vb @@ -1,10 +1,13 @@ Imports System.ComponentModel Imports System.IO +Imports DD_LIB_Standards Public Class frmVersionCheck Private InitSteps As Integer = 6 Private bw As New BackgroundWorker() Private mainForm As Form + Private UPDATE_NECESSARY As Boolean = False + Private UPDATE_CANCELLED As Boolean = False Private Sub InitProgram() bw.WorkerReportsProgress = True AddHandler bw.DoWork, AddressOf bw_DoWork @@ -20,6 +23,7 @@ Public Class frmVersionCheck Return _step * (100 / InitSteps) End Function Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) + Dim JUMP_UPDATE As Boolean = False 'Try Dim Init = New ClassInit() bw.ReportProgress(CalcProgress(1), "Initializing Logger") @@ -35,12 +39,34 @@ Public Class frmVersionCheck Init.InitBasics() System.Threading.Thread.Sleep(200) bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration") - If ClassInit.InitUserLogin = False Then + If ClassInit.InitUser = False Then Exit Sub Else + VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", "")) + VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", "")) If VERSION_USER = VERSION_SERVER Then Exit Sub 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 Directory.Exists(MyServer_UpdatePath) Then GetTempFolderGuid() @@ -51,33 +77,29 @@ Public Class frmVersionCheck ' Get a reference to each file in that directory. Dim fiArr As FileInfo() = di.GetFiles() ' Display the names of the files. - Dim fri As FileInfo + 'Dim fri As FileInfo 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 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 + Dim updatefile2copy = Path.Combine(MyServer_UpdatePath, Upd_item.Item("ITEM_INFO")) + Dim tempfilename = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO")) + If File.Exists(updatefile2copy) Then Try - System.IO.File.Copy(fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name)) + System.IO.File.Copy(updatefile2copy, tempfilename) 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 End Try - If error_while_copying = False Then - - End If + Else + ClassLogger.Add(String.Format("UpdateFile {0} is not existing or accessible", updatefile2copy)) End If - Console.WriteLine(fri.Name) - Next fri - Replace_Files() + Next + + If error_while_copying = False Then + Replace_Files() + End If Try 'Delete the tempfolder and all data @@ -85,20 +107,19 @@ Public Class frmVersionCheck Catch ex As Exception End Try + Else + ClassLogger.Add(String.Format("The temporaryFolder could not be created!")) End If + Else + ClassLogger.Add(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath)) End If - + Else + ClassLogger.Add(String.Format("NO ACTION: the Updatepath is empty")) 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 - + ClassLogger.Add(String.Format(">> Database was not intialized!"), False) End If 'Catch ex As Exception ' MsgBox("Unexpected Error in Init Classes: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -106,35 +127,129 @@ Public Class frmVersionCheck End Sub Sub Replace_Files() 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") - Dim COPY_FROM_PATH As String - If Directory.Exists(ProductionPath) Then - COPY_FROM_PATH = ProductionPath - Else - COPY_FROM_PATH = DevelPath - End If + + 'Jede Datei im tempfolder wird replaced + Dim di As New DirectoryInfo(FOLDER_TEMP) + ' Get a reference to each file in that directory. + Dim fiArr As FileInfo() = di.GetFiles() + ' Display the names of the files. + ' Dim fri As FileInfo + 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 - 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 Sub + Private Shared Function File_Rename(targetfile As String, BackUpOfFileToReplace As String) + Try + If File.Exists(BackUpOfFileToReplace) Then + 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 ProductionPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "Record Organizer", "DD-Record-Organiser.exe") - Dim DevelPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "DD-Record-Organiser\bin\Debug", "DD-Record-Organiser.exe") - + Dim PMO_PATH = System.IO.Path.Combine(MY_INSTALL_PATH, "DD-Record-Organizer.exe") Dim startInfo As New ProcessStartInfo() startInfo.Arguments = """" & MyConnectionString & """" + filename = startInfo.FileName - If System.IO.File.Exists(ProductionPath) Then - startInfo.FileName = ProductionPath + If System.IO.File.Exists(PMO_PATH) Then + startInfo.FileName = PMO_PATH + Process.Start(startInfo) Else - startInfo.FileName = DevelPath + MsgBox("Can not find ADDI-Executable in '" & filename & "'! Please inform your systemadmin.", MsgBoxStyle.Critical) End If - - Process.Start(startInfo) + 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 Sub @@ -149,8 +264,37 @@ Public Class frmVersionCheck ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message)) End Try - 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 InitProgram() End Sub