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

MS

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

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

@ -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,6 +145,30 @@ 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")
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
Else
Right_RO = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
End If
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:")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then
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
@ -160,30 +185,18 @@ Public Class ClassInit
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
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:")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
'Me.Close()
Else
'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")
@ -200,9 +213,10 @@ Public Class ClassInit
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

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

@ -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)
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
Else
ClassLogger.DateiSpeicherort = speicherort
End If
ClassLogger.DateiSpeicherort = f.ToString
End Sub
' legt das Prefix für den Dateinamen fest

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

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

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

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 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.
@ -18,7 +18,7 @@ Option Explicit On
'''</summary>
<Global.System.Serializable(), _
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.ToolboxItem(True), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
Global.System.Xml.Serialization.XmlRootAttribute("DD_DMSDataSetCalendar"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
@ -34,27 +34,27 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
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
@ -83,7 +83,7 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.Browsable(False), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable
Get
@ -93,7 +93,7 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.Browsable(False), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_RESOURCES() As TBPMO_RESOURCESDataTable
Get
@ -103,13 +103,13 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
Global.System.ComponentModel.BrowsableAttribute(True), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
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
@ -135,16 +135,16 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
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
@ -152,20 +152,20 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
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,11 +180,11 @@ 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
@ -200,22 +200,22 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
Me.InitVars(True)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
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
@ -226,7 +226,7 @@ Partial Public Class DD_DMSDataSetCalendar
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)
@ -237,20 +237,20 @@ Partial Public Class DD_DMSDataSetCalendar
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean
Return false
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Function ShouldSerializeTBPMO_RESOURCES() As Boolean
Return false
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
Me.InitVars()
End If
End Sub
@ -273,7 +273,7 @@ Partial Public Class DD_DMSDataSetCalendar
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
@ -293,10 +293,10 @@ Partial Public Class DD_DMSDataSetCalendar
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

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

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

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

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

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

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

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 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.

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

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 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.
@ -20,7 +20,7 @@ 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
@ -57,11 +57,11 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In"& _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In" & _
"fo=True;User ID=sa;Password=ddd")> _
Public ReadOnly Property DD_DMSConnectionString() As String
Get
Return CType(Me("DD_DMSConnectionString"),String)
Return CType(Me("DD_DMSConnectionString"), String)
End Get
End Property
@ -71,9 +71,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -84,9 +84,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -97,9 +97,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -110,9 +110,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -123,9 +123,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -136,9 +136,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -149,9 +149,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -162,9 +162,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -175,9 +175,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -188,9 +188,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -201,9 +201,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -214,9 +214,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -227,9 +227,9 @@ Namespace My
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
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
@ -239,9 +239,9 @@ Namespace My
Global.System.Configuration.DefaultSettingValueAttribute("")> _
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
@ -251,7 +251,7 @@ Namespace My
Global.System.Configuration.DefaultSettingValueAttribute("sDigital Data - windream-Benutzer")> _
Public ReadOnly Property windreamGruppe() As String
Get
Return CType(Me("windreamGruppe"),String)
Return CType(Me("windreamGruppe"), String)
End Get
End Property
End Class

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

@ -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

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

File diff suppressed because it is too large Load Diff

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

@ -431,9 +431,9 @@ Partial Class frmDD_EMAIL_ACCOUNT
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.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

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

@ -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)

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

@ -324,7 +324,7 @@ Public Class frmRecordView
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
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

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

@ -174,21 +174,21 @@ Partial Class frmSAP_FuBa
Label19 = New System.Windows.Forms.Label()
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

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

@ -23,6 +23,8 @@ Partial Class frmStatistiscsADDI
<System.Diagnostics.DebuggerStepThrough()> _
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

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

File diff suppressed because it is too large Load Diff

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

@ -453,22 +453,22 @@ Partial Class frmTask_Editor
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.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

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

@ -212,6 +212,21 @@ Partial Class frmUserKonfig
Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox()
Me.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

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

File diff suppressed because it is too large Load Diff

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

@ -1,4 +1,5 @@
Public Class frmUserKonfig
Imports DD_LIB_Standards
Public Class frmUserKonfig
Private Shared _Instance As frmUserKonfig = Nothing
Public Shared Function Instance() As frmUserKonfig
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@ -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,14 +444,17 @@
Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged
Select Case TabControl3.SelectedIndex
Case 1
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 Select
End Sub
Sub Load_Users_not_Related_2_Client()
Try
@ -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

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

@ -41,8 +41,8 @@ Partial Class frmWD_IndexFile
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.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

22
app/SetupWiX/Product.wxs
View File

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

99
app/VERSION_CHECKER/ClassInit.vb
View File

@ -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
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
AddonPath = Dev_AddonPath
MY_INSTALL_PATH = readValue = ""
End If
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
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

14
app/VERSION_CHECKER/ClassLogger.vb
View File

@ -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

45
app/VERSION_CHECKER/ModuleMySettings.vb
View File

@ -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

5
app/VERSION_CHECKER/VERSION_CHECKER.vbproj
View File

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

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

@ -25,17 +25,20 @@ Partial Class frmVersionCheck
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVersionCheck))
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

315
app/VERSION_CHECKER/frmVersionCheck.resx
View File

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

238
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@ -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
Else
ClassLogger.Add(String.Format("UpdateFile {0} is not existing or accessible", updatefile2copy))
End If
Next
End If
End If
Console.WriteLine(fri.Name)
Next fri
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
End If
End If
End If
End If
System.Threading.Thread.Sleep(200)
bw.ReportProgress(CalcProgress(6), "Initializing Frontend")
' InitInterface wurde in frmMain integriert
'Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(200)
Start_RO()
Else
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
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
'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
COPY_FROM_PATH = DevelPath
'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
MsgBox("Unexpected Error in Replace_Files: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
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
ClassLogger.Add(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
End Try
End Sub
Sub Start_RO()
Private Shared Function File_Rename(targetfile As String, BackUpOfFileToReplace As String)
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")
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 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