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

MoveRename

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-09-04 16:37:05 +02:00
parent 0228272fa6
commit 9147029ea9
37 changed files with 5211 additions and 703 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -604,7 +604,8 @@ Public Class ClassNIDatenbankzugriff
' einen einzigen relevanten Wert zurückgeben ' einen einzigen relevanten Wert zurückgeben
Dim sqlresult = dt.Rows(0).Item(0) Dim sqlresult = dt.Rows(0).Item(0)
If IsDBNull(sqlresult) Then If IsDBNull(sqlresult) Then
_Logger.Warn($"{WMFilename} # Genau 1 Zeile allerdings System.DBNull") _Logger.Warn($"{WMFilename} # Genau 1 Zeile allerdings System.DBNull - [{selectAnweisung}]")
If QuellVektor = True Then If QuellVektor = True Then
SQLconnect.Close() SQLconnect.Close()
Return "NULL Row" Return "NULL Row"
@ -875,6 +876,48 @@ Public Class ClassNIDatenbankzugriff
Return 0 Return 0
End Try End Try
End Function End Function
Public Function CheckIndex_ODBC(Profilname As String, ByVal scalar_select As String, ByVal datasource As String, ByVal User As String, ByVal pw As String)
Try
_Logger.Debug("SQL-Command: " & scalar_select)
' die nötigen Variablen definieren
Dim Connection As OdbcConnection = Nothing
Dim Command As OdbcCommand = Nothing
Dim con As String
' ConnectionString aufbauen
con = $"DSN={datasource};UID={User};Pwd={pw};"
' Verbindung zur Datenbank aufbauen
Try
Connection = New OdbcConnection(con)
Connection.Open()
Catch ex As Exception
_Logger.Error(ex)
Connection.Close()
Return Nothing
End Try
' SQL-Abfrage definieren
Try
Command = New OdbcCommand(scalar_select, Connection)
Catch ex As Exception
_Logger.Error(ex)
' DB-Connection schliessen
Connection.Close()
Return Nothing
End Try
Dim ergebnis = Command.ExecuteScalar
Return CLng(ergebnis)
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
Return 0
End Try
End Function
Public Sub CloseOdbcDb(ByRef Connection As OdbcConnection) Public Sub CloseOdbcDb(ByRef Connection As OdbcConnection)
' wenn eine Datenbank-Connection aufgebaut ist ' wenn eine Datenbank-Connection aufgebaut ist
If Connection IsNot Nothing Then If Connection IsNot Nothing Then

17
ToolCollection/ClassNIVerknüpfung.vb
View File

@ -45,7 +45,7 @@
End Function End Function
Public Function Save_DB_Link(ByVal profilname As String) Public Function Save_DB_Link(ByVal profilname As String)
' wenn ein Profilname für dieses Profil gesetzt ist ' wenn ein Profilname für dieses Profil gesetzt ist
If Me.SelectAnweisung.ToLower.Contains("where") Or (Me.SelectAnweisung.StartsWith("(") And Me.SelectAnweisung.EndsWith("])")) Or Me.Spalte.StartsWith("%") And Me.Spalte.EndsWith("%") Then If Me.SelectAnweisung.ToLower.StartsWith("select") Or (Me.SelectAnweisung.StartsWith("(") And Me.SelectAnweisung.EndsWith("])")) Or Me.Spalte.StartsWith("%") And Me.Spalte.EndsWith("%") Then
'If Me.SelectAnweisung IsNot Nothing And Me.SelectAnweisung.StartsWith("SELECT [%spalte] FROM [%view] WHERE ") And Me.SelectAnweisung.Length > "SELECT [%spalte] FROM [%view] WHERE ".Length Then 'If Me.SelectAnweisung IsNot Nothing And Me.SelectAnweisung.StartsWith("SELECT [%spalte] FROM [%view] WHERE ") And Me.SelectAnweisung.Length > "SELECT [%spalte] FROM [%view] WHERE ".Length Then
Dim xml As New Xml.XmlDocument() Dim xml As New Xml.XmlDocument()
Dim xmlProfil As Xml.XmlElement Dim xmlProfil As Xml.XmlElement
@ -71,13 +71,14 @@
Return True Return True
End If End If
Else Else
If Me.SelectAnweisung.Contains("=") = False Or Me.SelectAnweisung.Contains("where") = False Then Return True
MsgBox("Die Verknüpfung konnte nicht gespeichert werden weil weder ein '=' oder 'where' vorhanden sind. Bitte überprüfen Sie die Verknüpfung " & Me.Index & " <-> " & Me.Spalte & " (in " & Me.From & ").", MsgBoxStyle.Information, "Verknüpfung konnte nicht gespeichert werden") 'If Me.SelectAnweisung.Contains("=") = False Or Me.SelectAnweisung.Contains("where") = False Then
Else ' MsgBox("Die Verknüpfung konnte nicht gespeichert werden weil weder ein '=' oder 'where' vorhanden sind. Bitte überprüfen Sie die Verknüpfung " & Me.Index & " <-> " & Me.Spalte & " (in " & Me.From & ").", MsgBoxStyle.Information, "Verknüpfung konnte nicht gespeichert werden")
MsgBox("Eine Verknüpfung konnte nicht gespeichert werden. " & vbNewLine & "Es sind evtl. ungültige Zeichen enthalten!" & vbNewLine & _ 'Else
"Bitte überprüfen Sie die Verknüpfung " & Me.Index & " <-> " & Me.Spalte & " (in " & Me.From & ").", MsgBoxStyle.Information, "Verknüpfung konnte nicht gespeichert werden") ' MsgBox("Eine Verknüpfung konnte nicht gespeichert werden. " & vbNewLine & "Es sind evtl. ungültige Zeichen enthalten!" & vbNewLine & _
Return False ' "Bitte überprüfen Sie die Verknüpfung " & Me.Index & " <-> " & Me.Spalte & " (in " & Me.From & ").", MsgBoxStyle.Information, "Verknüpfung konnte nicht gespeichert werden")
End If ' Return False
'End If
End If End If
End Function End Function

66
ToolCollection/ClassNIWindream.vb
View File

@ -535,45 +535,48 @@ Public Class ClassNIWindream
ReDim Preserve VektorArray(0) ReDim Preserve VektorArray(0)
VektorArray(0) = myArray(0) VektorArray(0) = myArray(0)
Case 2 'Anfügen Case 2 'Anfügen
_Logger.Debug("vektInsState = '2'") _Logger.Debug("vektInsState = '2'-538")
VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType) VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType)
Case 3 'Anfügen mit DuplikatCheck Case 3 'Anfügen mit DuplikatCheck
_Logger.Debug("vektInsState = '3'") _Logger.Debug("vektInsState = '3'")
VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType) VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType)
End Select End Select
_Logger.Debug($"Vektortype is {vType} ...")
If VektorArray Is Nothing = False Then If VektorArray Is Nothing = False Then
ReDim myArray(VektorArray.Length - 1) ReDim myArray(VektorArray.Length - 1)
Array.Copy(VektorArray, myArray, VektorArray.Length) Array.Copy(VektorArray, myArray, VektorArray.Length)
'Jetzt die Nachindexierung für Vektor-Felder 'Jetzt die Nachindexierung für Vektor-Felder
If BS.Count = 1 Then 'If BS.Count = 1 Then
If vType = 4097 Then ' If vType = 4097 Then
Dim strArray() ' Dim strArray()
ReDim Preserve strArray(0) ' ReDim Preserve strArray(0)
strArray(0) = myArray(0) ' strArray(0) = myArray(0)
temp_arr.Add(CStr(myArray(0))) ' temp_arr.Add(CStr(myArray(0)))
oDocument.SetVariableValue(aName, strArray) ' oDocument.SetVariableValue(aName, strArray)
ElseIf vType = 4098 Then ' ElseIf vType = 4098 Then
temp_arr.Add(CInt(myArray(0))) ' temp_arr.Add(CInt(myArray(0)))
If temp_arr.Count > 0 Then ' If temp_arr.Count > 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add("- Einträge in temp_arr also Speichern des Arrays in convertValue") ' _Logger.Debug("'Einträge in temp_arr also Speichern des Arrays in convertValue")
convertValue = Nothing ' convertValue = Nothing
convertValue = temp_arr.ToArray ' convertValue = temp_arr.ToArray
Else ' Else
convertValue = vbEmpty ' convertValue = vbEmpty
End If ' End If
' den konvertierten Indexwert dem entsprechenden Index zuweisen ' ' den konvertierten Indexwert dem entsprechenden Index zuweisen
oDocument.SetVariableValue(aName, convertValue) ' oDocument.SetVariableValue(aName, convertValue)
Else ' Else
oDocument.SetVariableValue(aName, myArray(0)) ' _Logger.Debug($"Vektortype is {vType} therefore only storing first value [{myArray(0)}]!")
End If ' oDocument.SetVariableValue(aName, myArray(0))
' End If
Else 'Else
_Logger.Debug($"Vektortype is {vType}: Indexing with [{VektorArray.Length} values]!")
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
End If 'End If
_Logger.Debug("'SetVariableValue' für VEKTOR mit einem Wert erfolgreich") _Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich")
'Die Änderungen festsschreiben/speichern 'Die Änderungen festsschreiben/speichern
oDocument.Save() oDocument.Save()
@ -633,7 +636,7 @@ Public Class ClassNIWindream
End If End If
Next Next
Case 2 'Anfügen Case 2 'Anfügen
_Logger.Debug("vektInsState = '2'") _Logger.Debug("vektInsState = '2'-638")
VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType) VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType)
Case 3 'Anfügen mit DuplikatCheck Case 3 'Anfügen mit DuplikatCheck
_Logger.Debug("vektInsState = '3'") _Logger.Debug("vektInsState = '3'")
@ -997,14 +1000,17 @@ Public Class ClassNIWindream
_Logger.Info($"targetpath ({targetpath})") _Logger.Info($"targetpath ({targetpath})")
_Logger.Info($"sourcepath ({sourcepath})") _Logger.Info($"sourcepath ({sourcepath})")
End If End If
Dim sw As New ClassStopwatch("NEW_MOVE_FILE") Dim sw As New ClassStopwatch("NEW_MOVE_FILE")
targetpath = targetpath.Replace("\\windream\objects", "")
targetpath = targetpath.Replace("W:\", "\")
Dim oTargetpath = System.IO.Path.GetDirectoryName(targetpath) Dim oTargetpath = System.IO.Path.GetDirectoryName(targetpath)
oTargetpath = oTargetpath.Replace("\\windream\objects", "") oTargetpath = oTargetpath.Replace("\\windream\objects", "")
oTargetpath = oTargetpath.Replace("W:\", "\") oTargetpath = oTargetpath.Replace("W:\", "\")
targetpath = targetpath.Replace("\\windream\objects", "")
targetpath = targetpath.Replace("W:\", "\")
sourcepath = sourcepath.Replace("\\windream\objects", "") sourcepath = sourcepath.Replace("\\windream\objects", "")
sourcepath = sourcepath.Replace("W:\", "\") sourcepath = sourcepath.Replace("W:\", "\")
Const WMEntityDocument = 1 Const WMEntityDocument = 1

6
ToolCollection/ModuleCURRENT.vb
View File

@ -18,6 +18,12 @@ Module ModuleCURRENT
Public CURRENToWMSession_Created As Date = Now Public CURRENToWMSession_Created As Date = Now
Public CURRENToWMConnect As Object Public CURRENToWMConnect As Object
Public CURRENT_PROFILENAME As String
Public CURRENT_Namekonvention As String
Public DYNAMIC_TYPE As String
Public CURRENT_DYNAMICFOLDER As String
Public CURRENT_IndexList As List(Of String)
Public CURR_MyLogger As LogConfig Public CURR_MyLogger As LogConfig
Public CURR_Logger As DigitalData.Modules.Logging.Logger Public CURR_Logger As DigitalData.Modules.Logging.Logger
End Module End Module

36
ToolCollection/ModuleStopwatch.vb Normal file
View File

@ -0,0 +1,36 @@
Module ModuleStopwatch
Public Class SW
Public label As String
Public stopwatch As Stopwatch
Public Sub New(label As String)
Me.label = label
stopwatch = New Stopwatch()
stopwatch.Start()
End Sub
Public Function Done() As Long
If My.Settings.vLogErrorsonly = True Then Return 0
stopwatch.Stop()
Dim ts As TimeSpan = stopwatch.Elapsed
Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
If ts.Minutes > 0 Then
timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
End If
If timespan_ <> "00:00.00" Then
Dim message = String.Format("{0} || {1}", timespan_, label)
Console.WriteLine(message)
ClassLoggerDI.Add(message, False)
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(message, False)
End If
Return stopwatch.ElapsedMilliseconds
End Function
End Class
End Module

2
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.0.3")> <Assembly: AssemblyVersion("2.3.0.4")>
<Assembly: AssemblyFileVersion("1.5.1.0")> <Assembly: AssemblyFileVersion("1.5.1.0")>

10
ToolCollection/My Project/Resources.Designer.vb generated
View File

@ -90,6 +90,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property action_add_16xMD() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("action_add_16xMD", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

61
ToolCollection/My Project/Resources.resx
View File

@ -118,9 +118,6 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="cross1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cross1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="user_edit3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user_edit3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_edit3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user_edit3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -142,6 +139,9 @@
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (640)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (640).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Aktualisieren" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Aktualisieren" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aktualisieren.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Aktualisieren.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -166,12 +166,12 @@
<data name="Untitled (1055)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Untitled (1055)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (1055).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Untitled (1055).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="arrow_up" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_up.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="table_add" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="table_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -190,9 +190,6 @@
<data name="Untitled (882)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Untitled (882)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (882).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Untitled (882).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="stiftlineal_transparent3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stiftlineal_transparent3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="puzzle4" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="puzzle4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\puzzle4.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\puzzle4.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -232,15 +229,24 @@
<data name="Untitled (209)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Untitled (209)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (209).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Untitled (209).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (219)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (219).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_next" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="resultset_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (142)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (142).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asterisk_orange" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="asterisk_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="link_break" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="link_break" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\link_break.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\link_break.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="table_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\table_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Untitled (1015)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Untitled (1015)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (1015).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Untitled (1015).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -289,8 +295,8 @@
<data name="mail_write" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="mail_write" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail_write.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\mail_write.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="puzzle3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\puzzle3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (218)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Untitled (218)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (218).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Untitled (218).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -319,9 +325,6 @@
<data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="page_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clock_run" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="clock_run" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\clock_run.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\clock_run.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -364,8 +367,8 @@
<data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (640)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="cross1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (640).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\cross1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="f5" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="f5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -376,6 +379,9 @@
<data name="asterisk_orange1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="asterisk_orange1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_orange1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\asterisk_orange1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="bullet_arrow_down1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_arrow_down1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bomb" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bomb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bomb.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\bomb.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -385,8 +391,8 @@
<data name="info_small" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="info_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info_small.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\info_small.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="puzzle3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="stiftlineal_transparent3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\puzzle3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\stiftlineal_transparent3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="book_delete" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="book_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\book_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\book_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -394,8 +400,8 @@
<data name="cross" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="cross" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cross.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\cross.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (219)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (219).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="control_rewind" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="control_rewind" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_rewind.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\control_rewind.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -409,19 +415,16 @@
<data name="rosette" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="rosette" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rosette.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\rosette.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Untitled (142)" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Untitled (142).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="table_delete" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="page_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\table_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\page_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="user_edit" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="arrow_up" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_up.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_arrow_down1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_arrow_down1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

22
ToolCollection/My Project/Settings.Designer.vb generated
View File

@ -789,8 +789,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _
"User ID=sa;Password=dd")> _ "True;User ID=sa;Password=dd")> _
Public ReadOnly Property DD_ECMConnString() As String Public ReadOnly Property DD_ECMConnString() As String
Get Get
Return CType(Me("DD_ECMConnString"),String) Return CType(Me("DD_ECMConnString"),String)
@ -906,6 +906,24 @@ Namespace My
Return CType(Me("FB_PW"),String) Return CType(Me("FB_PW"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public ReadOnly Property StopwatchTimerActive() As Boolean
Get
Return CType(Me("StopwatchTimerActive"),Boolean)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public ReadOnly Property DIOpt_CheckLength() As Boolean
Get
Return CType(Me("DIOpt_CheckLength"),Boolean)
End Get
End Property
End Class End Class
End Namespace End Namespace

10
ToolCollection/My Project/Settings.settings
View File

@ -193,10 +193,10 @@
<Setting Name="DD_ECMConnString" Type="(Connection string)" Scope="Application"> <Setting Name="DD_ECMConnString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt; <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt; &lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt; &lt;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt; &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue> &lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value> <Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting> </Setting>
<Setting Name="NI_RUNNING" Roaming="true" Type="System.Boolean" Scope="User"> <Setting Name="NI_RUNNING" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
@ -231,5 +231,11 @@
<Setting Name="FB_PW" Type="System.String" Scope="Application"> <Setting Name="FB_PW" Type="System.String" Scope="Application">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="StopwatchTimerActive" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DIOpt_CheckLength" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">False</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

1096
ToolCollection/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

17
ToolCollection/MyDataset.xsc
View File

@ -5,5 +5,20 @@
the code is regenerated. the code is regenerated.
</autogenerated>--> </autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings /> <TableUISettings>
<TableUISetting Name="TBTC_MOVE_RENAME">
<ColumnUISettings>
<ColumnUISetting Name="CREATED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>
</DataSetUISetting> </DataSetUISetting>

131
ToolCollection/MyDataset.xsd
View File

@ -89,6 +89,88 @@ SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBTC_MOVE_RENAMETableAdapter" GeneratorDataComponentClassName="TBTC_MOVE_RENAMETableAdapter" Name="TBTC_MOVE_RENAME" UserDataComponentName="TBTC_MOVE_RENAMETableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBTC_MOVE_RENAME" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBTC_MOVE_RENAME
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBTC_MOVE_RENAME" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBTC_MOVE_RENAME
(PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO)
VALUES (@PROFILE_NAME,@FOLDER_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO);
SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_NAME" ColumnName="PROFILE_NAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@PROFILE_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="PROFILE_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMECONVENTION" ColumnName="NAMECONVENTION" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMECONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMECONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CREATED_WHO" ColumnName="CREATED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CREATED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CREATED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBTC_MOVE_RENAME
WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_NAME" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@PROFILE_NAME" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBTC_MOVE_RENAME
SET PROFILE_NAME = @PROFILE_NAME, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, NAMECONVENTION = @NAMECONVENTION, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO
WHERE (GUID = @Original_GUID);
SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_NAME" ColumnName="PROFILE_NAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@PROFILE_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="PROFILE_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMECONVENTION" ColumnName="NAMECONVENTION" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMECONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMECONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="PROFILE_NAME" DataSetColumn="PROFILE_NAME" />
<Mapping SourceColumn="FOLDER_FOR_INDEX" DataSetColumn="FOLDER_FOR_INDEX" />
<Mapping SourceColumn="NAMECONVENTION" DataSetColumn="NAMECONVENTION" />
<Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
<Mapping SourceColumn="CREATED_WHO" DataSetColumn="CREATED_WHO" />
<Mapping SourceColumn="CREATED_WHEN" DataSetColumn="CREATED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources>
<DbSource ConnectionRef="DD_ECMConnString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBTC_MOVE_RENAME" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillByActive" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByActive" GeneratorSourceName="FillByActive" GetMethodModifier="Public" GetMethodName="GetDataByActive" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByActive" UserSourceName="FillByActive">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBTC_MOVE_RENAME
WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME)) AND ACTIVE = 1</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_NAME" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@PROFILE_NAME" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
</Tables> </Tables>
<Sources /> <Sources />
</DataSource> </DataSource>
@ -151,11 +233,60 @@ SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBTC_MOVE_RENAME" msprop:Generator_TableClassName="TBTC_MOVE_RENAMEDataTable" msprop:Generator_TableVarName="tableTBTC_MOVE_RENAME" msprop:Generator_RowChangedName="TBTC_MOVE_RENAMERowChanged" msprop:Generator_TablePropName="TBTC_MOVE_RENAME" msprop:Generator_RowDeletingName="TBTC_MOVE_RENAMERowDeleting" msprop:Generator_RowChangingName="TBTC_MOVE_RENAMERowChanging" msprop:Generator_RowEvHandlerName="TBTC_MOVE_RENAMERowChangeEventHandler" msprop:Generator_RowDeletedName="TBTC_MOVE_RENAMERowDeleted" msprop:Generator_RowClassName="TBTC_MOVE_RENAMERow" msprop:Generator_UserTableName="TBTC_MOVE_RENAME" msprop:Generator_RowEvArgName="TBTC_MOVE_RENAMERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="PROFILE_NAME" msprop:Generator_ColumnVarNameInTable="columnPROFILE_NAME" msprop:Generator_ColumnPropNameInRow="PROFILE_NAME" msprop:Generator_ColumnPropNameInTable="PROFILE_NAMEColumn" msprop:Generator_UserColumnName="PROFILE_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FOLDER_FOR_INDEX" msprop:Generator_ColumnVarNameInTable="columnFOLDER_FOR_INDEX" msprop:Generator_ColumnPropNameInRow="FOLDER_FOR_INDEX" msprop:Generator_ColumnPropNameInTable="FOLDER_FOR_INDEXColumn" msprop:Generator_UserColumnName="FOLDER_FOR_INDEX">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="NAMECONVENTION" msprop:Generator_ColumnVarNameInTable="columnNAMECONVENTION" msprop:Generator_ColumnPropNameInRow="NAMECONVENTION" msprop:Generator_ColumnPropNameInTable="NAMECONVENTIONColumn" msprop:Generator_UserColumnName="NAMECONVENTION">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="true" />
<xs:element name="CREATED_WHO" msprop:Generator_ColumnVarNameInTable="columnCREATED_WHO" msprop:Generator_ColumnPropNameInRow="CREATED_WHO" msprop:Generator_ColumnPropNameInTable="CREATED_WHOColumn" msprop:Generator_UserColumnName="CREATED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CREATED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCREATED_WHEN" msprop:Generator_ColumnPropNameInRow="CREATED_WHEN" msprop:Generator_ColumnPropNameInTable="CREATED_WHENColumn" msprop:Generator_UserColumnName="CREATED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice> </xs:choice>
</xs:complexType> </xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_REPORTING_IMPORT" /> <xs:selector xpath=".//mstns:TBDD_REPORTING_IMPORT" />
<xs:field xpath="mstns:IMPORT_ID" /> <xs:field xpath="mstns:IMPORT_ID" />
</xs:unique> </xs:unique>
<xs:unique name="TBTC_MOVE_RENAME_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBTC_MOVE_RENAME" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element> </xs:element>
</xs:schema> </xs:schema>

9
ToolCollection/MyDataset.xss
View File

@ -6,10 +6,11 @@
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-11" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-11" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBDD_REPORTING_IMPORT" ZOrder="1" X="342" Y="122" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBDD_REPORTING_IMPORT" ZOrder="2" X="242" Y="71" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBVEKTOR_ARRAY" ZOrder="4" X="42" Y="0" Height="144" Width="174" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" /> <Shape ID="DesignTable:TBTC_MOVE_RENAME" ZOrder="1" X="96" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBErgebnis" ZOrder="3" X="243" Y="-1" Height="48" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" /> <Shape ID="DesignTable:TBVEKTOR_ARRAY" ZOrder="5" X="42" Y="0" Height="144" Width="174" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBUV" ZOrder="2" X="44" Y="155" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" /> <Shape ID="DesignTable:TBErgebnis" ZOrder="4" X="243" Y="-1" Height="48" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" />
<Shape ID="DesignTable:TBUV" ZOrder="3" X="44" Y="155" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
</Shapes> </Shapes>
<Connectors /> <Connectors />
</DiagramLayout> </DiagramLayout>

BIN
ToolCollection/Resources/action_add_16xMD.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 173 B

24
ToolCollection/ToolCollection.vbproj
View File

@ -239,6 +239,12 @@
<Compile Include="frmMORE_Verwaltung.vb"> <Compile Include="frmMORE_Verwaltung.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmNIMoveRenameNamenkonvention.designer.vb">
<DependentUpon>frmNIMoveRenameNamenkonvention.vb</DependentUpon>
</Compile>
<Compile Include="frmNIMoveRenameNamenkonvention.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNB_AD.Designer.vb"> <Compile Include="frmNB_AD.Designer.vb">
<DependentUpon>frmNB_AD.vb</DependentUpon> <DependentUpon>frmNB_AD.vb</DependentUpon>
</Compile> </Compile>
@ -251,6 +257,12 @@
<Compile Include="frmNB_AD_add.vb"> <Compile Include="frmNB_AD_add.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmNIMoveRename.Designer.vb">
<DependentUpon>frmNIMoveRename.vb</DependentUpon>
</Compile>
<Compile Include="frmNIMoveRename.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNIVerknuepfungen.Designer.vb"> <Compile Include="frmNIVerknuepfungen.Designer.vb">
<DependentUpon>frmNIVerknuepfungen.vb</DependentUpon> <DependentUpon>frmNIVerknuepfungen.vb</DependentUpon>
</Compile> </Compile>
@ -382,6 +394,7 @@
</Compile> </Compile>
<Compile Include="modSaveTreeView.vb" /> <Compile Include="modSaveTreeView.vb" />
<Compile Include="ModuleCURRENT.vb" /> <Compile Include="ModuleCURRENT.vb" />
<Compile Include="ModuleStopwatch.vb" />
<Compile Include="My Project\AssemblyInfo.vb" /> <Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
@ -427,12 +440,22 @@
<EmbeddedResource Include="frmMORE_Verwaltung.resx"> <EmbeddedResource Include="frmMORE_Verwaltung.resx">
<DependentUpon>frmMORE_Verwaltung.vb</DependentUpon> <DependentUpon>frmMORE_Verwaltung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNIMoveRenameNamenkonvention.en-US.resx">
<DependentUpon>frmNIMoveRenameNamenkonvention.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNIMoveRenameNamenkonvention.resx">
<DependentUpon>frmNIMoveRenameNamenkonvention.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNB_AD.resx"> <EmbeddedResource Include="frmNB_AD.resx">
<DependentUpon>frmNB_AD.vb</DependentUpon> <DependentUpon>frmNB_AD.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNB_AD_add.resx"> <EmbeddedResource Include="frmNB_AD_add.resx">
<DependentUpon>frmNB_AD_add.vb</DependentUpon> <DependentUpon>frmNB_AD_add.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNIMoveRename.resx">
<DependentUpon>frmNIMoveRename.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmNIVerknuepfungen.resx"> <EmbeddedResource Include="frmNIVerknuepfungen.resx">
<DependentUpon>frmNIVerknuepfungen.vb</DependentUpon> <DependentUpon>frmNIVerknuepfungen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -799,6 +822,7 @@
<None Include="Resources\arrow_up.png" /> <None Include="Resources\arrow_up.png" />
<None Include="Resources\bullet_arrow_down1.png" /> <None Include="Resources\bullet_arrow_down1.png" />
<Content Include="Interop.WINDREAMLib.dll" /> <Content Include="Interop.WINDREAMLib.dll" />
<None Include="Resources\action_add_16xMD.png" />
<Content Include="x64\SQLite.Interop.dll"> <Content Include="x64\SQLite.Interop.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content> </Content>

8
ToolCollection/app.config
View File

@ -14,7 +14,7 @@
<add name="ToolCollection.My.MySettings.DD_DMSConnectionString" <add name="ToolCollection.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_DMS;User ID=sa;Password=dd" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_DMS;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" /> providerName="System.Data.SqlClient" />
<add name="ToolCollection.My.MySettings.DD_ECMConnString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd" <add name="ToolCollection.My.MySettings.DD_ECMConnString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" /> providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<system.diagnostics> <system.diagnostics>
@ -252,6 +252,12 @@
<setting name="FB_PW" serializeAs="String"> <setting name="FB_PW" serializeAs="String">
<value /> <value />
</setting> </setting>
<setting name="StopwatchTimerActive" serializeAs="String">
<value>True</value>
</setting>
<setting name="DIOpt_CheckLength" serializeAs="String">
<value>False</value>
</setting>
</ToolCollection.My.MySettings> </ToolCollection.My.MySettings>
</applicationSettings> </applicationSettings>
<startup> <startup>

352
ToolCollection/frmDIHauptseite.vb
View File

@ -56,7 +56,7 @@ Public Class frmDIHauptseite
Private threadDateiimport As BackgroundWorker Private threadDateiimport As BackgroundWorker
Private selectedProfile As ClassDIProfil = New ClassDIProfil() Private selectedProfile As ClassDIProfil = New ClassDIProfil()
Private files As ReadOnlyCollection(Of String) Private ImportFileList As ReadOnlyCollection(Of String)
Private UVerzeichnisse As ReadOnlyCollection(Of String) Private UVerzeichnisse As ReadOnlyCollection(Of String)
Private arrayDateiinformationen As ArrayList Private arrayDateiinformationen As ArrayList
Private CriticalErrorInBackgroundWorker As Boolean = False Private CriticalErrorInBackgroundWorker As Boolean = False
@ -68,8 +68,8 @@ Public Class frmDIHauptseite
Private Manuell As Boolean = False Private Manuell As Boolean = False
Private Durchlauf As Boolean = False Private Durchlauf As Boolean = False
Private dateienImportiert As Integer = 0 Private CountFilesImported As Integer = 0
Private dateienGesamt As Integer = 0 Private CountFiles2Import As Integer = 0
Private bgwQuelldatei = "" Private bgwQuelldatei = ""
Private bgwZielordner = "" Private bgwZielordner = ""
@ -419,31 +419,31 @@ Public Class frmDIHauptseite
Private Sub Profil_Durchlauf() Private Sub Profil_Durchlauf()
'Array zum Speichern der Subdirectories 'Array zum Speichern der Subdirectories
Dim DirList As New ArrayList Dim oSubDirectoryList As New ArrayList
'Array zum Speichern der nicht bearbeiteten Dateien 'Array zum Speichern der nicht bearbeiteten Dateien
Dim fileAusschluss_List As New ArrayList Dim oFileAusschlussList As New ArrayList
'Variable für das "Letzte Subdirectory" 'Variable für das "Letzte Subdirectory"
Dim last_Folder_in_Files As String = "" Dim oLastFolderinFiles As String = ""
If Me.selectedProfile.Subdirectories = True Then If Me.selectedProfile.Subdirectories = True Then
Me.files = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*") Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
Else Else
Me.files = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*") Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
End If End If
If Me.files IsNot Nothing Then If Me.ImportFileList IsNot Nothing Then
Me.dateienImportiert = 0 Me.CountFilesImported = 0
If Durchlauf = True Then If Durchlauf = True Then
Me.dateienGesamt = Gesamtfiles Me.CountFiles2Import = Gesamtfiles
Else Else
Me.dateienGesamt = Me.files.Count Me.CountFiles2Import = Me.ImportFileList.Count
End If End If
'Me.lblProgress.Text = Me.dateienImportiert & " von " & Me.dateienGesamt & " Dateien importiert" 'Me.lblProgress.Text = Me.dateienImportiert & " von " & Me.dateienGesamt & " Dateien importiert"
'Me.lblProgress.Visible = True 'Me.lblProgress.Visible = True
Me.arrayDateiinformationen = New ArrayList Me.arrayDateiinformationen = New ArrayList
If Me.files.Count > 0 Then If Me.ImportFileList.Count > 0 Then
ClassLoggerDI.Add(" Insgesamt sollen " & Me.files.Count & " Dateien importiert werden", False) ClassLoggerDI.Add(" Insgesamt sollen " & Me.ImportFileList.Count & " Dateien importiert werden", False)
Else Else
ClassLoggerDI.Add(" Keine Dateien vorhanden", False) ClassLoggerDI.Add(" Keine Dateien vorhanden", False)
End If End If
@ -452,19 +452,19 @@ Public Class frmDIHauptseite
If Me.selectedProfile.Subdirectories = True Then If Me.selectedProfile.Subdirectories = True Then
MyDataset.TBUV.Clear() MyDataset.TBUV.Clear()
For Each di In Directory.GetDirectories(Path.GetDirectoryName(Me.selectedProfile.OriginalQuellordner & "\"), "*.*") For Each di In Directory.GetDirectories(Path.GetDirectoryName(Me.selectedProfile.OriginalQuellordner & "\"), "*.*")
GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", DirList) GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", oSubDirectoryList)
Next Next
For Each Dir As String In DirList For Each Dir As String In oSubDirectoryList
last_Folder_in_Files = Dir oLastFolderinFiles = Dir
Next Next
DirList.Reverse() oSubDirectoryList.Reverse()
Else Else
last_Folder_in_Files = Me.selectedProfile.OriginalQuellordner oLastFolderinFiles = Me.selectedProfile.OriginalQuellordner
End If End If
For Each filename As String In Me.files For Each filename As String In Me.ImportFileList
' zuerst einen Testdurchlauf ' zuerst einen Testdurchlauf
Dim resultArray = Me.selectedProfile.GetIndexArray(filename, Me.selectedProfile.OriginalQuellordner, last_Folder_in_Files) Dim resultArray = Me.selectedProfile.GetIndexArray(filename, Me.selectedProfile.OriginalQuellordner, oLastFolderinFiles)
If resultArray IsNot Nothing Then If resultArray IsNot Nothing Then
'Dim indexArray As ArrayList = New ArrayList 'Dim indexArray As ArrayList = New ArrayList
'indexArray = Me.selectedProfile.GetIndexArray(filename, Me.txtQuellordner.Text) 'indexArray = Me.selectedProfile.GetIndexArray(filename, Me.txtQuellordner.Text)
@ -476,21 +476,21 @@ Public Class frmDIHauptseite
Exit Sub Exit Sub
End If End If
Next Next
If Me.files.Count > 0 Then If Me.ImportFileList.Count > 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" > Array mit allen Informationen konnte erfolgreich erzeugt werden", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" > Array mit allen Informationen konnte erfolgreich erzeugt werden", False)
End If End If
'Console.WriteLine("Durchlauf von DoWork") 'Console.WriteLine("Durchlauf von DoWork")
Me.dateienImportiert = 0 Me.CountFilesImported = 0
If Durchlauf = True Then If Durchlauf = True Then
Me.dateienGesamt = Gesamtfiles Me.CountFiles2Import = Gesamtfiles
Else Else
Me.dateienGesamt = Me.files.Count Me.CountFiles2Import = Me.ImportFileList.Count
End If End If
' alle Dateien durchlaufen ' alle Dateien durchlaufen
For Each filenameQuelle As String In Me.files For Each filenameQuelle As String In Me.ImportFileList
fileAusschliessen = False fileAusschliessen = False
If filenameQuelle.StartsWith("~$") Then If filenameQuelle.StartsWith("~$") Then
fileAusschliessen = True fileAusschliessen = True
@ -529,11 +529,11 @@ Public Class frmDIHauptseite
ClassLoggerDI.Add(" ", False) ClassLoggerDI.Add(" ", False)
End If End If
'File in Array speichern 'File in Array speichern
fileAusschluss_List.Add(filenameQuelle) oFileAusschlussList.Add(filenameQuelle)
Me.oWMStream_Result = 0 Me.oWMStream_Result = 0
Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.threadDateiimport.ReportProgress(Me.CountFilesImported / Me.CountFiles2Import * 100)
Me.dateienImportiert += 1 Me.CountFilesImported += 1
Else Else
'Datei nicht in Benutzung 'Datei nicht in Benutzung
Dim oFileInfo As IO.FileInfo = New IO.FileInfo(filenameQuelle) Dim oFileInfo As IO.FileInfo = New IO.FileInfo(filenameQuelle)
@ -547,10 +547,10 @@ Public Class frmDIHauptseite
ClassLoggerDI.Add(" Datei: " & filenameQuelle & " wird im aktuellen Durchlauf nicht berücksichtigt!", False) ClassLoggerDI.Add(" Datei: " & filenameQuelle & " wird im aktuellen Durchlauf nicht berücksichtigt!", False)
End If End If
'File in Array speichern 'File in Array speichern
fileAusschluss_List.Add(filenameQuelle) oFileAusschlussList.Add(filenameQuelle)
Me.oWMStream_Result = 0 Me.oWMStream_Result = 0
Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.threadDateiimport.ReportProgress(Me.CountFilesImported / Me.CountFiles2Import * 100)
Me.dateienImportiert += 1 Me.CountFilesImported += 1
Else Else
'Datei kann bearbeitet werden 'Datei kann bearbeitet werden
Me.bgwQuelldatei = filenameQuelle Me.bgwQuelldatei = filenameQuelle
@ -645,7 +645,7 @@ Public Class frmDIHauptseite
If Me.oWMStream_Result = 0 Then If Me.oWMStream_Result = 0 Then
Try Try
Dim extension As String = Replace(Path.GetExtension(DI_STREAMRESULTFILE), ".", "").ToUpper Dim extension As String = Replace(Path.GetExtension(DI_STREAMRESULTFILE), ".", "").ToUpper
TBDD_REPORTING_IMPORTTableAdapter.Insert(DI_STREAMRESULTFILE, manProfile, DI_FILESIZE, DI_PAGECOUNT, extension) 'TBDD_REPORTING_IMPORTTableAdapter.Insert(DI_STREAMRESULTFILE, manProfile, DI_FILESIZE, DI_PAGECOUNT, extension)
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -699,8 +699,8 @@ Public Class frmDIHauptseite
End If End If
'Hochzählen 'Hochzählen
Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.threadDateiimport.ReportProgress(Me.CountFilesImported / Me.CountFiles2Import * 100)
Me.dateienImportiert += 1 Me.CountFilesImported += 1
Else Else
CriticalErrorInBackgroundWorker = False CriticalErrorInBackgroundWorker = False
Me.threadDateiimport.CancelAsync() Me.threadDateiimport.CancelAsync()
@ -719,10 +719,10 @@ Public Class frmDIHauptseite
If selectedProfile.UVVerzeichnisLoeschen = True Then If selectedProfile.UVVerzeichnisLoeschen = True Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Unterverzeichnisse sollen gelöscht werden.", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Unterverzeichnisse sollen gelöscht werden.", False)
If fileAusschluss_List.Count > 0 Then If oFileAusschlussList.Count > 0 Then
For Each Dir As String In DirList For Each Dir As String In oSubDirectoryList
Dim dir_ex As Boolean = False Dim dir_ex As Boolean = False
For Each _filename As String In fileAusschluss_List For Each _filename As String In oFileAusschlussList
If Path.GetDirectoryName(_filename).ToUpper = Dir.ToUpper Then If Path.GetDirectoryName(_filename).ToUpper = Dir.ToUpper Then
ClassLoggerDI.Add(" - Das Unterverzeichnis '" & Dir & "' kann nicht gelöscht werden weil es noch zu importierende Dateien enthält!", False) ClassLoggerDI.Add(" - Das Unterverzeichnis '" & Dir & "' kann nicht gelöscht werden weil es noch zu importierende Dateien enthält!", False)
dir_ex = True dir_ex = True
@ -742,7 +742,7 @@ Public Class frmDIHauptseite
Next Next
Else Else
For Each Dir As String In DirList For Each Dir As String In oSubDirectoryList
My.Computer.FileSystem.DeleteDirectory(Dir, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) My.Computer.FileSystem.DeleteDirectory(Dir, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" - Das Unterverzeichnis '" & Dir & "' wurde NICHT gelöscht", False) ClassLoggerDI.Add(" - Das Unterverzeichnis '" & Dir & "' wurde NICHT gelöscht", False)
@ -773,11 +773,11 @@ Public Class frmDIHauptseite
#Region "*** Fortschritt hat sich verändert ***" #Region "*** Fortschritt hat sich verändert ***"
Private Sub threadDateiimport_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) 'Handles threadDateiimport.ProgressChanged Private Sub threadDateiimport_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) 'Handles threadDateiimport.ProgressChanged
Try Try
Me.lblProgress.Text = Me.dateienImportiert & " von " & Me.dateienGesamt & " Dateien importiert" Me.lblProgress.Text = Me.CountFilesImported & " von " & Me.CountFiles2Import & " Dateien importiert"
'Console.WriteLine("Fortschritt geändert: " & Me.lblProgress.Text) 'Console.WriteLine("Fortschritt geändert: " & Me.lblProgress.Text)
Me.progressImport.Value = e.ProgressPercentage.ToString Me.progressImport.Value = e.ProgressPercentage.ToString
Dim dateiname = Me.files(Me.dateienImportiert - 1).ToString Dim dateiname = Me.ImportFileList(Me.CountFilesImported - 1).ToString
Me.tvLog.Nodes.Add(dateiname.Substring(Me.txtQuellordner.Text.Length)) Me.tvLog.Nodes.Add(dateiname.Substring(Me.txtQuellordner.Text.Length))
'Console.WriteLine("######## TreeNode (" & dateiname.Substring(Me.txtQuellordner.Text.Length) & "): " & Me.übertragen_erfolgreich) 'Console.WriteLine("######## TreeNode (" & dateiname.Substring(Me.txtQuellordner.Text.Length) & "): " & Me.übertragen_erfolgreich)
@ -789,37 +789,37 @@ Public Class frmDIHauptseite
'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(0).ForeColor = Color.DarkGreen 'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(0).ForeColor = Color.DarkGreen
' Console.WriteLine("############# TreeNode: dateienImportiert = " & Me.dateienImportiert & "; Count-1 = " & Me.TreeNodeInfos(Me.dateienImportiert - 1).Count - 1) ' Console.WriteLine("############# TreeNode: dateienImportiert = " & Me.dateienImportiert & "; Count-1 = " & Me.TreeNodeInfos(Me.dateienImportiert - 1).Count - 1)
For i As Integer = 0 To Me.TreeNodeInfos(Me.dateienImportiert - 1).Count - 1 For i As Integer = 0 To Me.TreeNodeInfos(Me.CountFilesImported - 1).Count - 1
'!!!!!!! '!!!!!!!
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add(Me.TreeNodeInfos(Me.dateienImportiert - 1)(i)) Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes.Add(Me.TreeNodeInfos(Me.CountFilesImported - 1)(i))
'Console.WriteLine("############# TreeNode: dateienImportiert = " & Me.dateienImportiert) 'Console.WriteLine("############# TreeNode: dateienImportiert = " & Me.dateienImportiert)
'Console.WriteLine("############# Me.TreeNodeInfos(" & Me.dateienImportiert - 1 & ", " & i & ") = " & Me.TreeNodeInfos(Me.dateienImportiert - 1)(i)) 'Console.WriteLine("############# Me.TreeNodeInfos(" & Me.dateienImportiert - 1 & ", " & i & ") = " & Me.TreeNodeInfos(Me.dateienImportiert - 1)(i))
' *** Farben festlegen *** ' *** Farben festlegen ***
If Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Ziel:") Then If Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Ziel:") Then
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.DarkGreen Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.DarkGreen
ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Dokumenttyp:") Then ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Dokumenttyp:") Then
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Green Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Green
ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Zielindex:") Then ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Zielindex:") Then
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Goldenrod Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Goldenrod
ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Bei dem Zielindex handelt es sich um ein Vektorfeld") Then ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Bei dem Zielindex handelt es sich um ein Vektorfeld") Then
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Gold Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Gold
'ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Der Datei wurde kein Index zugewiesen.") Then 'ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Der Datei wurde kein Index zugewiesen.") Then
' Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.IndianRed ' Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.IndianRed
ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Hinweis:") Then ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Hinweis:") Then
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Red Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Red
Else Else
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.DarkGray Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.DarkGray
End If End If
Next Next
End If End If
Else Else
Me.tvLog.Nodes(Me.dateienImportiert - 1).ForeColor = Color.Red Me.tvLog.Nodes(Me.CountFilesImported - 1).ForeColor = Color.Red
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add("Möglicherweise stehen nicht ausreichend Schreibrechte zur Verfügung") Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes.Add("Möglicherweise stehen nicht ausreichend Schreibrechte zur Verfügung")
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add("oder Datei ist in Benutzung. Check Log-Datei") Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes.Add("oder Datei ist in Benutzung. Check Log-Datei")
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(0).ForeColor = Color.Red Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(0).ForeColor = Color.Red
Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(1).ForeColor = Color.Red Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(1).ForeColor = Color.Red
End If End If
'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add("Dateiname: " & dateiname.Substring(dateiname.LastIndexOf("\") + 1)) 'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add("Dateiname: " & dateiname.Substring(dateiname.LastIndexOf("\") + 1))
@ -1025,23 +1025,75 @@ Public Class frmDIHauptseite
End If End If
End Function End Function
Public Class SW
Public label As String
Public stopwatch As Stopwatch
Public Sub New(label As String)
Me.label = label
stopwatch = New Stopwatch()
stopwatch.Start()
End Sub
Public Function Done() As Long
stopwatch.Stop()
Dim ts As TimeSpan = stopwatch.Elapsed
Dim oDecResult As Decimal
Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
If ts.Minutes > 0 Then
timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
Try
oDecResult = CDec(timespan_.ToString.Replace(" seconds", ""))
Catch ex As Exception
oDecResult = 0
End Try
ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then
timespan_ = String.Format("{0:00}.{1:00} seconds (below1sec)", ts.Seconds, ts.Milliseconds / 10)
Try
oDecResult = CDec(timespan_.ToString.Replace(" seconds (below1sec)", ""))
Catch ex As Exception
oDecResult = 0
End Try
End If
If timespan_ <> "00:00.00" Then
Dim message = String.Format("{0} || {1}", timespan_, label)
ClassLoggerDI.Add(message, False)
End If
Return oDecResult
End Function
End Class
Sub DetailLog(Detailinfo As String)
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(Detailinfo, False)
End Sub
Dim SWBesttime As Decimal = 100
Public Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String) Public Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String)
Dim oFilenameOnly As String = Path.GetFileName(filenameQuelle)
Dim oStopWatchTimer As SW
Dim oStopWatchTimerC As SW
Dim _Step As String = "0" Dim _Step As String = "0"
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer = New SW($"[{oFilenameOnly}]-Stream_File")
oStopWatchTimerC = New SW($"[{oFilenameOnly}]-Stream_FileComplete")
End If
Try Try
If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then
My.Computer.FileSystem.CreateDirectory(zielpfad) My.Computer.FileSystem.CreateDirectory(zielpfad)
ClassLoggerDI.Add(" - Zielverzeichnis neu erzeugt!", False) ClassLoggerDI.Add("Zielverzeichnis neu erzeugt!", False)
End If End If
Const STREAM_BinaryObject = "BinaryObject" Const STREAM_BinaryObject = "BinaryObject"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Stream_File wurde gestartet", False) DetailLog(">> Stream_File wurde gestartet")
Dim endgültigerDateiname As String = "" Dim endgültigerDateiname As String = ""
' Objekt für Datei und Zielverzeichnis anlegen ' Objekt für Datei und Zielverzeichnis anlegen
Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Quelldatei gelesen", False) DetailLog(">> Quelldatei gelesen")
_Step = "1" _Step = "1"
'## Prüfen ob Datum-Ordnerhierarchie erstellt werden soll '## Prüfen ob Datum-Ordnerhierarchie erstellt werden soll
If selectedProfile.Date_UV.ToString <> "" Then If selectedProfile.Date_UV.ToString <> "" Then
@ -1072,26 +1124,30 @@ Public Class frmDIHauptseite
My.Computer.FileSystem.CreateDirectory(zielpfad & "\" & My.Computer.Clock.LocalTime.Year) My.Computer.FileSystem.CreateDirectory(zielpfad & "\" & My.Computer.Clock.LocalTime.Year)
zielpfad = zielpfad & "\" & My.Computer.Clock.LocalTime.Year zielpfad = zielpfad & "\" & My.Computer.Clock.LocalTime.Year
End Select End Select
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Zielpfad erzeugt: '" & zielpfad & "'", False) DetailLog(">> Zielpfad erzeugt: '" & zielpfad & "'")
End If End If
_Step = "2" _Step = "2"
'######## '########
Dim Zielverzeichnis As String = zielpfad Dim Zielverzeichnis As String = zielpfad
endgültigerDateiname = Zielverzeichnis.Substring(2) & "\" & Quelldatei_Name endgültigerDateiname = Zielverzeichnis.Substring(2) & "\" & Quelldatei_Name
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Zielverzeichnis erzeugt", False) DetailLog(">> Zielverzeichnis erzeugt")
If Directory.Exists(Zielverzeichnis) = False Then If Directory.Exists(Zielverzeichnis) = False Then
'Try to create the directory. 'Try to create the directory.
Try Try
Directory.CreateDirectory(Zielverzeichnis) Directory.CreateDirectory(Zielverzeichnis)
Catch ex As Exception Catch ex As Exception
ClassLoggerDI.Add(" - Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message) ClassLoggerDI.Add(" - Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -2 Return -2
End Try End Try
End If End If
_Step = "2.1" _Step = "2.1"
If Directory.Exists(Zielverzeichnis) Then If Directory.Exists(Zielverzeichnis) Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - targetPath exisitiert", False) DetailLog(">> targetPath exisitiert")
' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
Dim dvr As New DriveInfo(My.Settings.vWLaufwerk & ":") Dim dvr As New DriveInfo(My.Settings.vWLaufwerk & ":")
Dim freeSpace = dvr.TotalFreeSpace Dim freeSpace = dvr.TotalFreeSpace
@ -1101,20 +1157,24 @@ Public Class frmDIHauptseite
Dim length As Long = info.Length Dim length As Long = info.Length
If freeSpace < length Then If freeSpace < length Then
MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -2 Return -2
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".", False) DetailLog(">> Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".")
Dim oNewWMObject Dim oNewWMObject
Dim oFileIO Dim oFileIO
Dim oWMStream Dim oWMStream
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False) DetailLog(">> Connect definieren: CreateObject('Windream.WMConnect')")
If My.Settings.DLL_WMOTOOL = "" Then If My.Settings.DLL_WMOTOOL = "" Then
oFileIO = New WMOTOOLLib.WMFileIO oFileIO = New WMOTOOLLib.WMFileIO
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) DetailLog(">> Direkter Verweis auf New WMOTOOLLib.WMFileIO")
Else Else
oFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO oFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) DetailLog(">> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'")
End If End If
Dim LoggedIn = _windream.oWMSession.aLoggedin Dim LoggedIn = _windream.oWMSession.aLoggedin
@ -1126,32 +1186,36 @@ Public Class frmDIHauptseite
'================================================================== '==================================================================
' check if files exist ' check if files exist
'================================================================== '==================================================================
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) DetailLog(">> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname)
Dim wdFilexists As Boolean Dim wdFilexists As Boolean
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) DetailLog(">> Versuch auf die Datei in W: zuzugreifen und zu sperren...")
_Step = "3" _Step = "3"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
wdFilexists = _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) wdFilexists = _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
If wdFilexists = False Then If wdFilexists = False Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) DetailLog(">> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden")
Err.Clear() Err.Clear()
'================================================================== '==================================================================
' create an object ' create an object
'================================================================== '==================================================================
_Step = "3.1" _Step = "3.1"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
oNewWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) oNewWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
' MsgBox("Created file: " + endgültigerDateiname) ' MsgBox("Created file: " + endgültigerDateiname)
Else Else
_Step = "3.1.1" _Step = "3.1.1"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) DetailLog("-> DATEI IST BEREITS VORHANDEN")
Err.Clear() Err.Clear()
'### Automatische Versionierung mit ~ (Tilde) ### '### Automatische Versionierung mit ~ (Tilde) ###
Dim version As Integer = 2 Dim version As Integer = 2
@ -1160,23 +1224,27 @@ Public Class frmDIHauptseite
Dim neuername As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf(".")) Dim neuername As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
Do While file_exists(My.Settings.vWLaufwerk & ":\" & neuername & extension) = True Do While file_exists(My.Settings.vWLaufwerk & ":\" & neuername & extension) = True
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei " & endgültigerDateiname & " ist vorhanden!", False) DetailLog(">> Datei " & endgültigerDateiname & " ist vorhanden!")
neuername = Stammname & "~" & version neuername = Stammname & "~" & version
endgültigerDateiname = neuername & extension endgültigerDateiname = neuername & extension
version = version + 1 version = version + 1
Loop Loop
_Step = "3.1.2" _Step = "3.1.2"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
oNewWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) oNewWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - WMObject zugewiesen", False) DetailLog(">> WMObject zugewiesen")
End If End If
_Step = "3.2" _Step = "3.2"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) DetailLog(">> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname)
If oNewWMObject IsNot Nothing Then If oNewWMObject IsNot Nothing Then
' lock object for file system access (to change the file itself) ' lock object for file system access (to change the file itself)
oNewWMObject.lock() oNewWMObject.lock()
@ -1188,29 +1256,41 @@ Public Class frmDIHauptseite
ClassLoggerDI.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) ClassLoggerDI.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False)
oNewWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If End If
_Step = "3.3" _Step = "3.3"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
' open the windream object's file stream for writing ' open the windream object's file stream for writing
oWMStream = oNewWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) oWMStream = oNewWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
oNewWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - oWMStream erzeugt", False) DetailLog(">> oWMStream erzeugt")
' give fileIO helper object the windream stream ' give fileIO helper object the windream stream
_Step = "3.4" _Step = "3.4"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
oFileIO.aWMStream = oWMStream oFileIO.aWMStream = oWMStream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
oNewWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
@ -1220,18 +1300,26 @@ Public Class frmDIHauptseite
ClassLoggerDI.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
oNewWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Inhalt der Datei konnte übertragen werden", False) DetailLog(">> Inhalt der Datei konnte übertragen werden")
' close the windream file stream ' close the windream file stream
_Step = "3.5" _Step = "3.5"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
oWMStream.Close() oWMStream.Close()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
oNewWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
@ -1244,33 +1332,48 @@ Public Class frmDIHauptseite
Return -1 Return -1
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei konnte gespeichert werden", False) DetailLog(">> Datei konnte gespeichert werden")
' unlock the windream object ' unlock the windream object
_Step = "3.6" _Step = "3.6"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
oNewWMObject.unlock() oNewWMObject.unlock()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
oNewWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = False Then If _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = False Then
ClassLoggerDI.Add(Now.ToShortTimeString & " >> File '" & DI_STREAMRESULTFILE & "' should exist in windream but WMObjectExists returned 'false' ...", True) ClassLoggerDI.Add(Now.ToShortTimeString & " >> File '" & DI_STREAMRESULTFILE & "' should exist in windream but WMObjectExists returned 'false' ...", True)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
End If End If
'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
_Step = "3.7" _Step = "3.7"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">> _Step: " & _Step)
Dim info2 As New FileInfo(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) Dim oFILenth As FileInfo
Dim length1 As Long = info2.Length Dim oIFLength As Long
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Length der Zieldatei: " & length1.ToString, False) If My.Settings.DIOpt_CheckLength = True Then
If length1 > 0 And Err.Number = 0 Then oFILenth = New FileInfo(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
oIFLength = oFILenth.Length
DetailLog(">>Length der Zieldatei: " & oIFLength.ToString)
End If
If (My.Settings.DIOpt_CheckLength = True And oIFLength > 0 And Err.Number = 0) Or Err.Number = 0 Then
_Step = "4" _Step = "4"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) DetailLog(">>_Step: " & _Step)
If My.Settings.StopwatchTimerActive = True Then oStopWatchTimer.Done()
If My.Settings.StopwatchTimerActive = True Then oStopWatchTimer = New SW($"{oFilenameOnly}-IndexStreamFile")
If Me.DateiIndexieren(filenameQuelle, endgültigerDateiname) = False Then If Me.DateiIndexieren(filenameQuelle, endgültigerDateiname) = False Then
Try Try
oNewWMObject.Unlock() oNewWMObject.Unlock()
@ -1280,6 +1383,10 @@ Public Class frmDIHauptseite
Try Try
ClassLoggerDI.Add(" FEHLER bei Dateiindexieren - Datei" & endgültigerDateiname & " wird wieder gelöscht!") ClassLoggerDI.Add(" FEHLER bei Dateiindexieren - Datei" & endgültigerDateiname & " wird wieder gelöscht!")
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Catch ex As Exception Catch ex As Exception
ClassLoggerDI.Add(" Datei konnte nicht gelöscht werden! " & ex.Message) ClassLoggerDI.Add(" Datei konnte nicht gelöscht werden! " & ex.Message)
End Try End Try
@ -1297,31 +1404,70 @@ Public Class frmDIHauptseite
End If End If
DI_STREAMRESULTFILE = My.Settings.vWLaufwerk & ":" & p DI_STREAMRESULTFILE = My.Settings.vWLaufwerk & ":" & p
If _windream.oWMSession.WMObjectExists(WMEntityDocument, DI_STREAMRESULTFILE.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = True Then If _windream.oWMSession.WMObjectExists(WMEntityDocument, DI_STREAMRESULTFILE.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = True Then
ClassLoggerDI.Add(Now.ToShortTimeString & " >> Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False) ClassLoggerDI.Add(Now.ToString & " >> Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False)
If My.Settings.StopwatchTimerActive = True Then
Dim oSWResult = oStopWatchTimerC.Done()
Try
If oSWResult < SWBesttime Then
ClassLoggerDI.Add($"New Besttime for StreamFile: 0.{oSWResult.ToString} seconds")
SWBesttime = oSWResult
End If
Catch ex As Exception
End Try
End If
Return 0 Return 0
Else Else
ClassLoggerDI.Add(Now.ToShortTimeString & " >> File '" & DI_STREAMRESULTFILE & "' should exist in windream but WMObjectExists returned 'false' ...", True) ClassLoggerDI.Add(Now.ToString & " >> File '" & DI_STREAMRESULTFILE & "' should exist in windream but WMObjectExists returned 'false' ...", True)
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
End If End If
Else Else
_Step = "5" If My.Settings.DIOpt_CheckLength = True And oIFLength = 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) _Step = "5"
System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) DetailLog(">>_Step: " & _Step)
ClassLoggerDI.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht- Überprüfen Sie Log-File") System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
Return -1 ClassLoggerDI.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht- Überprüfen Sie Log-File")
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
End If
Return -1
End If
End If End If
Else Else
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -1 Return -1
End If End If
Else Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - targetPath exisitiert NICHT", False) DetailLog(">> targetPath exisitiert NICHT")
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Return -2 Return -2
End If End If
Catch ex As Exception Catch ex As Exception
ClassLoggerDI.Add("Unexpected Error in Stream_File: " & ex.Message, True) ClassLoggerDI.Add("Unexpected Error in Stream_File: " & ex.Message, True)
Try
If My.Settings.StopwatchTimerActive = True Then
oStopWatchTimer.Done()
oStopWatchTimerC.Done()
End If
Catch ex1 As Exception
End Try
Return -1 Return -1
End Try End Try
@ -2322,7 +2468,7 @@ Public Class frmDIHauptseite
End Sub End Sub
Private Sub TextBoxen_gotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ Private Sub TextBoxen_gotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
_ _
txtUser.GotFocus, txtSMTP.GotFocus, txtPasswort.GotFocus, _ txtUser.GotFocus, txtSMTP.GotFocus, txtPasswort.GotFocus,
txtMail_from.GotFocus, txtEmpfaenger.GotFocus, txtBody.GotFocus, txtBetreff.GotFocus txtMail_from.GotFocus, txtEmpfaenger.GotFocus, txtBody.GotFocus, txtBetreff.GotFocus
CType(sender, TextBox).BackColor = Color.Lime CType(sender, TextBox).BackColor = Color.Lime
End Sub End Sub

14
ToolCollection/frmDIProfilEigenschaften.Designer.vb generated
View File

@ -332,9 +332,9 @@ Partial Class frmDIProfilEigenschaften
Me.txtlastRun.BackColor = System.Drawing.Color.WhiteSmoke Me.txtlastRun.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtlastRun.Enabled = False Me.txtlastRun.Enabled = False
Me.txtlastRun.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtlastRun.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtlastRun.Location = New System.Drawing.Point(356, 39) Me.txtlastRun.Location = New System.Drawing.Point(367, 39)
Me.txtlastRun.Name = "txtlastRun" Me.txtlastRun.Name = "txtlastRun"
Me.txtlastRun.Size = New System.Drawing.Size(160, 25) Me.txtlastRun.Size = New System.Drawing.Size(149, 25)
Me.txtlastRun.TabIndex = 58 Me.txtlastRun.TabIndex = 58
' '
'Label7 'Label7
@ -448,7 +448,7 @@ Partial Class frmDIProfilEigenschaften
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(376, 26) Me.Label6.Size = New System.Drawing.Size(376, 26)
Me.Label6.TabIndex = 54 Me.Label6.TabIndex = 54
Me.Label6.Text = "Mindestdauer in sec: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Zeit wie lange Datei schon existieren muß - wenn 0 keine " & _ Me.Label6.Text = "Mindestdauer in sec: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Zeit wie lange Datei schon existieren muß - wenn 0 keine " &
"Überprüfung)" "Überprüfung)"
' '
'chkbxAktiv 'chkbxAktiv
@ -493,7 +493,7 @@ Partial Class frmDIProfilEigenschaften
Me.rbUV_Date3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rbUV_Date3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rbUV_Date3.Location = New System.Drawing.Point(453, 43) Me.rbUV_Date3.Location = New System.Drawing.Point(453, 43)
Me.rbUV_Date3.Name = "rbUV_Date3" Me.rbUV_Date3.Name = "rbUV_Date3"
Me.rbUV_Date3.Size = New System.Drawing.Size(105, 21) Me.rbUV_Date3.Size = New System.Drawing.Size(102, 21)
Me.rbUV_Date3.TabIndex = 6 Me.rbUV_Date3.TabIndex = 6
Me.rbUV_Date3.Text = "nur Jahr (JJJJ)" Me.rbUV_Date3.Text = "nur Jahr (JJJJ)"
Me.rbUV_Date3.UseVisualStyleBackColor = True Me.rbUV_Date3.UseVisualStyleBackColor = True
@ -504,7 +504,7 @@ Partial Class frmDIProfilEigenschaften
Me.rbUV_Date2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rbUV_Date2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rbUV_Date2.Location = New System.Drawing.Point(250, 43) Me.rbUV_Date2.Location = New System.Drawing.Point(250, 43)
Me.rbUV_Date2.Name = "rbUV_Date2" Me.rbUV_Date2.Name = "rbUV_Date2"
Me.rbUV_Date2.Size = New System.Drawing.Size(154, 21) Me.rbUV_Date2.Size = New System.Drawing.Size(151, 21)
Me.rbUV_Date2.TabIndex = 5 Me.rbUV_Date2.TabIndex = 5
Me.rbUV_Date2.Text = "Jahr-Monat (JJJJ-MM)" Me.rbUV_Date2.Text = "Jahr-Monat (JJJJ-MM)"
Me.rbUV_Date2.UseVisualStyleBackColor = True Me.rbUV_Date2.UseVisualStyleBackColor = True
@ -516,7 +516,7 @@ Partial Class frmDIProfilEigenschaften
Me.rbUV_Date1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rbUV_Date1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rbUV_Date1.Location = New System.Drawing.Point(24, 43) Me.rbUV_Date1.Location = New System.Drawing.Point(24, 43)
Me.rbUV_Date1.Name = "rbUV_Date1" Me.rbUV_Date1.Name = "rbUV_Date1"
Me.rbUV_Date1.Size = New System.Drawing.Size(204, 21) Me.rbUV_Date1.Size = New System.Drawing.Size(200, 21)
Me.rbUV_Date1.TabIndex = 4 Me.rbUV_Date1.TabIndex = 4
Me.rbUV_Date1.TabStop = True Me.rbUV_Date1.TabStop = True
Me.rbUV_Date1.Text = "Jahr-Monat-Tag (JJJJ-MM-DD)" Me.rbUV_Date1.Text = "Jahr-Monat-Tag (JJJJ-MM-DD)"
@ -656,7 +656,7 @@ Partial Class frmDIProfilEigenschaften
Me.lblImportoptionenBackupOrdner.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblImportoptionenBackupOrdner.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblImportoptionenBackupOrdner.Location = New System.Drawing.Point(6, 48) Me.lblImportoptionenBackupOrdner.Location = New System.Drawing.Point(6, 48)
Me.lblImportoptionenBackupOrdner.Name = "lblImportoptionenBackupOrdner" Me.lblImportoptionenBackupOrdner.Name = "lblImportoptionenBackupOrdner"
Me.lblImportoptionenBackupOrdner.Size = New System.Drawing.Size(78, 13) Me.lblImportoptionenBackupOrdner.Size = New System.Drawing.Size(77, 13)
Me.lblImportoptionenBackupOrdner.TabIndex = 2 Me.lblImportoptionenBackupOrdner.TabIndex = 2
Me.lblImportoptionenBackupOrdner.Text = "in Verzeichnis" Me.lblImportoptionenBackupOrdner.Text = "in Verzeichnis"
' '

63
ToolCollection/frmDIProfilHinzufuegen.Designer.vb generated
View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmDIProfilHinzufuegen Partial Class frmDIProfilHinzufuegen
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
components.Dispose() components.Dispose()
@ -17,7 +17,7 @@ Partial Class frmDIProfilHinzufuegen
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilHinzufuegen)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilHinzufuegen))
Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox() Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
@ -52,9 +52,7 @@ Partial Class frmDIProfilHinzufuegen
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.chkb_DateUV = New System.Windows.Forms.CheckBox() Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
Me.chkb_Subdirectories = New System.Windows.Forms.CheckBox() Me.chkb_Subdirectories = New System.Windows.Forms.CheckBox()
Me.rbUV_Date1 = New System.Windows.Forms.RadioButton() Me.Label6 = New System.Windows.Forms.Label()
Me.rbUV_Date2 = New System.Windows.Forms.RadioButton()
Me.rbUV_Date3 = New System.Windows.Forms.RadioButton()
Me.boxImportoptionenLoeschen.SuspendLayout() Me.boxImportoptionenLoeschen.SuspendLayout()
Me.boxImportoptionenBackup.SuspendLayout() Me.boxImportoptionenBackup.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
@ -167,7 +165,7 @@ Partial Class frmDIProfilHinzufuegen
Me.lblImportoptionenBackupOrdner.Enabled = False Me.lblImportoptionenBackupOrdner.Enabled = False
Me.lblImportoptionenBackupOrdner.Location = New System.Drawing.Point(6, 48) Me.lblImportoptionenBackupOrdner.Location = New System.Drawing.Point(6, 48)
Me.lblImportoptionenBackupOrdner.Name = "lblImportoptionenBackupOrdner" Me.lblImportoptionenBackupOrdner.Name = "lblImportoptionenBackupOrdner"
Me.lblImportoptionenBackupOrdner.Size = New System.Drawing.Size(81, 13) Me.lblImportoptionenBackupOrdner.Size = New System.Drawing.Size(80, 13)
Me.lblImportoptionenBackupOrdner.TabIndex = 2 Me.lblImportoptionenBackupOrdner.TabIndex = 2
Me.lblImportoptionenBackupOrdner.Text = "in Verzeichnis:" Me.lblImportoptionenBackupOrdner.Text = "in Verzeichnis:"
' '
@ -187,8 +185,8 @@ Partial Class frmDIProfilHinzufuegen
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(469, 35) Me.Label5.Size = New System.Drawing.Size(469, 35)
Me.Label5.TabIndex = 32 Me.Label5.TabIndex = 32
Me.Label5.Text = "Legen Sie hier ein neues Profil an. Der Objekttyp kann hier EINMALIG gewählt werd" & _ Me.Label5.Text = "Legen Sie hier ein neues Profil an. Der Objekttyp kann hier EINMALIG gewählt werd" &
"en. Bitte beachten Sie das er zu einem späteren Zeitpunkt nicht mehr zu ändern i" & _ "en. Bitte beachten Sie das er zu einem späteren Zeitpunkt nicht mehr zu ändern i" &
"st." "st."
' '
'btnAbbrechen 'btnAbbrechen
@ -319,9 +317,7 @@ Partial Class frmDIProfilHinzufuegen
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.rbUV_Date3) Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.rbUV_Date2)
Me.GroupBox1.Controls.Add(Me.rbUV_Date1)
Me.GroupBox1.Controls.Add(Me.chkb_DateUV) Me.GroupBox1.Controls.Add(Me.chkb_DateUV)
Me.GroupBox1.Location = New System.Drawing.Point(15, 266) Me.GroupBox1.Location = New System.Drawing.Point(15, 266)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
@ -350,37 +346,16 @@ Partial Class frmDIProfilHinzufuegen
Me.chkb_Subdirectories.Text = "Unterverzeichnisse einbeziehen (Ordnerstruktur wird komplett übernommen)" Me.chkb_Subdirectories.Text = "Unterverzeichnisse einbeziehen (Ordnerstruktur wird komplett übernommen)"
Me.chkb_Subdirectories.UseVisualStyleBackColor = True Me.chkb_Subdirectories.UseVisualStyleBackColor = True
' '
'rbUV_Date1 'Label6
' '
Me.rbUV_Date1.AutoSize = True Me.Label6.AutoSize = True
Me.rbUV_Date1.Checked = True Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rbUV_Date1.Location = New System.Drawing.Point(27, 43) Me.Label6.Location = New System.Drawing.Point(28, 40)
Me.rbUV_Date1.Name = "rbUV_Date1" Me.Label6.Name = "Label6"
Me.rbUV_Date1.Size = New System.Drawing.Size(175, 17) Me.Label6.Size = New System.Drawing.Size(243, 15)
Me.rbUV_Date1.TabIndex = 1 Me.Label6.TabIndex = 1
Me.rbUV_Date1.TabStop = True Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
Me.rbUV_Date1.Text = "Jahr-Monat-Tag (JJJJ-MM-DD)" Me.Label6.Visible = False
Me.rbUV_Date1.UseVisualStyleBackColor = True
'
'rbUV_Date2
'
Me.rbUV_Date2.AutoSize = True
Me.rbUV_Date2.Location = New System.Drawing.Point(253, 43)
Me.rbUV_Date2.Name = "rbUV_Date2"
Me.rbUV_Date2.Size = New System.Drawing.Size(133, 17)
Me.rbUV_Date2.TabIndex = 2
Me.rbUV_Date2.Text = "Jahr-Monat (JJJJ-MM)"
Me.rbUV_Date2.UseVisualStyleBackColor = True
'
'rbUV_Date3
'
Me.rbUV_Date3.AutoSize = True
Me.rbUV_Date3.Location = New System.Drawing.Point(456, 43)
Me.rbUV_Date3.Name = "rbUV_Date3"
Me.rbUV_Date3.Size = New System.Drawing.Size(92, 17)
Me.rbUV_Date3.TabIndex = 3
Me.rbUV_Date3.Text = "nur Jahr (JJJJ)"
Me.rbUV_Date3.UseVisualStyleBackColor = True
' '
'frmDIProfilHinzufuegen 'frmDIProfilHinzufuegen
' '
@ -457,7 +432,5 @@ Partial Class frmDIProfilHinzufuegen
Friend WithEvents chkb_DateUV As System.Windows.Forms.CheckBox Friend WithEvents chkb_DateUV As System.Windows.Forms.CheckBox
Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox
Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox
Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton Friend WithEvents Label6 As Label
Friend WithEvents rbUV_Date2 As System.Windows.Forms.RadioButton
Friend WithEvents rbUV_Date1 As System.Windows.Forms.RadioButton
End Class End Class

20
ToolCollection/frmDIProfilHinzufuegen.vb
View File

@ -32,7 +32,7 @@
Me.ObjekttypenEintragen() Me.ObjekttypenEintragen()
frmLogin_DI.Close() frmLogin_DI.Close()
Label6.Visible = False
End Sub End Sub
Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click
Me.dlgQuellordner.SelectedPath = Me.txtQuellordner.Text Me.dlgQuellordner.SelectedPath = Me.txtQuellordner.Text
@ -89,10 +89,10 @@
Private Sub btnAnlegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Private Sub btnAnlegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If Me.txtProfilname.Text.Length > 0 And Me.cmbObjekttyp.SelectedIndex <> -1 Then If Me.txtProfilname.Text.Length > 0 And Me.cmbObjekttyp.SelectedIndex <> -1 Then
If Not ClassDIProfile.Profilname_Exists(Me.txtProfilname.Text) Then If Not ClassDIProfile.Profilname_Exists(Me.txtProfilname.Text) Then
ClassDIProfile.Add(Me.txtProfilname.Text, Me.cmbObjekttyp.SelectedItem, Me.txtQuellordner.Text, Me.chkb_Subdirectories.Checked, _ ClassDIProfile.Add(Me.txtProfilname.Text, Me.cmbObjekttyp.SelectedItem, Me.txtQuellordner.Text, Me.chkb_Subdirectories.Checked,
Me.txtZielordner.Text, Me.chkImportoptionenBackup.Checked, Me.txtBackupordner.Text, _ Me.txtZielordner.Text, Me.chkImportoptionenBackup.Checked, Me.txtBackupordner.Text,
Me.chkDateienÜberschreiben.Checked, Me.chkDateienLoeschen.Checked, _ Me.chkDateienÜberschreiben.Checked, Me.chkDateienLoeschen.Checked,
Me.chkb_DateUV.Checked, _ Me.chkb_DateUV.Checked,
Me.chkQuellverzeichnisLoeschen.Checked, 0, False, "", "", chkUVloeschen.Checked) Me.chkQuellverzeichnisLoeschen.Checked, 0, False, "", "", chkUVloeschen.Checked)
Me.Close() Me.Close()
Else Else
@ -153,6 +153,14 @@
End Sub End Sub
Private Sub chkb_DateUV_CheckedChanged(sender As Object, e As EventArgs) Handles chkb_DateUV.CheckedChanged Private Sub chkb_DateUV_CheckedChanged(sender As Object, e As EventArgs) Handles chkb_DateUV.CheckedChanged
rbUV_Date1.Checked = True Label6.Visible = True
End Sub
Private Sub rbUV_Date2_CheckedChanged(sender As Object, e As EventArgs)
End Sub
Private Sub rbUV_Date3_CheckedChanged(sender As Object, e As EventArgs)
End Sub End Sub
End Class End Class

129
ToolCollection/frmNIHauptseite.Designer.vb generated
View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmNIHauptseite Partial Class frmNIHauptseite
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@ -20,7 +20,7 @@ Partial Class frmNIHauptseite
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIHauptseite)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIHauptseite))
@ -34,8 +34,6 @@ Partial Class frmNIHauptseite
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar() Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.ProgressBar2 = New System.Windows.Forms.ProgressBar() Me.ProgressBar2 = New System.Windows.Forms.ProgressBar()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btnStartStop = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.pnlInfos = New System.Windows.Forms.Panel() Me.pnlInfos = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
@ -54,7 +52,6 @@ Partial Class frmNIHauptseite
Me.Label17 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.txtBody = New System.Windows.Forms.TextBox() Me.txtBody = New System.Windows.Forms.TextBox()
Me.btntestmail = New System.Windows.Forms.Button()
Me.txtEmpfaenger = New System.Windows.Forms.TextBox() Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.txtBetreff = New System.Windows.Forms.TextBox() Me.txtBetreff = New System.Windows.Forms.TextBox()
@ -71,7 +68,6 @@ Partial Class frmNIHauptseite
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.chkbEmail = New System.Windows.Forms.CheckBox() Me.chkbEmail = New System.Windows.Forms.CheckBox()
Me.timRun = New System.Windows.Forms.Timer(Me.components) Me.timRun = New System.Windows.Forms.Timer(Me.components)
Me.MyDataset = New ToolCollection.MyDataset()
Me.DS_More = New ToolCollection.DS_More() Me.DS_More = New ToolCollection.DS_More()
Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter = New ToolCollection.DS_MoreTableAdapters.VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter() Me.VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter = New ToolCollection.DS_MoreTableAdapters.VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter()
@ -79,19 +75,27 @@ Partial Class frmNIHauptseite
Me.TBMO_RE_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBMO_RE_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBMO_RE_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter() Me.TBMO_RE_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter()
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components) Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.MyDataset = New ToolCollection.MyDataset()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btnStartStop = New System.Windows.Forms.Button()
Me.btntestmail = New System.Windows.Forms.Button()
Me.TBTC_MOVE_RENAMEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBTC_MOVE_RENAMETableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter()
Me.TableAdapterManager1 = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
Me.tcmain.SuspendLayout() Me.tcmain.SuspendLayout()
Me.tpMain.SuspendLayout() Me.tpMain.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlInfos.SuspendLayout() Me.pnlInfos.SuspendLayout()
CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.gbEmail.SuspendLayout() Me.gbEmail.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBTC_MOVE_RENAMEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'tcmain 'tcmain
@ -203,29 +207,6 @@ Partial Class frmNIHauptseite
Me.Label2.TabIndex = 26 Me.Label2.TabIndex = 26
Me.Label2.Text = "Fortschritt des aktuellen Durchlaufs (Gesamt)" Me.Label2.Text = "Fortschritt des aktuellen Durchlaufs (Gesamt)"
' '
'PictureBox1
'
Me.PictureBox1.Image = Global.ToolCollection.My.Resources.Resources.info_small
Me.PictureBox1.Location = New System.Drawing.Point(55, 91)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(48, 52)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 42
Me.PictureBox1.TabStop = False
'
'btnStartStop
'
Me.btnStartStop.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnStartStop.Image = Global.ToolCollection.My.Resources.Resources.clock_run
Me.btnStartStop.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnStartStop.Location = New System.Drawing.Point(211, 390)
Me.btnStartStop.Name = "btnStartStop"
Me.btnStartStop.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnStartStop.Size = New System.Drawing.Size(271, 40)
Me.btnStartStop.TabIndex = 27
Me.btnStartStop.Text = "Nachindexierung starten"
Me.btnStartStop.UseVisualStyleBackColor = True
'
'Label6 'Label6
' '
Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -343,10 +324,9 @@ Partial Class frmNIHauptseite
'numIntervall 'numIntervall
' '
Me.numIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.ToolCollection.My.MySettings.Default, "NI_Durchlauf_Intervall", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.numIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.ToolCollection.My.MySettings.Default, "NI_Durchlauf_Intervall", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.numIntervall.Increment = New Decimal(New Integer() {5, 0, 0, 0})
Me.numIntervall.Location = New System.Drawing.Point(81, 61) Me.numIntervall.Location = New System.Drawing.Point(81, 61)
Me.numIntervall.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) Me.numIntervall.Maximum = New Decimal(New Integer() {600, 0, 0, 0})
Me.numIntervall.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) Me.numIntervall.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numIntervall.Name = "numIntervall" Me.numIntervall.Name = "numIntervall"
Me.numIntervall.Size = New System.Drawing.Size(55, 22) Me.numIntervall.Size = New System.Drawing.Size(55, 22)
Me.numIntervall.TabIndex = 38 Me.numIntervall.TabIndex = 38
@ -429,18 +409,6 @@ Partial Class frmNIHauptseite
Me.txtBody.TabIndex = 13 Me.txtBody.TabIndex = 13
Me.txtBody.Text = Global.ToolCollection.My.MySettings.Default.vNIMailBody Me.txtBody.Text = Global.ToolCollection.My.MySettings.Default.vNIMailBody
' '
'btntestmail
'
Me.btntestmail.Image = Global.ToolCollection.My.Resources.Resources.mail_write
Me.btntestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btntestmail.Location = New System.Drawing.Point(9, 322)
Me.btntestmail.Name = "btntestmail"
Me.btntestmail.Size = New System.Drawing.Size(99, 34)
Me.btntestmail.TabIndex = 12
Me.btntestmail.Text = "Test-Mail"
Me.btntestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btntestmail.UseVisualStyleBackColor = True
'
'txtEmpfaenger 'txtEmpfaenger
' '
Me.txtEmpfaenger.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIEmailEmpf", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.txtEmpfaenger.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIEmailEmpf", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
@ -587,11 +555,6 @@ Partial Class frmNIHauptseite
' '
Me.timRun.Interval = 60 Me.timRun.Interval = 60
' '
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'DS_More 'DS_More
' '
Me.DS_More.DataSetName = "DS_More" Me.DS_More.DataSetName = "DS_More"
@ -629,6 +592,62 @@ Partial Class frmNIHauptseite
' '
Me.TimerRefresh.Interval = 10000 Me.TimerRefresh.Interval = 10000
' '
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'PictureBox1
'
Me.PictureBox1.Image = Global.ToolCollection.My.Resources.Resources.info_small
Me.PictureBox1.Location = New System.Drawing.Point(55, 91)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(48, 52)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 42
Me.PictureBox1.TabStop = False
'
'btnStartStop
'
Me.btnStartStop.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnStartStop.Image = Global.ToolCollection.My.Resources.Resources.clock_run
Me.btnStartStop.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnStartStop.Location = New System.Drawing.Point(211, 390)
Me.btnStartStop.Name = "btnStartStop"
Me.btnStartStop.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnStartStop.Size = New System.Drawing.Size(271, 40)
Me.btnStartStop.TabIndex = 27
Me.btnStartStop.Text = "Nachindexierung starten"
Me.btnStartStop.UseVisualStyleBackColor = True
'
'btntestmail
'
Me.btntestmail.Image = Global.ToolCollection.My.Resources.Resources.mail_write
Me.btntestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btntestmail.Location = New System.Drawing.Point(9, 322)
Me.btntestmail.Name = "btntestmail"
Me.btntestmail.Size = New System.Drawing.Size(99, 34)
Me.btntestmail.TabIndex = 12
Me.btntestmail.Text = "Test-Mail"
Me.btntestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btntestmail.UseVisualStyleBackColor = True
'
'TBTC_MOVE_RENAMEBindingSource
'
Me.TBTC_MOVE_RENAMEBindingSource.DataMember = "TBTC_MOVE_RENAME"
Me.TBTC_MOVE_RENAMEBindingSource.DataSource = Me.MyDataset
'
'TBTC_MOVE_RENAMETableAdapter
'
Me.TBTC_MOVE_RENAMETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager1
'
Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager1.TBDD_REPORTING_IMPORTTableAdapter = Nothing
Me.TableAdapterManager1.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter
Me.TableAdapterManager1.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'frmNIHauptseite 'frmNIHauptseite
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -647,7 +666,6 @@ Partial Class frmNIHauptseite
Me.tpMain.PerformLayout() Me.tpMain.PerformLayout()
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlInfos.ResumeLayout(False) Me.pnlInfos.ResumeLayout(False)
Me.pnlInfos.PerformLayout() Me.pnlInfos.PerformLayout()
CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit()
@ -656,10 +674,12 @@ Partial Class frmNIHauptseite
Me.gbEmail.PerformLayout() Me.gbEmail.PerformLayout()
Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout() Me.GroupBox3.PerformLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBTC_MOVE_RENAMEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -719,4 +739,7 @@ Partial Class frmNIHauptseite
Friend WithEvents tslblStatus As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tslblStatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
Friend WithEvents lblNotWorking As Label Friend WithEvents lblNotWorking As Label
Friend WithEvents TBTC_MOVE_RENAMEBindingSource As BindingSource
Friend WithEvents TBTC_MOVE_RENAMETableAdapter As MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter
Friend WithEvents TableAdapterManager1 As MyDatasetTableAdapters.TableAdapterManager
End Class End Class

15
ToolCollection/frmNIHauptseite.resx
View File

@ -126,9 +126,6 @@
<metadata name="timRun.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="timRun.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>109, 17</value>
</metadata>
<metadata name="DS_More.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DS_More.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>219, 17</value> <value>219, 17</value>
</metadata> </metadata>
@ -150,6 +147,18 @@
<metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>365, 56</value> <value>365, 56</value>
</metadata> </metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>109, 17</value>
</metadata>
<metadata name="TBTC_MOVE_RENAMEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>488, 56</value>
</metadata>
<metadata name="TBTC_MOVE_RENAMETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>739, 56</value>
</metadata>
<metadata name="TableAdapterManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>984, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>297</value> <value>297</value>
</metadata> </metadata>

438
ToolCollection/frmNIHauptseite.vb
View File

@ -1,5 +1,6 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.IO Imports System.IO
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports WINDREAMLib Imports WINDREAMLib
@ -120,6 +121,7 @@ Public Class frmNIHauptseite
Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try Try
LoadAllModules() LoadAllModules()
TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DD_ECMConnString
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei frmNIHauptseite_Load") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei frmNIHauptseite_Load")
_Logger.Warn("Fehler bei frmNIHauptseite_Load: " & ex.Message) _Logger.Warn("Fehler bei frmNIHauptseite_Load: " & ex.Message)
@ -709,7 +711,7 @@ Public Class frmNIHauptseite
Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All") Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All")
_Logger.Info("IndexiereVerarbeiteDokument '" & Me.aktivesDokument.aName & "'") _Logger.Info("IndexiereVerarbeiteDokument '" & Me.aktivesDokument.aName & "'")
' dient zum Überprüfen auf Fehler ' dient zum Überprüfen auf Fehler
Dim error_in_Indexierung As Boolean = False Dim oUnexpectedError As Boolean = False
Dim unvollstaendig As Boolean = False Dim unvollstaendig As Boolean = False
_MRKONVERT_FEHLER = 0 _MRKONVERT_FEHLER = 0
Dim result As String = "" Dim result As String = ""
@ -735,7 +737,7 @@ Public Class frmNIHauptseite
Volltext_indexer(dokument, fulltext) Volltext_indexer(dokument, fulltext)
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
error_in_Indexierung = True oUnexpectedError = True
unvollstaendig = True unvollstaendig = True
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
@ -743,11 +745,11 @@ Public Class frmNIHauptseite
Case "db" Case "db"
error_in_Indexierung = Check_Desk_Index() oUnexpectedError = Check_Desk_Index()
'If aktivesProfil.checkIndexsql = "" Then 'If aktivesProfil.checkIndexsql = "" Then
' _Logger.Debug("# HINWEIS: Eine sql-Überprüfung des Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen!#") ' _Logger.Debug("# HINWEIS: Eine sql-Überprüfung des Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen!#")
'End If 'End If
If aktivesProfil.checkIndexsql <> String.Empty And error_in_Indexierung = False Then If aktivesProfil.checkIndexsql <> String.Empty And oUnexpectedError = False Then
_Logger.Debug("Überprüfung des deskriptiven Indexwertes gegen die DB") _Logger.Debug("Überprüfung des deskriptiven Indexwertes gegen die DB")
'################## '##################
'Zuerst überprüfen ob der Deskriptive Idnex einen gültigen Wert zurückliefert 'Zuerst überprüfen ob der Deskriptive Idnex einen gültigen Wert zurückliefert
@ -773,7 +775,7 @@ Public Class frmNIHauptseite
'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet 'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
_Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!") _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!")
fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!" fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!"
error_in_Indexierung = True oUnexpectedError = True
unvollstaendig = True unvollstaendig = True
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
@ -783,7 +785,7 @@ Public Class frmNIHauptseite
' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
_Logger.Error(ex) _Logger.Error(ex)
error_in_Indexierung = True oUnexpectedError = True
SetErrorMeldung("Error while Checking DeskriptiveIndex", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("Error while Checking DeskriptiveIndex", aktivesDokument, My.Settings.ERROR_INDEX)
End Try End Try
End If End If
@ -803,7 +805,7 @@ Public Class frmNIHauptseite
SetErrorMeldung("Nachindexdatei NOT EXISTING", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("Nachindexdatei NOT EXISTING", aktivesDokument, My.Settings.ERROR_INDEX)
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
fehlermsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!" fehlermsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!"
error_in_Indexierung = True oUnexpectedError = True
End If End If
End If End If
Case "activedirectory" Case "activedirectory"
@ -823,7 +825,7 @@ Public Class frmNIHauptseite
Dim selectArray() Dim selectArray()
If IsNothing(Me.aktivesProfil.Verknüpfungen.Links) = False And error_in_Indexierung = False And unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Then If IsNothing(Me.aktivesProfil.Verknüpfungen.Links) = False And oUnexpectedError = False And unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Then
' alle Verknüpfungen/Links des aktuellen Suchergebnisses durchlaufen ' alle Verknüpfungen/Links des aktuellen Suchergebnisses durchlaufen
For Each INDEX_SQL_BEFEHL As ClassNIVerknüpfung In Me.aktivesProfil.Verknüpfungen.Links For Each INDEX_SQL_BEFEHL As ClassNIVerknüpfung In Me.aktivesProfil.Verknüpfungen.Links
@ -879,7 +881,7 @@ Public Class frmNIHauptseite
' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
result &= vbNewLine & " - Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "'" result &= vbNewLine & " - Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "'"
error_in_Indexierung = True oUnexpectedError = True
fehlermsg &= vbNewLine & "Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "' - Fehler: " & ex.Message fehlermsg &= vbNewLine & "Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "' - Fehler: " & ex.Message
If My.Settings.vNIMailsenden = True Then If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten (GetVariableValue bei Auslesen des einschränkenden Wertes): " & ex.Message) email.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten (GetVariableValue bei Auslesen des einschränkenden Wertes): " & ex.Message)
@ -888,12 +890,12 @@ Public Class frmNIHauptseite
' wenn beim Auslesen des Wertes für den aktuellen windream-Index kein Fehler auftrat ' wenn beim Auslesen des Wertes für den aktuellen windream-Index kein Fehler auftrat
' und die Abfrage ein Ergebnis zurück gab ' und die Abfrage ein Ergebnis zurück gab
If IndexwertAusWindream Is Nothing And Not error_in_Indexierung Then If IndexwertAusWindream Is Nothing And Not oUnexpectedError Then
' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen) ' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen)
_Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING") _Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING")
_Logger.Warn("SQL-String bisher: " & oSqlCommand) _Logger.Warn("SQL-String bisher: " & oSqlCommand)
' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden ' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden
error_in_Indexierung = True oUnexpectedError = True
Else Else
' den Platzhalter im SQL-String durch den Wert ersetzen ' den Platzhalter im SQL-String durch den Wert ersetzen
oSqlCommand = oSqlCommand.Replace(element.Value, IndexwertAusWindream.ToString) oSqlCommand = oSqlCommand.Replace(element.Value, IndexwertAusWindream.ToString)
@ -918,15 +920,15 @@ Public Class frmNIHauptseite
result &= vbNewLine & " " & oSqlCommand result &= vbNewLine & " " & oSqlCommand
' wenn kein error_in_Indexierung aufgetreten ist ' wenn kein error_in_Indexierung aufgetreten ist
If error_in_Indexierung = False Then If oUnexpectedError = False Then
Dim _NidxWert = Nothing ' Der Nachindexierungswert: entweder aus Datenbankabrage oder aus xml-File Dim oResultNachindexierung = Nothing ' Der Nachindexierungswert: entweder aus Datenbankabrage oder aus xml-File
'Indexierung gegen ein Indexfeld 'Indexierung gegen ein Indexfeld
If INDEX_SQL_BEFEHL.Spalte.StartsWith("%") And INDEX_SQL_BEFEHL.Spalte.EndsWith("%") Then If INDEX_SQL_BEFEHL.Spalte.StartsWith("%") And INDEX_SQL_BEFEHL.Spalte.EndsWith("%") Then
'Ein manueller Wert in der Verknüpfung 'Ein manueller Wert in der Verknüpfung
_Logger.Debug("Indexierung mit einem manuellem Wert") _Logger.Debug("Indexierung mit einem manuellem Wert")
Dim _wert As String = INDEX_SQL_BEFEHL.Spalte.Replace("%", "") Dim _wert As String = INDEX_SQL_BEFEHL.Spalte.Replace("%", "")
_NidxWert = _wert oResultNachindexierung = _wert
_Logger.Debug("Manueller Wert: '" & _NidxWert & "'") _Logger.Debug("Manueller Wert: '" & oResultNachindexierung & "'")
Else Else
Dim Arr() As Object Dim Arr() As Object
''########### ''###########
@ -968,12 +970,12 @@ Public Class frmNIHauptseite
ReDim Preserve selectArray(0) ReDim Preserve selectArray(0)
'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString) 'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString)
selectArray(0) = oSqlCommand selectArray(0) = oSqlCommand
_Logger.Warn("IndexwertAusWindream Is Nothing: Select: '" & oSqlCommand & "'") _Logger.Warn("IndexwertAusWindream Is Nothing: Select so far: '" & oSqlCommand & "'")
End If End If
'Nur wenn KEIN INDEXWERT also KEIN MANUELLER WERT 'Nur wenn KEIN INDEXWERT also KEIN MANUELLER WERT
If _NidxWert Is Nothing Then If oResultNachindexierung Is Nothing Then
'Indexwert über DB oder Datei 'Indexwert über DB oder Datei
Select Case aktivesProfil.Ni_Art.ToLower Select Case aktivesProfil.Ni_Art.ToLower
Case "db" Case "db"
@ -988,15 +990,16 @@ Public Class frmNIHauptseite
'MessageBox.Show("Select: " & vbNewLine & selectArray(i)) 'MessageBox.Show("Select: " & vbNewLine & selectArray(i))
' die SQL-Abfrage durchführen (liefert den Wert der in den windream-Index geschrieben werden soll) ' die SQL-Abfrage durchführen (liefert den Wert der in den windream-Index geschrieben werden soll)
If Me.aktivesProfil.DbArt = "Oracle" Then If Me.aktivesProfil.DbArt = "Oracle" Then
_NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) oResultNachindexierung = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then
_NidxWert = database.GetValueFromMssqlDb(dokument.aName, aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) oResultNachindexierung = database.GetValueFromMssqlDb(dokument.aName, aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
ElseIf Me.aktivesProfil.DbArt = "ODBC" Then ElseIf Me.aktivesProfil.DbArt = "ODBC" Then
_NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index) oResultNachindexierung = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index)
MsgBox(oResultNachindexierung)
ElseIf Me.aktivesProfil.DbArt = "OLE (Access)" Then ElseIf Me.aktivesProfil.DbArt = "OLE (Access)" Then
_NidxWert = database.GetValueFromOleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index) oResultNachindexierung = database.GetValueFromOleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index)
ElseIf Me.aktivesProfil.DbArt = "Firebird" Then ElseIf Me.aktivesProfil.DbArt = "Firebird" Then
_NidxWert = database.GetValueFromFirebird(aktivesProfil.Profilname, selectArray(i), INDEX_SQL_BEFEHL.Index, MyDataset) oResultNachindexierung = database.GetValueFromFirebird(aktivesProfil.Profilname, selectArray(i), INDEX_SQL_BEFEHL.Index, MyDataset)
End If End If
Next Next
Case "xml" Case "xml"
@ -1008,15 +1011,15 @@ Public Class frmNIHauptseite
'Dateipfad für xffres/xml-Datei zusammenbauen 'Dateipfad für xffres/xml-Datei zusammenbauen
If File.Exists(_pathxmlfile) Then If File.Exists(_pathxmlfile) Then
'Übergabe der Dateiparameter und des xml-Knotens 'Übergabe der Dateiparameter und des xml-Knotens
_NidxWert = Trim(xml.GetValueFromLuratechxml(System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & aktivesProfil.xmlEnd, _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname)) oResultNachindexierung = Trim(xml.GetValueFromLuratechxml(System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & aktivesProfil.xmlEnd, _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname))
'wert aus Luratech darf nicht leer sein 'wert aus Luratech darf nicht leer sein
If _NidxWert Is Nothing Then If oResultNachindexierung Is Nothing Then
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX)
End If End If
Else Else
_Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!")
error_in_Indexierung = True oUnexpectedError = True
fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!"
End If End If
ElseIf aktivesProfil.xmlEnd = "xml (ZugFerd)" Then ElseIf aktivesProfil.xmlEnd = "xml (ZugFerd)" Then
@ -1024,21 +1027,21 @@ Public Class frmNIHauptseite
'Dateipfad für xffres/xml-Datei zusammenbauen 'Dateipfad für xffres/xml-Datei zusammenbauen
If File.Exists(_pathxmlfile) Then If File.Exists(_pathxmlfile) Then
'Übergabe der Dateiparameter und des xml-Knotens 'Übergabe der Dateiparameter und des xml-Knotens
_NidxWert = Trim(xml.GetValueFromZugFerdxml(System.IO.Path.GetFileNameWithoutExtension(_pathxmlfile), _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname)) oResultNachindexierung = Trim(xml.GetValueFromZugFerdxml(System.IO.Path.GetFileNameWithoutExtension(_pathxmlfile), _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname))
'wert aus Luratech darf nicht leer sein 'wert aus Luratech darf nicht leer sein
If _NidxWert Is Nothing Then If oResultNachindexierung Is Nothing Then
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX)
End If End If
Else Else
_Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!")
error_in_Indexierung = True oUnexpectedError = True
fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!"
End If End If
End If End If
'wenn kein error_in_Indexierung und wert geliefert und Index ist deskriptiver Index 'wenn kein error_in_Indexierung und wert geliefert und Index ist deskriptiver Index
If Not error_in_Indexierung And aktivesProfil.Desk_windreamIndex = INDEX_SQL_BEFEHL.Index And aktivesProfil.checkIndexsql <> "" Then If Not oUnexpectedError And aktivesProfil.Desk_windreamIndex = INDEX_SQL_BEFEHL.Index And aktivesProfil.checkIndexsql <> "" Then
If (_NidxWert = "") Or (_NidxWert Is Nothing) Then If (oResultNachindexierung = "") Or (oResultNachindexierung Is Nothing) Then
_Logger.Warn("ACHTUNG: der XML-Wert (Formrecognition) ist leer! Dies kann zu Fehlern führen!") _Logger.Warn("ACHTUNG: der XML-Wert (Formrecognition) ist leer! Dies kann zu Fehlern führen!")
'Markierung Validation 'Markierung Validation
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
@ -1046,9 +1049,9 @@ Public Class frmNIHauptseite
SetErrorMeldung("Wert aus Formrec. ist leer", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("Wert aus Formrec. ist leer", aktivesDokument, My.Settings.ERROR_INDEX)
fehlermsg &= vbNewLine & " >> der Wert in der Indexdatei ist leer" fehlermsg &= vbNewLine & " >> der Wert in der Indexdatei ist leer"
_NidxWert = Nothing oResultNachindexierung = Nothing
unvollstaendig = True unvollstaendig = True
error_in_Indexierung = True oUnexpectedError = True
Else Else
Dim _dokxml As WINDREAMLib.WMObject Dim _dokxml As WINDREAMLib.WMObject
_dokxml = Nothing _dokxml = Nothing
@ -1056,14 +1059,14 @@ Public Class frmNIHauptseite
_dokxml = _windreamNI.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument _dokxml = _windreamNI.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument
'Überprüfen ob deskriptiver Wert eindeutig? 'Überprüfen ob deskriptiver Wert eindeutig?
_Logger.Debug("Überprüfung ob deskriptiver Wert eindeutig?") _Logger.Debug("Überprüfung ob deskriptiver Wert eindeutig?")
Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql, dokument) Dim Check As Integer = Check_DeskIndexValue(oResultNachindexierung, aktivesProfil.checkIndexsql, dokument)
Select Case Check Select Case Check
Case 0 Case 0
'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
_Logger.Warn("Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank!") _Logger.Warn("Der deskriptive Indexwert '" & oResultNachindexierung & "' verweist auf keinen Eintrag in der Datenbank!")
SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("Value '" & oResultNachindexierung & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
unvollstaendig = True unvollstaendig = True
error_in_Indexierung = True oUnexpectedError = True
'Überprüfung ob Wert dennoch indexiert werden soll?! 'Überprüfung ob Wert dennoch indexiert werden soll?!
@ -1074,11 +1077,11 @@ Public Class frmNIHauptseite
ReDim Preserve arrIndex(0) ReDim Preserve arrIndex(0)
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrIndex(0) = INDEX_SQL_BEFEHL.Index arrIndex(0) = INDEX_SQL_BEFEHL.Index
arrValue(0) = _NidxWert.ToString arrValue(0) = oResultNachindexierung.ToString
Me._windreamNI.RunIndexing(dokument, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) Me._windreamNI.RunIndexing(dokument, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
_Logger.Debug("Der falsche OCR-Wert: '" & _NidxWert.ToString & "' wurde eingetragen") _Logger.Debug("Der falsche OCR-Wert: '" & oResultNachindexierung.ToString & "' wurde eingetragen")
Else Else
fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf keinen Eintrag in der Datenbank!" fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & oResultNachindexierung & " verweist auf keinen Eintrag in der Datenbank!"
End If End If
'1. aktives Dok '1. aktives Dok
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
@ -1087,14 +1090,14 @@ Public Class frmNIHauptseite
'Fehlermarkierung setzen 'Fehlermarkierung setzen
Case 1 Case 1
_Logger.Debug("Der deskriptive Indexwert " & _NidxWert & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") _Logger.Debug("Der deskriptive Indexwert " & oResultNachindexierung & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
error_in_Indexierung = False oUnexpectedError = False
Case 2 Case 2
'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet 'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
_Logger.Warn("Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!") _Logger.Warn("Der deskriptive Indexwert " & oResultNachindexierung & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!")
SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX) SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!" fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & oResultNachindexierung & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!"
error_in_Indexierung = True oUnexpectedError = True
'1. aktives Dok '1. aktives Dok
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
'2. Indexierungs-Datei '2. Indexierungs-Datei
@ -1108,7 +1111,7 @@ Public Class frmNIHauptseite
If aktivesProfil.checkIndexsql = "" Then If aktivesProfil.checkIndexsql = "" Then
_Logger.Warn("# ACHTUNG: Eine sql-Überprüfung des aus xml-gelesenen Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen! #") _Logger.Warn("# ACHTUNG: Eine sql-Überprüfung des aus xml-gelesenen Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen! #")
Else Else
If _NidxWert = "" Then If oResultNachindexierung = "" Then
_Logger.Warn("# ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #") _Logger.Warn("# ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #")
End If End If
End If End If
@ -1117,11 +1120,11 @@ Public Class frmNIHauptseite
Case "activedirectory" Case "activedirectory"
_Logger.Debug("Indexierung gegen ActiveDirectory") _Logger.Debug("Indexierung gegen ActiveDirectory")
_NidxWert = ClassActiveDirectory.GetAD_Attribut(selectArray(0), INDEX_SQL_BEFEHL.Spalte, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password) oResultNachindexierung = ClassActiveDirectory.GetAD_Attribut(selectArray(0), INDEX_SQL_BEFEHL.Spalte, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
If _NidxWert = ">1" Then If oResultNachindexierung = ">1" Then
_Logger.Warn("Es wurde mehr als 1 Wert ausgelesen! Entweder ist der Filter AD nicht eindeutig oder ein anderer error_in_Indexierung ist aufgetreten") _Logger.Warn("Es wurde mehr als 1 Wert ausgelesen! Entweder ist der Filter AD nicht eindeutig oder ein anderer error_in_Indexierung ist aufgetreten")
Else Else
_Logger.Debug("Gelesener Attribut-Wert: " & _NidxWert) _Logger.Debug("Gelesener Attribut-Wert: " & oResultNachindexierung)
End If End If
@ -1135,11 +1138,11 @@ Public Class frmNIHauptseite
'bis hier in _clsWorkfile integriert 'bis hier in _clsWorkfile integriert
'###### '######
'nur wenn kein Fehler 'nur wenn kein Fehler
If Not error_in_Indexierung Then If Not oUnexpectedError Then
' wenn sowohl ein Index, als auch ein Wert gefunden/angegeben wurde, ' wenn sowohl ein Index, als auch ein Wert gefunden/angegeben wurde,
' der in den windream-Index geschrieben werden kann ' der in den windream-Index geschrieben werden kann
If _NidxWert IsNot Nothing And INDEX_SQL_BEFEHL.Index IsNot Nothing Then If oResultNachindexierung IsNot Nothing And INDEX_SQL_BEFEHL.Index IsNot Nothing Then
result &= " - " & _NidxWert result &= " - " & oResultNachindexierung
_ergebnisSQL = True _ergebnisSQL = True
Try Try
_Logger.Debug("Arraygößen werden angepasst:") _Logger.Debug("Arraygößen werden angepasst:")
@ -1150,20 +1153,20 @@ Public Class frmNIHauptseite
oNiArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index oNiArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index
' den, übergebenen/gefundenen IndexWert, eintragen ' den, übergebenen/gefundenen IndexWert, eintragen
oNiArrayValues(verknüpfungZähler) = Convert.ToString(_NidxWert) oNiArrayValues(verknüpfungZähler) = Convert.ToString(oResultNachindexierung)
Dim oRow As DataRow = myNIDatatable.NewRow Dim oRow As DataRow = myNIDatatable.NewRow
oRow(0) = INDEX_SQL_BEFEHL.Index oRow(0) = INDEX_SQL_BEFEHL.Index
oRow(1) = Convert.ToString(_NidxWert) oRow(1) = Convert.ToString(oResultNachindexierung)
myNIDatatable.Rows.Add(oRow) myNIDatatable.Rows.Add(oRow)
_Logger.Debug("INDEXWERT: '" & Convert.ToString(_NidxWert) & "'") _Logger.Debug("INDEXWERT: '" & Convert.ToString(oResultNachindexierung) & "'")
verknüpfungZähler += 1 verknüpfungZähler += 1
Catch ex As Exception Catch ex As Exception
result &= " (" & verknüpfungZähler & ") => " & ex.Message & vbNewLine result &= " (" & verknüpfungZähler & ") => " & ex.Message & vbNewLine
End Try End Try
Else Else
If _NidxWert Is Nothing And aktivesProfil.Ni_Art.ToLower = "db" Then If oResultNachindexierung Is Nothing And aktivesProfil.Ni_Art.ToLower = "db" Then
'_Logger.Debug("SQL-Abfrage ergab kein Ergebnis - früher Ausstieg aus Routine ") '_Logger.Debug("SQL-Abfrage ergab kein Ergebnis - früher Ausstieg aus Routine ")
'Exit For 'Exit For
End If End If
@ -1217,28 +1220,28 @@ Public Class frmNIHauptseite
' wenn kein error_in_Indexierung aufgetreten ist ' wenn kein error_in_Indexierung aufgetreten ist
If error_in_Indexierung = False Then If oUnexpectedError = False Then
If unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Or Me.aktivesProfil.Ni_Art.ToLower <> "nurordnerrechte" Or Me.aktivesProfil.Ni_Art.ToLower <> "nur-ordner-indizes" Then If unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Or Me.aktivesProfil.Ni_Art.ToLower <> "nurordnerrechte" Or Me.aktivesProfil.Ni_Art.ToLower <> "nur-ordner-indizes" Then
'############################################################################################### '###############################################################################################
'#### Nachindexierung ########################################################################## '#### Nachindexierung ##########################################################################
Dim sw As New ClassStopwatch("RunIndexing_Case1") Dim sw As New ClassStopwatch("RunIndexing_Case1")
Dim mmdf = myNIDatatable.Rows.Count Dim mmdf = myNIDatatable.Rows.Count
error_in_Indexierung = Me._windreamNI.RunIndexing(dokument, oNiArrayIndexe, oNiArrayValues, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) oUnexpectedError = Me._windreamNI.RunIndexing(dokument, oNiArrayIndexe, oNiArrayValues, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
Dim msg = sw.Done Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Info($"SWResult: {msg}")
'#### Nachindexierung Ende ##################################################################### '#### Nachindexierung Ende #####################################################################
'############################################################################################### '###############################################################################################
If error_in_Indexierung = True Then If oUnexpectedError = True Then
_Logger.Debug("error_in_Indexierung is True - none of following steps will be run!") _Logger.Debug("error_in_Indexierung is True - none of following steps will be run!")
End If End If
'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt 'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt
If oNiArrayValues Is Nothing = False And Not error_in_Indexierung Then If oNiArrayValues Is Nothing = False And Not oUnexpectedError Then
If Me.aktivesProfil.finalerIndex <> "" And Not error_in_Indexierung And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then If Me.aktivesProfil.finalerIndex <> "" And Not oUnexpectedError And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then
Me._windreamNI.SetfinalIndex(dokument, Me.aktivesProfil.finalerIndex, True) Me._windreamNI.SetfinalIndex(dokument, Me.aktivesProfil.finalerIndex, True)
End If End If
'###### Spezifisches SQL nach jeder Datei! '###### Spezifisches SQL nach jeder Datei!
If Me.aktivesProfil.SQL_Anweisung IsNot Nothing And Not error_in_Indexierung And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then If Me.aktivesProfil.SQL_Anweisung IsNot Nothing And Not oUnexpectedError And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then
If Me.aktivesProfil.SQL_Anweisung.StartsWith("EXECUTEVB") Then If Me.aktivesProfil.SQL_Anweisung.StartsWith("EXECUTEVB") Then
_Logger.Debug("Execute VB-Script after indexing......") _Logger.Debug("Execute VB-Script after indexing......")
Dim anweisung As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "") Dim anweisung As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "")
@ -1277,7 +1280,7 @@ Public Class frmNIHauptseite
IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen) IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen)
Catch ex As Exception Catch ex As Exception
' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
error_in_Indexierung = True oUnexpectedError = True
_Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: " & ex.Message.ToString) _Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: " & ex.Message.ToString)
End Try End Try
@ -1373,7 +1376,7 @@ Public Class frmNIHauptseite
IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen) IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen)
Catch ex As Exception Catch ex As Exception
' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
error_in_Indexierung = True oUnexpectedError = True
_Logger.Warn("Indexname/elementOhneSonderzeichen aus Regex: " & elementOhneSonderzeichen) _Logger.Warn("Indexname/elementOhneSonderzeichen aus Regex: " & elementOhneSonderzeichen)
_Logger.Warn("Indexwert aus Windream: " & IndexwertAusWindream.ToString) _Logger.Warn("Indexwert aus Windream: " & IndexwertAusWindream.ToString)
_Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: ") _Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: ")
@ -1411,7 +1414,7 @@ Public Class frmNIHauptseite
End If End If
If aktivesProfil.Ni_Art.ToLower = "xml" Then If aktivesProfil.Ni_Art.ToLower = "xml" Then
If error_in_Indexierung = False Then If oUnexpectedError = False Then
Dim valid As Boolean Dim valid As Boolean
Try Try
'Überprüfen ob Validierung auf False steht? 'Überprüfen ob Validierung auf False steht?
@ -1504,36 +1507,37 @@ Public Class frmNIHauptseite
If msgindex <> "" Then _Logger.Info(($"SWResult: {msgindex}")) If msgindex <> "" Then _Logger.Info(($"SWResult: {msgindex}"))
'Move and Rename ausführen 'Move and Rename ausführen
If _MRlicense = True And Me.aktivesProfil.MR_DAIndex <> "" And Not error_in_Indexierung And unvollstaendig = False Then If _MRlicense = True And Not oUnexpectedError And unvollstaendig = False Then
Dim swMoveandrename As New ClassStopwatch("MoveandRename - Complete") Dim swMoveandrename As New ClassStopwatch("MoveandRename - Complete")
If My.Settings.vLogErrorsonly = False Then _Logger.Info("Move and Rename activated...!")
_Logger.Debug("Move and Rename ist aktiviert") _Logger.Debug("Move and Rename ist aktiviert")
Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)") oUnexpectedError = FNMoveRename(dokument)
Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex) 'sd
Dim msg As String = sw1.Done 'Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)")
If msg <> "" Then _Logger.Info($"SWResult: {msg}") 'Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)
Dim _MOREKD 'Dim msg As String = sw1.Done
If Me.aktivesProfil.MR_KDIndex <> "" Then 'If msg <> "" Then _Logger.Info($"SWResult: {msg}")
_MOREKD = dokument.GetVariableValue(Me.aktivesProfil.MR_KDIndex) 'Dim _MOREKD
End If 'If Me.aktivesProfil.MR_KDIndex <> "" Then
If _MOREDA Is Nothing = False Then ' _MOREKD = dokument.GetVariableValue(Me.aktivesProfil.MR_KDIndex)
If My.Settings.vLogErrorsonly = False Then _Logger.Info($"_MOREDA {_MOREDA} and _MOREKD {_MOREKD} ") 'End If
Dim result_MORE = _clsMoRe.RUN_MO_RE(dokument, "\\windream\objects" & dokument.aPath, _MOREDA, _MOREKD) 'If _MOREDA Is Nothing = False Then
_Logger.Info(($"Result of Move and Rename: {result_MORE}")) ' If My.Settings.vLogErrorsonly = False Then _Logger.Info($"_MOREDA {_MOREDA} and _MOREKD {_MOREKD} ")
If result_MORE <> "False" Then ' Dim result_MORE = _clsMoRe.RUN_MO_RE(dokument, "\\windream\objects" & dokument.aPath, _MOREDA, _MOREKD)
moved_Folder = CStr(result_MORE) ' _Logger.Info(($"Result of Move and Rename: {result_MORE}"))
End If ' If result_MORE <> "False" Then
'If temp = False Then ' moved_Folder = CStr(result_MORE)
' If My.Settings.vNIMailsenden = True Then ' End If
' email.Send_EMail("Fehler bei Move and Rename der Datei: " & dokument.aName.ToString & "<br> Fehler: Die Datei wurde indexiert aber nicht verschoben!") ' 'If temp = False Then
' End If ' ' If My.Settings.vNIMailsenden = True Then
'End If ' ' email.Send_EMail("Fehler bei Move and Rename der Datei: " & dokument.aName.ToString & "<br> Fehler: Die Datei wurde indexiert aber nicht verschoben!")
End If ' ' End If
' 'End If
'End If
Dim msg1 = swMoveandrename.Done Dim msg1 = swMoveandrename.Done
If msg1 <> "" Then _Logger.Info($"SWResult: {msg1}") If msg1 <> "" Then _Logger.Info($"SWResult: {msg1}")
' MsgBox("Dokument wird in Ordnerbaum verschoben und umbenannt!" & vbNewLine & Me.aktivesProfil.MR_DAIndex & vbNewLine & Me.aktivesProfil.MR_KDIndex & vbNewLine & Me.aktivesProfil.Desk_windreamIndex, MsgBoxStyle.Information, dokument.aPath) ' MsgBox("Dokument wird in Ordnerbaum verschoben und umbenannt!" & vbNewLine & Me.aktivesProfil.MR_DAIndex & vbNewLine & Me.aktivesProfil.MR_KDIndex & vbNewLine & Me.aktivesProfil.Desk_windreamIndex, MsgBoxStyle.Information, dokument.aPath)
Else Else
If _MRlicense = True And error_in_Indexierung = True Or unvollstaendig = True Then If _MRlicense = True And oUnexpectedError = True Or unvollstaendig = True Then
_Logger.Info("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True") _Logger.Info("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True")
End If End If
@ -1542,7 +1546,7 @@ Public Class frmNIHauptseite
End If End If
'Indexierung gegen die Indizes des Ordners 'Indexierung gegen die Indizes des Ordners
If aktivesProfil.Ni_Art.ToLower = "nurordnerrechte" Or aktivesProfil.Ni_Art.ToLower = "nur-ordner-indizes" Or (aktivesProfil.GetOrdnerTypes = True And aktivesProfil.OriginalOrdnerType <> "") Then If oUnexpectedError = False And (aktivesProfil.Ni_Art.ToLower = "nurordnerrechte" Or aktivesProfil.Ni_Art.ToLower = "nur-ordner-indizes" Or (aktivesProfil.GetOrdnerTypes = True And aktivesProfil.OriginalOrdnerType <> "")) Then
_Logger.Debug("Nachbearbeitung Indexe nach Ordner-Typen ist aktiviert") _Logger.Debug("Nachbearbeitung Indexe nach Ordner-Typen ist aktiviert")
'Die Ordernindizes-Namen laden 'Die Ordernindizes-Namen laden
Dim Oindexe = _windream.GetIndicesByFoldertype(Me.aktivesProfil.OrdnerType, False) Dim Oindexe = _windream.GetIndicesByFoldertype(Me.aktivesProfil.OrdnerType, False)
@ -1560,7 +1564,7 @@ Public Class frmNIHauptseite
If aktivesProfil.move2Folder <> "" Then If aktivesProfil.move2Folder <> "" Then
If My.Settings.vLogErrorsonly = False Then _Logger.Info("Move2Folder is activated...") If My.Settings.vLogErrorsonly = False Then _Logger.Info("Move2Folder is activated...")
If error_in_Indexierung = False And unvollstaendig = False Then If oUnexpectedError = False And unvollstaendig = False Then
Dim sw As New ClassStopwatch("Move2Folder") Dim sw As New ClassStopwatch("Move2Folder")
_Logger.Debug("Move 2 Folder ist aktiviert") _Logger.Debug("Move 2 Folder ist aktiviert")
Dim err As Boolean = Move2Folder(Me.aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & dokument.aPath) Dim err As Boolean = Move2Folder(Me.aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
@ -1574,7 +1578,7 @@ Public Class frmNIHauptseite
'CREATEFOLDER 'CREATEFOLDER
If error_in_Indexierung = False And aktivesProfil.CrFolderIndex <> "" And unvollstaendig = False Then If oUnexpectedError = False And aktivesProfil.CrFolderIndex <> "" And unvollstaendig = False Then
Dim docpath As String Dim docpath As String
If moved_Folder = "" Then If moved_Folder = "" Then
docpath = My.Settings.MRWD_Laufwerk & ":" & dokument.aPath docpath = My.Settings.MRWD_Laufwerk & ":" & dokument.aPath
@ -1592,7 +1596,7 @@ Public Class frmNIHauptseite
CURRENT_MOVE_FILEPATH = "" CURRENT_MOVE_FILEPATH = ""
End If End If
'Nachbearbeitung AD ausführen 'Nachbearbeitung AD ausführen
If error_in_Indexierung = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
_Logger.Debug("Nachbearbeitung AD ist aktiviert") _Logger.Debug("Nachbearbeitung AD ist aktiviert")
Dim sw As New ClassStopwatch("AD-Rework") Dim sw As New ClassStopwatch("AD-Rework")
Nachbearbeitung_AD(dokument) Nachbearbeitung_AD(dokument)
@ -1600,7 +1604,7 @@ Public Class frmNIHauptseite
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Info($"SWResult: {msg}")
End If End If
error_in_Indexierung = False oUnexpectedError = False
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then If My.Settings.vNIMailsenden = True Then
@ -1608,6 +1612,241 @@ Public Class frmNIHauptseite
End If End If
End Try End Try
End Sub End Sub
Private Function FolderForIndex(oDynamicFolder As String, myWMDocument As WMObject) As String
Try
'######
Dim oPRegex As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
Dim regularExpression As Regex = New Regex(oPRegex)
' die Vorkommen im Folder-String auslesen
Dim oElements As MatchCollection = regularExpression.Matches(oDynamicFolder)
'####
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
For Each oMatchElement As Match In oElements
_Logger.Debug("Elementname in oDynamicFolder: '" & oMatchElement.ToString & "'")
Select Case oMatchElement.Value.Substring(2, 1)
'Manueller Indexwert
Case "m"
Dim oWMIndexname = oMatchElement.Value.Substring(3, oMatchElement.Value.Length - 4)
_Logger.Debug("getting metavalue from '" & oWMIndexname & "'...")
Dim oWMIndexValue As String = myWMDocument.GetVariableValue(oWMIndexname)
_Logger.Debug("oWMIndexValue: '" & oWMIndexValue & "'", False)
If Not oWMIndexValue = String.Empty Then
If IsDate(oWMIndexValue) Then
oWMIndexValue = CDate(oWMIndexValue).ToString("yyyyMMdd")
End If
oDynamicFolder = oDynamicFolder.Replace(oMatchElement.ToString, oWMIndexValue)
_Logger.Debug(" FolderPattern: '" & oDynamicFolder & "'", False)
Else
_Logger.Info("Achtung Ausnahme in 'FolderForIndex': der Index ist leer!", True)
Return ""
End If
Case "v"
Dim oFolderTemp As String
Dim oMonth As String = My.Computer.Clock.LocalTime.Month
If oMonth.Length = 1 Then
oMonth = "0" & oMonth
End If
Dim oDay As String = My.Computer.Clock.LocalTime.Day
If oDay.Length = 1 Then
oDay = "0" & oDay
End If
Dim oType = oMatchElement.Value.Substring(3, oMatchElement.Value.Length - 4)
If oType.StartsWith("_") Then
oType = oType.Replace("_", "")
End If
Select Case oType
Case "YYYY/MM/DD"
oFolderTemp = My.Computer.Clock.LocalTime.Year & "\" & oMonth & "\" & oDay
Case "YYYY/MM"
oFolderTemp = My.Computer.Clock.LocalTime.Year & "\" & oMonth
Case "YYYY"
oFolderTemp = My.Computer.Clock.LocalTime.Year
Case "YYYY-MM"
oFolderTemp = My.Computer.Clock.LocalTime.Year & "-" & oMonth
End Select
oDynamicFolder = oDynamicFolder.Replace(oMatchElement.ToString, oFolderTemp)
_Logger.Debug("FolderPatter after V-element: '" & oDynamicFolder & "'", False)
Case Else
_Logger.Info("Attention in DynamicFolderConvention an invalid element has been found: Elementname: " & oMatchElement.Value.ToUpper)
Return ""
End Select
Next
_Logger.Debug("Checking oDynamicFolder: " & oDynamicFolder, False)
Dim invalidPathChars() As Char = Path.GetInvalidPathChars()
For Each oSonderChar As Char In invalidPathChars
'Sonderzeichen ausser Whitespace entfernen
If Char.IsWhiteSpace(oSonderChar) = False Then
If oDynamicFolder.Contains(oSonderChar) Then
oDynamicFolder = oDynamicFolder.Replace(oSonderChar, "")
End If
End If
Next oSonderChar
If Directory.Exists(oDynamicFolder) = False Then
Try
Directory.CreateDirectory(oDynamicFolder)
_Logger.Debug("Folder '" & oDynamicFolder & "' has been created...", False)
Catch ex As Exception
_Logger.Error(ex)
Return ""
End Try
End If
Return oDynamicFolder
Catch ex As Exception
_Logger.Error(ex)
Return ""
End Try
End Function
Private Function FNMoveRename(myWMDocument As WMObject) As Boolean
Try
Dim oReturnString As String
Dim oActWMPath As String = "\\windream\objects" & myWMDocument.aPath
TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DD_ECMConnString
Me.TBTC_MOVE_RENAMETableAdapter.FillByActive(Me.MyDataset.TBTC_MOVE_RENAME, aktivesProfil.Profilname)
If MyDataset.TBTC_MOVE_RENAME.Rows.Count = 1 Then
Dim oExtension As String = System.IO.Path.GetExtension(oActWMPath)
Dim oTargetpath As String
'Regulären Ausdruck zum Auslesen der Indexe definieren
Dim oPRegex As String = "\[%{1}[a-zA-Z0-9ß\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
If MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX") <> "" Then
oTargetpath = MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX")
oTargetpath = FolderForIndex(oTargetpath, myWMDocument)
Else
oTargetpath = Path.GetDirectoryName(oActWMPath)
End If
If oTargetpath = "" Then
Return True
End If
'schonmal den gesamten Pfad laden
Dim oNamenkonvention As String = oTargetpath & "\" & MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("NAMECONVENTION") & oExtension
' einen Regulären Ausdruck laden
Dim oRegularExpression As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(oPRegex)
' die Vorkommen im SQL-String auslesen
Dim oMatchelements As System.Text.RegularExpressions.MatchCollection = oRegularExpression.Matches(oNamenkonvention)
'####
If oMatchelements.Count = 0 Then
_Logger.Info("No RegularExpression Fileds in Nameconvention!", False)
End If
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each oElement As System.Text.RegularExpressions.Match In oMatchelements
Select Case oElement.Value.Substring(2, 1)
'Manueller Indexwert
Case "m"
_Logger.Debug("Index will be checked...")
Dim oWMIndexname = oElement.Value.Substring(3, oElement.Value.Length - 4)
Dim oWMIndexValue As String = myWMDocument.GetVariableValue(oWMIndexname)
If oWMIndexValue <> String.Empty Then
Dim firstVectorValue = oWMIndexValue.Split("~").First()
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, firstVectorValue)
Else
_Logger.Info($"Attention: the indexvalue of index {oWMIndexname} is empty!")
Return True
End If
Case "v"
Dim oDatetemp As String
Dim oMonth As String = My.Computer.Clock.LocalTime.Month
If oMonth.Length = 1 Then
oMonth = "0" & oMonth
End If
Dim oDay As String = My.Computer.Clock.LocalTime.Day
If oDay.Length = 1 Then
oDay = "0" & oDay
End If
Dim oType = oElement.Value '.ToUpper.Replace("[v%", "")
oType = oType.Replace("[%v_", "")
oType = oType.Replace("[%v", "")
oType = oType.Replace("]", "")
Select Case oType
Case "YY_MM_DD"
oDatetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & oMonth & "_" & oDay
Case "YYYY_MM_DD"
oDatetemp = My.Computer.Clock.LocalTime.Year & "_" & oMonth & "_" & oDay
Case "DD_MM_YY"
oDatetemp = oDay & "_" & oMonth & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY"
oDatetemp = oDay & "_" & oMonth & "_" & My.Computer.Clock.LocalTime.Year
Case "YYMMDD"
oDatetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & oMonth & oDay
Case "YYYYMMDD"
oDatetemp = My.Computer.Clock.LocalTime.Year & oMonth & oDay
Case "DDMMYY"
oDatetemp = oDay & oMonth & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DDMMYYYY"
oDatetemp = oDay & oMonth & My.Computer.Clock.LocalTime.Year
Case "YYYY"
oDatetemp = My.Computer.Clock.LocalTime.Year
Case "MM"
oDatetemp = oMonth
Case "DD"
oDatetemp = oDay
Case "DDMMYYYY"
oDatetemp = oDay & oMonth & My.Computer.Clock.LocalTime.Year
Case "OFilename"
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, System.IO.Path.GetFileNameWithoutExtension(oActWMPath))
'Case "Username".ToUpper
' oNamenkonvention = oNamenkonvention.Replace(oElement.Value, Environment.UserName)
'Case "Usercode".ToUpper
' oNamenkonvention = oNamenkonvention.Replace(oElement.Value, USER_SHORT_NAME)
Case ""
End Select
If oDatetemp <> "" Then
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, oDatetemp)
End If
Case "[%Version]".ToUpper
Try
Dim oNewFileName As String
Dim oVersion As Integer = 1
Dim oStammname As String = oNamenkonvention.Replace(oElement.Value, "")
Dim oNeuerName As String = oNamenkonvention.Replace(oElement.Value, "")
oStammname = oNeuerName.Replace("~", "")
oNeuerName = oNeuerName.Replace("~", "")
'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
'Überprüfen ob File existiert
If File.Exists(oNeuerName & oExtension) = False Then
oNewFileName = oNeuerName
oNamenkonvention = oNewFileName
Else
Do While File.Exists(oNeuerName & oExtension)
oVersion = oVersion + 1
oNeuerName = oStammname & "~" & oVersion
oNewFileName = oNeuerName
Loop
oNamenkonvention = oNewFileName
End If
Catch ex As Exception
_Logger.Warn("Unexpected error in Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message)
Return True
End Try
Case Else
_Logger.Info("Attention: in nameconvention file an invalid elemt has been found - Elementname: " & oElement.Value.ToUpper)
Return True
End Select
Next
oReturnString = oNamenkonvention
Else
oReturnString = oActWMPath
End If
If _windreamNI.NEW_MOVE_FILE(oReturnString, oActWMPath, "MO_RE") = True Then
Return False
Else
Return True
End If
Catch ex As Exception
_Logger.Error(ex)
Return True
End Try
End Function
Private Function OrdnerIndizes_zuweisen(ByVal _dokument As WMObject) Private Function OrdnerIndizes_zuweisen(ByVal _dokument As WMObject)
Try Try
'Die Ordernindizes-Namen laden 'Die Ordernindizes-Namen laden
@ -2086,6 +2325,17 @@ Public Class frmNIHauptseite
Return 0 Return 0
End If End If
End If End If
ElseIf aktivesProfil.DbArt = "ODBC" Then
Dim ergebnis As Integer = database.CheckIndex_ODBC(aktivesProfil.Profilname, _vsql, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
If ergebnis = 1 Then
Return 1
Else
If ergebnis > 1 Then
Return 2
Else
Return 0
End If
End If
End If End If
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
@ -2444,6 +2694,8 @@ Public Class frmNIHauptseite
Return False Return False
End Try End Try
End Function End Function
Private Function CrFolderForIndex(ByVal fullfilename As String) Private Function CrFolderForIndex(ByVal fullfilename As String)
Try Try

362
ToolCollection/frmNIMoveRename.Designer.vb generated Normal file
View File

@ -0,0 +1,362 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNIMoveRename
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label
Dim PROFILE_NAMELabel As System.Windows.Forms.Label
Dim FOLDER_FOR_INDEXLabel As System.Windows.Forms.Label
Dim NAMECONVENTIONLabel As System.Windows.Forms.Label
Dim CREATED_WHOLabel As System.Windows.Forms.Label
Dim CREATED_WHENLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIMoveRename))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.MyDataset = New ToolCollection.MyDataset()
Me.TBTC_MOVE_RENAMEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBTC_MOVE_RENAMETableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter()
Me.TableAdapterManager = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.PROFILE_NAMETextBox = New System.Windows.Forms.TextBox()
Me.FOLDER_FOR_INDEXTextBox = New System.Windows.Forms.TextBox()
Me.NAMECONVENTIONTextBox = New System.Windows.Forms.TextBox()
Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.CREATED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.CREATED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.tsbtnAdd = New System.Windows.Forms.ToolStripButton()
Me.tsbtnsave = New System.Windows.Forms.ToolStripButton()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.tsbtndelete = New System.Windows.Forms.ToolStripButton()
GUIDLabel = New System.Windows.Forms.Label()
PROFILE_NAMELabel = New System.Windows.Forms.Label()
FOLDER_FOR_INDEXLabel = New System.Windows.Forms.Label()
NAMECONVENTIONLabel = New System.Windows.Forms.Label()
CREATED_WHOLabel = New System.Windows.Forms.Label()
CREATED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
Me.ToolStrip1.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBTC_MOVE_RENAMEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(12, 25)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(22, 13)
GUIDLabel.TabIndex = 4
GUIDLabel.Text = "ID:"
'
'PROFILE_NAMELabel
'
PROFILE_NAMELabel.AutoSize = True
PROFILE_NAMELabel.Location = New System.Drawing.Point(77, 25)
PROFILE_NAMELabel.Name = "PROFILE_NAMELabel"
PROFILE_NAMELabel.Size = New System.Drawing.Size(68, 13)
PROFILE_NAMELabel.TabIndex = 6
PROFILE_NAMELabel.Text = "ProfileName:"
'
'FOLDER_FOR_INDEXLabel
'
FOLDER_FOR_INDEXLabel.AutoSize = True
FOLDER_FOR_INDEXLabel.Location = New System.Drawing.Point(12, 65)
FOLDER_FOR_INDEXLabel.Name = "FOLDER_FOR_INDEXLabel"
FOLDER_FOR_INDEXLabel.Size = New System.Drawing.Size(190, 13)
FOLDER_FOR_INDEXLabel.TabIndex = 8
FOLDER_FOR_INDEXLabel.Text = "Dynamischer Ordner(OrdnerStruktur):"
'
'NAMECONVENTIONLabel
'
NAMECONVENTIONLabel.AutoSize = True
NAMECONVENTIONLabel.Location = New System.Drawing.Point(12, 105)
NAMECONVENTIONLabel.Name = "NAMECONVENTIONLabel"
NAMECONVENTIONLabel.Size = New System.Drawing.Size(125, 13)
NAMECONVENTIONLabel.TabIndex = 10
NAMECONVENTIONLabel.Text = "Namenkonvention Datei:"
'
'CREATED_WHOLabel
'
CREATED_WHOLabel.AutoSize = True
CREATED_WHOLabel.Location = New System.Drawing.Point(12, 175)
CREATED_WHOLabel.Name = "CREATED_WHOLabel"
CREATED_WHOLabel.Size = New System.Drawing.Size(67, 13)
CREATED_WHOLabel.TabIndex = 14
CREATED_WHOLabel.Text = "Erstellt Wer:"
'
'CREATED_WHENLabel
'
CREATED_WHENLabel.AutoSize = True
CREATED_WHENLabel.Location = New System.Drawing.Point(236, 175)
CREATED_WHENLabel.Name = "CREATED_WHENLabel"
CREATED_WHENLabel.Size = New System.Drawing.Size(75, 13)
CREATED_WHENLabel.TabIndex = 16
CREATED_WHENLabel.Text = "Erstellt Wann:"
'
'CHANGED_WHOLabel
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 215)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(79, 13)
CHANGED_WHOLabel.TabIndex = 18
CHANGED_WHOLabel.Text = "Geändert Wer:"
'
'CHANGED_WHENLabel
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Location = New System.Drawing.Point(236, 215)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(87, 13)
CHANGED_WHENLabel.TabIndex = 20
CHANGED_WHENLabel.Text = "Geändert Wann:"
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 266)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(800, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnAdd, Me.tsbtnsave, Me.tsbtndelete})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(800, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TBTC_MOVE_RENAMEBindingSource
'
Me.TBTC_MOVE_RENAMEBindingSource.DataMember = "TBTC_MOVE_RENAME"
Me.TBTC_MOVE_RENAMEBindingSource.DataSource = Me.MyDataset
'
'TBTC_MOVE_RENAMETableAdapter
'
Me.TBTC_MOVE_RENAMETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_REPORTING_IMPORTTableAdapter = Nothing
Me.TableAdapterManager.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter
Me.TableAdapterManager.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(15, 41)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(56, 21)
Me.GUIDTextBox.TabIndex = 5
'
'PROFILE_NAMETextBox
'
Me.PROFILE_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "PROFILE_NAME", True))
Me.PROFILE_NAMETextBox.Location = New System.Drawing.Point(80, 41)
Me.PROFILE_NAMETextBox.Name = "PROFILE_NAMETextBox"
Me.PROFILE_NAMETextBox.ReadOnly = True
Me.PROFILE_NAMETextBox.Size = New System.Drawing.Size(290, 21)
Me.PROFILE_NAMETextBox.TabIndex = 7
'
'FOLDER_FOR_INDEXTextBox
'
Me.FOLDER_FOR_INDEXTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "FOLDER_FOR_INDEX", True))
Me.FOLDER_FOR_INDEXTextBox.Location = New System.Drawing.Point(15, 81)
Me.FOLDER_FOR_INDEXTextBox.Name = "FOLDER_FOR_INDEXTextBox"
Me.FOLDER_FOR_INDEXTextBox.Size = New System.Drawing.Size(738, 21)
Me.FOLDER_FOR_INDEXTextBox.TabIndex = 9
'
'NAMECONVENTIONTextBox
'
Me.NAMECONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "NAMECONVENTION", True))
Me.NAMECONVENTIONTextBox.Location = New System.Drawing.Point(15, 121)
Me.NAMECONVENTIONTextBox.Name = "NAMECONVENTIONTextBox"
Me.NAMECONVENTIONTextBox.Size = New System.Drawing.Size(738, 21)
Me.NAMECONVENTIONTextBox.TabIndex = 11
'
'ACTIVECheckBox
'
Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBTC_MOVE_RENAMEBindingSource, "ACTIVE", True))
Me.ACTIVECheckBox.Location = New System.Drawing.Point(15, 148)
Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
Me.ACTIVECheckBox.Size = New System.Drawing.Size(104, 24)
Me.ACTIVECheckBox.TabIndex = 13
Me.ACTIVECheckBox.Text = "Aktiv"
Me.ACTIVECheckBox.UseVisualStyleBackColor = True
'
'CREATED_WHOTextBox
'
Me.CREATED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "CREATED_WHO", True))
Me.CREATED_WHOTextBox.Location = New System.Drawing.Point(15, 191)
Me.CREATED_WHOTextBox.Name = "CREATED_WHOTextBox"
Me.CREATED_WHOTextBox.ReadOnly = True
Me.CREATED_WHOTextBox.Size = New System.Drawing.Size(215, 21)
Me.CREATED_WHOTextBox.TabIndex = 15
'
'CREATED_WHENTextBox
'
Me.CREATED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "CREATED_WHEN", True))
Me.CREATED_WHENTextBox.Location = New System.Drawing.Point(239, 191)
Me.CREATED_WHENTextBox.Name = "CREATED_WHENTextBox"
Me.CREATED_WHENTextBox.ReadOnly = True
Me.CREATED_WHENTextBox.Size = New System.Drawing.Size(191, 21)
Me.CREATED_WHENTextBox.TabIndex = 17
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 231)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(215, 21)
Me.CHANGED_WHOTextBox.TabIndex = 19
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_MOVE_RENAMEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(239, 231)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(191, 21)
Me.CHANGED_WHENTextBox.TabIndex = 21
'
'tsbtnAdd
'
Me.tsbtnAdd.Image = Global.ToolCollection.My.Resources.Resources.action_add_16xMD
Me.tsbtnAdd.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnAdd.Name = "tsbtnAdd"
Me.tsbtnAdd.Size = New System.Drawing.Size(163, 22)
Me.tsbtnAdd.Text = "Konfiguration hinzufügen"
'
'tsbtnsave
'
Me.tsbtnsave.Image = Global.ToolCollection.My.Resources.Resources.save
Me.tsbtnsave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnsave.Name = "tsbtnsave"
Me.tsbtnsave.Size = New System.Drawing.Size(79, 22)
Me.tsbtnsave.Text = "Speichern"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(759, 121)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(29, 21)
Me.Button1.TabIndex = 22
Me.Button1.Text = "..."
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(759, 80)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(29, 21)
Me.Button2.TabIndex = 23
Me.Button2.Text = "..."
Me.Button2.UseVisualStyleBackColor = True
'
'tsbtndelete
'
Me.tsbtndelete.Image = Global.ToolCollection.My.Resources.Resources.delete
Me.tsbtndelete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(71, 22)
Me.tsbtndelete.Text = "Löschen"
'
'frmNIMoveRename
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 288)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(GUIDLabel)
Me.Controls.Add(Me.GUIDTextBox)
Me.Controls.Add(PROFILE_NAMELabel)
Me.Controls.Add(Me.PROFILE_NAMETextBox)
Me.Controls.Add(FOLDER_FOR_INDEXLabel)
Me.Controls.Add(Me.FOLDER_FOR_INDEXTextBox)
Me.Controls.Add(NAMECONVENTIONLabel)
Me.Controls.Add(Me.NAMECONVENTIONTextBox)
Me.Controls.Add(Me.ACTIVECheckBox)
Me.Controls.Add(CREATED_WHOLabel)
Me.Controls.Add(Me.CREATED_WHOTextBox)
Me.Controls.Add(CREATED_WHENLabel)
Me.Controls.Add(Me.CREATED_WHENTextBox)
Me.Controls.Add(CHANGED_WHOLabel)
Me.Controls.Add(Me.CHANGED_WHOTextBox)
Me.Controls.Add(CHANGED_WHENLabel)
Me.Controls.Add(Me.CHANGED_WHENTextBox)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
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.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False
Me.Name = "frmNIMoveRename"
Me.Text = "Move and Rename - Konfiguration"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBTC_MOVE_RENAMEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnAdd As ToolStripButton
Friend WithEvents tsbtnsave As ToolStripButton
Friend WithEvents MyDataset As MyDataset
Friend WithEvents TBTC_MOVE_RENAMEBindingSource As BindingSource
Friend WithEvents TBTC_MOVE_RENAMETableAdapter As MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter
Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents PROFILE_NAMETextBox As TextBox
Friend WithEvents FOLDER_FOR_INDEXTextBox As TextBox
Friend WithEvents NAMECONVENTIONTextBox As TextBox
Friend WithEvents ACTIVECheckBox As CheckBox
Friend WithEvents CREATED_WHOTextBox As TextBox
Friend WithEvents CREATED_WHENTextBox As TextBox
Friend WithEvents CHANGED_WHOTextBox As TextBox
Friend WithEvents CHANGED_WHENTextBox As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents tsbtndelete As ToolStripButton
End Class

920
ToolCollection/frmNIMoveRename.resx Normal file
View File

@ -0,0 +1,920 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="PROFILE_NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="FOLDER_FOR_INDEXLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="NAMECONVENTIONLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CREATED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CREATED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>241, 17</value>
</metadata>
<metadata name="TBTC_MOVE_RENAMEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>351, 17</value>
</metadata>
<metadata name="TBTC_MOVE_RENAMETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>602, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>847, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAoAMDAQAAEABABoBgAApgAAACAgEAABAAQA6AIAAA4HAAAQEBAAAQAEACgBAAD2CQAAMDAAAAEA
CACoDgAAHgsAACAgAAABAAgAqAgAAMYZAAAQEAAAAQAIAGgFAABuIgAAAAAAAAEAIADbTQAA1icAADAw
AAABACAAqCUAALF1AAAgIAAAAQAgAKgQAABZmwAAEBAAAAEAIABoBAAAAawAACgAAAAwAAAAYAAAAAEA
BAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDA
wAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAeKAAAAAAAAiPiPiPiPiPiPiPiPiPgAAAqIcAAAAAAA//////////////////8AAA
OKigAAAAAAj/////////////////8AAAqKeDAAAAAAj///////j/+P/49yMjo2OnOKOooAAAAAj/+P+P
+P//////+oiIiIiHiKenhwAAAAj////////4/4//86qqqqq6qno6eKAAAA/////4//////+P8oOKi3eo
ereno4cAAAj/j/j//4//////8op6enqKt6enqnigAAj////////4/4//8oqLqKinqKerejoAAAj/////
///////4+nOneoq3p6inqKAAAAj//4/4/4//j///84qHh7h4eKunegAAAA////////////j/96OqoqKq
q4qHoAAAAAj///////j/+P//////+P//PrinAAAAAAj/+P//j//////4////9///KKigAAAAAAj/////
///4/////4//9/j/N4pwAAAAAAj///+P//j//4//j//49///qKgAAAAAAA///4//////////////9///
eo8AAAAAAAj/////+P//j/+P//j/+I////8AAAAAAAj/////////////+P//9/+P//8AAAAAAAj/////
//+P/4//////9///+P8AAAAAAAj/+P/4/4/////4////9//4//8AAAAAAA///////////////4/49///
//8AAAAAAAj/////////j///////+I////8AAAAAAAj///////////j/j///9//4/48AAAAAAAj//4/4
/4////////j/9/////8AAAAAAAj////////4////////9//4//8AAAAAAA///////////4//j///9///
//8AAAAAAAj///////////////+P9///j/8AAAAAAAj//////4/////////4+P+P//8AAAAAAAj//4//
j///j/j4h4iIf/////8AAAAAAA//////////////j/+Ij///+P8AAAAAAAj////////////4j/iI//+P
//8AAAAAAAj////////4////j4iP//////8AAAAAAAj///+P///////4j3//////j/8AAAAAAA//////
/4///4/4iI///4////8AAAAAAAj/////////////f////////48AAAAAAAiIiIiIiPiIiPiI//////+P
//gAAAAAAAAAAAAA///////////4/4iIeIcAAAAAAAAAAAAAj/////////////j//3AAAAAAAAAAAAAA
/////////4///4j/iAAAAAAAAAAAAAAAj/////////////j4gAAAAAAAAAAAAAAA////////j///j4j3
AAAAAAAAAAAAAAAAj/////j///////hwAAAAAAAAAAAAAAAAj////////////4cAAAAAAAAAAAAAAAAA
+IiIiIj4iIiIj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////v/AAD/////8f8AAOAA
AAHw/wAA4AAAAfB/AADgAAAB8D8AAOAAAAAAHwAA4AAAAAAPAADgAAAAAAcAAOAAAAAAAwAA4AAAAAAB
AADgAAAAAAMAAOAAAAAABwAA4AAAAAAPAADgAAAAAB8AAOAAAAAAPwAA4AAAAAB/AADgAAAAAH8AAOAA
AAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/
AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAA
AAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA//AAAAD/
AAD/8AAAAf8AAP/wAAAD/wAA//AAAAf/AAD/8AAAD/8AAP/wAAAf/wAA//AAAD//AAD/8AAAf/8AAP//
/////wAAKAAAACAAAABAAAAAAQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA
gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAADoAAAAAAAAAAAAAAAAAAAB4MAAAAAj/////
/////wAAqIoAAAAI////////g6N6N6ioMAAACP/4/4/4+CiIiIi6eooAAAj///////86eqqqeno4MAAI
///4////KKi3ioq3qooACP/4//+P/zijqoq3p6gwAAj///////+neHeop6iKAAAI//////+PiqOjo6io
oAAACP//+P//////f/83igAAAAj//////////3j/qKcAAAAI/////4////9//zqAAAAACP//j////4//
eP948AAAAAj//////////3////AAAAAI//////////9////wAAAACP//////////eP+P8AAAAAj/////
/4/4iI////AAAAAI///////4iIiP///wAAAACP//////+P+I/4//8AAAAAj///////f4j/////AAAAAI
///////4+P/////wAAAACP//////iI//////8AAAAAiIiIiIiIj4////iIAAAAAAAAAAj///////eIiA
AAAAAAAAAP///////4/4gAAAAAAAAACP//////+PiAAAAAAAAAAAj///////f4AAAAAAAAAAAI//////
+IgAAAAAAAAAAAD4iIiIiI+AAAAAAP////////9/////P////x/gAA8P4AAAB+AAAAPgAAAB4AAAAOAA
AAHgAAAD4AAAB+AAAA/gAAAP4AAAH+AAAB/gAAAf4AAAH+AAAB/gAAAf4AAAH+AAAB/gAAAf4AAAH+AA
AB/gAAAf/8AAH//AAB//wAA//8AAf//AAP//wAH/KAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8A
AAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAACIiIiIgCAAAI////+AIgAAj///IiIqIACP//8qqq
qiAI///yIiKiAAj////48iAACP////jygAAI////+P+AAAj///iI/4AACP//+Pj/gAAIiIiIj/+AAAAA
j///iIAAAACP//+PgAAAAIiIiIgAAP//AAD//wAAgC8AAIAnAACAAwAAgAEAAIADAACABwAAgAcAAIAH
AACABwAAgAcAAIAHAADwBwAA8AcAAPAPAAAoAAAAMAAAAGAAAAABAAgAAAAAAAAJAAAAAAAAAAAAAAAB
AAAAAQAAAAAAAKVmFgCoaRkArG4eAK5wIQCydiYAtnoqALh+LgAWpTQAGag3ABqpOQAdqjsAHao8AB6s
PQAgrT8AJcA7ACbCPgAir0AAI7BCACayRQAqtkkALbhLAC+5TwAyvFIANL1TADW+VQBwqHwAKcZBACzJ
RAA2wEoAOMFKADjDTAA5xE4AMc5JADLQSwAz0UwANdRPADfAVgA2z1AAOcFZADzEWwA8w1wAPsVeADfV
UAA411IAOtVVADzWVgA62lUAPNxXAD/bWgA93VgAP+BbAEnPXgBC0loAQNtaAEDfWgBF3V8AQOFbAELh
XgBB5F0AROVfAE3KYQBRzmUAS9pjAFTTaQBQ1mkAWNdsAFnYbgBY3W8AXNdxAGPPdQBg1XMAZtJ3AGfW
egBt0X0Aatl+AGzcfwBD4mAAQ+VgAEXmYQBK5mcARehiAEfoZABI6GQATOloAFHkawBW4G8AVehwAF7r
dwBg4HUAY+17AGTrfABi7XwAZe1+AL6FNQDcjgoA2pEJAN2WFADZkR4A4ZQNAOGZEADmmhAA6JsRAOig
EgDooRUA7qYWAOWhHgDwpRYA8qwZAPauHAD5sBoA+LEdANqUIADXlikA3p8vAMCGNwDEizwA25wwANee
PQDfpj0A4aAmAO6rKQDxrSMA+bUrAOGgNwDlpzYA6aoyAOKlOADqrD4A7bI5APu7NAD2uj0A+b09AKiQ
cADbokAA36VDANekUADeq1UA4qpFAOiwSgDxtUIA+r1BAPO9TwD4vk0A4a5UAPvAQwD3wVAA+sRTAPbI
bwDrwn8A8sh3APnQegD60X0A/NR/AHDRgABw1YAAaO2AAHHihgBx6YYAd+KJAHXniABx64kAdeqLAHPv
iQB27YoAdu+OAHbwjACKiooAl5iYAJmamgCbm5wAmpycAJ2dnQCgoKEApaWlALW1tQC5ubkAvb29ANG1
kQCP0Z4Ajt6aAJDSngCA5pEAguSUAIXolQCG7ZgAiOuZAIjumgCR4Z0AivCcAJHToACf36gAoN+pAKDa
rgCn37MAlOSgAJboowCh4KkAp+KuAO7FgQDvyoUA8cqDAOzLlgDfx6cA7tChALO/wQC1wcIAwsLCAMfH
xwDS0tMA1NTTANPT1ADT1NQA1NTUANfX2ADY19gA19jYANnZ2QDb29wA3d3dAODd3QDh4eEA4+PkAOTl
5QDm5ugA6enqAOrr7ADr7O0A7e3tAO/v8ADx8fEA8/T1APX19gD29vgA+Pf4APb4+QD4+foA+vv8APv8
/QD+/v4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjGKAAAAAAAAAAAAAAAALHa2tbY2tbX2tbX
2tbY2NjY2NjY2NbW1tbW2toAAAAAABm0xigAAAAAAAAAAAAAANr/////////////////////////////
//////8AAAAAABm8H8YoAAAAAAAAAAAAANb/6Ojp6enp6enp6Ojo6Ojo6Ojo6Ojo6Ojo6P8AAAAAABm8
Gx/GKAAAAAAAAAAAANbs7Ozp6enp6enp6eno6Ojo6Ojo6Oi1CQoKERETExQVFRnEHBAfvygAAAAAAAAA
ANb/6Ozs7Onp6enp6ens6Ovo6+jr6OsIt7i7u729vb27uLi3IxwQH8UoAAAAAAAAANb/6Ozs7Onp6enp
6eno7Ojo6Ovo6OgIRS42Ok9PU1JSUjkwMCMcEB/FKgAAAAAAANH/6Ozs7Ozp6enp6ens6Ozo6+jo6OsI
RyYuMU9PT1NSUjo5MCMjHBAdxSgAAAAAANb/6P/o7Ozs7Ozp6eno7Ojs6Ojo6+gImzQ1LjE6T09TUlI6
OjArIRsPHcUqAAAAANb/6Oj/6Ozs7Ozp6ens6Ozo7Ovo6OgImz5AQD86Ok9SUlJSPDkwIyMbPSgAAAAA
ANH/6eno/+js7Ozs7Ono7Ojs6Ovr6+gISj0+QENERFVQUlJSPDw6MCNDKAAAAAAAANb/6f/o6P/o7Ozs
7Oz/6Ovo7Ojr6OwIm0ZHSktMnZ2lpV1aVFI5MlklAAAAAAAAANb/6On/6Oj/6P/o7Ono6Ors6Ozo7Oi1
CAgICAgKCgoKDhOjXVhXoxkAAAAAAAAAANH/6f/o7Ozp6ej/6Ozs/+jo/+jr6Ozo7Ojo7P+q4enp6BGj
XV2jHQAAAAAAAAAAANb/6On/6f/p/+jo/+jp6Ozs6Ojr6+js6Ozo//+q4ejo6A6eXaMUAAAAAAAAAAAA
ANb/6P/o/+js6f/o6P/o7Ozs7Ovo6uzo7Ojr6P+q4ejo6AqjpREaAAAAAAAAAAAAANH/7Oj/6P/p7On/
6Oj/6Ozs6+v/6Ojs6Ozo//+q4ejo6QqfDsIAAAAAAAAAAAAAANb/7Ozs/+j/6f/o7Ozo/+js6+jo7Ozo
7Ojr6P+q4ejo6b4Kwf8AAAAAAAAAAAAAANb/6//p7P/o/+js/+ns6P/o/+js7Ozr6P/o7P+q4ejo6Onp
//8AAAAAAAAAAAAAANH/6v/p/+j/6P/o6f/p7Ojp6Ozs7Ozr6Ojo7P+q4eno6Ojo6P8AAAAAAAAAAAAA
ANb//+j/6P/o/+j/6On/6f/p/+j/6Ozr/+js//+q4enp6ejo7P8AAAAAAAAAAAAAANb/6P/o/+j/6P/o
/+jp7Ons6eno/+jo6Ozp6f+q4enp6eno7P8AAAAAAAAAAAAAANb/6P/o/+j/6Oz/6P/p/+n/6f/o6P/o
7Ozs//+q4enp6enp6v8AAAAAAAAAAAAAANb//+j/6P/o/+ns/+j/6P/o7On/6Oj/6Ozp7P+q4enp6enp
//8AAAAAAAAAAAAAANbq/+zs/+j/6f/p7P/o/+j/6ezp/+jo/+j/6f+q4ezo7Ojo6f8AAAAAAAAAAAAA
ANb/7P/s/+n/6P/p/+j/6P/o/+n/6Ozs6Ono//+q4evr6Ozr//8AAAAAAAAAAAAAANb//+n/6f/o/+j/
6P/o/+j/6P/o/+n/6f/o//+o4ezo/+jo6P8AAAAAAAAAAAAAANb/6P/p/+n/6P/o/+j/6P/o/+j/6P/o
7Ons6P+t4f/o6Ojs7P8AAAAAAAAAAAAAANb//+n/6f/p/+n/6P/o/+j/6P/o/+j/6f/p6P+q4ezs7Ozs
//8AAAAAAAAAAAAAANb/6P/p/+n/6f/p/+j/6P/o/+j/6f/o7Ojm4dyx6P/o7Ozo7P8AAAAAAAAAAAAA
ANb//+n/6f/p/+n/6f/o/+j/6P//4a6wr6+v1qfo6Ojs7Ozs//8AAAAAAAAAAAAAANb/6P/p/+n/6f/p
/+n/6P/o/+j/4ND////hqt3r/+j/6Ozp7P8AAAAAAAAAAAAAANb//+n/6f/p/+n/6f/p/+n/6P//4ND/
4eCq4Ovr6Ozo/+j/6P8AAAAAAAAAAAAAANb/6f//7P/p/+n/6f/p/+n/6en/4LHo4K3g6v/o/+ns6Ono
//8AAAAAAAAAAAAAANb//+n//+n/6f/p/+n/6f/p/+n/2rHmquDq6uz/6P/p/+jp//8AAAAAAAAAAAAA
ANb/6f/p////7P/p/+n/6f/p/+jm4NGu4Oj/6+rp/+js6f/o6P8AAAAAAAAAAAAAANb//////+n//+z/
///p////6f/o16rg6ur/6//o6f/p/+j/6P8AAAAAAAAAAAAAANbW1tbW2trW2trW1tra1tba2tfgzuH/
6v/o/+j/7Ozs6Ojh4doAAAAAAAAAAAAAAAAAAAAAAAAAANb//+n//+n/6f/r///r/+j/6P//4a6xr6+w
1qcAAAAAAAAAAAAAAAAAAAAAAAAAANb/6f/p/+n/6f/p/+j/6P/o/+j/4ND//+rmqgAAAAAAAAAAAAAA
AAAAAAAAAAAAANb//+z/6f/p/+n/6f/p/+j/6P//4ND/4eGqAAAAAAAAAAAAAAAAAAAAAAAAAAAAANb/
///s/+n/6f/p/+n/6f/p/+n/4LHo4K4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAANb/6f//7P/p/+n/6f/p
/+n/6en/2rHmqgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANb//+n/////6f/p/+n/6f/p/+jm3NauAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANb////p/////+n////p////6f/o3KoAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAANbW1tra1tbW2trW1tra1tba2tfgzgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/////7/wAA//////H/AADgAAAB8P8AAOAA
AAHwfwAA4AAAAfA/AADgAAAAAB8AAOAAAAAADwAA4AAAAAAHAADgAAAAAAMAAOAAAAAAAQAA4AAAAAAD
AADgAAAAAAcAAOAAAAAADwAA4AAAAAAfAADgAAAAAD8AAOAAAAAAfwAA4AAAAAB/AADgAAAAAP8AAOAA
AAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/
AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAOAA
AAAA/wAA4AAAAAD/AADgAAAAAP8AAOAAAAAA/wAA4AAAAAD/AADgAAAAAP8AAP/wAAAA/wAA//AAAAH/
AAD/8AAAA/8AAP/wAAAH/wAA//AAAA//AAD/8AAAH/8AAP/wAAA//wAA//AAAH//AAD///////8AACgA
AAAgAAAAQAAAAAEACAAAAAAAAAQAAAAAAAAAAAAAAAEAAAABAAAAAAAApWYWALJ2JgCzeCkAuH4vABal
QAAmslEAKbNTAC+4WQBxpn8AKcVBACrIQwAryEQAMc5JADXUTgA31lAAO9tWADzbVwA83VcAPtxaAD7g
WgBE3l8AQeFcAETiXwBB5V4AROZfAEnZYgBM22MAWNhuAFjdbgBhwX0AZd56AGvbfABD4WAAReZhAEPo
YABF6GIARuhkAEnoZgBM5mgAUOVqAFThbgBS7G0AaeN+AGTtfgDdlA8A5JYPAOSaDwDlmRAA6p4TAOuh
FADtpRUA56EaAPClFgD1rRsA+K8aAPexHQDXmS0A3JwrANeePADYnzsA4J0hAN6gMgDqqy4A8K4pAPiy
IgD6uCsA5KY0APKxMAD6uTMA87Y8ANykQADcqVUA5a5HAOCrTQD4vEEA8blPAPW+TwDgsF0A8LpXAMCX
YQDLom0A37NuAOm6ZwD7wUMA98ReAO7BbADwwGwA88hyAPrOcgD80ngAbcuJAHTehgB43IkAfN6MAHPl
hgB/4o8AeeyNAJqamgCbnJwAp6enALS0tAC9vb0A37uIAIbplgCJ7poAi+ycAIvwnQCM8J4AndyxAKne
uQCX4KIAmOGjAJzipwCO8qEAkPChANzCnQDvyowA8cyOAO/MkgDex6sAxcbGAMbGyADPz88A0dHRANfY
2ADZ2dkA4ODgAOnp6QDt7e0A9fb2APf4+AD5+voA+/z8AP7+/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABbAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHEIAAAAAAAAAAB7goKCgoKC
goKCgoKCgoKCggAAAAAIXnEIAAAAAAAAAHuCgoKCgoKCgoKCgoJtCAgICAgICAhgC28IAAAAAAAAe4KC
goKCgoKCgoKCggVqbGxsbGxqaBsNC3EGAAAAAAB7goKCgoKCgoKCgoKCBSshISYlJSUWEg8NCm8GAAAA
AHuDg4ODg4ODg4ODg4MFHxMhJSUlJRYWEg4NCnEHAAAAe4ODg4ODg4ODg4ODgwVcGxUWJSUlJSMWEg4g
BwAAAAB7hISEhISEhISEhISEBV0cHSkpJiYlJRYUXwcAAAAAAHuEhISEhISEhISEhIRtBQUFBQUFBQUq
JmEHAAAAAAAAe4SEhISEhISEhISEhISEhIRifYODBSxyBwAAAAAAAAB7hISEhISEhISEhISEhISEhGJ9
g4IFcwcJAAAAAAAAAHuEhISEhISEhISEhISEhISEYn2DgwUHbgAAAAAAAAAAe4SEhISEhISEhISEhISE
hIRifYODHm6DAAAAAAAAAAB7hISEhISEhISEhISEhISEhGJ9hISEhIQAAAAAAAAAAHuEhISEhISEhISE
hISEhISEY32EhISEhAAAAAAAAAAAfISEhISEhISEhISEhISEhIRjf4SEhISEAAAAAAAAAAB8hISEhISE
hISEhISEhIJ/fGR/hISEhIQAAAAAAAAAAHyEhISEhISEhISEhGZlZWVleoGEhISEhAAAAAAAAAAAfISE
hISEhISEhISEZYSEf2aBgoSEhISEAAAAAAAAAAB8hISEhISEhISEhIRlhH9mgYKEhISEhIQAAAAAAAAA
AHyEhISEhISEhISEhGZ/ZoGDhISEhISEhAAAAAAAAAAAfISEhISEhISEhIR/emaBhISEhISEhISEAAAA
AAAAAAB8fHx8fHx8fHx8fHxmgYOEhISEhISCf3wAAAAAAAAAAAAAAAAAAAB7hISEhISEhISEhIRmZWVl
ZQAAAAAAAAAAAAAAAAAAAHyEhISEhISEhISEhGWEhH9mAAAAAAAAAAAAAAAAAAAAfISEhISEhISEhISE
ZYR/ZgAAAAAAAAAAAAAAAAAAAAB8hISEhISEhISEhIRmf2YAAAAAAAAAAAAAAAAAAAAAAHyEhISEhISE
hISEf3pmAAAAAAAAAAAAAAAAAAAAAAAAfHx8fHx8fHx8fHx8ZgAAAAAAAAAAAP////////9/////P///
/x/gAA8P4AAAB+AAAAPgAAAB4AAAAOAAAAHgAAAD4AAAB+AAAA/gAAAP4AAAH+AAAB/gAAAf4AAAH+AA
AB/gAAAf4AAAH+AAAB/gAAAf4AAAH+AAAB/gAAAf/8AAH//AAB//wAA//8AAf//AAP//wAH/KAAAABAA
AAAgAAAAAQAIAAAAAAAAAQAAAAAAAAAAAAAAAQAAAAEAAAAAAAAWpUAAK61TACTiUgAw6GAARuljAMWE
JQDimyQA9a0lAOinMACKiosAmJiZAKioqAC2trYAwMDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAKCgoKCgoKCgoAAQAAAAAAC/////////8LAAEBAAAAAAz//////wEBAQEBBQEAAAAM
//////8BAwQFBQUFAgAADf//////AgICAgIFAgAAAA7/////////Dv8CAgAAAAAO/////////w7/AgwA
AAAADv////////8O//8NAAAAAA7//////w4ODv//DgAAAAAO//////8O/w7//w4AAAAADg4ODg4ODg7/
//8OAAAAAAAAAA7//////w4ODgAAAAAAAAAO//////8O/w4AAAAAAAAADg4ODg4ODg4AAAAA//8AAP//
AACALwAAgCcAAIADAACAAQAAgAMAAIAHAACABwAAgAcAAIAHAACABwAAgAcAAPAHAADwBwAA8A8AAIlQ
TkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAIABJREFUeJztvXm4HGd95/t5q7rPqqPtSLKt
Be/Y2GJTMMZ4kS1scslkT0hCBk+AGx5gkiEz5EnywM2QkLnJnUBwcJJJ5ia5N8nNxdjYRuCQIbkBbAu8
22AbbAJjyZIsybYWSzpL9+nuqve9f7z1Vr1dp7pPL9Wn3z7qr55W96muemvp+n1/6/srGGKIIc5YiH4f
gOMQgBd99qxlQyw/VOpvGb2yvhuiRQxv5sYQQCF6FQE/eg2vWf+gopcR/jB6SSCwvhuiRRT6fQAOQwCj
wFj0MmTgNdtoiJ7DCH4A1KJXYC0LonUMWQzRBEMCaAxDAKtHR0fPvvDCCy8GRtBWwBA9gBBLGldGw4dA
UKlUajMzM/NHjx49AhwGZtHWWpV6IhiiAYYE0Bg+WtsXLr744jd+5zvf+bN+H9AQ9ZidneXgwYN89atf
/dYjjzzyrUcfffRf9u7d+zX0b1dBWwd2rGCIFIb+bGOMAGuAdZdddtmuZ5555i+CIEAp1Yqmaohutu3n
2N3sRymFUir+bN6llHWf7e+UUoRhCFD3nZQSKWX8ne/7rF69mtHRUfbu3Xvqlltu+dLf/d3ffbpcLh+k
3kUYWgIZGPqzHcDcoOlXN9s2e3V7XHnuo5P92NvZ7zaySEUIsWh7++8gCJidnWXfvn089dRTAGtvvfXW
X7rnnns+d9lll92EtgRG0JbuUNllYEgAOaJdQWpn3F6Nbe+jlxBCxEJuPqdfnuct+tv3fTzPi1/m70Kh
QLFYZGxsjPHxcUZGRjh27BiPPfYYV1xxxeVf/vKX/+8rr7zy3WgSGGVIApkYEkAbaEUQu9Gsre6/10TT
q33YJGD/nRZ6QwS24Ke/N2Tg+35MBGvWrEFKyZ49exgdHZ266667/vCtb33rLzK0BBpiSAA9xqBbBXnv
I20JZL2nl9nWQXqZTQLFYpGpqSkmJiZ45JFH2LRp09Q999zzxzfeeOO70YJfZEgCdRgSwDJgObR2L9Fr
Esj623y2l3met2ibLBKYnJzE8zzuu+8+pqenx2677bZPXX/99Tej7/ehO2BhSADLiF6a14PmHqTdAWPW
23+n1xVC4Pt+vCztKhQKhTg2MDExwZEjR/je977Hxo0bxz/3uc998m1ve9uQBFIYEkCfsBxk0Ev0ggQa
xQDsdY3Gt60DOy5grICRkREKhQL79++nWq1y9tlnr7rjjjs+vXPnzp+PdjeMCTAkgBWNQYgRNAoM2p+z
XII0MZjsgJ0lGB8f58UXX+Sll17i9OnTTE9Pj99555237Ny5810klZ5nNAkMCaADDFJ0fxCsgTQJmGVZ
39vLbXfAkIDv+7ErMDo6SqVS4ejRowRBwOHDh5menl51xx13fOq66657F1r4x9DBwTOSBIYE0CF6lTJb
jhRir2MQnYyfFnLbrLdfwKLP6fUNARhr4NSpUwDMzc3x0ksvcdZZZ63ZvXv3LTfeeOM7o92fsdmBIQHk
hF4JVa/gonuQ5Q7Yyxu5B1kkYGcHSqUSQgiklMzNzXHkyBHWr1+/6rOf/ewf7dq16+c5g92BIQHkiF5q
7l7ARfegGQkAdQHAdG2AebddgZGREWZmZqhWqxSLxbh8+NChQ2zYsGH1nXfeecsNN9zwc2hZGOcMm/J9
xpxoHmhVYHphbi9XhaEL7kGjuoBGLoBtAdhBQPM+MzMDwMTEBL7vE4Yhs7OzHD58mHXr1k3dddddf3zT
TTf9bLT7M8oSGBLAMqBXQjuoaOV6ZFkCZpssd6BRuXChUCAIAhYWFvA8j7GxMXzfRynF3Nwchw8fZv36
9avvuOOOW2688cafiXY3go4LeKxwIhgSwDJiUNyDXhcV2ftphqy5AjbSLoD521gB9rJqtcrIyAijo6OM
jY1RKBRQSjE7O8uBAwdYs2bNms9+9rOf2rVr1zvRFsAESQOYFSsnK/bEXEWvMwcrzT1IuwC2pldKZU4W
ShcUge4jMDo6ysjISEwEhUIBKSWlUomDBw+yYcOG6TvvvPOW66+//ifQJDDOCrcEhgTQAXrh1+eJlVJy
bJBl4qeXpYnCtgRMQxGj+W0SKBaLMQkcOnSI9evXr73rrrv+eNeuXT9OfZ3AiiSBIQEMcUZASonv+4yM
jFAsFhkdHY1fxWIR0C3G9u/fz/r169fddtttf3jNNdf8KCu8WGhIAB0ib9M4PZ7rVkavx06Pr5TKdAeA
RcG/9Bj2u7EAbBIYGRmJ04vz8/McOHCA6enpDZ/73Of+j507d/4oWvhXZHZgSAA5YRAi/b0W1l7DzgIY
2CRg3u25AmmY+oBisRiTgQkMmtLiubk5Dh06xNatW8+64447PnnNNdfcFG1uJhCtGLlZMSfiCgZBaAd5
3oGNZn0C7GNKb2OTgG0JjI2NUSwWEUIwNzfHvn37OOusszZ84QtfuOW66677EZKKwRXzgJghAbSBTgqB
8tx33hhkIrAzAUBdQNB8bx+P0e7mO5sEjBVggoMjIyN4nkepVGLv3r2sXr160+233/7pq6+++h1o4V8x
MYEhAfQYvYoT5IlBG9fGUjMJGy0zJGBcATN70LwKhQJCCCoLCzz//POsX7/+nN27d9+6a9eu/4XEEjB1
AoIBJYMhASwjepH7zxu9DujljUa9A+zvmm1rdxhO3IERRkcjd8DzCGTI/gPPs3HjxrP/5m/+5g+vuuqq
t6OFf5J6Ehg4DAlgmdHr7EEeWK7CorzQqA7Azh7YLkB6W9+rjwkUi5FLMKq7ChV8H6Ri//P7OOecc87d
vXv3rVdcccWNwKgQwpDAQNYJDAmgA7js25/pVkFWDABomBUAEF7aEhihOFJktDjK6MgII4Uinl+gUgs4
9MILTE+v33zXXXd9+rrrrtullBqhvmJwoDBwB+wKeqFx88IgZQ7M2HmgUfS/lfHtyUPFkSKjJjAYFwuN
4PsetVqNF144xLZtW7fcdtttf/iWt7xlJwOcHRgSQJdwWXAHxYTPa9ysgGA78ISH5/kU4l4CRUZHtCsw
MjJCwS8gPEGlWmXfvv1s2rRxy9///d///rXXXnsTWpbMY+QHhgSGBJADeunX5wGXhTbPcc3DRu0JQHYF
4JIQ4HmmoUgBP8oOFApFikXtHviFAh5Qq1U5cPAg27ZtO//uu+/+zFvf+ta3oeVpoLoNDwmgDbRbB7Cc
++zXePa4vUC345rtR0dHW1o/DCXVaoWFhTLlUplyuUy5vMBCpUIQBAB4vofv+chQcvCFg0xOTm66/Y7b
/3TndTv/TTTMwJBAC7TYMwgSAvKsZa5gJHoVpZSFarVKtVqNo8qtohuTtJdj2WNmBczSJbatIKtUNw/Y
JLDU2FkEJ6XkueeeqyscMstrtRq1Wo1SqUSpVKJWC6hWKtRqNS3wQjA2Okohev5gsVjA9zx8v0ChWMBX
PkcOv8iWLeec9fk7P3/rO9/5Tm/Pnj1fQMcEwPFHk/eLAES07wI6eurjXgBlBJgCpqrV6tjp06epVCpt
E0Aj9EKYu4FdVmt66tnttZrV16eRpbXzOt+s0t6sdZRSca3/5OQkDz30EA8++CBhGMbbKaXivwHCMMzs
QDw2NobwBMVCUX/n+0yMj7N27VpWr17DqlWTHHlRcO65r5q+/fbbb7n55pv9r33ta4YEFBDiKAn0kwBG
0UETEzhxbZJFEU0Aq2u12uTJkyedJYC8xjLCb6rjzLvdaz9dcusyzPmY2X/z8/MAdR2DxsbG6qoCzXZ2
LYGUkjAMkVISBAFKKUqleU6cOIGUkkKhwPnnn0+5XGL79u0bbrvttk/++I//+Mwjjzzy/6EVSQ1HLYF+
/Yo+sBZYMzo6evaFF154MUlFlROQUhaklGNBEEyOjY1d8vGPf/xdtVotNwLoBbo5Lns6rRGQkZERpqen
2bx5M1NTUyil4kdu2d12lusYl4JSiiAIqFarzM7OcuLECY4fP87JkyeZm5tDKZVp4djLsqYVGxLIIoMg
CKjValSiGMHmLZvZdcMupJRHfvInf/Lf33///V8HJFBiSAAxRoA1wLrt27ff9J3vfOfP+nQcQzTA7Ows
Bw8e5Mknn2Rubo5zzjmHN7/5zfi+HzfRyJp/3yp6QQSGAGq1GuVymZmZGWZnZ5mdnaVarQIsIgCbBNLt
xQzCMIzdCkMA5hUEAWEYUqvVWFhY4PTp0wgh2LVrF77v733729/+S88888x3gXm0FeAU+k4Al1122a5n
nnnmL4xp1a0W6xWWS+u3ux876GW/m5SYrb3s9Y3va38npYxvcNCm8urVqxkdHeX5559nz549vPGNb2Tr
1q1x2ayJDyznOTeCOVcT2FtYWKBcLicBPYitF0MEZv/pacX2dTXX0hCBuU7mWtlWQK1W4/Tp08zNzXHD
DTdw5MiRR376p3/6A4cOHfoe2hVwygrol8ltplSOb9y48fxf+ZVf+VFzkRuhVwK4HIK9HPvIIoGs7xst
SxNJEASUy2WOHz/OkSNHKBaLXHvttRw4cIC9e/eyZcsWpJR1vfm6QV5xFXs+gLFWxsbGmJycZNWqVaxa
tYrJyUkmJiYYGxtjbGyM8fHxuu5A6ZfdOMTuKWg/idieUjw+Pk6xWOTAgQPs2LFj68mTJ8VDDz10L1rh
OmUF9DMN2BZ65Xv3KnWV3sdyWCf2frJSe7bAG6E1FoDZ1gh12hc+duwYR48eZfv27Zw8eZKvfvWrvO1t
b6NSqQB0bQm0k+pbCqbbrzl2+zfOahhia/y01jdxA7Pc9/1Y+9ufzVOHDCEY62j//v18+MMf/qndu3f/
4969e/egCcAZEnAm6t5KgUreFXeNxu4Fenns0Pgx2/Yr/RSdrJba6aBYMcp/r1mzBikle/bsYWRkhKuv
vpp7772XIAjiAJgLlYvmXEzmws5gmL+XigHYgdB0gNCeQpx+GStgfHyciYkJ1q1bx8LCAlu3bt20c+fO
H0I/a2AMh9LdzhBAJ+i1sPYSvdhHVkecLIsgq39e1jKbBIrFIlNTU0xMTPDII4+wceNGbrjhBvbs2YNS
imq1Sq1Wq4sp5IFuyaBZcM+sk0WQWYRpSMGQQfr62O7A5OQka9asYXJykmPHjnHzzTdfPjY2tpqk7sUJ
DDQBQO9nqS0HEeSJNAlk/W0+28uy+uplkcDk5CSe53HfffcxPT3Nzp07uffee5FS5m4JuIIsl6SRm5K+
foVCgYWFBS6//PKrIgKwK2D7DmcOpFv00rweNPcgrenS6Tr7s33D2lHxtKtgzNxiscjExARHjhzhe9/7
Hhs2bOCaa67hvvvuqyMBO7bQ6nm34wLmDZsQGz1yrNkry33wfZ/x8XGUUqxevXrLxMTEOI61D1sxBGBj
Ocigl+gFCTSKAdjr2uZtehvP8+rMXBPgqlarnHXWWezcuZNvfvObAFSr1TpLIOuaNTrHVq9vr1wo+3Oa
RLPIIItM7fiCnXbctm3bFEnlqxNYkQSwHBiEGEGjwKD9OcslSBODrdGMNTA+Ps6LL77ISy+9xOnTp5me
nuaaa66JYwJZ7kA7xNzquedNBI2uT3pZmgSyXClDAgZTU1NrSboHOQHnCGCQovuDYA00CnxlfW8vTxfJ
2BrNdNCtVCocPXqUIAjMY7Z561vfyv333x8/ktsODLZ7Llm/XaPfM28XyrxnuQP2Oun10taV/blQKBgL
wJn2YU4cRBq9SpktRwqx1zGIblJj5nNW2ivrhs1KGdrpNM/zOHXqFKCfpvPSSy+xadMmrr/+eh5++OE4
O5DlDnRKBnmv2whZ5n/676ysgb2O+c5cq2KxOEUyzdyJTICTBJBGr4SqV3DRPcgyZ+3ljdyDLBKwswOl
UgkhdAHR3NwcR44cYd26dVx11VU88MADDd0Bcx55XIdu4wmtoFV3IG0l2CXHhUJhkqR3oBMPFhkIAoDB
bHTpmnvQjASAugBg2vQ177YrMDIywszMDNVqNa6Em52d5dChQ0xPT3PdddfxwAMPIKWkXC7H2YH0ObQT
JGyEVrMN7aBRpL8RYQKZVoH12Ux7d6b/hTME0G70N08B66UJ75p70OzGNe/pz7YmM26AeZ+ZmQFgYmIC
3/cJw5DZ2VkOHz7M2rVrufbaa3nkkUcAlqwTSJ9Hu9csK63YKFbQKRpdv0ZZA/Od/U6SCuy7/PX9ALpF
r4R2UNHK9ciyBMw2WdqtUblwoVCIg32e58VP2FVKMTc3x+HDh1m3bh3XXHNNTAKdVAx2+xs3CyZ2gmYk
kFUz0GgYhhZAfhgU96CX1kB6P82Q5bvaaFQMY3fTMe/VarXuMduFQgGlFLOzsxw4cIDVq1dz5ZVX8uCD
DxIEAaVSiWq1GjfWyOucOhmj1TGzSDOrNsB8l7Wei4plxRAA9Ea4VrJ70Mx3VUo19Gft5aBnztlTac20
WSklpVKJgwcPxnUCjz76KGEYxvP025070IqZ3+4Y9vx+O2XZaD9ZcZSsAqE2rIG+wTkC6IVfnyeWS2B7
gazxs0z8ZqZs2hIwAmM0v00CxWIxJoFDhw6xbt06rr76ah5//PHMOoF2zqPRueWBpcZp9H2jOICLgm/g
HAEMMXgwc+PNPHj7Mdum0ebs7Cz79+9n3bp1vOUtb1lEAu3EA8x7L4mg2ThpgW6UHrT/dhXO1CTbSF/4
bi9gI/O3W6Q1aZ7o5djp8e19GNPfmMZpFyFrDPNunr5j3/RGkMIwZH5+ngMHDrB161be/OY389hjj7Fj
x454/WKxWOeCtHse9nVqNSPSzvj2do22Vaq+KUs6q+EaBsICGIRIf69N914jy79Nl73abkIWTH2A6YZj
BwZNMczc3ByHDh1i8+bNXHXVVTz99NNAMoGom34C7bpQecQQGiGLIIYE0CUGQWh7HR9YLqSFPSuQlWVF
2CRguwP6qTpaw8/NzbFv3z42bdrElVdeybe+9S2U0hWDpvFmt+iGDLIyBa0GVLMChNa7c76AMwTQ6o/V
q0h/3hhkIkib4c3SXEqpuhlvaRKwm2Wal+d5lEol9u7dy9TUFDt27ODxxx+PswPVarWrCURZy/K2Dhpl
CdLuj/13tVoNcCD3b8MZAugEeZLBoGUNep0xgKVnEjZaZkjAuAJm9qB5mQailYUFnn/+edauXcsVV1zB
k08+GVsCpk7AxCJaicy36msvFUDs5pqmYxLmJaXk29/+9kzHA/cIA00ANvK2CHqlvXuBXh1v2vfPMm+b
bWuqBevdgRFGRyN3wPMIZMj+A8+zYcMGtm/fzre//e34YZ02CZjzzEKn2YB2NHyz/dvnnP5sb1MqlcJF
G/UZTmYBOkWjyLYr4/VqzKyx8xo3bfbbVW3GxLVdgPS2vucvusuUEigktWoNIUOQiv3P72PL1m3s2LGD
Rx99lMsvvxwpJePj44yMjCxyS1rNFCx1TWwBb3bN2onkZ+0zOn6nzH9w0AJw2bc/062CrBgA0DArACC8
tCUwQnGkyGhxlNGREUYKRTy/QKUWcOiFF1i/fh1veMMbePbZZ6lWq3XFQvZ5dRu9XyrY18545rP9nmUB
uAgnLYBWGLkfY/VivF6NaY+dx7iNov+t3OBWRxwQAiFAKE0Ovu9TC0KCUD/O64UXDnHeeefi+z5PPPEE
r3/966lUKosCkeljWOoc273GjSyHRu5G1jG1s79+wTkLwIbLfv0gBfbyGLfbijZPeHieTyHuJVBkdGSU
kdHo8Vt+AeEJKtUq+/btZ8OGaS6//HKefvrppi3HjfAv5cun/27nWthzBNrF0ALoEr30612uBnRtXGOC
m21sgTAVgE0hwBMCIXyUMoJIlBQTKCWRSqKqNWq1KgcOHmTb1m1MTU3x2GOP8YY3vCF+wm/6MWTt+Oc2
Gq3frMqv6Sm2UcHoCpyxAFpl5Tw15CBYBWbcXqDbcc32o6OjLa0fhpJqtcLCQplyqUy5XKZcXmAh0u4A
nu/hez4ylBx84SATExO87vWv44knngAWtxzvBTqNMzRzD1yF8xZAI+Tl2+Y9lhkPBiNO0I5FkCUQUkqe
e+65RdrPfkx3qVSiVCpRqwVUo0doB0EAQjA2Okohev5gsVjA9zx8v0ChWMBXPkcOv8iWLedw5ZVX8vDD
D/OWt7yl4QNJs4St3euVl8XpuuAbDCwBQPsm3HKN1WxMVyc2ZY3dLG1mav0nJyd56KGHePDBBwnDMN5O
KRX/DRCGYWYH4rGxMYQnKBaK+jvfZ2J8nLVr17J69RpWrZrkyIuCc899FVdccQUPPfQQV155JZVKJa41
aCV9t9Q5tbr9SsNAE8AQ/YPpEWimAM/PzwPUdQwaGxurqwo029m1BFLKuDOQMe1LpXlOnDiBlJJCocD5
559PuVxi+/btXHXVVTzxxBPs2LGDSqUSVxt2Gt3P051cqs7ARaxIAsjbPYAzM42YdePaOf2JiQmmpqYQ
QrBmzZq6duGNHq+dnlZsSCCLDIIgoFarcfjwYQ4cOMBze59j1w27uOqqq3jsscd47WtfS7VabS0I2cK5
dYJ2U6KuwTkCyEt4XRfcQSICG0KIWPjXrVtHoVBgzZo1AIsIwCaBdIssA1PqaxOAeQVBQBiG1Go1FhYW
OHXyFLt372bXrl1s376dvXv3cv755xOGYUskkJVCbHaerY6z1D5dJgbnCADyTYGdiWnEXqUQjRCPjIyw
atUqfN9ncnIyjuDbD8JMP1rMnlZsC4VJL9oTf8zLkECtVqNSqbB27VpOnz7N/fffzw033MDq1as5cuQI
F1xwQVPF0Wn+3hxrp66COR+Xi4GcJAAbvRA4l7MHvTDj86oENIJtPo+OjtYF/rI0fCMhMp/tQKGJAZgA
YtodqFarTExMMDMzw+OPP87OnTv5p3/6J7Zs2YKUkrGxsUXn3g1skuo2m+AqnCEA88MvZXq55h4MkmuQ
x7im26/R6PbxpoXfFvwsra9U0n4MdADRaH/7s3nqkOkvYAJ/+/fv59prr42DgmbqcR7C14q7kL6W9jlm
fecinCGAVtEr96CTsXpp2rlWCWivb3z7rLEaVeilhcMmfGMqQ+JmpFt1G+vDdjMWFhbYvHkzDz74IPPz
83iex8TExLLl7tP+vX0NemHN9QIDRwA28vTvWxWMfvyoeccxssbthAyW2ibLFUiTgDGvhRAxCRgLwKQQ
bavABPxGR0fxfZ9jx45xySWXMDc3x9jYWMsBwTQ69fGz/m5EfC7CmVJg19HtZJghspF1TRtdZ9vNMOlI
YwXMzc3VWRKtohMBdV2o28FAWwBptKvRWhVo1wS/lfNst2KwVy6HGc+YxEbTp//O2q/5Ox1vMBgfH0cp
xdTUFNVqdUnBzEPLt7tNK7GtfsI5AsgrCNZsnE4jui7+iFnH1uimbfU8enG+dhbAjGv+Nj5/Oq5gltvb
2OlFM4ZZb2FhYVEmoB8YpOIg5wjAoFdEkEecwGUiaHXdVs4h7/PNCo4ttY80CZiYgSECU4NQqVTi7kGN
zqMddOIWdLqvfsJZAjDIO1Lf6s3frPjDJSLo9PpkbddorDzdg6XcgTAMF1kLNgkYd8BYDOZvmwA6Lb7p
VOg72dYVOBMEbCWw0m7wpZl/3MhHzhKGZuv1C1nn0GnUuZ1t8giA2dcuPZsv6wnEdiWhWSf9kNJKpRK/
jFXQKjo5p/RThAcVzlsAWWhFA7f73VLlnv0WeBut3HDdBp6W0vp5WkFp0l0qC2A0vE0eplzYVA62OkOw
HeJrd5tBwEASgMFShSg2Wg18tbJuK8fVq+KdTrfLqtBrZ5xWsg3tjJkV8U+n8ez9mmCfvU+bDIzgmxLi
Vo+5FQy6lm+GgSaANPKI+HeDRlpiuSrT2hmrXQ3e6FjaCegtBaPh7ZhA+jMkgUFbyG2iMESSnnbcLtqt
KWgGV1OBfSeAXpqQeQheHmZkJz/+cmmcboW2WTCxm6BtWvunSaBZrKYb3zwvoR8Ui8GZIKBBu0G+XrJq
HsLf7jH2y9zMY5+NrIylkL5Gtn/f7MGk9ved7rvbbdLbD5q70HcLIAutaOBGVWONxmk2VqvfdzJmu+N1
O1ZegT8bnaYXs/5u5Tewtbzx/W3N3GgmYicCmFf+fpCE3oaTBGAjTQatCH4nWAnCnx6z01x4Vu1Ep+O1
Mn7WvtJIm/xpUuiXuT+ogm/gPAHY6ET4e6H17eXLUXDS6VidRPvt914RQbNx0uZ8lt9vxuj02ud1/Qdd
+MEhAjA/TDMhT3/fTNu1G91upQAoDTtKvdT4eSAPv3apeodG2za67o3QKbE2i5mko/6tCnMeZv5KEPYs
OEMAraCbeECj7TrRJOlA1CAh75qCvNbP2q4R2gn6Dc385hgYAshb+NPrtxLNbwf91vy9RLdp0qWsiaWs
QLOsUbzCrgXoFq5d+7zhJAEspWGXMrmbfd8LU7ad8Vwbq93zaxQXaGe8Vuommu27kbtoC38elk4ecD0t
6EwdQKsR/maWQDP/0f6unR+llXXzDizllZPP69jtdTodL48ceVZGSAhdBnz69OkzNpXXDZwhgCwslQJs
Fe1q/fR2zYJSrmr9vPbdTJiXGq/ZmGlCaMcFy3LbujH3XdfSvYRzLkAj87+Zab8UMXTy47Yi/HnBlbRU
2r9uZ3+NCrFaSR22E6XP2mc/4zODDmcIIJ3isdGr4p80ekEkvR6rV8fUbnakHb++nTiBHexLL+skgzMU
/no4QwCtCj/kW5nWyn7ygItjtWL2tyJk7f4e7dQXZFkHnfz+Q8HPhjMEAO3l1xulhrpBWtPkARfHaicA
2qxWolkuvtXfolFH4HaOr9n3QzRH3wkgLbytpvAabd8u0qQzyALbi7Ha8c9b2U+nMZV24hKuBPVcOpZG
6DsBGDT7gZfSPsudHVgKLo7lyk2YZ36+kxjAEPVwhgCgtbz/UPDdGafbAFynv1+nqcnlgivH0QqcIoBG
yOvG6WTCz1JwcazlGqeV36XZGIMkKEthUM/FWQLImu2VR5AvTwyawPZ6nPRvlefxLFVn0C/0e//dwlkC
cNXnW8kk4tKxpMeLDUzwAAAgAElEQVRxUdBcPKZ24SwBGPRb4OHMNvM7HafZuHml7pbTAlgJwp4Fpwgg
reE7Ef5hKm/5xuh0nHR9QadjdPoIsE72tVLhFAF0I/x5F/GsVIHNa6xuxzDbdyLEyyGQed5HLhOIUwRg
0EmJZ16aYKUSSF7j9GKMVlKMtiAt1ZMgz2Pr9zi9hnME0G49eR6C7+KP7oqw5jVOJ5WEWRmgZqXJ3cKl
67Vc6DsBdGP+uZQWdO3mGXQCaWQl2O95mdcuXfPlRt8JoFWBzqsYKGusfo+T11iunVcegt9LuHa9+oG+
E4BBO+W57ZiBrgmpa+MMmrCnawPadQdcuvYuwBkCaAXdpgiHGHx0WhzkoiJwAU4RQKML2+lc8bzgmtZw
aZzl0Pxp/7+X++r1OK7BGQJY6gK3YuqtVKF36Vg6HadToe902zwChCtV6G04QwCN0Grjx5UgJL0aZ5AE
Hzrv8Jtn0U3ehUCukomTBNBJb7lu4eKN48o4nY7R6nbdaPs84eL91Gs4RwBnqpnv2ji9Fnp7/aHQ9w99
J4BWI/su/lArcRzXzfy89t/Ndr0apx/oOwE0w1Dol2ecQRN6l4J7gyz84CgB5H1RBz2Q1osxuhmnH+m4
brZ38X5yBc4RQL9v7l6N5dJ5LXfVXj+E38WMgItwigBc+8FcGudMSeV1u98h2oNTBNAthlo/3zH6GdF3
weQ/EwhooAlgKPD5jtEvM98VQevF/eTKuTXCwBKASwKb11hDM79/cO1eWC4MHAG4dnHPJK2fd8WeC7/l
mSr4Bs4TgIs/kEs3/3Ka+i7l3814/UhJ9mqsfsBpAnBJYPMaZ9AE35XiHdeOoVPLyTU4SQCuMbRLBNLJ
OJ2u79K16/f++30evYIzBODaD+XSzT+M6LcPV1KSrsMZAugWrv3YgxDUM1hpZr5Lv6HrWBEEMOjaOq9x
OvFLXbp23cI11zHPcXqFgSQA136cQRF6exvXIvrdwkUiM9fZtWtlY2AIwCVh7bemaVfTu3Tt8kJewmVb
Qi49ZWq54PX7AIYYYrlx+MRh3nHnO9jxf+3gv93736jVagghCMNwRQRA24HzBJCXBstznLyOpRNN3uo2
SunHZ7t07fJAJ8diXzulFF/7n1/j8anHeWXbC3zi5Cf48Nc/zKEjhwAIgmDJ8dPjuXR92oWTBJDHRc3r
x8ljnE7G6GabbgXftRu7m2PJ2qZWqYGCt229mjdtu4C7y3fznsfew7ee+VZsCeTZssxlOEMAed5wLvm8
yyVAefvELqBXBKSUAgnCE/zQ5tdz40Wv5+ni07xn/3u4+967CYKAIAgIwzD3fbsGZwggD7jkLnRrqraz
fh6mviva3qCX5yOVBA8Uipqqcd66c/mJi69hfuwYv1X+LT5z32col8uAdgns8Vy6RnlgoAnAJTM/PU6v
tsnL93TJzO/FOS21Hugu1AJBIEM2rtrIz172Ds7eOM4ttVv49W/+OgcPHgSgWq32/Rr1CgNNAN0iz5s/
L/+0lW3yICpX0LdjEdHLF+AJJDVGCgVuvOAadrzqPO4R9/CBpz7AE999AiFES8HBQYQzBNDKxV1OLdGL
Y+lkGyll3Wu5jrWXyPs36AgCPB8EAs8z42m34C1bfogfvmgHT656kvcefi93PXgXQNtxAdtFcxXOEEAj
OHGzdDlOr92CvPbba7gSo0kKfrxYAgQCBCigpgIu3nAh/3b7jbD2NB+Z/wif+vqnmJubQym1pDXgEtku
BecJIA8Mzfz+o5+/QRpBGIAAIZT2BIRAeNYLqKqAdWPr+KnXvIMLzlrLrdzKR7/xUQ4dOZRZNGRbaYMi
/OAoAbimAXut9W1TsVtz0bWbzxWtb2PfyX2MjcBkcQKILAIRhQUEILwoOCgZK4zxI5e+jbeefzG7p3bz
/u+9n0e/+2hsCeRVbNUvOEcALt0sg2Tum7FcgUuCnxUD8TzwfR8hIgsgsgIQnv7sCzwf8EIkire86k38
1Guu5l/HnuZDxz7EFx/8IkoparVanCocRDhFAN2avHnfLL3cxjYXu4FL/mY/f4NmY2XBmP5a29drfiEE
nk4OxN8HMuSi6Qv5t2/8EcI1x/mPlf/Ip+5rPS7gKpwigE4wSNrebJOXme/KDZfnseQ5TqOxFGa5wBMC
PBDCRyDwI83v+wLhe1HAUK9TUzWmJzbwC6/7CS7Zup4/Kf4Jv/n4b/LSyy+hlOp6MlE/MNAE4Lrg24Ka
p8Z3BXmT73JaDkJoN0Crf1/HAHyj+SOXwKzriWgZhKrGaGGcH3vNO9j16u18edWX+eXv/zLf+s638Dwv
jgsMCgaOAPKKkC+Hme+iSdwtXD2ntscR0X+RYGshR/9tpMIQgfASVwGQhARKctW5b+bntu/k+5NP8YGZ
D3DHQ3cQhuFATSZyhgCa/YD9zgq0u02e0XwXhB7cNvM7Gi8K/hU8HfAreOD5As/XAi88LyIFD+HpeEAS
KNQpg0qtxsUbLuTmH/oxChtm+Vj4Mf7s4T+jXC4PjEvgDAE0Qr/N/Fa3s838buHSTeOamZ/LMUW2vQ4C
CgqRBSBiq8C86UIhYTYSxmLQYiN8QRAGbJrcxLt3/CyvOW8Dnx77NB955CO8cOgFwjB0PjjoJAEMzfz+
wsVzyvv6RAkAXQ7sG5/fi4uBjOYXdZofbR2YNKEeiVAF+F6BH7nk7dxw0Xb+cfU/8sH9H+SpHzzlfH8B
pwig16mfPLcxGj8vonIBLpv5eUIppdW6l8wINGa9iIQ8MQTs77x4OyP82hgQKCVRKK477ypufuONHFj/
FO+beR9ffOyLdsGQU/IGDhFAP7RNJ2a+LfjdYCULvmskYsYyvx2A74Hn+bEbAOB5OjUQZQa11idahhdb
AlG1gE4eREFEhN5HLaxx4frzeffrfprR9XP8RvE3+NM9f8rc3BzE9OEOBqYrcBaWQ9Pb2+Qh9K7ARSHt
5Xh140YxgEh5R4VAvkn3R19GUu1H0X+PWPPHWYI4mJAkFQCqYY3pyfX84ht/hn/5wdf5o5E/Yv839hMS
rok29JO1+4uBI4DlMu/75Yr0Ei4KfS+vUVO/WwBeFNBTxOY/1AcD4ypBL/H59ZuoE/o6cRZQkwHj/ig/
+pp3sOXFp7nn+bsIPuH9Oz7BMY5xGCjigDXQ9wMYYog80Wo2xvO0yS/sNB9RsM8TOg0YBfw8Y/Z7IgoM
Jma/5UEkTUYiBFKipOLNm9/IO19zA5OXylfxGf4zb+VH0bJnXn2zBgaGAJYjh5931NoVuOiX5x0D6ei3
swXYEurkO9MsxJJPIbLFtYEIKxSVsMZF6y7i5st/ivPOm9jAb/Mp/gO/AUyhrfC+uQROE0C3gb1Wt8tr
HvdKT+XldW36nl6MK/9E3WxAvFQRUCT8uhBQJJqfDM3f9Hh1XGD9xHreednP8Kazt/r8GL/OJ7kV2AJI
+kQCThJAJz9uJ0Sx0ir2epF3zwOuxgySWYB2jl+7Auk0n20d1D1BbCnht94DGVAQBX74gpu4aetrGXkT
v8DfcDs7uDZarbD0iPnCOQIYmvn9h4tmfp5j+fggVFINJCJ/H3SwzzPxgJS/T5vCrwAVkYBSKBRShgRS
csU5V/CT51/Hhot5M7/H7byTd6GtAOMSLAucyQK0K8SdjL/ShL6fGnpmZob9C/t5+fTLiEDoKbbdHE6G
MKklBlRK4fs+k6sm+dfSvzJ7fJb9cj+rTq1iZGSEQiF1ewvwpc8LEy9AVVDwC1E0X1mRfitHGNv7ZL83
Oq74P1v4QcbmgCQMAy5ccwFrR9by1Re+dva+D87/JRu5gD/nVmAOLZsh3V3VJeEMAbSKdm/WvEowh4Kv
8eKxF/nrA3/N7ud3c3D2IIyTfRc10pRpIfJS32Wt6zX43l7nkuhzDThJUnKTHk+BPwE/vO1NFP0igZKR
/2/tJhJ+O83X6oODGwk/KjYFUFJ/rIZV1o2s5cfP/Tfc/+I3xp76uRd/V17Odj7ORznBfrQl0FMScJ4A
hjl8DRf88ceefoyPHP4I33vle0xPjbDjrAuZ8McT4TATZ8yUWrvbjplSY4rrLAHzMFNuSfxxz0tm7KJN
caLKOzDFOFpkfVOnH7X51j57Ms032a9mgImxCc6a2BgLvx3pj4W/U38/U/Mr/VmCIlJIUrsEVVnDE0Wu
P/t61hSf4tHtz/5s6S84j//Ch/kOj6FJQEav3OEsAQzNfA0XBB/gmb3P8Mv7f5nD1cNcc+7lnLPqLDwv
Ud9eLLzRJBrAi2vqRezViti/jgQO4nJco4lFijhERBhY78JLAna6JNdLJuxg8vjRHH+sSH/0d02F8f4W
CX8H16de+FWd72+IIBZ+tPAbo0DKACHhh6bfyIbR9dw3+s03nfgMX1D/ld/iX/h8NHKNHpCAcwTQL8F3
SejBvcj57/3g9zg8f5gbL9jB9Nh6AlVDyjDWlhIRC4CQWgA9FYKKhDpEa3Dlae0vjbAmWhsEQoLw9MM3
hIm+q0ijKzTBKAFS4fvGyhcIpF4Ps35EIspYDYZwvDj1Z6f5mpr8rQT7WGzyS/O3lNGl0VYAKhJ+ZVLP
IFFIWWXbxDbe4d3EHvacfejjlb8Ir+Bi/oBPo10BEb3nBqeyAJ2Y+4PeljkLrkXOv/7k1/na6a9x2Vnn
sHFsmkDV9BeiXlDMzDrhWU67Ubq+jrR7VmBNQF2DDWH8dmusuGMPkDTtJK7eiy0HLIshtg5ItL4gnsev
+36ZdVmk9evkvUPhx/o7EX7LGlAythrMLgIZMhvMUfALvGn9Di4aWz0x9hP8Nn/JnzPKtmio4tJH1Tqc
IYBWb1R7VpcrhSndwvVim688+xWYhPPXnkdA1AK7zq+35sv72qf3EEkQruDV59GNzo9n20XS71lCC/V/
e5E7ERXsFDx01N4kzIQH+NrtMNthCXrcxMMcn4kjWCQm6k6rNZ8/uWB17xK0zy+lXlMmbkESD1TUVMC8
nOdU7QRHKy9xtPoiRxeOUAnLvHryQi71z2LV63mX9zk+zyVcHe2tQE6yOzAEkHe1nitwxce3x0mPdfiV
w4wWYXVhUj9aWyQ+dVwhh/bLvUT69Fs0m84TUT29tZ1R+3pbk3kTi+rv9XRc3aTD86Hg6XG9yGTQlXtR
k09rHDOjz8QDdBMP4+9bcQfiQ2lJ+I0QJwKt4nepIFQKFarI5zfCL1BKoCSEsspcMMcrteMcC17mRPU4
p2snWQjL2q1SAikVQRiyefRsLve3sm4Lbxr9Sz7Pu/j56Og043UJ52IANsyN6JqQ5AEXz6nRWEqZR2j5
IGqxT22CcPp29OpmywmhhbQu4k9CFrF7IBJNHJv7Rg3HatqQQmQsePVjxOZ9rMFtt6JRE496bd+Oz1+n
+i3Nr8VdQRztVwgpCJUikDUWVJlKWKKsKoQyQIWSEAVKoqTAFAvFVq5SSCVZ66/jMjXG3rG9Z5/6dfW3
pVdzCZ/gM8BMdLQdP5nEOQKwb8JOb26XBB3cE/a2x0lidHXRdGFMa0+b1bEwFUDg6QYbmPVING5sylum
ejy28dsTk9907PUiLW6EPEn1RaIt7O+8uv0kmp/E529T+NORfmUWqCjVB3GcXgC1MKAsy1RkmaqqUAtr
SBRCgQqlXjWaMShlEhdQkaUbhpoEAiUpMMJF4iIOVg76x36i8tvz67mA3+fjHI3rBST11NQSnCKAldhQ
06VxOh1LKZUoVZEIdZ1mtc3+pJNmvfCb9SBD+InXw0of1gm/VWdAPG5id8SWQ+JdZDbx6Fbzx1WPdZdS
oGRIIGuUVYWqLFGRFQIVJHUA0RgqIgwt7HZGIBo9ciWkUnGmQKoAlGAbr2K09DIvXz/ziwuXcunC7/Jr
PMTDJJWDbQmRMzGAIRyHMPPnI7/f9yKf3/jSkb9f0Jrfq9PQ9my7RIsviiOY2XhC+/sUonbdwrTrtvL7
XrT/mByi4zDz+H0Rl/ba/r7x8xPCILFwGiCS39jPN/JvNqmFNcrBHCfDE5wIX+ZUcIJ5OU8gAy3UMgoI
KqXN/jBEKokKQ6Q0k9KSyWlhqAhDiZRhtEwrxzAICaVkQ7iRV53cyKp17Jj8E27nZ3hXdDg+bcYFnLIA
uoFLmh/c0/75jBNpa8ufjoXH9+pTgpg0nr2eZfanIv2xurbM9qJAk0ZqX7p7L/XLjTuS7IZF/r5ZvQ2t
n470CwRKQUhITZUpBwtUZYmqClBKJq6AEnX+vEILvzQ1ACYlGL8iN0KqOs0fWwdhffZrQk6yddbnxcmX
tni/w1/PXsrF/D6fAU7Thksw0ATgktC7Jag9uDZJXE1H+o3gFUCEiVB5whL82KwndgFspYu1biKokc8u
0FrcLDPxgEj447XrVHlCHnWSHRcSLD6nZrB9foOKKrMQllkIK9TUAqHSFnd8vU2KT6rI31coFRICngoj
4bcsCSvgp4zwm2yXZTUoGf0drRPKkIIqcPbM2ZyoHBvx3xX+59LlXFb9D/wmJ3gBfRWCxWdQj4EkgJUo
+HmPlStiBS6i8l/Lb8eDQirSb7S2FfBLcu52oC9az7OeymtadXnGWzcEYdwDy4JIRfqFl57Hb9Yzn+vP
qRmU0vtXKAIVUlVlymGJqiwTqjCZ2Qdxps/W6DrAZ4RVfxeEi2s1pJQ6dRjKOA5gCEAGZr0QGWprIJSh
zg5IRah0QHF6diMj1dP4ry3/zMJdvGr+/fwnnovjAk1JwJkYQDuFQK7AtYq9PAubFo3lgfDBFn7Tw6Y+
zUdj4Tcam8XCr2MMJNZAnYDXC7/tyCceRqppp22ymE1IvmoOLfgLaoHT4SucCF7iVHicspwnNOXNEAcC
VRzkS8z5mAzi2hW5SPhNsE8HAiPhz1jHBAqlsRSsV6gkIZKJ0hRrD00ytoYrVn+ez/M+3h39Qk2bjzpv
AaxUgc8LyzJWLEeWD1+X409F+k0Bjl/v79dpfjvS76ci/fE6SaQ/1vxxAZEXc4Tp2GsmGNkZB/Nun0v2
KeovAhVSUSVKqkwtytcLabkDcQTfCKVM0oCWgKLQzwYEVKhN/6SQjTheEIZa+KW0BDvQZCCjZwsqpQil
jDS/TMYyGYQotlAoj7H2oMfshtnNhd/gz1+5iPP4GLcCsyRTi+vgJAEMhd7BsRKlq0vxSPv7lna3LQGz
ubDWgwzhJyX8kXthKXJha/6U8Nuqvk7olxB+Y+ZXVJWKKlGWZQIqOkgHlvCrpNgnIgBpWQC2T09sxuuC
oHrNjuXzm/RfhlWQ+lumtlfSEAORtaHXEbUiq46splSZmZj+OX53fhuXLvw7/jcUB9HWQJ1L4CQBDOEe
jPYWhUjzYzR/YqbHAp6K9NuVe0bze3jgW+25IYniewKhvNiCiH16YzlEx+PFpb7mGFs3+QUCiaSiyszL
ElW1gCRIsuiW1ldR8j60hFw/CCwy34UVvZcgVai1sqcgVLF2l9IO9qF9+1ijR8E+pZDmXYaJ6W/iAjLa
PpRIJbQFYlwEGUTbw9jLU4jqHOJN6hfGvsmrT32U/8QeHiRVL+BUDCAv/zWv4+jmWPIax6WxjEAb4Y+t
gujdjvQnixKiSKrw9CQeT+hHdNVVF3pJpN+OK6Qj/Ub4rYXZ5r29SnRUEkVJzfFKeJyT8gQLag4Zz7a1
anwi4ZfK0vYYMx8II1fACDZSC7+p6AstjW35+5oEwiiyH/0WkdDHJBAF+epcA0vzy8iNMNo/LhiKypAl
Ev/4BIVnfYrj7Jj+79zJzfwsmgDiuIAzBNBv5Ek+A2/uZ8CY3CbgF1sEkb2dTAgyfrdlysds4MWkgDCh
As8S9MS8rycXE0PwrDRfdFxZ03kXEYEerKqqzKnTvCKPckqeoEIJpWTs/+suPUSTd1RdxV8k6kmaz1gB
xipAJuW8UscG6slWuwVxHYC9PIgEO7SsgXgclfj7YUQqoe0OyPglpU02Cikk3kwR/9ki3hybNv4O/yev
YycWCQxdAIZ+/pKIhTEJ+NWn4VKR/niu/eJIv2nf5ftJoA/MGPWRflMTIDBTfNPtuyzCYLHZb/z7mqqw
IMuUKSOpxg6wiKL5ygg+qq5hhzQCbwmV0fjKkILUkX7tHsgoXaeS8l+lCCNNH0YmvZ0dMKk+GSbmvl7P
1v5SC7/UwcCYJEx8QZqKwsRV0dYEKCFRVQ/xrI+4MVzNubyDp3mcqMPQGUkALgp83uP1xpXKFn67iUfd
eoBp4mHM+3QTD7OdqBNk272IM/upJh7ZFr9ZV6KoqAUqao6yWohM/IhMTPFO9H+s9SHS/Inwx9F9TPCP
RPgjQZaR8CvbXJfR2LHPnxEEDFNkYJnydUFASeTnm+2j9dAugLTShAlhJediCCTymqaAaXRmoHrGEYCL
wu/qWPZ4sczb8/gFqQIfyyKIzfuowMe3pvLaaT6ARR18RCz86Uh/s9l8AoESsKAWKMs5KqqKpKZjCnix
MACx0Ne9G4HDWAVROs+QgPWuFCCl1u5Iy3zX76GMaESSodGtIp8o1RfG7oGV6oviAaHU+7LdAymlJikz
V8DEB1DI0FgfkcvgSXh1iKwScJCXgHVAFUg3Tl+5cFHw8x6vp2OZCLwSSX1+lvBjBHKx8JvJQHX+vkn1
sVjz62EaCH9yWLGpX6ZESc5TVQsoZCz4YPz2BsIfRfy0yCZpPhTRfH1Lo0YaGCOwUsY1AXV+PVEGgNRy
ZfnwseaXqdSf9dkcX7zM+Pt6odH88frW8apAoUZCeK2EKapHP8Y/8CTPABNE9LliCcBFwXKZPJqOZ6zv
uIWXXhwX3yitteOwsvABhe8LpADfJ7IGFHH0z/PwFIk5r0xUEB0LUKbdl1lGbHUYeCKq2KPEvMoWfCAy
lc1nYnM/mZAj6vz9yPbXToMxzSNtrggh1BV4KgQpJMikyCeM2oCFSulUokn1IZBBGAuxDJXl74OQKg4c
Gm0ehpZpH6f6Qh3sM41GlfH9tdsSJQZQgYK1NcR2qB7lxKlf5m6+zRNozV9GxwDCFUkAK134+0IkiWUe
v0y4XhfwmC+MOa81e8GY+4Bu3yUsQiEO1sXCb2IGWcIfH4oAoX38OTVLlWzBh7TwqyS/bzXojIU/+hfJ
U+wSxJF+GUYaXSYTder8btvfl9b2WBN6rHy+NU5cJSixovzGGgijfaQi/SSViCb+QDRpiC01vMtg9mH2
ld7H5ymzH/3EoVfQMwZLrDQCcFHIBlbr2xBE/fiTaH99ik8kwh9F/z2ymniY9S2z32KWxe27SDIK8caK
CgvMy1mt8UW24CcnaN6UVeSj6nL9WCa/Pakn8ftJYgNGSCPTvS52EJvjSfUfGSa/MsJsEYyt5RMrgNi9
IBUcTFwLcz4KAoXyJVwcwnlw7DYekR9jN3ACLfxHo9craCsgWDEE4JrAukhGXY3nmUCglbaLMwJeXSFP
ISIFz0znNRV7grh9l3nAh7YgkpZepn1XvdbXGr+mKpSYo6IqOrgnGgt+o2CfOX8tN4npbKbvmpSgCahp
n10mgi3rK/uI1jHtu6SV6pNSJpWAUbMPE+kP6yyBKHAXl/cm5r5J9cnQBBfN3AMZC79UChWAGg8QlynU
CAvHP8o/8Tn2oPsGnkYL/jH0g9Nm0a7AYKcBXRPWFSf0FqIYnv5cN903qdc3T9aNA3ZmHezJP9aAiGgK
oNm+vn2XMfVrVKnIEmVKhNSigGHjGra6MzXpPSP85nujnSONn7gBljmPglQTj7oAXTSuJKuJh0oqAVNp
vsy6fmnXDtgBP4D6caM4n45hyEj411cRr4OFIxyb+SB38a88jTbzT6IF/zhwCpgnEn5ADRwBuCpkro6V
23giab2lrXgtsXEbbyvS78WxAePvm0IeO9Ivkki/nxXpF0gRUFbzlFQJSTXa3xKC30qk39LuSfAsMc21
NR5Gwb0o6Bavk6TpQhURBJG2tjS6sjS/rhWQOkCo0ppfRgU+icugx5dREFBTVmjGNcceqrhBCNtqiEth
9ht8v/x+7qbCfrSJf5xE+GfQhFD3iDFnCEApVVcc0midvPbl0ji9GC/vY8PU7JPk+E06z27XHUcD47dE
+JNiAtvfrxd+EeUKyswyH8wTeJXo23hyQJOTtvphWpo/MtQTYY9Vff3U3vhdRcU3lr8fuwMqiczLyBw3
rkH8faiiWn8toKFpFWZbD3Wa34oXqIQkjPAnFoEhIrTWL4RwUYg6F3Xsr/gmv89X0Kb+HIngn0Cb/GUy
moY6QwA2XBUEV8fqxXj2mMrT73GZr4nUE6XqBPEDQIw/4HmJkJtcfeIDeHX+PhjyUCxQphTqyD52cG8J
4VfWfa2s98TcT6L9dn5fAiJUSEEUsAvj9J9Sic+euAZyURMPTRQSFQprgg+xWa99f901GCP4oRXsA/2d
OVQlkVLopwoJbWlIpbv/yBAIFHKyhrhUEY6xcOJX+TJfZg+JyW/8/VNoMligQY9AJwlgCDcQk4qKTHcf
CKNIv9840u8ZR75BpL/O349yggE1SuEsC5R0Ss968vCSwh+b/aouzWeE1tb0qMWVfSHElXYhxn+3m3jo
0bPad2krQE/B1YJrcv1ErcNSvr/J2SvT4CMigvgYFKEZSyUkYYKJhNrf914L5cMcn3kPd/M0T6I1/Cto
wTfCX8Ly97OunXME4KJ57upYvRove0wv9s0RIn6+pt3EA+ysgO3zp4Q/0usCj9CTLMhZSswREkRWRifC
zyLhxwg6iXlvltWZ3JhcevS8ybr2XOYaZzXxSJn01itJCaZMfoXV+dcK9tXV9VsTjyLhj8t8z63Bq+H0
v/Bs5YPcTcghtJY/Qb2/b4p9mj4nwCkC6PZmdlVQXRd6M2bDcSMZ9oSP8AMt/FZv/7iu3zT7sLIF9Wk+
4l79eLAg56P++QuRReDXT1BvIvx1AT+7si/6zs7jx349KaGNg4HEs/FUKpgno6m9YLfvSghCRu27kpr+
Zk08rPkEcapPPztAouL5BHWpPonW/r6Ci2qIbXD0L7if/8pX0Bp/lvoUnxH+lh4S4hQBdApXhRHbjVsA
AA2KSURBVHXgBd+GADyFp8DzyRT+uBrQBAqtvJ8t/AE15oMZFigBKs4oJNU/SxwzJMJvLVNY/xnNHwXO
pGUBxNp/kfAv1uxmYpCJCWRr/mTWoPlsf6dsrR65JMoK9ukHYklrnGh8CdRATgZwuSQUlE58kHv4Cg+g
03np/P48UCHyZJb+UQecAFwV1kEQ/HYew7Z57WYeqtWYqcwwNTYZJdOSwp90x16RivSLSPAlipKcZV7N
Igmivv8+okWtD4nJD/Wav87fxxY0VS+QJAIZxv57JNh1qT5Tq2/89uTp1Hoqr0K36ybW/PGMPGUsBaz2
XcRWBbHm11YF0XGFsWURlQjXQG2qwOWw8DxHZj7AbvbxXbSGP4EW/uNoIpgnMflbvmEGsiNQy1prgMfq
1Xjm8VPtbHPDlhsozcJzp/dS8IvEwm/l8mPhh0SIozSgh6DKAqfD48yqk0gRJA/9aEf46yL9lrmvDzQW
frNQGb89+t6QhNauplY/ux13IswhdlpOKawOPiquDJRRDb4x9+Oa/jBFQHEHnyQAqFTSxAOl4uYf6twK
vBFmvs53Z27ir9nHU2iT/0XgcPRu0nxV2tD8Bs5YAEo1rwNwVUMPgraP03kdjB0EAVdfejXXPngt3zj8
Dc5fcy4bVm0iVPqJ1PFcfE/oW0+YQiEPz/MIkczLmUjr6984EfrW9U96Uo8Kos0bTOoJo3OVxh2Ign1C
Cf1MPiG0cMvo3fCGFR9Y3L5LpZp42LX/9esSpwPNNujuPNoEiWMASJ2ClKGeVYhUqJEAeV6I2II6+nt8
lb/mK2ghnyGJ8hv/f4EWngDUCE4RQNYN6rqA9ds8bxftHq8QgmKxyIdWf4jvl7/P3fv+mXecex3nrttG
wSsCKkrtJ227RPR4yioVSmqGqlfFp0ihrkBI1Gt88znj8JQRbJOrByiYvrzEc/I9a10R9fOWCFCKQEiQ
vj5/4SNlLRJMSxiJWm5ZTTyUSqb6qrr2XZpU0s0+jDuBTEx6QxJxylAmLoZxO5Cgago5VUW8TiFDSife
x5e4l2+ihdzk901J7xxt+vtZcIYAhkiwVEVkM+RNSEIIlFK87pLX8TuP/A6ffOmT3Bnu4dWrp7l4+nzG
C+NamH2rSpBI+MM5Qi/Ejxt/kgh/o4Bf+m+l4w2JwR8tE5FLA5j/jNbHBN6idZUyxKCFriiKrPanqKkg
+d6Y3zIjiKcSU544DpAE8Ra94jHsYJ+0Zvyl3IKo2afcUEG8Fuaf5cjch7idw/yAen//BEl+v0bGgz7a
hTME0Oim71QYGglCJ+M1E6q8x+t0zFbG7WRsz/MoFAp4nscVr72CTzz7Cb70zJd4YPoB/sfkE6gRla3J
sz7XxQaSv0WKDOy4gN39O94m/TeJK5L+WxjPxPquAFw0dRabRzcTyDBu4oGKGn1YGt1O9UldodO8fZfd
sVcazR8mHYOVSRFGhBTqgIU8v4q4CF7ZzdO1X+NO4GV0YC9dz19Gm/y5mInOEECeOJN8/LwDhemxAXzf
Z3x8nDAMueiii/iltb/EjYdv5IXvv8AJeSISkIzjaMY1aZO/VV6yyEFJhed5jI2P8Vf/z199o6Zqx/CZ
w6OMR4CwhMSMX6XGe3nbkRtffv0muQmiEt04/WZPuony/ul23fFkIpmyEqy/sQJ+JtgHWKnASPMXJOrS
GmodtaOf4n7+lP+BFnTb3z+JjvRX6cLfz8KKIQCXBbVXx9ZrwTcQQlAoFJiYmIi/LxQKbNiwgXK5TLVa
JQzbs0bzOHYpJb7vMzU1xd8e/tvna6Xa8yTNL4x/nEaVI1xGkddXZYgvvbh4h1ijq6RpZ6S90+26jYBL
065b1ZOETvXVt+uWRJZFtI1cVUNcLglLzJx4L7v5Bo9RX89/nPr8flspvlYw0AQwCEKaN3ql8ZdyczzP
Y2RkBCEEvu8zMTHB/Pw8CwsL1Gq1lggg7+MOw5BCocDatWvxff8U2mw+itaeJjqeRpVR5hFAKFFK1EXv
24n0m9l+8efY36cu0m83HlEhOvIf5ffnn+bQ3Pu4gxM8hxb+4yRmv2ndVYUk45knBpIAXBfWQTTzl4IR
fPM+OjrK5ORkLPxGc3azj3YRhiHFYpF169YZAjiKzo2fJPGV06hSpCSEXb1n+fuhcQXsAF9WEw9DHhl1
/bELYIKLUeqyBqAIz63ARXDqS3y7+mG+ALyE1vJ2iu80CYn1LC3kDAEsVQdgr5fnPvNEXuPZ4/RKeDod
24vy+77vUywW6zVnarxeHjskBDA9PY3v+/NozX+KpOddLWOzGgUWjJAnFXoybuJB3L4rqc1flOqTplbf
DgaabsBRcY/dIyAAORLCq2uotahj/zv/zF/xL2S37DJTeHP197PgDAE0gqtC2qvxejVm3mMbIujV+K3A
EMD4+DhCiBraT16IXo0IAAShElGG0ZjtqcadofHjUwSXbuKRWAUm/19vKaBA1UCurqIuk4TznDrxbr7I
I7G/bywXu56/6RTePOE0AZwJ2j495qARynLuI7f9RWlIKaVushFE5blx8Y5+4o9xD+pSfTJp2pkQhrTS
f9ZDPoKoVuGcBXgNzD/GvvkP8gVO8D/RJHWc+vx+mUT4lwVOEsCZJvguVf65Nn5P9hl5miogSsdZAT6Z
NO6IfXoTFAyz/P1Uu+5Y+BXSU8htFbgATtzGI+FH+TKJv38cHbQ0Kb6e+/tZcI4AzhThX+5U3qDuo2f7
E7rxpwi9pGWXCq2n75oHdajYPYjbdUcThFBe1B1IWw6eifgHIEdD5KU11Cpqxz7GP/NZvor27Y2/fxwd
qzD+flclvZ3CKQLo9gd2WeDTYw6iqT/QAm9DgJkqTGyyh9ntumPNnjL7AVRg+fqKUKHnC0zVUJeHBDOc
fuW9fIEHeAKt9bPy+6akd/lNKRwjgG6w3MLf7v4GIbDX730s5/6UIO7Pp+qCffXCH5ruwKk0n3mYSLyt
1Mvk5gW4BOYeZt/8r3IXx9mLDvbZLbtMfj8gh3r+btAvAjBFDRJMT0ZZF1V2XZsPkgZfrrTicoxvw5jp
UfrYng/fPIIe3WY1GeJJEaf54lSf3cRDWYJuN/GIugmFUqICgfKkzu+fByc+yyPhx/gHkhbddrDPtOiu
NT3GZUI/LYCo4RFVgE2bNvXxUFqHucG7mbG31Ni9QC+PO2s/7eyrm/M2VYpoP7pCi7lzAVEzDxb39Kdx
r34drzWEIHV+f6yGenUNOcbC8V/nK9zFfSTz99P+ftdTePNEPy2AAJA/+MEPfrBt27b3CyGmgSlgjAHt
VOQqei30fUSglCoppU6/8sorL6KFa+m2WNGMQikVIpoJGJfthjKq2bdM/rhddyoeUAO5toK6XFJ7mWOv
vIcvWi267ZZdix7J1dOr0gb6TQCVWq12/NChQ08D64FJYJQhAQzRGgK05jfVdLO0qmFjn55osg71XYCk
0q1Eo/Xq2nVHE3rk2WXUZTD7AM+V/lfupMzz1D+S6wSJv79ki+5+oF8EINE/XpmoJiP6PApETeeGGGJJ
SLTAV9AatrVZc0IHAfXTe4nq/81TfIzAB1Gk3zwIRMcKhBRIXyLPr8BWOPY3PCx/ly+StOgy9fzG3+9L
fr9V9NMCCNE/lrEG5qPjsVtHDDFEM5iAn4klVWkxrSYUkX8v9GMEsyL9Ug+v44ASAkE4VkNtryELVI/9
Gv/Al9jD4vy+eQS3U/5+FvodBIQkcONhnhY1JIAhWkM6mxRayxrDigEQ9QWkTvhlbPJDNFkoUISRv18+
wNGZf8+d/CBu0d3okVx9TfG1gn4SgLECQhpN2hhiiB5BgU7nSfthHFb7rqjRqAwFEoncuqAfyfXP/OvC
+/k8ui23mb9vUnynafGRXK5gxRQCDTFEyzA9Ca1If0IAZln0WDAvIDyvgtqMOvbf+Yb6A/6BZMpulr/f
0iO5XMGQAIY442AahUoZ1j3s027XTSiQ41XCS2qEPtXjv8oX+UceQAv+SZKqPkMGzvv7WRgSwBBnLHSa
z4vIwEoJSgjXl1GXScp7eXnm/dzJfr6L1vAnSNJ8dn5/6diDgxgSwBBnHPSDTfUcgFA/fldnAMxz/jaX
URfDzNd4tvw+7gIOoQX9FfQU3hPo2gNTzz8wJn8aQwIY4oyEwtTxAwLCAKQfoi5YQJ4FR2/lXm6JH8E9
T9K1x/j7pupw4LS+jSEBDHHmwTQEUQqU0FV9xt+HuePv5cvcFz+C+xT1zTqNyT9w/n4WhgQwxBmH+Jkk
gUKGEE6XUa+RlJ/jyMyH+AJ7+Q5ayI3gpx/B7Xx+v1UMCWCIMw8CDwUhinBLCXURnLyHJ6u/xpeQHCZp
2XUUrfVtf3/gtb6NIQEMccbB85gXa0G+roxahXr5U/wzf8ZX0Vo+PYW360dwuwy/3wcwxBDLDE+OUhJn
cVXlOCdP/gGf5//lPnQu30T5XyKJ9A9kfr9VDGvuhzjTUATG0dPPtwAbomXG7M/9EdwuY+gCDHGmQZJM
HpojmUxkmnY61bKr1xgSwBBnGhRauGfQfn0xWrZAMotvRfr7WRi6AEOcifDQyq9oLTMz+Fasv5+FIQEM
cSZCpN4hEfozRviHGGKIIYYYYoghhhhiiCGGGGKIIYYYYoghhhhiiCGGGGKIFYn/H118OX8JstnaAAAA
AElFTkSuQmCCKAAAADAAAABgAAAAAQAgAAAAAACAJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAEAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAA
BgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAgAAAAHAAAA
AQAAAAAAAAAAAAAAADrCWXU8xFv/PcVdZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAABgAAABGAAAATwAAAE4AAABOAAAATgAAAE4AAABOAAAATgAAAE4AAABOAAAA
TgAAAE4AAABOAAAATgAAAE4AAABOAAAATgAAAE4AAABOAAAATgAAAE4AAABOAAAATgAAAE4AAABOAAAA
TwAAAE4AAAA3AAAACQAAAAAAAAAAAAAAADjAWP+l4q35PMNc/z7FXmcAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALe3t/Da2tv219fX9tfX1/bW19f219fX9tfX1/bX19f219fX
9tfX1/bX1tf219fX9tbX1/bW19f21tfX9tbX1/bW19f21tfX9tbX1/bW19f21tfX9tbW1/bW1tf21tbX
9tbW1/bW1tf219fY9tzc3fwAAABgAAAADgAAAAAAAAAAAAAAADfAVv+O3pr/oeGq/z3EXf8+xV9nAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAODg4P//////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////8AAABgAAAADQAAAAAAAAAAAAAAADW+Vf+R4Z3/OcRO
/6Hgqv89xV3/P8VeZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//7/P7/9vb3
//b29//29vj/9fb4//X2+P/19vj/9fb4//X2+P/19vj/9fX2//X19v/09fb/9PX2//T19v/09fb/9PX2
//T19v/09fb/9PX2//T19v/z9PX/8/T1//P09f/z9PX/9fb3//////8AAABeAAAADQAAAAAAAAAAAAAA
ADS9U/+U5KD/KMVA/znDTf+h4Kn/PcVd/z/GX2cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANPT0//8/f7/9/j5//f4+f/39/j/9/f4//f3+P/29/j/9vf4//b3+P/29/j/9vf4//b3+P/29/f/9vb3
//X29//19vf/9fb3//X29//19vf/9fb3//X29/+Q0p7/Gqg5/xuqOv8eqzz/IK0//yKvQf8lsUT/J7NG
/yq2Sf8tuEv/L7lP/zK8Uv+W6KP/LstG/yfDP/84w0z/oeCp/z7FXv8/xl9nAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANPT0//8/f7/9/j5//f4+f/3+Pn/9/j5//f3+P/39/j/9vf4//b3+P/29/j/9vf4
//b3+P/29/j/9vb3//b29//19vf/9fb3//X29//19vf/9fb3//X29/8XpjX/guSU/4bolv+I65n/ie6b
/4rwnf+L8Z3/i/Gd/4nwnP+I75r/hu2Y/4TplP+A5pH/M9FM/yzJRf8nwj7/OMJL/6Dfqf8+xV//P8Zf
ZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//9/f7/9/j5//f4+f/3+Pn/9/j5//f3+P/39/j/9/f4
//b3+P/29/j/9vf4//b3+P/29/j/9vf4//b29//29vf/9fb3//X29//19vf/9fb3//X29/8WpTT/XNdx
/zvVVv9A21r/Q+Bf/0XkY/9H52P/R+lk/0fpZP9G6GP/ROZh/0DiXP883Ff/ONdS/zLQS/8syUT/JsI+
/zjBSv+g36n/P8Zf/z/GX2cAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//9/f7/+Pj5//f4+f/3+Pn/9/j5
//f4+f/39/j/9/f4//f3+P/29/j/9vf4//b3+P/29/j/9vf4//b3+P/29vf/9vb3//X29//19vf/9fb3
//X29/8WpTT/YNVz/zbPUP861VX/P9ta/0PhX/9F5WL/R+hk/0fpZP9H6WT/Rulj/0PlYP9A4Vv/PN1X
/zfWUf8yz0r/LMlE/ybBPf83wEr/oN+p/z/GX/8/xl9nAAAAAAAAAAAAAAAAAAAAANPT0//9/v//+Pj5
//j4+f/4+Pn/9/j5//f4+f/3+Pn/9/j5//f4+f/39/j/9/f4//b3+P/29/j/9vf4//b3+P/29/j/9vf4
//b29//29vf/9fb3//X29/8WpTT/cNeA/0nPXv9C0lr/PNZW/z7cWf9C4V7/RuVi/0boY/9H6WT/R+lk
/0bnY/9E5V//QOFb/zvbVv831VD/Mc9K/yvHQ/8lwDv/NsBK/5/fqP8/xl//AAAAAAAAAAAAAAAAAAAA
ANPT0//9/v//+Pj5//j4+f/4+Pn/+Pj5//f4+f/3+Pn/9/j5//f4+f/39/j/9/f4//f3+P/39/j/9vf4
//b3+P/29/j/9vf4//b3+P/29vf/9vb3//b29/8WpTT/cNSB/1LOZ/9U02n/UNZp/0vaY/9F3V//Q+Jg
/0TmYP9F6GP/Rulj/0fpZP9G6GP/ROVf/z/gW/8721b/NtVP/zHOSf8qx0L/Tsth/z7FXf8/xl9nAAAA
AAAAAAAAAAAAAAAAANPT0//9/v//+Pn6//j4+f/4+Pn/+Pj5//j4+f/3+Pn/9/j5//f4+f/3+Pn/9/j5
//f3+P/39/j/9vf4//b3+P/29/j/9vf4//b3+P/29/j/9vf4//b29/8WpTT/bdF9/03KYf9Qz2T/VNNq
/1nYbv9Y3W//VuBv/1Hka/9K5mf/SOhk/0bpY/9E6WL/ROdh/0LkX/9A31r/OtpV/zXUT/9Y12z/O8Na
/zzEXGcAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//9/v//+Pn6//j5+v/4+fr/+Pj5//j4+f/4+Pn/9/j5
//f4+f/3+Pn/9/j5//f4+f/39/j/9/f4//b3+P/29/j/9vf4//b3+P/29/j/9vf4//b3+P8WpTT/cNGA
/2PPdf9m0nf/Z9Z6/2rZfv9s3H//ceKG/3XniP916ov/ceuJ/2jtgP9j7Xv/TOlo/0XnYf9B5Fz/Pd5Y
/2Dgdf83wFb/OcJZZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//+/v//+fn6//j5+v/4+fr/+Pn6
//j4+f/4+Pn/+Pj5//j4+f/3+Pn/9/j5//f4+f/3+Pn/9/f4//f3+P/39/j/9/f4//b3+P/29/j/9vf4
//b3+P+P0Z7/FqU0/xalNP8WpTT/FqU0/xemNf8ZqDf/Gqk4/x2qO/8erD3/Ia4//yOwQv9z74n/Yu18
/17rd/9V6HD/cuuH/zO8U/82vlVnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//+/v//+fn6
//n5+v/4+fr/+Pn6//j5+v/4+fr/+Pj5//j4+f/4+Pn/9/j5//f4+f/3+Pn/9/j5//f4+f/39/j/9/f4
//b3+P/29/j/9vf4//b3+P/29/j/9vf4//b3+P/29vf/+Pj5//////+bm5z/6enq//X29//19vf/9fb3
/yKvQf9y64f/Y+19/2Xtfv928Iz/L7lP/zK7UWcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANPT0//+/v//+fn6//n5+v/5+fr/+Pn6//j5+v/4+fr/+Pn6//j4+f/4+Pn/+Pj5//f4+f/3+Pn/9/j5
//f4+f/3+Pn/9/f4//f3+P/29/j/9vf4//b3+P/29/j/9vf4//b3+P/29/j/+Pf4//////+bm5z/6enq
//X29//19vf/9fb3/yCuP/9x6Yb/ZOt8/3bvjv8qtkn/KqtHbwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANPT0//+////+fn6//n5+v/5+fr/+fn6//j5+v/4+fr/+Pn6//j5+v/4+Pn/+Pj5
//j4+f/4+Pn/9/j5//f4+f/3+Pn/9/j5//f3+P/39/j/9/f4//b3+P/29/j/9vf4//b3+P/29/j/+Pn6
//////+bm5z/6enq//X29//19vf/9fb3/x6sPf9x6If/du2K/yayRf8bdC6fAAAADQAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0//+////+fr7//n5+v/5+fr/+fn6//n5+v/5+fr/+Pn6
//j5+v/4+fr/+Pn6//j4+f/4+Pn/+Pj5//f4+f/3+Pn/9/j5//f4+f/3+Pn/9/f4//f3+P/29/j/9vf4
//b3+P/29/j/+Pn6//////+bm5z/6enq//X29//19vf/9fb3/x2qPP934on/Iq9A/6ffs/8AAABeAAAA
DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0///////+fr7//n6+//5+vv/+fn6
//n5+v/5+fr/+fn6//n5+v/4+fr/+Pn6//j5+v/4+Pn/+Pj5//j4+f/3+Pn/9/j5//f4+f/3+Pn/9/j5
//f3+P/39/j/9/f4//b3+P/29/j/+Pn6//////+bm5z/6enq//b29//19vf/9fb3/5HToP8eqz3/oNqu
//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0///////+vr7
//n6+//5+vv/+fr7//n5+v/5+fr/+fn6//n5+v/4+fr/+Pn6//j5+v/4+fr/+Pj5//j4+f/4+Pn/+Pj5
//f4+f/3+Pn/9/j5//f4+f/39/j/9/f4//f3+P/29/j/+Pn6//////+bnJ3/6err//b29//19vf/9fb3
//X29//19vf/9/j5//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANPT0///////+vr7//r6+//5+vv/+fr7//n5+v/5+fr/+fn6//n5+v/5+fr/+Pn6//j5+v/4+fr/+Pn6
//j4+f/4+Pn/+Pj5//f4+f/3+Pn/9/j5//f4+f/3+Pn/9/f4//f3+P/39/j/9/n6//////+bnJ3/6err
//b3+P/29vf/9fb3//X29//19vf/9/j5//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANPT0///////+vr7//r6+//6+vv/+vr7//n6+//5+vv/+fr7//n5+v/5+fr/+fn6
//n5+v/5+fr/+Pn6//j5+v/4+fr/+Pj5//j4+f/4+Pn/+Pj5//f4+f/3+Pn/9/j5//f4+f/3+Pn/+fn6
//////+bnJ3/6err//b3+P/29/j/9vf4//b29//29vf/9vj5//////8AAABeAAAADQAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT0///////+vr7//r6+//6+vv/+vr7//r6+//5+vv/+fr7
//n6+//5+fr/+fn6//n5+v/5+fr/+Pn6//j5+v/4+fr/+Pn6//j4+f/4+Pn/+Pj5//j4+f/3+Pn/9/j5
//f4+f/3+Pn/+fr7//////+bnJ3/6err//b3+P/29/j/9vf4//b3+P/29vf/+Pj5//////8AAABeAAAA
DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT1P//////+vr7//r6+//6+vv/+vr7
//r6+//6+vv/+fr7//n6+//5+vv/+fn6//n5+v/5+fr/+fn6//j5+v/4+fr/+Pn6//j5+v/4+Pn/+Pj5
//j4+f/3+Pn/9/j5//f4+f/3+Pn/+fr7//////+bnJ3/6err//b3+P/29/j/9vf4//b3+P/29/j/+Pf4
//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT1P//////+vv8
//r6+//6+vv/+vr7//r6+//6+vv/+vr7//r6+//5+vv/+fr7//n5+v/5+fr/+fn6//n5+v/5+fr/+Pn6
//j5+v/4+fr/+Pj5//j4+f/4+Pn/+Pj5//f4+f/3+Pn/+fr7//////+cnJ3/6urr//b3+P/29/j/9vf4
//b3+P/29/j/+Pn6//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANPT1P//////+/v8//r7/P/6+/z/+vr7//r6+//6+vv/+vr7//r6+//6+vv/+fr7//n6+//5+vv/+fn6
//n5+v/5+fr/+fn6//j5+v/4+fr/+Pn6//j5+v/4+Pn/+Pj5//j4+f/4+Pn/+fr7//////+cnZ3/6urr
//f3+P/29/j/9vf4//b3+P/29/j/+Pn6//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANPT1P//////+/v8//v7/P/6+/z/+vv8//r6+//6+vv/+vr7//r6+//6+vv/+vr7
//n6+//5+vv/+fr7//n5+v/5+fr/+fn6//n5+v/5+fr/+Pn6//j5+v/4+fr/+Pj5//j4+f/4+Pn/+vr7
//////+am5v/6err//f3+P/39/j/9/f4//b3+P/29/j/+Pn6//////8AAABeAAAADQAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT1P//////+/v8//v7/P/7+/z/+/v8//r7/P/6+vv/+vr7
//r6+//6+vv/+vr7//r6+//6+vv/+fr7//n6+//5+fr/+fn6//n5+v/5+fr/+fn6//j5+v/4+fr/+Pn6
//j4+f/4+Pn/+vr7//////+XmJj/6uvs//f4+f/39/j/9/f4//f3+P/29/j/+Pn6//////8AAABeAAAA
DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT1P//////+/v8//v7/P/7+/z/+/v8
//r7/P/6+/z/+vr7//r6+//6+vv/+vr7//r6+//6+vv/+fr7//n6+//5+vv/+fn6//n5+v/5+fr/+fn6
//n5+v/4+fr/+Pn6//j5+v/4+fr/9/f3//////+hoaL/7e7v//f4+f/3+Pn/9/f4//f3+P/39/j/9/n6
//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPT1P//////+/v8
//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//r7/P/6+vv/+vr7//r6+//6+vv/+vr7//r6+//6+vv/+fr7
//n6+//5+fr/+fn6//n5+v/5+fr/+fn6//r7/P/4+Pn/9PT0//////+dnZ3/7e3u//f4+f/3+Pn/9/j5
//f4+f/3+Pn/+fn6//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANPT1P//////+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/6+/z/+vr7//r6+//6+vv/+vr7
//r6+//6+vv/+vr7//n6+//5+vv/+/z9//n6+//4+fn/+fn5//b29f/x8fH/6+vr/97e3v+9vb3/9PT1
//j4+f/3+Pn/9/j5//f4+f/3+Pn/+fr7//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANPU1P//////+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/6+/z/+vv8
//r7/P/6+vv/+vr7//r6+//6+vv/+vr7//n6+//+////6+zt/6ampv+5ubn/tra2/7a2tv+1tbX/1dXV
/4mKiv/v7/D/+Pj5//j4+f/3+Pn/9/j5//f4+f/3+Pn/+fr7//////8AAABeAAAADQAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU1P//////+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8
//v7/P/7+/z/+/v8//r7/P/6+/z/+vr7//r6+//6+vv/+vr7//r6+///////5ubo/8fHx///////////
//j4+P/w8PD/mJmZ/+Dh4f/4+fr/+Pj5//j4+f/4+Pn/+Pj5//f4+f/3+Pn/+fr7//////8AAABeAAAA
DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU1P///////Pz9//z8/f/7/P3/+/v8
//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+vv8//r6+//6+vv/+vr7//r6+///////6Ojo
/8LCwv//////7e3t/+fn6P+dnZ7/5OTl//j5+v/4+fr/+Pn6//j5+v/4+Pn/+Pj5//j4+f/4+Pn/+fr7
//////8AAABeAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU1P///////Pz9
//z8/f/8/P3/+/z9//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+vv8//r7/P/6+/z/+vr7
//r6+//+/v7/5eXl/76+vv/29vb/5ebm/6Cgof/k5OT/+fn6//n5+v/5+fr/+Pn6//j5+v/4+fr/+Pj5
//j4+f/4+Pn/+vr7//////8AAABgAAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANTU1P///////Pz9//z8/f/8/P3//Pz9//v8/f/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8
//v7/P/6+/z/+vv8//n4+P/6+vr/4+Pj/7q6uv/x8fL/mZub/+Tk5f/5+fr/+fn6//n5+v/5+fr/+fn6
//j5+v/4+fr/+Pn6//j4+f/4+Pn/+vr7//////8AAABjAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANTU1P///////Pz9//z8/f/8/P3//Pz9//38/f/8/f7/+/z9//v7/P/7+/z/+/v8
//v7/P/7+/z/+/v8//v7/P/7+/z/+vr7//X19P/z8/P/4uLh/9LS0/+kpKX/4+Pk//n6+//5+vv/+fn6
//n5+v/5+fr/+fn6//n5+v/4+fr/+Pn6//j5+v/4+fr/9/f3//////8AAABZAAAACgAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU0////////f3+//39/v/9/f7//f3+//39/v/9/f7//P3+
//z8/f/8/P3//Pz9//z8/f/8/P3//Pz9//z8/f/8/P3//f3+//n5+f/5+fj/4N3d/52dnv/m5uf/+vr7
//r6+//6+vv/+fr7//n6+//5+fr/+fn6//n5+v/5+fr/+fn6//r7/P/4+Pn/9PT0//////8AAABeAAAA
CwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANXV1f/a2tr/2tra/9ra2v/a2tr/2tra
/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra/9va2v/i4uP/s7/B
/+vr7P/6+vv/+vr7//r6+//6+vv/+vr7//n6+//5+vv/+/z9//n6+//4+fn/+fn5//b29f/x8fH/6+vr
/97e3v8AAAA9AAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANPU1P//////+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8
//v7/P/6+/z/+vv8//r7/P/6+vv/+vr7//r6+//6+vv/+vr7//n6+//+////6+zt/6ampv+5ubn/tra2
/7a2tv+1tbX/1dXV/0tLS6MAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU1P//////+/v8//v7/P/7+/z/+/v8
//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//r7/P/6+/z/+vr7//r6+//6+vv/+vr7//r6+///////5ubo
/8fHx/////////////j4+P/w8PD/fX19xgAAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU1P///////Pz9
//z8/f/7/P3/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+vv8//r6+//6+vv/+vr7
//r6+///////6Ojo/8LCwv//////7e3t/+fn6P+EhIXIAAAAFQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ANTU1P///////Pz9//z8/f/8/P3/+/z9//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+vv8
//r7/P/6+/z/+vr7//r6+//+/v7/5eXl/76+vv/29vb/5ebm/4eHiMcAAAAWAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAANTU1P///////Pz9//z8/f/8/P3//Pz9//v8/f/7+/z/+/v8//v7/P/7+/z/+/v8
//v7/P/7+/z/+/v8//v7/P/6+/z/+vv8//n4+P/6+vr/4+Pj/7q6uv/x8fL/fH5+wwAAABYAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU1P///////Pz9//z8/f/8/P3//Pz9//38/f/8/f7/+/z9
//v7/P/7+/z/+/v8//v7/P/7+/z/+/v8//v7/P/7+/z/+vr7//X19P/z8/P/4uLh/9LS0/+Pj4/MAAAA
FwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANTU0////////f3+//39/v/9/f7//f3+
//39/v/9/f7//P3+//z8/f/8/P3//Pz9//z8/f/8/P3//Pz9//z8/f/8/P3//f3+//n5+f/5+fj/4N3d
/4GAgcMAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANXV1f/a2tr/2tra
/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra/9ra2v/a2tr/2tra
/9va2v/i4uP/bYWHgAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAAAABx/wAA4AAAAHD/AADgAAAAcH8AAOAAAABwPwAA4AAA
AHAfAADgAAAAAA8AAOAAAAAABwAA4AAAAAADAADgAAAAAAEAAOAAAAAAAQAA4AAAAAABAADgAAAAAAMA
AOAAAAAABwAA4AAAAAAPAADgAAAAAB8AAOAAAAAAPwAA4AAAAAA/AADgAAAAAD8AAOAAAAAAPwAA4AAA
AAA/AADgAAAAAD8AAOAAAAAAPwAA4AAAAAA/AADgAAAAAD8AAOAAAAAAPwAA4AAAAAA/AADgAAAAAD8A
AOAAAAAAPwAA4AAAAAA/AADgAAAAAD8AAOAAAAAAPwAA4AAAAAA/AADgAAAAAD8AAOAAAAAAPwAA4AAA
AAA/AADgAAAAAD8AAOAAAAAAPwAA4AAAAAA/AADgAAAAAD8AAP/wAAAAfwAA//AAAAD/AAD/8AAAAf8A
AP/wAAAD/wAA//AAAAf/AAD/8AAAD/8AAP/wAAAf/wAA//AAAD//AAD///////8AACgAAAAgAAAAQAAA
AAEAIAAAAAAAgBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAACWxT6o0vl5cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
CAAAABgAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAA
IAAAACAAAAAYAAAACAAAAAAAAAAAL7hZ/y+4Wf80vl5cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAYAAAASAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAA
YAAAAGAAAABgAAAAYAAAAEgAAAAYAAAAAAAAAAAvuFn/m+Om/C+4Wf80vl5cAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAM/Pz//19vb/9fb2//X29v/19vb/9fb2//X29v/19vb/9fb2//X29v/19vb/9fb2
//X29v/19vb/9fb2//X29v/19vb/AAAAYAAAACAAAAAAAAAAAC+4Wf983oz/mOGj/y+4Wf80vl5cAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAz8/P//b39//29/f/9vf3//b39//29/f/9vf3//b39//29/f/9vf3
//b39//29/f/9vf3/57dsv8vuFn/L7hZ/y+4Wf8vuFn/L7hZ/y+4Wf8vuFn/L7hZ/3/ij/8ryET/mOGj
/y+4Wf80vl5cAAAAAAAAAAAAAAAAAAAAAAAAAADPz8//9vf3//b39//29/f/9vf3//b39//29/f/9vf3
//b39//29/f/9vf3//b39//29/f/FqVA/4vsnP+M8J7/jfGf/43xn/+N8Z//i/Cd/4numv+G6Zb/TNtj
/zLPSf8qyEP/mOGj/yayUf8zvVxfAAAAAAAAAAAAAAAAAAAAAM/Pz//29/f/9vf3//b39//29/f/9vf3
//b39//29/f/9vf3//b39//29/f/9vf3//b39/8WpUD/aeN+/0PhYP9F52L/R+lk/0fpZP9H6WT/Redh
/0HiXP883Vf/N9ZQ/zHPSv8qxkL/l+Ci/yayUf8yvVthAAAAAAAAAAAAAAAAz8/P//f4+P/3+Pj/9/j4
//f4+P/3+Pj/9/j4//f4+P/3+Pj/9/j4//f4+P/3+Pj/9/j4/xalQP9l3nr/Ptxa/0PiX/9G5mP/R+hk
/0fpZP9G6GP/ROZh/0HiXP8821f/NtRP/zDOSf8pxEH/neKn/ymzU/8AAAAAAAAAAAAAAADPz8//9/j4
//f4+P/3+Pj/9/j4//f4+P/3+Pj/9/j4//f4+P/3+Pj/9/j4//f4+P/3+Pj/FqVA/3Tehv9J2WL/RN5f
/0TiX/9F52H/Rehi/0bpY/9G6GP/ROZf/0DhXP8721b/NdRO/2vbfP8ps1P/IrNHcQAAAAAAAAAAAAAA
AM/Pz//4+fn/+Pn5//j5+f/4+fn/+Pn5//j5+f/4+fn/+Pn5//j5+f/4+fn/+Pn5//j5+f8WpUD/eNyJ
/1jYbv9Y3W7/VOFu/1Dlav9M5mj/Sehm/0bpZP9D6GD/QeVe/z7gWv9z5Yb/KbNT/yS1S2wAAAAAAAAA
AAAAAAAAAAAAz8/P//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5
/5zcsP8WpUD/FqVA/xalQP8WpUD/FqVA/xalQP8WpUD/FqVA/1Lsbf9J6Wf/eeyN/ymzU/8ltkxoAAAA
AAAAAAAAAAAAAAAAAAAAAADPz8//+fr6//n6+v/5+vr/+fr6//n6+v/5+vr/+fr6//n6+v/5+vr/+fr6
//n6+v/5+vr/+fr6//n6+v/5+vr/+fr6/5mamv/X2Nj/9vf3//b39/8WpUD/ZO1+/47yof8ps1P/IJhB
dwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM/Pz//6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6
//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/mZqa/9fY2P/29/f/9vf3/xalQP+Q8KH/KbNT
/xdvL5wAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz8/P//r7+//6+/v/+vv7//r7+//6+/v/+vv7
//r7+//6+/v/+vv7//r7+//6+/v/+vv7//r7+//6+/v/+vv7//r7+/+am5v/2NnZ//f4+P/3+Pj/FqVA
/ymzU/+p3rn/AAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPz8//+/v7//v7+//7+/v/+/v7
//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/5qbm//Y2dn/9/j4
//f4+P9hwX3/qt66//f4+P8AAABgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM/Pz//7/Pz/+/z8
//v8/P/7/Pz/+/z8//v8/P/7/Pz/+/z8//v8/P/7/Pz/+/z8//v8/P/7/Pz/+/z8//v8/P/7/Pz/m5ub
/9na2v/4+fn/+Pn5//j5+f/4+fn/+Pn5/wAAAGAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz8/P
//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8
//z8/P+bm5v/2tra//n5+f/5+fn/+fn5//n5+f/5+fn/AAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAADPz8///f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39
//39/f/9/f3//f39/5ucnP/a29v/+fr6//n6+v/5+vr/+fr6//n6+v8AAABgAAAAIAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAM/Pz//9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39
//39/f/9/f3/7u7u/+Dg4P/R0dH/p6en/+Dg4P/6+vr/+vr6//r6+v/6+vr/+vr6/wAAAGAAAAAgAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAz8/P//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+
//7+/v/+/v7/tLS0/7S0tP+0tLT/tLS0/7S0tP/Fxsb/7O3t//r7+//6+/v/+vv7//r7+//6+/v/AAAA
YAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPz8///v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+
//7+/v/+/v7//v7+//7+/v+0tLT//v7+//7+/v/g4OH/vLy8/+jo6P/4+Pj/+/v7//v7+//7+/v/+/v7
//v7+/8AAABgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM/Pz//+/v7//v7+//7+/v/+/v7//v7+
//7+/v/+/v7//v7+//7+/v/+/v7//v7+/7S0tP/+/v7/4ODh/7y9vf/o6en/+Pn5//v8/P/7/Pz/+/z8
//v8/P/7/Pz/+/z8/wAAAGAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz8/P////////////////
////////////////////////////////////////////tLS0/+Dg4f+9vb3/6enp//n5+f/8/Pz//Pz8
//z8/P/8/Pz//Pz8//z8/P/8/Pz/AAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPz8//////
/////////////////////////////////////////////////+Dg4f/Gxsj/vb29/+rq6v/6+vr//f39
//39/f/9/f3//f39//39/f/9/f3//f39//39/f8AAABgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AM/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/729vf/q6ur/+vr6
//39/f/9/f3//f39//39/f/9/f3//f39/+7u7v/g4OD/0dHR/wAAAFUAAAAbAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM/Pz//+/v7//v7+//7+/v/+/v7//v7+
//7+/v/+/v7//v7+//7+/v/+/v7//v7+/7S0tP+0tLT/tLS0/7S0tP+0tLT/AAAANgAAAA4AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz8/P//7+/v/+/v7//v7+
//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/tLS0//7+/v/+/v7/4ODh/35+foAAAAATAAAA
AwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPz8///v7+
//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v+0tLT//v7+/+Dg4f9+fn6AAAAA
EwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AM/Pz////////////////////////////////////////////////////////////7S0tP/g4OH/fn5+
gAAAABMAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAz8/P///////////////////////////////////////////////////////g4OH/xsbI
/35+foAAAAATAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAADPz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P
/8/Pz/9+fn6AAAAAEwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/////////z/gAAMf4AAD
D+AAAwfgAAAD4AAAAeAAAADgAAAA4AAAAOAAAAHgAAAD4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAA
B+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAf/wAAH/8AAB//AAA//wAAf/8AAP//AAH8oAAAAEAAA
ACAAAAABACAAAAAAAEAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAioqL/4qKi/+Kiov/ioqL
/4qKi/+Kiov/ioqL/4qKi/+Kiov/AAAAABalQP8AAAAAAAAAAAAAAAAAAAAAAAAAAJiYmf//////////
////////////////////////////mJiZ/wAAAAAWpUD/FqVA/wAAAAAAAAAAAAAAAAAAAACoqKj/////
//////////////////////8WpUD/FqVA/xalQP8WpUD/FqVA/0bpY/8WpUD/AAAAAAAAAAAAAAAAqKio
////////////////////////////FqVA/yTiUv8w6GD/Rulj/0bpY/9G6WP/Rulj/yutU/8AAAAAAAAA
ALa2tv///////////////////////////yutU/8rrVP/K61T/yutU/8rrVP/Rulj/yutU/8AAAAAAAAA
AAAAAADAwMD//////////////////////////////////////8DAwP//////K61T/yutU/8AAAAAAAAA
AAAAAAAAAAAAwMDA///////////////////////////////////////AwMD//////yutU/+oqKj/AAAA
AAAAAAAAAAAAAAAAAMDAwP//////////////////////////////////////wMDA////////////tra2
/wAAAAAAAAAAAAAAAAAAAADAwMD////////////////////////////AwMD/wMDA/8DAwP//////////
/8DAwP8AAAAAAAAAAAAAAAAAAAAAwMDA////////////////////////////wMDA///////AwMD/////
///////AwMD/AAAAAAAAAAAAAAAAAAAAAMDAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/////
////////////wMDA/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMD/////////////////////
///////AwMD/wMDA/8DAwP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDA////////////////
////////////wMDA///////AwMD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwP/AwMD/wMDA
/8DAwP/AwMD/wMDA/8DAwP/AwMD/4uPiAwAAAAAAAAAAAAAAAP//AAD//wAAgC8AAIAnAACAAwAAgAEA
AIADAACABwAAgAcAAIAHAACABwAAgAcAAIAHAADwBwAA8AcAAPAHAAA=
</value>
</data>
</root>

70
ToolCollection/frmNIMoveRename.vb Normal file
View File

@ -0,0 +1,70 @@
Public Class frmNIMoveRename
Private Sub TBTC_MOVE_RENAMEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub tsbtnAdd_Click(sender As Object, e As EventArgs) Handles tsbtnAdd.Click
Try
Me.MyDataset.TBTC_MOVE_RENAME.CREATED_WHOColumn.DefaultValue = Environment.UserName
Me.MyDataset.TBTC_MOVE_RENAME.PROFILE_NAMEColumn.DefaultValue = CURRENT_PROFILENAME
TBTC_MOVE_RENAMEBindingSource.AddNew()
Catch ex As Exception
MsgBox("Unexpected error in tsbtnAdd.Click: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmNIMoveRename_Load(sender As Object, e As EventArgs) Handles Me.Load
LoadData
End Sub
Sub LoadData()
Try
TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DD_ECMConnString
Me.TBTC_MOVE_RENAMETableAdapter.Fill(Me.MyDataset.TBTC_MOVE_RENAME, CURRENT_PROFILENAME)
If Me.MyDataset.TBTC_MOVE_RENAME.Rows.Count = 1 Then
tsbtnAdd.Enabled = False
tsbtndelete.Enabled = True
Else
tsbtnAdd.Enabled = True
tsbtndelete.Enabled = False
End If
Catch ex As System.Exception
MsgBox("Unexpected error in Loading MoveRename: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub tsbtnsave_Click(sender As Object, e As EventArgs) Handles tsbtnsave.Click
Try
Me.TBTC_MOVE_RENAMEBindingSource.EndEdit()
Me.MyDataset.TBTC_MOVE_RENAME.CHANGED_WHOColumn.DefaultValue = Environment.UserName
If Not IsNothing(MyDataset.TBTC_MOVE_RENAME.GetChanges) Then
Me.MyDataset.TBTC_MOVE_RENAME.CHANGED_WHOColumn.DefaultValue = Environment.UserName
Me.TBTC_MOVE_RENAMEBindingSource.EndEdit()
TBTC_MOVE_RENAMETableAdapter.Update(MyDataset.TBTC_MOVE_RENAME)
LoadData()
End If
Catch ex As Exception
MsgBox("Unexpected error in Saving MoveRename: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CURRENT_Namekonvention = NAMECONVENTIONTextBox.Text
DYNAMIC_TYPE = "FILE"
frmNIMoveRenameNamenkonvention.ShowDialog()
NAMECONVENTIONTextBox.Text = CURRENT_Namekonvention
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
CURRENT_DYNAMICFOLDER = FOLDER_FOR_INDEXTextBox.Text
DYNAMIC_TYPE = "FOLDER"
frmNIMoveRenameNamenkonvention.ShowDialog()
FOLDER_FOR_INDEXTextBox.Text = CURRENT_DYNAMICFOLDER
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtndelete.Click
TBTC_MOVE_RENAMETableAdapter.Delete(GUIDTextBox.Text)
LoadData()
End Sub
End Class

195
ToolCollection/frmNIMoveRenameNamenkonvention.designer.vb generated Normal file
View File

@ -0,0 +1,195 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmNIMoveRenameNamenkonvention
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIMoveRenameNamenkonvention))
Me.Label1 = New System.Windows.Forms.Label()
Me.txtnamenKonv = New System.Windows.Forms.TextBox()
Me.btnAddIndexM = New System.Windows.Forms.Button()
Me.cmbIndexe = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnVersionTZ = New System.Windows.Forms.Button()
Me.btnTrennzeichen = New System.Windows.Forms.Button()
Me.btnVersion = New System.Windows.Forms.Button()
Me.btndelete = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnclose = New System.Windows.Forms.Button()
Me.cmbDate = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.btnAddDate = New System.Windows.Forms.Button()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'txtnamenKonv
'
resources.ApplyResources(Me.txtnamenKonv, "txtnamenKonv")
Me.txtnamenKonv.Name = "txtnamenKonv"
'
'btnAddIndexM
'
resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM")
Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.UseVisualStyleBackColor = True
'
'cmbIndexe
'
Me.cmbIndexe.DisplayMember = "NAME"
Me.cmbIndexe.FormattingEnabled = True
resources.ApplyResources(Me.cmbIndexe, "cmbIndexe")
Me.cmbIndexe.Name = "cmbIndexe"
Me.cmbIndexe.ValueMember = "GUID"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button2)
Me.GroupBox2.Controls.Add(Me.btnVersionTZ)
Me.GroupBox2.Controls.Add(Me.btnTrennzeichen)
Me.GroupBox2.Controls.Add(Me.btnVersion)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'Button2
'
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'btnVersionTZ
'
resources.ApplyResources(Me.btnVersionTZ, "btnVersionTZ")
Me.btnVersionTZ.Name = "btnVersionTZ"
Me.btnVersionTZ.UseVisualStyleBackColor = True
'
'btnTrennzeichen
'
resources.ApplyResources(Me.btnTrennzeichen, "btnTrennzeichen")
Me.btnTrennzeichen.Name = "btnTrennzeichen"
Me.btnTrennzeichen.UseVisualStyleBackColor = True
'
'btnVersion
'
resources.ApplyResources(Me.btnVersion, "btnVersion")
Me.btnVersion.Name = "btnVersion"
Me.btnVersion.UseVisualStyleBackColor = True
'
'btndelete
'
Me.btndelete.Image = Global.ToolCollection.My.Resources.Resources.delete
resources.ApplyResources(Me.btndelete, "btndelete")
Me.btndelete.Name = "btndelete"
Me.btndelete.UseVisualStyleBackColor = False
'
'btnOK
'
Me.btnOK.Image = Global.ToolCollection.My.Resources.Resources.save
resources.ApplyResources(Me.btnOK, "btnOK")
Me.btnOK.Name = "btnOK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnclose
'
Me.btnclose.Image = Global.ToolCollection.My.Resources.Resources.cross1
resources.ApplyResources(Me.btnclose, "btnclose")
Me.btnclose.Name = "btnclose"
Me.btnclose.UseVisualStyleBackColor = True
'
'cmbDate
'
resources.ApplyResources(Me.cmbDate, "cmbDate")
Me.cmbDate.FormattingEnabled = True
Me.cmbDate.Items.AddRange(New Object() {resources.GetString("cmbDate.Items"), resources.GetString("cmbDate.Items1"), resources.GetString("cmbDate.Items2"), resources.GetString("cmbDate.Items3"), resources.GetString("cmbDate.Items4"), resources.GetString("cmbDate.Items5"), resources.GetString("cmbDate.Items6"), resources.GetString("cmbDate.Items7"), resources.GetString("cmbDate.Items8"), resources.GetString("cmbDate.Items9"), resources.GetString("cmbDate.Items10")})
Me.cmbDate.Name = "cmbDate"
'
'Label20
'
resources.ApplyResources(Me.Label20, "Label20")
Me.Label20.Name = "Label20"
'
'btnAddDate
'
resources.ApplyResources(Me.btnAddDate, "btnAddDate")
Me.btnAddDate.Name = "btnAddDate"
Me.btnAddDate.UseVisualStyleBackColor = True
'
'frmNIMoveRenameNamenkonvention
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ControlBox = False
Me.Controls.Add(Me.btnAddIndexM)
Me.Controls.Add(Me.cmbIndexe)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnAddDate)
Me.Controls.Add(Me.cmbDate)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.btnclose)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btndelete)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.txtnamenKonv)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmNIMoveRenameNamenkonvention"
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtnamenKonv As System.Windows.Forms.TextBox
Friend WithEvents btnAddIndexM As System.Windows.Forms.Button
Friend WithEvents cmbIndexe As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents btnVersion As System.Windows.Forms.Button
Friend WithEvents btndelete As System.Windows.Forms.Button
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents btnclose As System.Windows.Forms.Button
Friend WithEvents btnTrennzeichen As System.Windows.Forms.Button
Friend WithEvents btnVersionTZ As System.Windows.Forms.Button
Friend WithEvents cmbDate As System.Windows.Forms.ComboBox
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents btnAddDate As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class

252
ToolCollection/frmNIMoveRenameNamenkonvention.en-US.resx Normal file
View File

@ -0,0 +1,252 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<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="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>431, 34</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Define the Nameconvention for the selected Documenttype.
You can assemble the filename from the Indicies and Textpatterns below.</value>
</data>
<data name="btnAddIndexA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddIndexM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 17</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>Automatic Index:</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>Manual Index:</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Indicies:</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 139</value>
</data>
<data name="Button2.Text" xml:space="preserve">
<value>Add original filename</value>
</data>
<data name="btnVersionTZ.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnVersionTZ.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 91</value>
</data>
<data name="btnVersionTZ.Text" xml:space="preserve">
<value>Add Versionseperator:</value>
</data>
<data name="btnTrennzeichen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnTrennzeichen.Size" type="System.Drawing.Size, System.Drawing">
<value>163, 29</value>
</data>
<data name="btnTrennzeichen.Text" xml:space="preserve">
<value>Add Fileseperator:</value>
</data>
<data name="btnVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnVersion.Text" xml:space="preserve">
<value>Add Version:</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Variables:</value>
</data>
<data name="btnOK.Text" xml:space="preserve">
<value>Save</value>
</data>
<data name="btnclose.Text" xml:space="preserve">
<value>Cancel</value>
</data>
<data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
<value>83, 17</value>
</data>
<data name="Label20.Text" xml:space="preserve">
<value>Date Format:</value>
</data>
<data name="btnAddDate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddDivers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>41, 17</value>
</data>
<data name="Label4.Text" xml:space="preserve">
<value>Misc.:</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Nameconvention Wizard:</value>
</data>
</root>

647
ToolCollection/frmNIMoveRenameNamenkonvention.resx Normal file
View File

@ -0,0 +1,647 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 9</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>473, 51</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Definieren Sie hier die Namenskonvention.
Sie haben die Möglichkeit den Datei-/Ordnernamen aus den unten aufgeführten
Indizes und Textbausteinen zusammenzustellen.</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="txtnamenKonv.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 74</value>
</data>
<data name="txtnamenKonv.Size" type="System.Drawing.Size, System.Drawing">
<value>488, 25</value>
</data>
<data name="txtnamenKonv.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="&gt;&gt;txtnamenKonv.Name" xml:space="preserve">
<value>txtnamenKonv</value>
</data>
<data name="&gt;&gt;txtnamenKonv.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtnamenKonv.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtnamenKonv.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<data name="btnAddIndexM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddIndexM.Location" type="System.Drawing.Point, System.Drawing">
<value>190, 135</value>
</data>
<data name="btnAddIndexM.Size" type="System.Drawing.Size, System.Drawing">
<value>30, 23</value>
</data>
<data name="btnAddIndexM.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;btnAddIndexM.Name" xml:space="preserve">
<value>btnAddIndexM</value>
</data>
<data name="&gt;&gt;btnAddIndexM.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnAddIndexM.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnAddIndexM.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="cmbIndexe.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 135</value>
</data>
<data name="cmbIndexe.Size" type="System.Drawing.Size, System.Drawing">
<value>172, 25</value>
</data>
<data name="cmbIndexe.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;cmbIndexe.Name" xml:space="preserve">
<value>cmbIndexe</value>
</data>
<data name="&gt;&gt;cmbIndexe.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbIndexe.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;cmbIndexe.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 115</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>69, 17</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>IndexWert:</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="Button2.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
<value>175, 70</value>
</data>
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
<value>163, 43</value>
</data>
<data name="Button2.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="Button2.Text" xml:space="preserve">
<value>OriginalName</value>
</data>
<data name="Button2.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;Button2.Name" xml:space="preserve">
<value>Button2</value>
</data>
<data name="&gt;&gt;Button2.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button2.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btnVersionTZ.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnVersionTZ.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnVersionTZ.Location" type="System.Drawing.Point, System.Drawing">
<value>175, 21</value>
</data>
<data name="btnVersionTZ.Size" type="System.Drawing.Size, System.Drawing">
<value>163, 43</value>
</data>
<data name="btnVersionTZ.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="btnVersionTZ.Text" xml:space="preserve">
<value>Versionstrennzeichen einfügen</value>
</data>
<data name="btnVersionTZ.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnVersionTZ.Name" xml:space="preserve">
<value>btnVersionTZ</value>
</data>
<data name="&gt;&gt;btnVersionTZ.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnVersionTZ.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;btnVersionTZ.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="btnTrennzeichen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnTrennzeichen.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnTrennzeichen.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 70</value>
</data>
<data name="btnTrennzeichen.Size" type="System.Drawing.Size, System.Drawing">
<value>163, 43</value>
</data>
<data name="btnTrennzeichen.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="btnTrennzeichen.Text" xml:space="preserve">
<value>Dateitrennzeichen einfügen</value>
</data>
<data name="btnTrennzeichen.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnTrennzeichen.Name" xml:space="preserve">
<value>btnTrennzeichen</value>
</data>
<data name="&gt;&gt;btnTrennzeichen.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnTrennzeichen.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;btnTrennzeichen.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="btnVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnVersion.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnVersion.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 21</value>
</data>
<data name="btnVersion.Size" type="System.Drawing.Size, System.Drawing">
<value>163, 43</value>
</data>
<data name="btnVersion.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="btnVersion.Text" xml:space="preserve">
<value>Versionstag einfügen</value>
</data>
<data name="btnVersion.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnVersion.Name" xml:space="preserve">
<value>btnVersion</value>
</data>
<data name="&gt;&gt;btnVersion.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnVersion.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;btnVersion.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>255, 114</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>345, 122</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Variablen:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="btndelete.Location" type="System.Drawing.Point, System.Drawing">
<value>565, 73</value>
</data>
<data name="btndelete.Size" type="System.Drawing.Size, System.Drawing">
<value>28, 25</value>
</data>
<data name="btndelete.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;btndelete.Name" xml:space="preserve">
<value>btndelete</value>
</data>
<data name="&gt;&gt;btndelete.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btndelete.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btndelete.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<data name="btnOK.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 259</value>
</data>
<data name="btnOK.Size" type="System.Drawing.Size, System.Drawing">
<value>172, 36</value>
</data>
<data name="btnOK.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="btnOK.Text" xml:space="preserve">
<value>Übernehmen</value>
</data>
<data name="btnOK.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnOK.Name" xml:space="preserve">
<value>btnOK</value>
</data>
<data name="&gt;&gt;btnOK.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnOK.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnOK.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="btnclose.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnclose.Location" type="System.Drawing.Point, System.Drawing">
<value>514, 259</value>
</data>
<data name="btnclose.Size" type="System.Drawing.Size, System.Drawing">
<value>86, 36</value>
</data>
<data name="btnclose.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="btnclose.Text" xml:space="preserve">
<value>Abbruch</value>
</data>
<data name="btnclose.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnclose.Name" xml:space="preserve">
<value>btnclose</value>
</data>
<data name="&gt;&gt;btnclose.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnclose.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnclose.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<data name="cmbDate.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="cmbDate.Items" xml:space="preserve">
<value>YY_MM_DD</value>
</data>
<data name="cmbDate.Items1" xml:space="preserve">
<value>YYYY_MM_DD</value>
</data>
<data name="cmbDate.Items2" xml:space="preserve">
<value>DD_MM_YY</value>
</data>
<data name="cmbDate.Items3" xml:space="preserve">
<value>DD_MM_YYYY</value>
</data>
<data name="cmbDate.Items4" xml:space="preserve">
<value>YYMMDD</value>
</data>
<data name="cmbDate.Items5" xml:space="preserve">
<value>YYYYMMDD</value>
</data>
<data name="cmbDate.Items6" xml:space="preserve">
<value>DDMMYY</value>
</data>
<data name="cmbDate.Items7" xml:space="preserve">
<value>DDMMYYYY</value>
</data>
<data name="cmbDate.Items8" xml:space="preserve">
<value>YYYY</value>
</data>
<data name="cmbDate.Items9" xml:space="preserve">
<value>MM</value>
</data>
<data name="cmbDate.Items10" xml:space="preserve">
<value>DD</value>
</data>
<data name="cmbDate.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 183</value>
</data>
<data name="cmbDate.Size" type="System.Drawing.Size, System.Drawing">
<value>172, 23</value>
</data>
<data name="cmbDate.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;cmbDate.Name" xml:space="preserve">
<value>cmbDate</value>
</data>
<data name="&gt;&gt;cmbDate.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbDate.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;cmbDate.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Label20.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label20.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 163</value>
</data>
<data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
<value>99, 17</value>
</data>
<data name="Label20.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="Label20.Text" xml:space="preserve">
<value>Datum-Struktur:</value>
</data>
<data name="&gt;&gt;Label20.Name" xml:space="preserve">
<value>Label20</value>
</data>
<data name="&gt;&gt;Label20.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label20.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label20.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="btnAddDate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddDate.Location" type="System.Drawing.Point, System.Drawing">
<value>190, 181</value>
</data>
<data name="btnAddDate.Size" type="System.Drawing.Size, System.Drawing">
<value>30, 23</value>
</data>
<data name="btnAddDate.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="&gt;&gt;btnAddDate.Name" xml:space="preserve">
<value>btnAddDate</value>
</data>
<data name="&gt;&gt;btnAddDate.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnAddDate.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnAddDate.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 17</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>606, 303</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Assistent zur Namenskonvention:</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmNIMoveRenameNamenkonvention</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

103
ToolCollection/frmNIMoveRenameNamenkonvention.vb Normal file
View File

@ -0,0 +1,103 @@
Public Class frmNIMoveRenameNamenkonvention
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
If Not Me.cmbIndexe.Text = "" Then
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = "[%m" & Me.cmbIndexe.Text.ToString & "]"
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
End If
End Sub
Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
End Sub
Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
cmbIndexe.Items.Clear()
For Each index As String In CURRENT_IndexList
cmbIndexe.Items.Add(index)
Next
If DYNAMIC_TYPE = "FILE" Then
GroupBox2.Visible = True
txtnamenKonv.Text = CURRENT_Namekonvention
Else
GroupBox2.Visible = False
txtnamenKonv.Text = CURRENT_DYNAMICFOLDER
End If
Catch ex As Exception
MsgBox("Unexpected error in frmNamenkonvention_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs)
End Sub
Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click
If txtnamenKonv.Text.Contains("[%Version]") Then
MsgBox("Versiontag already added!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim text As String = "[%Version]"
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
End Sub
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
txtnamenKonv.Text = ""
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If DYNAMIC_TYPE = "FILE" Then
CURRENT_Namekonvention = txtnamenKonv.Text
Else
CURRENT_DYNAMICFOLDER = txtnamenKonv.Text
End If
Me.Close()
End Sub
Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
Me.Close()
End Sub
Private Sub btnTrennzeichen_Click(sender As Object, e As EventArgs) Handles btnTrennzeichen.Click
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, "_")
Me.txtnamenKonv.SelectionStart = altePosition + 1
End Sub
Private Sub btnVersionTZ_Click(sender As Object, e As EventArgs) Handles btnVersionTZ.Click
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, "~")
Me.txtnamenKonv.SelectionStart = altePosition + 1
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddDate.Click
If Not Me.cmbDate.Text = "" Then
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = "[%v" & Me.cmbDate.Text.ToString.ToUpper & "]"
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Not txtnamenKonv.Text.Contains("[%vOFilename]") Then
Dim text As String = "[%vOFilename]"
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
End If
End Sub
Private Sub frmNamenkonvention_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.BringToFront()
End Sub
End Class

419
ToolCollection/frmNIProfileigenschaften.Designer.vb generated
View File

@ -23,7 +23,6 @@ Partial Class frmNIProfileigenschaften
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1") Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2") Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3") Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
@ -33,25 +32,17 @@ Partial Class frmNIProfileigenschaften
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6}) Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7}) Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8}) Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton() Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton()
Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel() Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel()
Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog()
Me.dlgMdbLocation = New System.Windows.Forms.OpenFileDialog() Me.dlgMdbLocation = New System.Windows.Forms.OpenFileDialog()
Me.gbxDatenbank = New System.Windows.Forms.GroupBox() Me.gbxDatenbank = New System.Windows.Forms.GroupBox()
Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox() Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox()
Me.CheckBoxwin_aut = New System.Windows.Forms.CheckBox() Me.CheckBoxwin_aut = New System.Windows.Forms.CheckBox()
Me.btnCheck_Con = New System.Windows.Forms.Button()
Me.lblInitialCatalog = New System.Windows.Forms.Label() Me.lblInitialCatalog = New System.Windows.Forms.Label()
Me.btnMdbLöschen = New System.Windows.Forms.Button()
Me.btnMdbLocation = New System.Windows.Forms.Button() Me.btnMdbLocation = New System.Windows.Forms.Button()
Me.txtDataSource1 = New System.Windows.Forms.TextBox() Me.txtDataSource1 = New System.Windows.Forms.TextBox()
Me.lblDSN = New System.Windows.Forms.Label() Me.lblDSN = New System.Windows.Forms.Label()
@ -70,7 +61,6 @@ Partial Class frmNIProfileigenschaften
Me.rbxls = New System.Windows.Forms.RadioButton() Me.rbxls = New System.Windows.Forms.RadioButton()
Me.rbxml = New System.Windows.Forms.RadioButton() Me.rbxml = New System.Windows.Forms.RadioButton()
Me.btnVerknüpfungen = New System.Windows.Forms.Button() Me.btnVerknüpfungen = New System.Windows.Forms.Button()
Me.btnopenSuche = New System.Windows.Forms.Button()
Me.txtWindreamsuche = New System.Windows.Forms.TextBox() Me.txtWindreamsuche = New System.Windows.Forms.TextBox()
Me.btnWindreamsuche = New System.Windows.Forms.Button() Me.btnWindreamsuche = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
@ -94,7 +84,6 @@ Partial Class frmNIProfileigenschaften
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.grbxLDAP = New System.Windows.Forms.GroupBox() Me.grbxLDAP = New System.Windows.Forms.GroupBox()
Me.btnTestLDAP = New System.Windows.Forms.Button()
Me.txtLDAP_PW = New System.Windows.Forms.TextBox() Me.txtLDAP_PW = New System.Windows.Forms.TextBox()
Me.lblLDAP_PW = New System.Windows.Forms.Label() Me.lblLDAP_PW = New System.Windows.Forms.Label()
Me.txtLDAP_User = New System.Windows.Forms.TextBox() Me.txtLDAP_User = New System.Windows.Forms.TextBox()
@ -112,19 +101,12 @@ Partial Class frmNIProfileigenschaften
Me.chkbxAD = New System.Windows.Forms.CheckBox() Me.chkbxAD = New System.Windows.Forms.CheckBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.grpbxMORE = New System.Windows.Forms.GroupBox() Me.grpbxMORE = New System.Windows.Forms.GroupBox()
Me.cmbMoReKundenindex = New System.Windows.Forms.ComboBox()
Me.cmbMOREDokumentart = New System.Windows.Forms.ComboBox()
Me.Label21 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label()
Me.lblHinweisKundenindex = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Label25 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label()
Me.btncrFolder_delete = New System.Windows.Forms.Button()
Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cmbCrFolderDate = New System.Windows.Forms.ComboBox() Me.cmbCrFolderDate = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label()
Me.btnaddcrFolderParameter = New System.Windows.Forms.Button()
Me.txtcrFoldermanuell = New System.Windows.Forms.TextBox() Me.txtcrFoldermanuell = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label()
@ -152,6 +134,20 @@ Partial Class frmNIProfileigenschaften
Me.chkbxGetOrdnerRechte = New System.Windows.Forms.CheckBox() Me.chkbxGetOrdnerRechte = New System.Windows.Forms.CheckBox()
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.txtObjekttyp = New System.Windows.Forms.TextBox() Me.txtObjekttyp = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnopenSuche = New System.Windows.Forms.Button()
Me.btnTestLDAP = New System.Windows.Forms.Button()
Me.btnCheck_Con = New System.Windows.Forms.Button()
Me.btnMdbLöschen = New System.Windows.Forms.Button()
Me.btncrFolder_delete = New System.Windows.Forms.Button()
Me.btnaddcrFolderParameter = New System.Windows.Forms.Button()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.gbxDatenbank.SuspendLayout() Me.gbxDatenbank.SuspendLayout()
Me.gbxDatei.SuspendLayout() Me.gbxDatei.SuspendLayout()
@ -185,41 +181,6 @@ Partial Class frmNIProfileigenschaften
Me.StatusStrip1.TabIndex = 23 Me.StatusStrip1.TabIndex = 23
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
'btnSpeichern
'
Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSpeichern.Enabled = False
Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.ShowDropDownArrow = False
Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
Me.btnSpeichern.Text = "Profil speichern"
'
'btnLöschen
'
Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLöschen.Enabled = False
Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLöschen.Name = "btnLöschen"
Me.btnLöschen.ShowDropDownArrow = False
Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
Me.btnLöschen.Text = "Profil löschen"
'
'btnHinzufügen
'
Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHinzufügen.Name = "btnHinzufügen"
Me.btnHinzufügen.ShowDropDownArrow = False
Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
Me.btnHinzufügen.Text = "Profil hinzufügen"
'
'cmbProfilauswahl 'cmbProfilauswahl
' '
Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@ -235,46 +196,6 @@ Partial Class frmNIProfileigenschaften
Me.tslblAnzahl.Size = New System.Drawing.Size(83, 17) Me.tslblAnzahl.Size = New System.Drawing.Size(83, 17)
Me.tslblAnzahl.Text = "Anzahl Profile:" Me.tslblAnzahl.Text = "Anzahl Profile:"
' '
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.ShowDropDownArrow = False
Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
Me.tsbtnfirst.Text = "Erstes Profil"
'
'tsbtnprevious
'
Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnprevious.Name = "tsbtnprevious"
Me.tsbtnprevious.ShowDropDownArrow = False
Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
Me.tsbtnprevious.Text = "Vorheriges Profil"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.ShowDropDownArrow = False
Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
Me.tsbtnnext.Text = "Nächstes Profil"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.ShowDropDownArrow = False
Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
Me.tsbtnlast.Text = "Letztes Profil"
'
'lblProfil 'lblProfil
' '
Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -342,19 +263,6 @@ Partial Class frmNIProfileigenschaften
Me.CheckBoxwin_aut.UseVisualStyleBackColor = True Me.CheckBoxwin_aut.UseVisualStyleBackColor = True
Me.CheckBoxwin_aut.Visible = False Me.CheckBoxwin_aut.Visible = False
' '
'btnCheck_Con
'
Me.btnCheck_Con.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCheck_Con.Image = Global.ToolCollection.My.Resources.Resources.database_connect
Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCheck_Con.Location = New System.Drawing.Point(273, 14)
Me.btnCheck_Con.Name = "btnCheck_Con"
Me.btnCheck_Con.Size = New System.Drawing.Size(152, 31)
Me.btnCheck_Con.TabIndex = 39
Me.btnCheck_Con.Text = "Test DB-Verbindung"
Me.btnCheck_Con.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCheck_Con.UseVisualStyleBackColor = True
'
'lblInitialCatalog 'lblInitialCatalog
' '
Me.lblInitialCatalog.AutoSize = True Me.lblInitialCatalog.AutoSize = True
@ -366,17 +274,6 @@ Partial Class frmNIProfileigenschaften
Me.lblInitialCatalog.Text = "InitialCatalog*:" Me.lblInitialCatalog.Text = "InitialCatalog*:"
Me.lblInitialCatalog.Visible = False Me.lblInitialCatalog.Visible = False
' '
'btnMdbLöschen
'
Me.btnMdbLöschen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.btnMdbLöschen.Image = CType(resources.GetObject("btnMdbLöschen.Image"), System.Drawing.Image)
Me.btnMdbLöschen.Location = New System.Drawing.Point(462, 72)
Me.btnMdbLöschen.Name = "btnMdbLöschen"
Me.btnMdbLöschen.Size = New System.Drawing.Size(25, 21)
Me.btnMdbLöschen.TabIndex = 33
Me.btnMdbLöschen.UseVisualStyleBackColor = True
Me.btnMdbLöschen.Visible = False
'
'btnMdbLocation 'btnMdbLocation
' '
Me.btnMdbLocation.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.btnMdbLocation.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@ -569,21 +466,6 @@ Partial Class frmNIProfileigenschaften
Me.btnVerknüpfungen.UseVisualStyleBackColor = True Me.btnVerknüpfungen.UseVisualStyleBackColor = True
Me.btnVerknüpfungen.Visible = False Me.btnVerknüpfungen.Visible = False
' '
'btnopenSuche
'
Me.btnopenSuche.Enabled = False
Me.btnopenSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnopenSuche.Image = Global.ToolCollection.My.Resources.Resources.plugin
Me.btnopenSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnopenSuche.Location = New System.Drawing.Point(505, 117)
Me.btnopenSuche.Name = "btnopenSuche"
Me.btnopenSuche.Padding = New System.Windows.Forms.Padding(0, 0, 2, 2)
Me.btnopenSuche.Size = New System.Drawing.Size(68, 36)
Me.btnopenSuche.TabIndex = 48
Me.btnopenSuche.Text = "Teste Suche"
Me.btnopenSuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnopenSuche.UseVisualStyleBackColor = True
'
'txtWindreamsuche 'txtWindreamsuche
' '
Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info
@ -827,18 +709,6 @@ Partial Class frmNIProfileigenschaften
Me.grbxLDAP.Text = "Indexierung gegen Active Directory:" Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
Me.grbxLDAP.Visible = False Me.grbxLDAP.Visible = False
' '
'btnTestLDAP
'
Me.btnTestLDAP.Image = Global.ToolCollection.My.Resources.Resources.asterisk_orange1
Me.btnTestLDAP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestLDAP.Location = New System.Drawing.Point(348, 30)
Me.btnTestLDAP.Name = "btnTestLDAP"
Me.btnTestLDAP.Size = New System.Drawing.Size(135, 23)
Me.btnTestLDAP.TabIndex = 14
Me.btnTestLDAP.Text = "Teste Verbindung"
Me.btnTestLDAP.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTestLDAP.UseVisualStyleBackColor = True
'
'txtLDAP_PW 'txtLDAP_PW
' '
Me.txtLDAP_PW.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtLDAP_PW.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -1019,12 +889,8 @@ Partial Class frmNIProfileigenschaften
' '
'grpbxMORE 'grpbxMORE
' '
Me.grpbxMORE.Controls.Add(Me.cmbMoReKundenindex) Me.grpbxMORE.Controls.Add(Me.Button1)
Me.grpbxMORE.Controls.Add(Me.cmbMOREDokumentart)
Me.grpbxMORE.Controls.Add(Me.Label21) Me.grpbxMORE.Controls.Add(Me.Label21)
Me.grpbxMORE.Controls.Add(Me.lblHinweisKundenindex)
Me.grpbxMORE.Controls.Add(Me.Label22)
Me.grpbxMORE.Controls.Add(Me.Label23)
Me.grpbxMORE.Enabled = False Me.grpbxMORE.Enabled = False
Me.grpbxMORE.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.grpbxMORE.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grpbxMORE.Location = New System.Drawing.Point(6, 104) Me.grpbxMORE.Location = New System.Drawing.Point(6, 104)
@ -1034,75 +900,17 @@ Partial Class frmNIProfileigenschaften
Me.grpbxMORE.TabStop = False Me.grpbxMORE.TabStop = False
Me.grpbxMORE.Text = "Move and Rename" Me.grpbxMORE.Text = "Move and Rename"
' '
'cmbMoReKundenindex
'
Me.cmbMoReKundenindex.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbMoReKundenindex.FormattingEnabled = True
Me.cmbMoReKundenindex.Location = New System.Drawing.Point(638, 37)
Me.cmbMoReKundenindex.Name = "cmbMoReKundenindex"
Me.cmbMoReKundenindex.Size = New System.Drawing.Size(176, 23)
Me.cmbMoReKundenindex.TabIndex = 46
'
'cmbMOREDokumentart
'
Me.cmbMOREDokumentart.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbMOREDokumentart.FormattingEnabled = True
Me.cmbMOREDokumentart.Location = New System.Drawing.Point(301, 37)
Me.cmbMOREDokumentart.Name = "cmbMOREDokumentart"
Me.cmbMOREDokumentart.Size = New System.Drawing.Size(170, 23)
Me.cmbMOREDokumentart.TabIndex = 45
'
'Label21 'Label21
' '
Me.Label21.AutoSize = True Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label21.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(9, 21) Me.Label21.Location = New System.Drawing.Point(6, 19)
Me.Label21.Name = "Label21" Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(261, 65) Me.Label21.Size = New System.Drawing.Size(463, 26)
Me.Label21.TabIndex = 0 Me.Label21.TabIndex = 0
Me.Label21.Text = "Bei Aktivierung dieser Funktion wird nach " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Indexierung das Modul 'Move and Renam" & Me.Label21.Text = "Bei Aktivierung dieser Funktion wird nach Indexierung das Modul 'Move and Rename'" &
"e' " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ausgeführt. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Datei wird anhand der Dokumentartspezifikation " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "umbenann" & " ausgeführt. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Datei wird anhand der Namenkonvention und Ordnerkonfiguration" &
"t und in den Ordnerbaum verschoben" " verarbeitet."
'
'lblHinweisKundenindex
'
Me.lblHinweisKundenindex.AutoSize = True
Me.lblHinweisKundenindex.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHinweisKundenindex.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblHinweisKundenindex.Location = New System.Drawing.Point(455, 63)
Me.lblHinweisKundenindex.Name = "lblHinweisKundenindex"
Me.lblHinweisKundenindex.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.lblHinweisKundenindex.Size = New System.Drawing.Size(359, 30)
Me.lblHinweisKundenindex.TabIndex = 44
Me.lblHinweisKundenindex.Text = "Dieser Index klassifiziert zu welchem Kunden ein Dokument gehört." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Eindeutige Ku" &
"ndennummer, Matchcode)"
Me.lblHinweisKundenindex.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label22.Location = New System.Drawing.Point(298, 21)
Me.Label22.Name = "Label22"
Me.Label22.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label22.Size = New System.Drawing.Size(154, 15)
Me.Label22.TabIndex = 39
Me.Label22.Text = "Dokumentart-Index wählen:"
Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label23.Location = New System.Drawing.Point(635, 21)
Me.Label23.Name = "Label23"
Me.Label23.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label23.Size = New System.Drawing.Size(125, 15)
Me.Label23.TabIndex = 41
Me.Label23.Text = "Kunden-Index wählen:"
Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
' '
'GroupBox4 'GroupBox4
' '
@ -1133,15 +941,6 @@ Partial Class frmNIProfileigenschaften
Me.Label25.TabIndex = 10 Me.Label25.TabIndex = 10
Me.Label25.Text = "Inhalte von Datum-Indizes werden automatisch YYYYMMDD konvertiert" Me.Label25.Text = "Inhalte von Datum-Indizes werden automatisch YYYYMMDD konvertiert"
' '
'btncrFolder_delete
'
Me.btncrFolder_delete.Image = Global.ToolCollection.My.Resources.Resources.delete
Me.btncrFolder_delete.Location = New System.Drawing.Point(548, 39)
Me.btncrFolder_delete.Name = "btncrFolder_delete"
Me.btncrFolder_delete.Size = New System.Drawing.Size(31, 23)
Me.btncrFolder_delete.TabIndex = 9
Me.btncrFolder_delete.UseVisualStyleBackColor = True
'
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Controls.Add(Me.cmbCrFolderDate) Me.GroupBox5.Controls.Add(Me.cmbCrFolderDate)
@ -1177,19 +976,6 @@ Partial Class frmNIProfileigenschaften
Me.Label20.TabIndex = 5 Me.Label20.TabIndex = 5
Me.Label20.Text = "Datum-Struktur:" Me.Label20.Text = "Datum-Struktur:"
' '
'btnaddcrFolderParameter
'
Me.btnaddcrFolderParameter.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnaddcrFolderParameter.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnaddcrFolderParameter.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnaddcrFolderParameter.Location = New System.Drawing.Point(6, 152)
Me.btnaddcrFolderParameter.Name = "btnaddcrFolderParameter"
Me.btnaddcrFolderParameter.Size = New System.Drawing.Size(188, 23)
Me.btnaddcrFolderParameter.TabIndex = 4
Me.btnaddcrFolderParameter.Text = "Ordner anhängen"
Me.btnaddcrFolderParameter.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnaddcrFolderParameter.UseVisualStyleBackColor = True
'
'txtcrFoldermanuell 'txtcrFoldermanuell
' '
Me.txtcrFoldermanuell.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.txtcrFoldermanuell.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@ -1487,6 +1273,163 @@ Partial Class frmNIProfileigenschaften
Me.txtObjekttyp.Size = New System.Drawing.Size(396, 22) Me.txtObjekttyp.Size = New System.Drawing.Size(396, 22)
Me.txtObjekttyp.TabIndex = 80 Me.txtObjekttyp.TabIndex = 80
' '
'Button1
'
Me.Button1.Location = New System.Drawing.Point(9, 57)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(460, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Öffne Move and Rename Konfiguration"
Me.Button1.UseVisualStyleBackColor = True
'
'btnopenSuche
'
Me.btnopenSuche.Enabled = False
Me.btnopenSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnopenSuche.Image = Global.ToolCollection.My.Resources.Resources.plugin
Me.btnopenSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnopenSuche.Location = New System.Drawing.Point(505, 117)
Me.btnopenSuche.Name = "btnopenSuche"
Me.btnopenSuche.Padding = New System.Windows.Forms.Padding(0, 0, 2, 2)
Me.btnopenSuche.Size = New System.Drawing.Size(68, 36)
Me.btnopenSuche.TabIndex = 48
Me.btnopenSuche.Text = "Teste Suche"
Me.btnopenSuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnopenSuche.UseVisualStyleBackColor = True
'
'btnTestLDAP
'
Me.btnTestLDAP.Image = Global.ToolCollection.My.Resources.Resources.asterisk_orange1
Me.btnTestLDAP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestLDAP.Location = New System.Drawing.Point(348, 30)
Me.btnTestLDAP.Name = "btnTestLDAP"
Me.btnTestLDAP.Size = New System.Drawing.Size(135, 23)
Me.btnTestLDAP.TabIndex = 14
Me.btnTestLDAP.Text = "Teste Verbindung"
Me.btnTestLDAP.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTestLDAP.UseVisualStyleBackColor = True
'
'btnCheck_Con
'
Me.btnCheck_Con.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCheck_Con.Image = Global.ToolCollection.My.Resources.Resources.database_connect
Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCheck_Con.Location = New System.Drawing.Point(273, 14)
Me.btnCheck_Con.Name = "btnCheck_Con"
Me.btnCheck_Con.Size = New System.Drawing.Size(152, 31)
Me.btnCheck_Con.TabIndex = 39
Me.btnCheck_Con.Text = "Test DB-Verbindung"
Me.btnCheck_Con.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCheck_Con.UseVisualStyleBackColor = True
'
'btnMdbLöschen
'
Me.btnMdbLöschen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.btnMdbLöschen.Image = CType(resources.GetObject("btnMdbLöschen.Image"), System.Drawing.Image)
Me.btnMdbLöschen.Location = New System.Drawing.Point(462, 72)
Me.btnMdbLöschen.Name = "btnMdbLöschen"
Me.btnMdbLöschen.Size = New System.Drawing.Size(25, 21)
Me.btnMdbLöschen.TabIndex = 33
Me.btnMdbLöschen.UseVisualStyleBackColor = True
Me.btnMdbLöschen.Visible = False
'
'btncrFolder_delete
'
Me.btncrFolder_delete.Image = Global.ToolCollection.My.Resources.Resources.delete
Me.btncrFolder_delete.Location = New System.Drawing.Point(548, 39)
Me.btncrFolder_delete.Name = "btncrFolder_delete"
Me.btncrFolder_delete.Size = New System.Drawing.Size(31, 23)
Me.btncrFolder_delete.TabIndex = 9
Me.btncrFolder_delete.UseVisualStyleBackColor = True
'
'btnaddcrFolderParameter
'
Me.btnaddcrFolderParameter.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnaddcrFolderParameter.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnaddcrFolderParameter.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnaddcrFolderParameter.Location = New System.Drawing.Point(6, 152)
Me.btnaddcrFolderParameter.Name = "btnaddcrFolderParameter"
Me.btnaddcrFolderParameter.Size = New System.Drawing.Size(188, 23)
Me.btnaddcrFolderParameter.TabIndex = 4
Me.btnaddcrFolderParameter.Text = "Ordner anhängen"
Me.btnaddcrFolderParameter.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnaddcrFolderParameter.UseVisualStyleBackColor = True
'
'btnSpeichern
'
Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSpeichern.Enabled = False
Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.ShowDropDownArrow = False
Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
Me.btnSpeichern.Text = "Profil speichern"
'
'btnLöschen
'
Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLöschen.Enabled = False
Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLöschen.Name = "btnLöschen"
Me.btnLöschen.ShowDropDownArrow = False
Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
Me.btnLöschen.Text = "Profil löschen"
'
'btnHinzufügen
'
Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHinzufügen.Name = "btnHinzufügen"
Me.btnHinzufügen.ShowDropDownArrow = False
Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
Me.btnHinzufügen.Text = "Profil hinzufügen"
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.ShowDropDownArrow = False
Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
Me.tsbtnfirst.Text = "Erstes Profil"
'
'tsbtnprevious
'
Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnprevious.Name = "tsbtnprevious"
Me.tsbtnprevious.ShowDropDownArrow = False
Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
Me.tsbtnprevious.Text = "Vorheriges Profil"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.ShowDropDownArrow = False
Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
Me.tsbtnnext.Text = "Nächstes Profil"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.ShowDropDownArrow = False
Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
Me.tsbtnlast.Text = "Letztes Profil"
'
'frmNIProfileigenschaften 'frmNIProfileigenschaften
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -1640,11 +1583,6 @@ Partial Class frmNIProfileigenschaften
Friend WithEvents chkcrfold_move As System.Windows.Forms.CheckBox Friend WithEvents chkcrfold_move As System.Windows.Forms.CheckBox
Friend WithEvents grpbxMORE As System.Windows.Forms.GroupBox Friend WithEvents grpbxMORE As System.Windows.Forms.GroupBox
Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents lblHinweisKundenindex As System.Windows.Forms.Label
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents cmbMoReKundenindex As System.Windows.Forms.ComboBox
Friend WithEvents cmbMOREDokumentart As System.Windows.Forms.ComboBox
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents cmbOrdnertyp As System.Windows.Forms.ComboBox Friend WithEvents cmbOrdnertyp As System.Windows.Forms.ComboBox
Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label
@ -1668,4 +1606,5 @@ Partial Class frmNIProfileigenschaften
Friend WithEvents cmbCrFolderDate As System.Windows.Forms.ComboBox Friend WithEvents cmbCrFolderDate As System.Windows.Forms.ComboBox
Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents Button1 As Button
End Class End Class

2
ToolCollection/frmNIProfileigenschaften.resx
View File

@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAWgBAAFoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CQAAAk1TRnQBSQFMAgEBAgEAAYgBAAGIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

146
ToolCollection/frmNIProfileigenschaften.vb
View File

@ -1,6 +1,8 @@
Imports System.IO Imports System.IO
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports System.Data.Odbc
Public Class frmNIProfileigenschaften Public Class frmNIProfileigenschaften
Public Shared _windream As ClassWindream_allgemein Public Shared _windream As ClassWindream_allgemein
Private _MyLogger As LogConfig Private _MyLogger As LogConfig
@ -14,6 +16,7 @@ Public Class frmNIProfileigenschaften
Private _flagIgnoreVisibilityChanged As Boolean = False Private _flagIgnoreVisibilityChanged As Boolean = False
Private Shared _Instance As frmNIProfileigenschaften = Nothing Private Shared _Instance As frmNIProfileigenschaften = Nothing
Private licenseManager As ClassLicenseManager = Nothing Private licenseManager As ClassLicenseManager = Nothing
Private INDEX_LIST As New List(Of String)
Public Shared Function Instance() As frmNIProfileigenschaften Public Shared Function Instance() As frmNIProfileigenschaften
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmNIProfileigenschaften _Instance = New frmNIProfileigenschaften
@ -262,21 +265,23 @@ Public Class frmNIProfileigenschaften
Me.cmbIndexValidierung.Items.Clear() Me.cmbIndexValidierung.Items.Clear()
Me.cmbIndexFehler.Items.Clear() Me.cmbIndexFehler.Items.Clear()
Me.cmbCrFolderIndex.Items.Clear() Me.cmbCrFolderIndex.Items.Clear()
cmbMOREDokumentart.Items.Clear() 'cmbMOREDokumentart.Items.Clear()
cmbMoReKundenindex.Items.Clear() 'cmbMoReKundenindex.Items.Clear()
'Dim indexe1 = _windream.GetIndicesByObjecttype(Me._selectedProfile.Dokumenttyp.aName) 'Dim indexe1 = _windream.GetIndicesByObjecttype(Me._selectedProfile.Dokumenttyp.aName)
'_windream.GetIndices(Me._selectedProfile.Dokumenttyp.aName) '_windream.GetIndices(Me._selectedProfile.Dokumenttyp.aName)
Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfile.Dokumenttyp.aName, True, "NI") Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfile.Dokumenttyp.aName, True, "NI")
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
Me.cmbIndexFehler.Items.Add("") Me.cmbIndexFehler.Items.Add("")
Me.cmbIndexValidierung.Items.Add("") Me.cmbIndexValidierung.Items.Add("")
cmbMOREDokumentart.Items.Add("") 'cmbMOREDokumentart.Items.Add("")
cmbMoReKundenindex.Items.Add("") 'cmbMoReKundenindex.Items.Add("")
cmbMoReKundenindex.Items.Add("Standard-VZ") 'cmbMoReKundenindex.Items.Add("Standard-VZ")
For Each index As String In indexe For Each index As String In indexe
Select Case _windream.GetTypeOfIndexAsIntByName(index) Select Case _windream.GetTypeOfIndexAsIntByName(index)
@ -285,16 +290,19 @@ Public Class frmNIProfileigenschaften
Me.cmbIndexFehler.Items.Add(index) Me.cmbIndexFehler.Items.Add(index)
Case 1 Case 1
Me.cmbCrFolderIndex.Items.Add(index) Me.cmbCrFolderIndex.Items.Add(index)
cmbMOREDokumentart.Items.Add(index) INDEX_LIST.Add(index)
cmbMoReKundenindex.Items.Add(index) 'cmbMOREDokumentart.Items.Add(index)
'cmbMoReKundenindex.Items.Add(index)
Case 2 Case 2
Me.cmbCrFolderIndex.Items.Add(index) Me.cmbCrFolderIndex.Items.Add(index)
cmbMOREDokumentart.Items.Add(index) INDEX_LIST.Add(index)
cmbMoReKundenindex.Items.Add(index) 'cmbMOREDokumentart.Items.Add(index)
'cmbMoReKundenindex.Items.Add(index)
Case 5 Case 5
Me.cmbCrFolderIndex.Items.Add(index) Me.cmbCrFolderIndex.Items.Add(index)
cmbMOREDokumentart.Items.Add(index) INDEX_LIST.Add(index)
cmbMoReKundenindex.Items.Add(index) 'cmbMOREDokumentart.Items.Add(index)
'cmbMoReKundenindex.Items.Add(index)
'Case Else 'Case Else
'MsgBox(_windream.GetTypeOfIndexAsIntByName(index) & vbNewLine & index) 'MsgBox(_windream.GetTypeOfIndexAsIntByName(index) & vbNewLine & index)
@ -309,16 +317,16 @@ Public Class frmNIProfileigenschaften
'Me.cmbCrFolderIndex.SelectedValue = 0 'Me.cmbCrFolderIndex.SelectedValue = 0
End If End If
If Me._selectedProfile.MR_DAIndex <> "" Then 'If Me._selectedProfile.MR_DAIndex <> "" Then
Me.cmbMOREDokumentart.SelectedIndex = Me.cmbMOREDokumentart.FindStringExact(Me._selectedProfile.MR_DAIndex) ' Me.cmbMOREDokumentart.SelectedIndex = Me.cmbMOREDokumentart.FindStringExact(Me._selectedProfile.MR_DAIndex)
Else 'Else
Me.cmbMOREDokumentart.SelectedIndex = 0 ' Me.cmbMOREDokumentart.SelectedIndex = 0
End If 'End If
If Me._selectedProfile.MR_KDIndex <> "" Then 'If Me._selectedProfile.MR_KDIndex <> "" Then
Me.cmbMoReKundenindex.SelectedIndex = Me.cmbMoReKundenindex.FindStringExact(Me._selectedProfile.MR_KDIndex) ' Me.cmbMoReKundenindex.SelectedIndex = Me.cmbMoReKundenindex.FindStringExact(Me._selectedProfile.MR_KDIndex)
Else 'Else
Me.cmbMoReKundenindex.SelectedIndex = 0 ' Me.cmbMoReKundenindex.SelectedIndex = 0
End If 'End If
If Me._selectedProfile.IndexValidation <> "" Then If Me._selectedProfile.IndexValidation <> "" Then
'Wenn bereits ein Index gewählt wurde 'Wenn bereits ein Index gewählt wurde
@ -542,6 +550,7 @@ Public Class frmNIProfileigenschaften
Private Sub txtProfilname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtProfilname.TextChanged Private Sub txtProfilname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtProfilname.TextChanged
If Me._selectedProfile IsNot Nothing Then If Me._selectedProfile IsNot Nothing Then
Me._selectedProfile.Profilname = Me.txtProfilname.Text Me._selectedProfile.Profilname = Me.txtProfilname.Text
CURRENT_PROFILENAME = Me._selectedProfile.Profilname
If Not Me.txtProfilname.Text = Me._selectedProfile.OriginalProfilname Then If Not Me.txtProfilname.Text = Me._selectedProfile.OriginalProfilname Then
Me.btnSpeichern.Enabled = True Me.btnSpeichern.Enabled = True
Else Else
@ -607,7 +616,7 @@ Public Class frmNIProfileigenschaften
' den Speichern-Button deaktivieren ' den Speichern-Button deaktivieren
Me.btnSpeichern.Enabled = False Me.btnSpeichern.Enabled = False
If (Me.cmbIndexValidierung.Text <> "" Or Me.cmbIndexFehler.Text <> "") And Me._selectedProfile.checkIndexsql = "" Then If (Me.cmbIndexValidierung.Text <> "" Or Me.cmbIndexFehler.Text <> "") And Me._selectedProfile.checkIndexsql = "" Then
MsgBox("Bitte vergessen Sie nicht einen Überprüfungs-SQL String für den deskriptiven Index in den Verknüpfungen zu hinterlegen: " & vbNewLine & "- Validierung/Überprüfung des Dokumentes notwendig " & vbNewLine & _ MsgBox("Bitte vergessen Sie nicht einen Überprüfungs-SQL String für den deskriptiven Index in den Verknüpfungen zu hinterlegen: " & vbNewLine & "- Validierung/Überprüfung des Dokumentes notwendig " & vbNewLine &
"- Nachindexierung fehlerhaft", MsgBoxStyle.Exclamation, "Konfiguration unvollständig") "- Nachindexierung fehlerhaft", MsgBoxStyle.Exclamation, "Konfiguration unvollständig")
End If End If
' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde) ' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde)
@ -654,7 +663,7 @@ Public Class frmNIProfileigenschaften
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in Löschen Profil:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler in Löschen Profil:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub cmbDbArt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDbArt.SelectedIndexChanged Private Sub cmbDbArt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDbArt.SelectedIndexChanged
@ -998,7 +1007,7 @@ Public Class frmNIProfileigenschaften
Try Try
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
If chkOR_ohne_TNS.Checked Then If chkOR_ohne_TNS.Checked Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & txtDataSource1.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & txtDataSource1.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
txtDataSource2.Text & ")));User Id=" & txtUserId.Text & ";Password=" & txtPassword.Text & ";" txtDataSource2.Text & ")));User Id=" & txtUserId.Text & ";Password=" & txtPassword.Text & ";"
Else Else
conn.DataSource = txtDataSource2.Text conn.DataSource = txtDataSource2.Text
@ -1018,6 +1027,22 @@ Public Class frmNIProfileigenschaften
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:")
End Try End Try
Case "ODBC"
Dim connectionString As String
connectionString = $"DSN={txtDataSource1.Text};UID={txtUserId.Text};Pwd={txtPassword.Text};"
Try
Dim conn As OdbcConnection
Dim dr As OdbcDataReader
conn = New OdbcConnection(connectionString)
conn.Open()
conn.Close()
conn.Dispose()
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & connectionString, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau ODBC:")
End Try
Case Else Case Else
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
End Select End Select
@ -1026,7 +1051,7 @@ Public Class frmNIProfileigenschaften
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Verbindungstest:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler beim Verbindungstest:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
@ -1189,7 +1214,7 @@ Public Class frmNIProfileigenschaften
Private Sub chkcrfold_move_CheckedChanged(sender As Object, e As EventArgs) Handles chkcrfold_move.CheckedChanged Private Sub chkcrfold_move_CheckedChanged(sender As Object, e As EventArgs) Handles chkcrfold_move.CheckedChanged
If Me._selectedProfile IsNot Nothing Then If Me._selectedProfile IsNot Nothing Then
Me._selectedProfile.CrFolder_move = Me.chkcrfold_move.Checked Me._selectedProfile.CrFolder_Move = Me.chkcrfold_move.Checked
If Not Me.chkcrfold_move.Checked = Me._selectedProfile.OriginalCrFolder_Move Then If Not Me.chkcrfold_move.Checked = Me._selectedProfile.OriginalCrFolder_Move Then
Me.btnSpeichern.Enabled = True Me.btnSpeichern.Enabled = True
Else Else
@ -1243,39 +1268,39 @@ Public Class frmNIProfileigenschaften
End If End If
End Sub End Sub
Private Sub cmbMoReKundenindex_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMoReKundenindex.SelectedIndexChanged 'Private Sub cmbMoReKundenindex_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMoReKundenindex.SelectedIndexChanged
If Me.cmbMoReKundenindex.SelectedIndex <> -1 Then ' If Me.cmbMoReKundenindex.SelectedIndex <> -1 Then
If Me._selectedProfile IsNot Nothing Then ' If Me._selectedProfile IsNot Nothing Then
Me._selectedProfile.MR_KDIndex = cmbMoReKundenindex.SelectedItem ' Me._selectedProfile.MR_KDIndex = cmbMoReKundenindex.SelectedItem
If Not Me._selectedProfile.MR_KDIndex = Me._selectedProfile.OriginalMR_KDIndex Then ' If Not Me._selectedProfile.MR_KDIndex = Me._selectedProfile.OriginalMR_KDIndex Then
If cmbMoReKundenindex.Text = "Standard-VZ" Then ' If cmbMoReKundenindex.Text = "Standard-VZ" Then
Me.lblHinweisKundenindex.Text = "Dokumente werden im allgemeinen Kundenverzeichnis abgelegt!" ' Me.lblHinweisKundenindex.Text = "Dokumente werden im allgemeinen Kundenverzeichnis abgelegt!"
Else ' Else
Me.lblHinweisKundenindex.Text = "Dokumente werden im spezifischen Kundenordner abgelegt!" ' Me.lblHinweisKundenindex.Text = "Dokumente werden im spezifischen Kundenordner abgelegt!"
End If ' End If
Me.btnSpeichern.Enabled = True ' Me.btnSpeichern.Enabled = True
Else ' Else
Me.btnSpeichern.Enabled = False ' Me.btnSpeichern.Enabled = False
End If ' End If
End If ' End If
End If ' End If
End Sub 'End Sub
Private Sub cmbMOREDokumentart_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMOREDokumentart.SelectedIndexChanged 'Private Sub cmbMOREDokumentart_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMOREDokumentart.SelectedIndexChanged
If Me.cmbMOREDokumentart.SelectedIndex <> -1 Then ' If Me.cmbMOREDokumentart.SelectedIndex <> -1 Then
If txtMovetoFolder.Text <> "" Then ' If txtMovetoFolder.Text <> "" Then
MsgBox("Achtung Sie haben Move2Folder aktiviert! Die Kombination mit Move and Rename ist nicht zulässig!", MsgBoxStyle.Exclamation) ' MsgBox("Achtung Sie haben Move2Folder aktiviert! Die Kombination mit Move and Rename ist nicht zulässig!", MsgBoxStyle.Exclamation)
End If ' End If
If Me._selectedProfile IsNot Nothing Then ' If Me._selectedProfile IsNot Nothing Then
Me._selectedProfile.MR_DAIndex = cmbMOREDokumentart.SelectedItem ' Me._selectedProfile.MR_DAIndex = cmbMOREDokumentart.SelectedItem
If Not Me._selectedProfile.MR_DAIndex = Me._selectedProfile.OriginalMR_DAIndex Then ' If Not Me._selectedProfile.MR_DAIndex = Me._selectedProfile.OriginalMR_DAIndex Then
Me.btnSpeichern.Enabled = True ' Me.btnSpeichern.Enabled = True
Else ' Else
Me.btnSpeichern.Enabled = False ' Me.btnSpeichern.Enabled = False
End If ' End If
End If ' End If
End If ' End If
End Sub 'End Sub
Private Sub rbxls_CheckedChanged(sender As Object, e As EventArgs) Handles rbxls.CheckedChanged Private Sub rbxls_CheckedChanged(sender As Object, e As EventArgs) Handles rbxls.CheckedChanged
MsgBox("Funktion nicht aktiv - Individuelle Anfrage bei Digital Data stellen") MsgBox("Funktion nicht aktiv - Individuelle Anfrage bei Digital Data stellen")
@ -1399,4 +1424,9 @@ Public Class frmNIProfileigenschaften
Private Sub txtcrFoldermanuell_TextChanged(sender As Object, e As EventArgs) Handles txtcrFoldermanuell.TextChanged Private Sub txtcrFoldermanuell_TextChanged(sender As Object, e As EventArgs) Handles txtcrFoldermanuell.TextChanged
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CURRENT_IndexList = INDEX_LIST
frmNIMoveRename.ShowDialog()
End Sub
End Class End Class

38
ToolCollection/frmNIProfilhinzufuegen.vb
View File

@ -1,4 +1,5 @@
Imports Oracle.ManagedDataAccess.Client Imports System.Data.Odbc
Imports Oracle.ManagedDataAccess.Client
Public Class frmNIProfilhinzufuegen Public Class frmNIProfilhinzufuegen
Private _oDokumentTypen As WINDREAMLib.WMObjects Private _oDokumentTypen As WINDREAMLib.WMObjects
Public Shared _windream As ClassWindream_allgemein Public Shared _windream As ClassWindream_allgemein
@ -39,7 +40,7 @@ Public Class frmNIProfilhinzufuegen
If Me.rbDatenbank.Checked = True Then If Me.rbDatenbank.Checked = True Then
' wenn mindestens ein Profilname und ein Dokumententyp angegeben wurde ' wenn mindestens ein Profilname und ein Dokumententyp angegeben wurde
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And _ If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And
Me.cmbDbArt.SelectedIndex <> -1 And Me.txtDataSource.Text <> "" Then ' And Me.cmbIndexValidierung.SelectedIndex <> -1 Me.cmbDbArt.SelectedIndex <> -1 And Me.txtDataSource.Text <> "" Then ' And Me.cmbIndexValidierung.SelectedIndex <> -1
Dim initialCatalog As String Dim initialCatalog As String
If Me.cmbDbArt.SelectedItem = "MS-SQL" Then If Me.cmbDbArt.SelectedItem = "MS-SQL" Then
@ -86,8 +87,8 @@ Public Class frmNIProfilhinzufuegen
End If End If
Else Else
' sonst eine Fehlermeldung ausgeben ' sonst eine Fehlermeldung ausgeben
MsgBox("Es konnte auf dem aktuell gewählten windream-Server kein entsprechender Objekttyp gefunden werden." & vbNewLine & _ MsgBox("Es konnte auf dem aktuell gewählten windream-Server kein entsprechender Objekttyp gefunden werden." & vbNewLine &
"Bitte setzen Sie sich mit Ihrem windream-Administrator in Verbindung, um zu klären warum der Objekttyp '" & Me.cmbObjektTypen.Text & "'" & _ "Bitte setzen Sie sich mit Ihrem windream-Administrator in Verbindung, um zu klären warum der Objekttyp '" & Me.cmbObjektTypen.Text & "'" &
" auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp") " auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp")
End If End If
@ -97,7 +98,7 @@ Public Class frmNIProfilhinzufuegen
End If End If
ElseIf rbDatei.Checked = True Then ElseIf rbDatei.Checked = True Then
' Nachindexierung über Dateien ' Nachindexierung über Dateien
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And _ If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And
Me.cmbEndung_xml.SelectedIndex <> -1 Then Me.cmbEndung_xml.SelectedIndex <> -1 Then
If Me.rbxls.Checked Or Me.rbxml.Checked Then If Me.rbxls.Checked Or Me.rbxml.Checked Then
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist ' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
@ -122,8 +123,8 @@ Public Class frmNIProfilhinzufuegen
End If End If
Else Else
' sonst eine Fehlermeldung ausgeben ' sonst eine Fehlermeldung ausgeben
MsgBox("Es konnte auf dem aktuell gewählten windream-Server kein entsprechender Objekttyp gefunden werden." & vbNewLine & _ MsgBox("Es konnte auf dem aktuell gewählten windream-Server kein entsprechender Objekttyp gefunden werden." & vbNewLine &
"Bitte setzen Sie sich mit Ihrem windream-Administrator in Verbindung, um zu klären warum der Objekttyp '" & Me.cmbObjektTypen.Text & "'" & _ "Bitte setzen Sie sich mit Ihrem windream-Administrator in Verbindung, um zu klären warum der Objekttyp '" & Me.cmbObjektTypen.Text & "'" &
" auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp") " auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp")
End If End If
Else Else
@ -174,7 +175,7 @@ Public Class frmNIProfilhinzufuegen
Else Else
If chkbxGetOrdnerRechte.Checked Then If chkbxGetOrdnerRechte.Checked Then
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, _ ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text,
"nur-ordner-indizes", "", "", "", "", "", "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text) "nur-ordner-indizes", "", "", "", "", "", "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
' und das Formular schließen ' und das Formular schließen
Me.Close() Me.Close()
@ -340,7 +341,7 @@ Public Class frmNIProfilhinzufuegen
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
If chkOR_ohne_TNS.Checked Then If chkOR_ohne_TNS.Checked Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & txtDataSource.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & txtDataSource.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
txtInitialCatalog.Text & ")));User Id=" & txtUserId.Text & ";Password=" & txtPassword.Text & ";" txtInitialCatalog.Text & ")));User Id=" & txtUserId.Text & ";Password=" & txtPassword.Text & ";"
Else Else
conn.DataSource = txtInitialCatalog.Text conn.DataSource = txtInitialCatalog.Text
@ -360,9 +361,24 @@ Public Class frmNIProfilhinzufuegen
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:")
End Try End Try
Case "ODBC"
Dim connectionString As String
connectionString = $"DSN={txtDataSource.Text};UID={txtUserId.Text};Pwd={txtPassword.Text};"
Try
Dim conn As OdbcConnection
Dim dr As OdbcDataReader
conn = New OdbcConnection(connectionString)
conn.Open()
conn.Close()
conn.Dispose()
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & connectionString, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau ODBC:")
End Try
Case Else Case Else
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
End Select End Select
End If End If
@ -559,7 +575,7 @@ Public Class frmNIProfilhinzufuegen
Me.grbxFT.Dock = DockStyle.Bottom Me.grbxFT.Dock = DockStyle.Bottom
Me.grbxFT.Visible = False Me.grbxFT.Visible = False
End If End If
End Sub End Sub
Private Sub CheckBoxwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxwin_aut.CheckedChanged Private Sub CheckBoxwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxwin_aut.CheckedChanged
If CheckBoxwin_aut.Checked Then If CheckBoxwin_aut.Checked Then

28
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@ -168,6 +168,8 @@ Partial Class frmNIVerknuepfungen
Me.rbvkt_add = New System.Windows.Forms.RadioButton() Me.rbvkt_add = New System.Windows.Forms.RadioButton()
Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton() Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.rbFunctionsSc = New System.Windows.Forms.RadioButton()
Me.rbFunctionsTb = New System.Windows.Forms.RadioButton()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@ -1802,6 +1804,8 @@ Partial Class frmNIVerknuepfungen
' '
'pnlZielQuelle 'pnlZielQuelle
' '
Me.pnlZielQuelle.Controls.Add(Me.rbFunctionsTb)
Me.pnlZielQuelle.Controls.Add(Me.rbFunctionsSc)
Me.pnlZielQuelle.Controls.Add(Me.lblsave) Me.pnlZielQuelle.Controls.Add(Me.lblsave)
Me.pnlZielQuelle.Controls.Add(Me.chkvkt_Dublette) Me.pnlZielQuelle.Controls.Add(Me.chkvkt_Dublette)
Me.pnlZielQuelle.Controls.Add(Me.rbvkt_add) Me.pnlZielQuelle.Controls.Add(Me.rbvkt_add)
@ -1906,6 +1910,28 @@ Partial Class frmNIVerknuepfungen
Me.SplitContainer1.SplitterDistance = 521 Me.SplitContainer1.SplitterDistance = 521
Me.SplitContainer1.TabIndex = 51 Me.SplitContainer1.TabIndex = 51
' '
'rbFunctionsSc
'
Me.rbFunctionsSc.AutoSize = True
Me.rbFunctionsSc.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.rbFunctionsSc.Location = New System.Drawing.Point(205, 8)
Me.rbFunctionsSc.Name = "rbFunctionsSc"
Me.rbFunctionsSc.Size = New System.Drawing.Size(114, 17)
Me.rbFunctionsSc.TabIndex = 80
Me.rbFunctionsSc.Text = "Functions (scalar)"
Me.rbFunctionsSc.UseVisualStyleBackColor = True
'
'rbFunctionsTb
'
Me.rbFunctionsTb.AutoSize = True
Me.rbFunctionsTb.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.rbFunctionsTb.Location = New System.Drawing.Point(322, 8)
Me.rbFunctionsTb.Name = "rbFunctionsTb"
Me.rbFunctionsTb.Size = New System.Drawing.Size(111, 17)
Me.rbFunctionsTb.TabIndex = 81
Me.rbFunctionsTb.Text = "Functions (Table)"
Me.rbFunctionsTb.UseVisualStyleBackColor = True
'
'frmNIVerknuepfungen 'frmNIVerknuepfungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -2101,4 +2127,6 @@ Partial Class frmNIVerknuepfungen
Friend WithEvents lblsaveSQLAnweisung As Label Friend WithEvents lblsaveSQLAnweisung As Label
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Button5 As Button Friend WithEvents Button5 As Button
Friend WithEvents rbFunctionsTb As RadioButton
Friend WithEvents rbFunctionsSc As RadioButton
End Class End Class

141
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -519,10 +519,18 @@ Public Class frmNIVerknuepfungen
columns = Me.GetOracleColumnsByTable(words(0)) columns = Me.GetOracleColumnsByTable(words(0))
ElseIf Me._selectedProfil.DbArt = "MS-SQL" Then ElseIf Me._selectedProfil.DbArt = "MS-SQL" Then
' alle Spalten aus Oracle auslesen ' alle Spalten aus Oracle auslesen
columns = Me.GetMsSqlColumnsByTable(words(1)) 'Me.cmbDataviews.SelectedItem If rbFunctionsSc.Checked Or rbFunctionsTb.Checked Then
Dim oColumns() As String
ReDim oColumns(0)
oColumns(0) = "ReturnValue"
columns = oColumns
Else
columns = Me.GetMsSqlColumnsByTable(words(1)) 'Me.cmbDataviews.SelectedItem
End If
ElseIf Me._selectedProfil.DbArt = "ODBC" Then ElseIf Me._selectedProfil.DbArt = "ODBC" Then
' alle Spalten aus Oracle auslesen ' alle Spalten aus Oracle auslesen
columns = Me.GetOdbcColumnsByTable(words(1)) columns = Me.GetOdbcColumnsByTable(words(0))
ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then
' alle Spalten aus Oracle auslesen ' alle Spalten aus Oracle auslesen
columns = Me.GetOleColumnsByTable(words(1)) columns = Me.GetOleColumnsByTable(words(1))
@ -764,7 +772,75 @@ Public Class frmNIVerknuepfungen
Return Nothing Return Nothing
End Try End Try
End Function End Function
Private Function GetMsSqlFunctions(Type As String) As String()
Try
Dim SqlString As String
Dim DataViews() As String = Nothing
Dim i As Integer = 0
'Dim ConnectionString As SqlConnectionStringBuilder
Dim Connection As SqlConnection
Dim Command As SqlCommand
Dim DataAdapter As SqlDataAdapter
Dim DataSet As DataSet = New DataSet()
Dim con As String
' ConnectionString aufbauen
If _selectedProfil.UserId = "WINAUTH" Then
con = "Data Source=" & _selectedProfil.DataSource & ";Initial Catalog=" & _selectedProfil.InitialCatalog & ";Trusted_Connection=True;"
Else
con = "Server=" & _selectedProfil.DataSource & ";Database=" & _selectedProfil.InitialCatalog & ";User Id=" & _selectedProfil.UserId & ";Password=" & _selectedProfil.Password & ";"
End If
'ConnectionString = New SqlConnectionStringBuilder()
'ConnectionString.DataSource = Me._selectedProfil.DataSource
'ConnectionString.UserID = Me._selectedProfil.UserId
'ConnectionString.Password = Me._selectedProfil.Password
'ConnectionString.InitialCatalog = Me._selectedProfil.InitialCatalog
' Verbindung zur DB herstellen
Connection = New SqlConnection(con)
Connection.Open()
' DB-Abfrage für alle Views definieren
SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type = '{Type}'"
' die DB-Abfrage erzeugen
Command = New SqlCommand(SqlString, Connection)
' die DB-Abfrage durchführen
DataAdapter = New SqlDataAdapter(Command)
' das DataSet mit den Daten füllen
DataAdapter.Fill(DataSet)
If DataSet.Tables(0).Rows.Count > 0 Then
Dim tabellenart As String = "FUNCTIONS"
' alle Ergebnisse (VIEWs) durchlaufen
For Each row As DataRow In DataSet.Tables(0).Rows
If DataViews IsNot Nothing Then ReDim Preserve DataViews(DataViews.Length) Else ReDim DataViews(0)
' View in Array schreiben
DataViews(i) = row.Item(0)
i += 1
Next
' Array zurückgeben
Return DataViews
Else
Return Nothing
End If
Catch ex As Exception
MsgBox("Die MSSQL-Datenansichten der Datenbank konnten nicht fehlerfrei ausgelesen werden." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Auslesen der Datenansichten MSSQL")
Return Nothing
End Try
End Function
''' <summary> ''' <summary>
''' Liest alle Spalten eines Datenbankviews oder einer Tabelle aus ''' Liest alle Spalten eines Datenbankviews oder einer Tabelle aus
@ -1660,10 +1736,15 @@ Public Class frmNIVerknuepfungen
columns = Me.GetOracleColumnsByTable(words(0)) columns = Me.GetOracleColumnsByTable(words(0))
ElseIf Me._selectedProfil.DbArt = "MS-SQL" Then ElseIf Me._selectedProfil.DbArt = "MS-SQL" Then
' alle Spalten aus MS-SQL auslesen ' alle Spalten aus MS-SQL auslesen
columns = Me.GetMsSqlColumnsByTable(words(1)) 'Me._selectedProfil._links.selectedLink.From) Try
columns = Me.GetMsSqlColumnsByTable(words(1)) 'Me._selectedProfil._links.selectedLink.From)
Catch ex As Exception
End Try
ElseIf Me._selectedProfil.DbArt = "ODBC" Then ElseIf Me._selectedProfil.DbArt = "ODBC" Then
' alle Spalten über ODBC auslesen ' alle Spalten über ODBC auslesen
columns = Me.GetOdbcColumnsByTable(words(1)) columns = Me.GetOdbcColumnsByTable(words(0))
ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then
' alle Spalten aus Access-Tabelle auslesen ' alle Spalten aus Access-Tabelle auslesen
columns = Me.GetOleColumnsByTable(words(1)) columns = Me.GetOleColumnsByTable(words(1))
@ -2590,6 +2671,24 @@ Public Class frmNIVerknuepfungen
"Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:") "Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:")
End If End If
End If
ElseIf _selectedProfil.DbArt = "ODBC" Then
Dim ergebnis As Integer = database.CheckIndex_ODBC(_selectedProfil.Profilname, vSQL, _selectedProfil.DataSource, _selectedProfil.UserId, _selectedProfil.Password)
If ergebnis = 1 Then
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine &
vSQL & vbNewLine & vbNewLine &
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine &
ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
If ergebnis > 1 Then
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine &
"Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:")
Else
MsgBox("Der ausgeführte SQL-Befehl liefert 0 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:")
End If
End If End If
End If End If
Me.txtTestwert_checkindex.BackColor = Drawing.Color.White Me.txtTestwert_checkindex.BackColor = Drawing.Color.White
@ -3452,4 +3551,38 @@ Public Class frmNIVerknuepfungen
Me.lblsaveSQLAnweisung.Text = "" Me.lblsaveSQLAnweisung.Text = ""
End If End If
End Sub End Sub
Private Sub rbFunctionsSc_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsSc.CheckedChanged
If Not _flagIgnoreCheckedChanged Then
If Me._selectedProfil Is Nothing = False Then
Me.cmbDataviews.Items.Clear()
' View- oder Tabellenliste
Dim dataviews() As String = Nothing
If Me._selectedProfil.DbArt = "MS-SQL" Then
dataviews = Me.GetMsSqlFunctions("FN")
'ElseIf Me._selectedProfil.DbArt = "ODBC" Then
' dataviews = Me.GetOdbcDataviews(Me.rbViews.Checked)
'ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then
' dataviews = Me.GetOleDataviews(Me.rbViews.Checked)
Else
MsgBox("Der gewählte Datenbanktyp ist nicht für Funktionen unterstützt.", MsgBoxStyle.Critical, "Unbekannter Datenbanktyp")
End If
If dataviews IsNot Nothing Then
For Each dataview As String In dataviews
Me.cmbDataviews.Items.Add(dataview)
Next
End If
Me.txtSelectAnweisung.Text = ""
Else
MsgBox("Bitte wählen Sie ein Profil aus!", MsgBoxStyle.Information, "Achtung:")
End If
End If
End Sub
End Class End Class